From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 24 Jul 2006 20:24:42 +0000 (+0000)
Subject: setting the bib source id on update/create/import when source is defined
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=416b78aa4bdb233eec3ef49a8975aa70be1846d1;p=Evergreen.git

setting the bib source id on update/create/import when source is defined


git-svn-id: svn://svn.open-ils.org/ILS/trunk@5102 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 6761915d0a..841de131f4 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -78,6 +78,20 @@ sub _load_marc_template {
 	return XML::LibXML->new->parse_string($xml)->documentElement->toString;
 }
 
+my $__bib_sources;
+sub bib_source_from_name {
+	my $name = shift;
+	$logger->debug("searching for bib source: $name");
+
+	$__bib_sources = new_editor()->retrieve_all_config_bib_source()
+		unless $__bib_sources;
+
+	my ($s) = grep { lc($_->source) eq lc($name) } @$__bib_sources;
+
+	return $s->id if $s;
+	return undef;
+}
+
 
 
 __PACKAGE__->register_method(
@@ -95,7 +109,6 @@ __PACKAGE__->register_method(
 
 sub create_record_xml {
 	my( $self, $client, $login, $xml, $source ) = @_;
-	$source ||= 2;
 
 	my $override = 1 if $self->api_name =~ /override/;
 
@@ -109,7 +122,7 @@ sub create_record_xml {
 	$meth = $self->method_lookup(
 		"open-ils.cat.biblio.record.xml.import.override") if $override;
 
-	my ($s) = $meth->run($login, $xml, 2);
+	my ($s) = $meth->run($login, $xml, $source);
 	return $s;
 }
 
@@ -170,8 +183,7 @@ sub biblio_record_replace_marc  {
 		$rec->tcn_source($tsource);
 	}
 
-	# XXX Make the source the ID from config.bib_source
-	$rec->source($source) if ($source);
+	$rec->source(bib_source_from_name($source)) if $source;
 	$rec->editor($e->requestor->id);
 	$rec->edit_date('now');
 	$rec->marc( entityize( $marcdoc->documentElement->toString ) );
@@ -228,7 +240,7 @@ sub biblio_record_xml_import {
 
 	my $record = Fieldmapper::biblio::record_entry->new;
 
-	$record->source($source) if ($source);
+	$record->source(bib_source_from_name($source)) if $source;
 	$record->tcn_source($tcn_source);
 	$record->tcn_value($tcn);
 	$record->creator($requestor->id);