From 1cfc45f30155228bcf54297dbf08973170d2a078 Mon Sep 17 00:00:00 2001 From: Jeff Godin Date: Thu, 19 Jun 2014 12:27:38 -0400 Subject: [PATCH] Add ISBN to SIP CH field Untested proof of concept sparked by a conversation on IRC. I don't know if the ISBN even belongs in CH or if it should be placed elsewhere. Signed-off-by: Jeff Godin --- Open-ILS/src/perlmods/lib/OpenILS/SIP/Item.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Item.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Item.pm index a2523e11a9..2ca27fd3d1 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Item.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Item.pm @@ -320,6 +320,15 @@ sub title_id { return OpenILS::SIP::clean_text($t); } +# XXX: Untested proof of concept +# I make no claims as to if CH / FID_ITEM_PROPS is the proper place to include an ISBN +# Using tagging logic from the draft SIP3 standard's ID field here +sub sip_item_properties { + my $self = shift; + my $isbn = ($self->{mods}) ? $self->{mods}->isbn : $self->{copy}->dummy_isbn; + return OpenILS::SIP::clean_text('ISBN:' . $isbn); +} + sub permanent_location { my $self = shift; return OpenILS::SIP::clean_text($self->{copy}->circ_lib->shortname); -- 2.11.0