[open-ils-commits] r12372 - trunk/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-03-03 00:09:43 -0500 (Tue, 03 Mar 2009)
New Revision: 12372

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
filling more fields in call numbers and URIs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-03-03 04:58:13 UTC (rev 12371)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-03-03 05:09:43 UTC (rev 12372)
@@ -1104,12 +1104,14 @@
 
 sub _extract_856_uris {
 
-    my $recid   = shift;
-	my $marcxml = shift;
+    my $rec   = shift;
 	my $max_cn = shift;
 	my $max_uri = shift;
 	my @objects;
 	
+    my $recid = $rec->id;
+    my $marcxml = $rec->marc;
+
 	my $document = $parser->parse_string($marcxml);
 	my @nodes = $document->findnodes('//*[local-name()="datafield" and @tag="856" and (@ind1="4" or @ind1="1") and (@ind2="0" or @ind2="1")]');
 
@@ -1157,6 +1159,7 @@
             $uri->id( $$max_uri++ );
             $uri->label($label);
             $uri->href($href);
+            $uri->active('t');
             $uri->use_restriction($use);
         }
 
@@ -1166,11 +1169,16 @@
 			->gather(1);
 
         if (!$cn) {
-            $cn = Fieldmapper::asset::call_number->new;
+            $c = Fieldmapper::asset::call_number->new;
             $cn->isnew( 1 );
+            $cn->deleted('f');
             $cn->id( $$max_cn++ );
             $cn->owning_lib( $org->id );
             $cn->record( $recid );
+            $cn->create_date( 'now' );
+            $cn->creator( $rec->creator );
+            $cn->editor( $rec->editor );
+            $cn->edit_date( 'now' );
             $cn->label( '##URI##' );
         }
 
@@ -1194,7 +1202,7 @@
 
 	return undef unless ($r and $r->marc);
 
-	$client->respond($_) for (_extract_856_uris($r->id, $r->marc));
+	$client->respond($_) for (_extract_856_uris($r));
 	return undef;
 }
 __PACKAGE__->register_method(  
@@ -1214,7 +1222,7 @@
 
 	return undef unless ($obj and $obj->marc);
 
-	$client->respond($_) for (_extract_856_uris($obj->id, $obj->marc, \$max_cn, \$max_uri));
+	$client->respond($_) for (_extract_856_uris($obj, \$max_cn, \$max_uri));
 	return undef;
 }
 __PACKAGE__->register_method(