[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 => \@realtodayissues,
! 		previssues => \@realprevissues
  	);
  
--- 308,318 ----
  		yearoptions => $yearoptions,
  		stickyduedate => $stickyduedate,
  		rejected => $rejected,
  		message => $message,
  		CGIselectborrower => $CGIselectborrower,
  		amountold => $amountold,
  		todayissues => \@realtodayissues,
! 		previssues => \@realprevissues,
! 		responseloop => \@responsearray 
  	);