[open-ils-commits] r18315 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application (phasefx)

[svn at svn.open-ils.org]

Author: phasefx
Date: 2010-10-13 12:31:49 -0400 (Wed, 13 Oct 2010)
New Revision: 18315

Modified:
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
wrong identifier

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2010-10-13 16:31:08 UTC (rev 18314)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2010-10-13 16:31:49 UTC (rev 18315)
@@ -296,7 +296,7 @@
         }
 
         if ($success eq 't') {
-            push(@good, $rid) if ($success eq 't'); 
+            push(@good, $rec->id) if ($success eq 't'); 
             unless ($e->delete_container_biblio_record_entry_bucket_item($item)) {
                 $e->rollback;
                 if ($actor) {