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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-12-12 11:40:50 -0500 (Fri, 12 Dec 2008)
New Revision: 11536

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
make ranged pgpt retrieval streaming

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-12-11 22:15:11 UTC (rev 11535)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-12-12 16:40:50 UTC (rev 11536)
@@ -2761,19 +2761,22 @@
 
 
 __PACKAGE__->register_method(
-	method	=> "ranged_penalty_thresholds",
-	api_name	=> "open-ils.actor.grp_penalty_threshold.ranged.retrieve");
+	method => "ranged_penalty_thresholds",
+	api_name => "open-ils.actor.grp_penalty_threshold.ranged.retrieve",
+    stream => 1
+);
 
 sub ranged_penalty_thresholds {
 	my($self, $conn, $auth, $context_org) = @_;
 	my $e = new_editor(authtoken=>$auth);
 	return $e->event unless $e->checkauth;
     return $e->event unless $e->allowed('VIEW_GROUP_PENALTY_THRESHOLD', $context_org);
-    my $list = $e->search_permission_grp_penalty_threshold(
-        {org_unit => $U->get_org_ancestors($context_org)}
-    );
-
-    return $list;
+    my $list = $e->search_permission_grp_penalty_threshold([
+        {org_unit => $U->get_org_ancestors($context_org)},
+        {order_by => {pgpt => 'id'}}
+    ]);
+    $conn->respond($_) for @$list;
+    return undef;
 }