returning the built-in pre-cat call number when a call number whose record is -1...

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index 2fb945f..42220d2 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -1454,11 +1454,21 @@ sub find_or_create_volume {
        my( $self, $conn, $auth, $label, $record_id, $org_id ) = @_;
        my $e = new_editor(authtoken=>$auth, xact=>1);
        return $e->die_event unless $e->checkauth;
+
+    my $vol;
+
+    if($record_id == OILS_PRECAT_RECORD) {
+
+        $vol = $e->retrieve_asset_call_number(OILS_PRECAT_CALL_NUMBER)
+            or return $e->die_event;
+
+    } else {
        
-       my $vol = $e->search_asset_call_number(
-               {label => $label, record => $record_id, owning_lib => $org_id, deleted => 'f'}, 
-               {idlist=>1}
-       )->[0];
+           $vol = $e->search_asset_call_number(
+                   {label => $label, record => $record_id, owning_lib => $org_id, deleted => 'f'}, 
+                   {idlist=>1}
+           )->[0];
+    }
 
        # If the volume exists, return the ID
        if( $vol ) { $e->rollback; return $vol; }
@@ -1474,12 +1484,6 @@ sub find_or_create_volume {
        $vol->label($label);
        $vol->record($record_id);
 
-       #$vol->creator($e->requestor->id);
-       #$vol->create_date('now');
-       #$vol->editor($e->requestor->id);
-       #$vol->edit_date('now');
-       #$e->create_asset_call_number($vol) or return $e->die_event;
-
    my $evt = create_volume( 0, $e, $vol );
    return $evt if $evt;