From 4b3f86050b7a43f8a0121039223e41c1290b4741 Mon Sep 17 00:00:00 2001 From: blake Date: Fri, 11 Dec 2015 15:28:17 -0600 Subject: [PATCH] LP1525394 SIP patron part level holds respond blank Added code to flesh part level hold information in SIP/Patron.pm In order to test this, you will need to identify a patron who has a part level hold. Query SIP with a 63 message like: 6300120151211 104201 Y AOhidden|AApatronbarcode|AC|AY1AZF08D and the server should respond with the title in the |CD field for that part level hold. Signed-off-by: blake Signed-off-by: Jason Boyer --- Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm index c26d8bffb9..ea31a54736 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm @@ -717,6 +717,10 @@ sub __hold_to_title { $e->retrieve_asset_copy($hold->target)) if $hold->hold_type eq 'C' or $hold->hold_type eq 'F' or $hold->hold_type eq 'R'; + return __part_to_title($e, + $e->retrieve_biblio_monograph_part($hold->target)) + if $hold->hold_type eq 'P'; + return __volume_to_title($e, $e->retrieve_asset_call_number($hold->target)) if $hold->hold_type eq 'V'; @@ -740,6 +744,12 @@ sub __copy_to_title { return __volume_to_title($e, $vol); } +sub __part_to_title { + my( $e, $part ) = @_; + #syslog('LOG_DEBUG', "OILS: part_to_title(%s)", $part->id); + + return __record_to_title($e, $part->record); +} sub __volume_to_title { my( $e, $volume ) = @_; -- 2.11.0