From 24ba8747159272763829a90d36ee4395b34a01f5 Mon Sep 17 00:00:00 2001 From: Ben Shum Date: Tue, 14 Feb 2012 10:45:50 -0500 Subject: [PATCH] Include copy id of items as tag 852 subfield f. Signed-off-by: Ben Shum --- Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm | 1 + Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm | 1 + 2 files changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm index 1022fa451d..b787dd479d 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm @@ -1866,6 +1866,7 @@ sub basic_record_holdings { next unless ( $cp->deleted eq 'f' || $cp->deleted == 0 ); push @{$holdings{$cn->label}{'copies'}}, { + id => $cp->id, barcode => $cp->barcode, status => $cp->status->name, location => $cp->location->name, diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm index e7eb5686ac..83c41cd7ec 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm @@ -1809,6 +1809,7 @@ sub sru_search { b => $bib_holdings->{$cn}->{'owning_lib'}, c => $cn, d => $cp->{'circlib'}, + f => $cp->{'id'}, g => $cp->{'barcode'}, n => $cp->{'status'}, ) -- 2.11.0