capturing ISBN value for pre-cat copies. setting checkin_workstation value at circ...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14027 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 09f3f7f..0b61bc4 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -370,6 +370,7 @@ my @AUTOLOAD_FIELDS = qw/
     checkout_time
     dummy_title
     dummy_author
+    dummy_isbn
     circ_lib
     barcode
     duration_level
@@ -1100,6 +1101,7 @@ sub handle_claims_returned {
 
         $CR->checkin_time('now');   
         $CR->checkin_lib($self->editor->requestor->ws_ou);
+        $CR->checkin_workstation($self->editor->requestor->wsid);
         $CR->checkin_staff($self->editor->requestor->id);
 
         $evt = $self->editor->event 
@@ -1588,13 +1590,13 @@ sub make_precat_copy {
     my $copy = $self->copy;
 
    if($copy) {
-      $logger->debug("circulator: Pre-cat copy already exists in checkout: ID=" . $copy->id);
-
-      $copy->editor($self->editor->requestor->id);
-      $copy->edit_date('now');
-      $copy->dummy_title($self->dummy_title);
-      $copy->dummy_author($self->dummy_author);
+        $logger->debug("circulator: Pre-cat copy already exists in checkout: ID=" . $copy->id);
 
+        $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 || '');
         $self->update_copy();
         return;
    }
@@ -1613,6 +1615,7 @@ sub make_precat_copy {
 
    $copy->dummy_title($self->dummy_title || "");
    $copy->dummy_author($self->dummy_author || "");
+   $copy->dummy_isbn($self->dummy_isbn || "");
 
     unless( $self->copy($self->editor->create_asset_copy($copy)) ) {
         $self->bail_out(1);
@@ -2223,6 +2226,7 @@ sub checkin_handle_circ {
 
     $circ->checkin_staff($self->editor->requestor->id);
     $circ->checkin_lib($self->editor->requestor->ws_ou);
+    $circ->checkin_workstation($self->editor->requestor->wsid);
 
     my $circ_lib = (ref $self->copy->circ_lib) ?  
         $self->copy->circ_lib->id : $self->copy->circ_lib;