From c039ec427ef2ce4c71933a04967c6cfc1185e9ca Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 17 Sep 2009 15:20:07 +0000
Subject: [PATCH] capture pre-cat circ modifier in pre-cat copy creation

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14035 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 0b61bc434f..886d6b491e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -371,6 +371,7 @@ my @AUTOLOAD_FIELDS = qw/
     dummy_title
     dummy_author
     dummy_isbn
+    circ_modifier
     circ_lib
     barcode
     duration_level
@@ -1594,9 +1595,10 @@ sub make_precat_copy {
 
         $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 @@ sub make_precat_copy {
    $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);
-- 
2.11.0