Include copy id of items as tag 852 subfield f.

Signed-off-by: Ben Shum <bshum@biblio.org>

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
index 1022fa4..b787dd4 100644 (file)
--- 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 e7eb568..83c41cd 100644 (file)
--- 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'},
                                                        )