Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv11205/C4 Modified Files: Tag: rel-1-2 Output.pm Log Message: found a cleaner way to do &mkformnotable, and refactored tests to allow it. Index: Output.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Output.pm,v retrieving revision 1.6.2.7 retrieving revision 1.6.2.8 diff -C2 -r1.6.2.7 -r1.6.2.8 *** Output.pm 25 Apr 2002 20:16:50 -0000 1.6.2.7 --- Output.pm 25 Apr 2002 23:35:17 -0000 1.6.2.8 *************** *** 268,291 **** my $string="<form action=$action method=post>\n"; foreach my $input (@inputs){ ! if ($$input[0] eq 'hidden'){ $string .= ! "<input type=hidden name=$$input[1] value=\"$$input[2]\">\n"; ! } elsif ($$input[0] eq 'radio') { $string .= ! "<input type=radio name=$$input[1] value=$$input[2]>$$input[2]"; ! } elsif ($$input[0] eq 'text') { $string .= "<input type=$$input[0] name=$$input[1] value=\"$$input[2]\">"; ! } elsif ($$input[0] eq 'textarea') { ! $string .= ! "<textarea name=$$input[1] wrap=physical cols=40 rows=4>"; ! $string .= ! "$$input[2]</textarea>"; ! } elsif ($$input[0] eq 'reset'){ ! $string .= ! "<input type=reset name=$$input[1] value=\"$$input[2]\">"; ! } elsif ($$input[0] eq 'submit'){ ! $string.="<input type=submit name=$$input[1] value=\"$$input[2]\">"; ! } } $string=$string."</form>"; --- 268,285 ---- my $string="<form action=$action method=post>\n"; foreach my $input (@inputs){ ! if ($$input[0] eq 'textarea') { $string .= ! "<textarea name=$$input[1] wrap=physical cols=40 rows=4>"; $string .= ! "$$input[2]</textarea>"; ! } else { $string .= "<input type=$$input[0] name=$$input[1] value=\"$$input[2]\">"; ! if ($$input[0] eq 'radio') { ! $string .= ! "$$input[2]"; ! } ! } ! $string .= "\n"; } $string=$string."</form>";