[FormMagick-devel] CVS: formmagick/lib/CGI FormMagick.pm,1.3,1.4

[Kirrily R. <sk...@us...>]

Update of /cvsroot/formmagick/formmagick/lib/CGI
In directory usw-pr-cvs1:/tmp/cvs-serv32702/lib/CGI

Modified Files:
	FormMagick.pm 
Log Message:
CHECKBOX fields now seem to work OK


Index: FormMagick.pm
===================================================================
RCS file: /cvsroot/formmagick/formmagick/lib/CGI/FormMagick.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** FormMagick.pm	2001/02/28 18:49:17	1.3
--- FormMagick.pm	2001/02/28 18:57:03	1.4
***************
*** 423,428 ****
  
        $inputfield = $tagmaker->select_start( 
! 		type => "$type", 
! 		name => "$fieldname"
  	    ) .  $tagmaker->option_group( 
  	    	value => [@option_values], 
--- 423,428 ----
  
        $inputfield = $tagmaker->select_start( 
! 		type => $type, 
! 		name => $fieldname
  	    ) .  $tagmaker->option_group( 
  	    	value => [@option_values], 
***************
*** 431,437 ****
      } elsif ($type eq "RADIO") {
  	    $inputfield = $tagmaker->input_group(type => "$type",
! 		name => "$fieldname",
  		value => [@option_values],
  		text => [@option_labels] );
      } else {
  	    my %translation_table = (
--- 431,443 ----
      } elsif ($type eq "RADIO") {
  	    $inputfield = $tagmaker->input_group(type => "$type",
! 		name => $fieldname,
  		value => [@option_values],
  		text => [@option_labels] );
+     } elsif ($type eq "CHECKBOX") {
+ 	    $inputfield = $tagmaker->input_group(type => "$type",
+ 		name => $fieldname,
+ 		value => [$value],
+ 		checked => [$fieldinfo->{'CHECKED'}],
+ 		text => [$label]);
      } else {
  	    my %translation_table = (