[Koha-devel] CVS: koha/C4 Output.pm,1.6.2.7,1.6.2.8

[Pat Eyler]

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>";