[Koha-cvs] CVS: koha/circ returns.pl,1.20,1.21

[Finlay Thompson]

Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv2343/circ

Modified Files:
	returns.pl 
Log Message:

Changed so that when a Waiting item is returned the holding branch is updated.


Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** returns.pl	29 Aug 2002 00:00:45 -0000	1.20
--- returns.pl	5 Sep 2002 00:06:30 -0000	1.21
***************
*** 211,214 ****
--- 211,216 ----
  
      if ($res->{'ResFound'} eq "Waiting") {
+ # transfer book
+ 	my ($transfered, $mess, $item) = transferbook($branch, $barcode, 1);
  	$reservetext = <<"EOF";
  <font color='red' size='+2'>Item marked Waiting:</font><br>
***************
*** 280,284 ****
  # collect the messages and put into message table....
  foreach my $code (keys %$messages) {
!     warn $code;
      if ($code eq 'BadBarcode'){
  	$messagetext .= "<font color='red' size='+2'> No Item with barcode: $messages->{'BadBarcode'} </font> <br>";
--- 282,286 ----
  # collect the messages and put into message table....
  foreach my $code (keys %$messages) {
! #    warn $code;
      if ($code eq 'BadBarcode'){
  	$messagetext .= "<font color='red' size='+2'> No Item with barcode: $messages->{'BadBarcode'} </font> <br>";
***************
*** 337,341 ****
  	} else {
  	    $displayflag = $flag;
! 	}
  	if ($flag eq 'CHARGES') {
  	    $flaginfotext.= <<"EOF";
--- 339,343 ----
  	} else {
  	    $displayflag = $flag;
! 	}  
  	if ($flag eq 'CHARGES') {
  	    $flaginfotext.= <<"EOF";