From: erickson Date: Wed, 25 Apr 2007 20:57:40 +0000 (+0000) Subject: added some backdate logging X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f71cc125aee8e1002af85d53bcafb55c561bf1ee;p=Evergreen.git added some backdate logging git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@7171 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm index c17c8839fd..1b19795eda 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm @@ -416,7 +416,8 @@ sub set_circ_claims_returned { my $barcode = $$args{barcode}; my $backdate = $$args{backdate}; - $logger->info("marking circ for item $barcode as claims returned"); + $logger->info("marking circ for item $barcode as claims returned". + (($backdate) ? " with backdate $backdate" : '')); my $copy = $e->search_asset_copy({barcode=>$barcode, deleted=>'f'})->[0] or return $e->die_event;