From 7692cfabcb3c882d412a40568091bfa42fd38e39 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 11 Sep 2008 01:52:06 +0000
Subject: [PATCH] authority record import/overlay and notes handling code

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10575 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../OpenILS/Application/Cat/Authority.pm      | 123 ++++++++++++++++++
 1 file changed, 123 insertions(+)
 create mode 100644 Open-ILS/src/perlmods/OpenILS/Application/Cat/Authority.pm

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat/Authority.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat/Authority.pm
new file mode 100644
index 0000000000..16fac8f881
--- /dev/null
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat/Authority.pm
@@ -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;
+}
+
-- 
2.43.2