http://www.perlmonks.org?node_id=991949


in reply to Re^3: HTML::Template with checkbox
in thread HTML::Template with checkbox

I used it and it did not return any values

@files = $q->param("field");

There is no values in @files.

I feel very frustrated.

Replies are listed 'Best First'.
Re^5: HTML::Template with checkbox
by rpnoble419 (Pilgrim) on Sep 06, 2012 at 04:17 UTC

    bebewinla

    This is a down and dirty example. You should taint the data in production. Here is my example.

    HTML file 

    <html lang="cs">
  <head>
  </head>
  <body>
    <form action="new6.pl">
    <input type="checkbox" name="field" value="Red"> Red<br>
    <input type="checkbox" name="field" value="Blue"> Blue<br>
    <input type="checkbox" name="field" value="Green"> Green<br>
    <input type="checkbox" name="field" value="Yellow"> Yellow<br>
    <input type="submit">
    </form>
  </body>
</html>

    [download]

    Perl Code 

    #!/usr/bin/perl
use strict;
use CGI qw/:standard :html4/;
use CGI::Carp qw ( fatalsToBrowser );  

my $query = new CGI; 
print $query->header();

&logit($0." has started" );
&logit("=======================");
&logit($0." ".query_string());


my @values = $query->param('field');
my $ColorCount=@values;

print "Colors Selected: ".$ColorCount."<br>";

foreach my $item (@values)
{
  print "Colors: ".$item."<br>";

}

exit;

    [download]

    Output 

    Colors Selected: 4
Colors: Red
Colors: Blue
Colors: Green
Colors: Yellow

    [download]

    I hope this helps

[reply]
[d/l]
[select]

      Hi rpnoble419, Thanks for you sample program. But I still having trouble of getting the values "field". I used TMPL_LOOP NAME to display a list of filenames & checkboxes next to it. This is all done with template & print $template->output. I defined the checkbox inside a form, also a "submit" button.

      ....... 
       <form method="post" action="index.cgi">
 <td><input type="checkbox" name="field" <TMPL_VAR NAME="check"> value
+="<TMPL_VAR NAME = "fn">"></td>
 </form>

      [download]
      when "submit" is click, my main script index.cgi would check check for the command then call a subroutine "download" 
      sub download {
    my @anything  =  $q->param();
    my $anything_num = @anything;
  
    my @anyfetch = $q->param("field");
    my $anyfetch_num = @anyfetch;

    print "anything_num = $anything_num";
    print "anyfetch_num = $anyfetch_num";
}

      [download]

      both of print give me Zero values, it does not seem like the subroutine is able to fetch the input field from my table html page. I am not sure why. I have the concept, but somehow when applying to coding, it's different story.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom