From 88dcb0a314d98377037c74f74da9c25552b55b0e Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Wed, 5 Feb 2003 07:55:42 +0000
Subject: [PATCH] Changed the 3 "this does nothing" lines to set the flag. Is
 this right?

---
 C4/Circulation/Circ2.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 763d1703d7..377d63ab9e 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -1028,20 +1028,20 @@ sub returnbook {
     my ($borrower) = getpatroninformation(\%env, $currentborrower, 0);
     if ($doreturn) {
 	doreturn($borrower->{'borrowernumber'}, $iteminformation->{'itemnumber'});
-	$messages->{'WasReturned'};	# FIXME - This does nothing
+	$messages->{'WasReturned'} = 1; # FIXME is the "= 1" right?
     }
     ($borrower) = getpatroninformation(\%env, $currentborrower, 0);
 # transfer book to the current branch
     my ($transfered, $mess, $item) = transferbook($branch, $barcode, 1);
-    if ($transfered) {	# FIXME - perl -wc complains about this line.
-	$messages->{'WasTransfered'};	# FIXME - This does nothing
+    if ($transfered) {
+	$messages->{'WasTransfered'} = 1; # FIXME is the "= 1" right?
     }
 # fix up the accounts.....
     if ($iteminformation->{'itemlost'}) {
 	# Mark the item as not being lost.
 	updateitemlost($iteminformation->{'itemnumber'});
 	fixaccountforlostandreturned($iteminformation, $borrower);
-	$messages->{'WasLost'};		# FIXME - This does nothing
+	$messages->{'WasLost'} = 1; # FIXME is the "= 1" right?
     }
 # fix up the overdues in accounts...
     fixoverduesonreturn($borrower->{'borrowernumber'}, $iteminformation->{'itemnumber'});
-- 
2.39.5