Fix to get returns to update "datelastseen" value with today's date
authoroleonard <oleonard>
Mon, 29 Nov 2004 17:29:37 +0000 (17:29 +0000)
committeroleonard <oleonard>
Mon, 29 Nov 2004 17:29:37 +0000 (17:29 +0000)
C4/Circulation/Circ2.pm

index c7e314c..3b17539 100755 (executable)
@@ -1025,6 +1025,7 @@ sub returnbook {
                $sth->execute($borrower->{'borrowernumber'}, $iteminformation->{'itemnumber'});
                $messages->{'WasReturned'} = 1; # FIXME is the "= 1" right?
        }
+       itemseen($iteminformation->{'itemnumber'});
        ($borrower) = getpatroninformation(\%env, $currentborrower, 0);
        # transfer book to the current branch
        my ($transfered, $mess, $item) = transferbook($branch, $barcode, 1);