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