From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 5 Sep 2007 15:26:45 +0000 (+0000)
Subject: returning the built-in pre-cat call number when a call number whose record is -1... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=c2422146b868d2205d57744c6085d34da9a80d45;p=Evergreen.git

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

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 2fb945fb8c..42220d270f 100644
--- 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;