[open-ils-commits] r11100 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-11-07 19:46:05 -0500 (Fri, 07 Nov 2008)
New Revision: 11100

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
added a wrapper for the location copy summary count call

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-11-07 21:19:52 UTC (rev 11099)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-11-08 00:46:05 UTC (rev 11100)
@@ -1330,6 +1330,26 @@
 }
 
 __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, <status1_count>, <status2_cout>,...]
+		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");