Re^5: HTML::Template with checkbox

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

Comment on Re^5: HTML::Template with checkbox Select or Download Code

Replies are listed 'Best First'.
Re^6: HTML::Template with checkbox by bebewinla (Novice) on Sep 06, 2012 at 22:58 UTC
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]

Replies are listed 'Best First'.

Re^6: HTML::Template with checkbox
by bebewinla (Novice) on Sep 06, 2012 at 22:58 UTC

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]

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]