added some backdate logging
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 25 Apr 2007 20:57:40 +0000 (20:57 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 25 Apr 2007 20:57:40 +0000 (20:57 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@7171 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Circ.pm

index c17c883..1b19795 100644 (file)
@@ -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;