[Koha-cvs] CVS: koha/circ circulation.pl,1.61,1.62

[Chris Cormack]

Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1:/tmp/cvs-serv19162/circ

Modified Files:
        circulation.pl 
Log Message:
moving more html out of the script


Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.61
retrieving revision 1.62
diff -C2 -r1.61 -r1.62
*** circulation.pl      16 Oct 2003 20:36:25 -0000      1.61
--- circulation.pl      22 Oct 2003 20:01:28 -0000      1.62
***************
*** 156,162 ****
  # HTML code....
  
! my $responsesform = '';
  foreach (keys %responses) {
!     $responsesform.="<input type=hidden name=response-$_ 
value=$responses{$_}>\n";
  }
  my $questionform;
--- 156,166 ----
  # HTML code....
  
! my %responseform;
! my @responsearray;
  foreach (keys %responses) {
! #    $responsesform.="<input type=hidden name=response-$_ 
value=$responses{$_}>\n";
!     $responseform{'name'}=$_;
!     $responseform{'value'}=$responses{$_};
!     push @responsearray,\%responseform;
  }
  my $questionform;
***************
*** 290,294 ****
                printername => $printers->{$printer}->{'printername'},
                allowborrow =>$allowborrow,
- 
                #question form
                question => $question,
--- 294,297 ----
***************
*** 305,316 ****
                yearoptions => $yearoptions,
                stickyduedate => $stickyduedate,
-               responseform => $responsesform,
                rejected => $rejected,
                message => $message,
                CGIselectborrower => $CGIselectborrower,
- 
                amountold => $amountold,
                todayissues => address@hidden,
!               previssues => address@hidden
        );
  
--- 308,318 ----
                yearoptions => $yearoptions,
                stickyduedate => $stickyduedate,
                rejected => $rejected,
                message => $message,
                CGIselectborrower => $CGIselectborrower,
                amountold => $amountold,
                todayissues => address@hidden,
!               previssues => address@hidden,
!               responseloop => address@hidden 
        );