[open-ils-commits] r14035 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-17 11:20:07 -0400 (Thu, 17 Sep 2009)
New Revision: 14035

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
capture pre-cat circ modifier in pre-cat copy creation

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-17 15:06:19 UTC (rev 14034)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-17 15:20:07 UTC (rev 14035)
@@ -371,6 +371,7 @@
     dummy_title
     dummy_author
     dummy_isbn
+    circ_modifier
     circ_lib
     barcode
     duration_level
@@ -1594,9 +1595,10 @@
 
         $copy->editor($self->editor->requestor->id);
         $copy->edit_date('now');
-        $copy->dummy_title($self->dummy_title || '');
-        $copy->dummy_isbn($self->dummy_isbn || '');
-        $copy->dummy_author($self->dummy_author || '');
+        $copy->dummy_title($self->dummy_title || $copy->dummy_title || '');
+        $copy->dummy_isbn($self->dummy_isbn || $copy->dummy_isbn || '');
+        $copy->dummy_author($self->dummy_author || $copy->dummy_author || '');
+        $copy->circ_modifier($self->circ_modifier || $copy->circ_modifier);
         $self->update_copy();
         return;
    }
@@ -1616,6 +1618,7 @@
    $copy->dummy_title($self->dummy_title || "");
    $copy->dummy_author($self->dummy_author || "");
    $copy->dummy_isbn($self->dummy_isbn || "");
+   $copy->circ_modifier($self->circ_modifier);
 
     unless( $self->copy($self->editor->create_asset_copy($copy)) ) {
         $self->bail_out(1);