[open-ils-commits] r10575 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-10 21:52:06 -0400 (Wed, 10 Sep 2008)
New Revision: 10575

Added:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/Authority.pm
Log:
authority record import/overlay and notes handling code

Added: trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/Authority.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/Authority.pm	                        (rev 0)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/Authority.pm	2008-09-11 01:52:06 UTC (rev 10575)
@@ -0,0 +1,123 @@
+package OpenILS::Application::Cat::Authority;
+use strict; use warnings;
+use OpenILS::Utils::CStoreEditor q/:funcs/;
+use OpenSRF::Utils::Logger qw($logger);
+use OpenILS::Application::AppUtils;
+use OpenILS::Utils::Fieldmapper;
+use OpenILS::Const qw/:const/;
+use OpenILS::Event;
+my $U = 'OpenILS::Application::AppUtils';
+my $MARC_NAMESPACE = 'http://www.loc.gov/MARC21/slim';
+
+
+# generate a MARC XML document from a MARC XML string
+sub marc_xml_to_doc {
+	my $xml = shift;
+	my $marc_doc = XML::LibXML->new->parse_string($xml);
+	$marc_doc->documentElement->setNamespace($MARC_NAMESPACE, 'marc', 1);
+	$marc_doc->documentElement->setNamespace($MARC_NAMESPACE);
+	return $marc_doc;
+}
+
+
+__PACKAGE__->register_method(
+	method	=> 'import_authority_record',
+	api_name	=> 'open-ils.cat.authority.record.import',
+);
+
+sub import_authority_record {
+    my($self, $conn, $auth, $marc_xml, $source) = @_;
+	my $e = new_editor(authtoken=>$auth, xact=>1);
+	return $e->die_event unless $e->checkauth;
+	return $e->die_event unless $e->allowed('CREATE_AUTHORITY_RECORD')
+    
+    my $marc_doc = marc_xml_to_doc($marc_xml);
+    my $rec = Fieldmapper::authority::record_entry->new;
+	$rec->creator($e->requestor->id);
+	$rec->editor($e->requestor->id);
+	$rec->create_date('now');
+	$rec->edit_date('now');
+	$rec->marc($U->entityize($marc_doc->documentElement->toString));
+
+    $rec = $e->create_authority_record_entry($rec) or return $e->die_event;
+    $e->commit;
+
+    $conn->respond_complete($rec);
+
+    # XXX non-readonly ingest?
+	#$U->simplereq('open-ils.ingest', 'open-ils.ingest.full.authority.record', $rec->id);
+	return undef;
+}
+
+
+__PACKAGE__->register_method(
+	method	=> 'overlay_authority_record',
+	api_name	=> 'open-ils.cat.authority.record.overlay',
+);
+
+sub import_authority_record {
+    my($self, $conn, $auth, $rec_id, $marc_xml, $source) = @_;
+	my $e = new_editor(authtoken=>$auth, xact=>1);
+	return $e->die_event unless $e->checkauth;
+	return $e->die_event unless $e->allowed('UPDATE_AUTHORITY_RECORD');
+    
+    my $marc_doc = marc_xml_to_doc($marc_xml);
+    my $rec = $e->retrieve_authority_record_entry($rec_id) or return $e->die_event;
+	$rec->editor($e->requestor->id);
+	$rec->edit_date('now');
+	$rec->marc($U->entityize($marc_doc->documentElement->toString));
+
+    $rec = $e->update_authority_record_entry($rec) or return $e->die_event;
+    $e->commit;
+
+    $conn->respond_complete($rec);
+
+    # XXX non-readonly ingest?
+	#$U->simplereq('open-ils.ingest', 'open-ils.ingest.full.authority.record', $rec->id);
+	return undef;
+}
+
+__PACKAGE__->register_method(
+	method	=> 'retrieve_authority_record',
+	api_name	=> 'open-ils.cat.authority.record.retrieve',
+    signature => {
+        desc => q/Retrieve an authority record entry/,
+        params => [
+            {desc => q/hash of options.  Options include "clear_marc" which clears
+                the MARC xml from the record before it is returned/}
+        ]
+    }
+);
+sub retrieve_authority_record {
+    my($self, $conn, $auth, $rec_id, $options) = @_;
+	my $e = new_editor(authtoken=>$auth);
+	return $e->die_event unless $e->checkauth;
+    my $rec = $e->retrieve_authority_record($rec_id) or return $e->event;
+    $rec->clear_marc if $$options{clear_marc};
+    return $rec;
+}
+
+__PACKAGE__->register_method(
+	method	=> 'retrieve_batch_authority_record',
+	api_name	=> 'open-ils.cat.authority.record.batch.retrieve',
+    stream => 1,
+    signature => {
+        desc => q/Retrieve a set of authority record entry objects/,
+        params => [
+            {desc => q/hash of options.  Options include "clear_marc" which clears
+                the MARC xml from the record before it is returned/}
+        ]
+    }
+);
+sub retrieve_authority_record {
+    my($self, $conn, $auth, $rec_id_list, $options) = @_;
+	my $e = new_editor(authtoken=>$auth);
+	return $e->die_event unless $e->checkauth;
+    for my $rec_id (@$rec_id_list) {
+        my $rec = $e->retrieve_authority_record($rec_id) or return $e->event;
+        $rec->clear_marc if $$options{clear_marc};
+        $conn->respond($rec);
+    }
+    return undef;
+}
+