From 0723693a1837d4da73818b766115dafa756d0f12 Mon Sep 17 00:00:00 2001 From: erickson Date: Sat, 8 Nov 2008 00:46:05 +0000 Subject: [PATCH] added a wrapper for the location copy summary count call git-svn-id: svn://svn.open-ils.org/ILS/trunk@11100 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Search/Biblio.pm | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index aa5824cbf4..6e83b52c90 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -1330,6 +1330,26 @@ sub copy_count_summary { } __PACKAGE__->register_method( + method => "copy_count_location_summary", + api_name => "open-ils.search.biblio.copy_counts.location.summary.retrieve", + notes => <<" NOTES"); + returns an array of these: + [ org_id, callnumber_label, , ,...] + where statusx is a copy status name. the statuses are sorted + by id. + NOTES + +sub copy_count_location_summary { + my( $self, $client, $rid, $org, $depth ) = @_; + $org ||= 1; + $depth ||= 0; + my $data = $U->storagereq( + 'open-ils.storage.biblio.record_entry.status_copy_location_count.atomic', $rid, $org, $depth ); + return [ sort { $a->[1] cmp $b->[1] } @$data ]; +} + + +__PACKAGE__->register_method( method => "marc_search", api_name => "open-ils.search.biblio.marc.staff"); -- 2.11.0