From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 5 Feb 2007 17:43:17 +0000 (+0000)
Subject: added a flag to settings method to allow for retrieving a single setting. running... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=dabc12e1b42b13f86b7aced8054fb89224009532;p=Evergreen.git

added a flag to settings method to allow for retrieving a single setting. running transaction fetching in streaming mode to accomodate large data sets


git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6875 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 0e99b6d58e..5043eb75bf 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -117,7 +117,7 @@ __PACKAGE__->register_method(
 	api_name	=> "open-ils.actor.patron.settings.retrieve",
 );
 sub user_settings {
-	my( $self, $client, $user_session, $uid ) = @_;
+	my( $self, $client, $user_session, $uid, $setting ) = @_;
 	
 	my( $staff, $user, $evt ) = 
 		$apputils->checkses_requestor( $user_session, $uid, 'VIEW_USER' );
@@ -128,7 +128,10 @@ sub user_settings {
 		'open-ils.cstore',
 		'open-ils.cstore.direct.actor.user_setting.search.atomic', { usr => $uid } );
 
-	return { map { ( $_->name => JSON->JSON2perl($_->value) ) } @$s };
+	my $settings =  { map { ( $_->name => JSON->JSON2perl($_->value) ) } @$s };
+
+   return $$settings{$setting} if $setting;
+   return $settings;
 }
 
 
@@ -1534,6 +1537,8 @@ __PACKAGE__->register_method(
 sub user_transaction_retrieve {
 	my( $self, $client, $login_session, $bill_id ) = @_;
 
+	# XXX I think I'm deprecated... make sure
+
 	my $trans = $apputils->simple_scalar_request( 
 		"open-ils.cstore",
 		"open-ils.cstore.direct.money.billable_transaction_summary.retrieve",
@@ -2054,7 +2059,8 @@ sub user_transaction_history {
 			  flesh_fields => { mbt => [ qw/billings payments grocery circulation/ ] },
 			  order_by => { mbt => 'xact_start DESC' },
 			}
-		]
+		],
+      {substream => 1}
 	) };
 
 	$e->rollback;