[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.30,1.31

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv21418/C4/Circulation

Modified Files:
        Circ2.pm 
Log Message:

added a check in the returnbook subroutine that checks to see if a book has 
been cancelled: i.e. that the wthdrawn field has been set to 1.


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -r1.30 -r1.31
*** Circ2.pm    2 Jul 2002 23:31:33 -0000       1.30
--- Circ2.pm    14 Aug 2002 05:37:07 -0000      1.31
***************
*** 500,503 ****
--- 500,508 ----
        $messages->{'IsPermanent'} = $hbr;
      }
+ # check that the book has been cancelled
+     if ($iteminformation->{'wthdrawn'}) {
+       $messages->{'wthdrawn'} = 1;
+       $doreturn = 0;
+     }
  # update issues, thereby returning book (should push this out into another 
subroutine
      my ($borrower) = getpatroninformation(\%env, $currentborrower, 0);