From 7cb45abb40062d5f67a7f59e8d14400fa4303b5c Mon Sep 17 00:00:00 2001 From: finlayt Date: Wed, 14 Aug 2002 05:37:07 +0000 Subject: [PATCH] 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. --- C4/Circulation/Circ2.pm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm index c3471bee02..2cfdd0be56 100755 --- a/C4/Circulation/Circ2.pm +++ b/C4/Circulation/Circ2.pm @@ -499,6 +499,11 @@ sub returnbook { if ($branches->{$hbr}->{'PE'}) { $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); if ($doreturn) { -- 2.39.2