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