[open-ils-commits] r7545 - branches/rel_1_2/Evergreen/src/support-scripts

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-07-13 11:42:12 -0400 (Fri, 13 Jul 2007)
New Revision: 7545

Modified:
   branches/rel_1_2/Evergreen/src/support-scripts/eg_gen_overdue.pl
Log:
changed circ retrieval to lower level, streaming opensrf call for better handling of longer, larger queries

Modified: branches/rel_1_2/Evergreen/src/support-scripts/eg_gen_overdue.pl
===================================================================
--- branches/rel_1_2/Evergreen/src/support-scripts/eg_gen_overdue.pl	2007-07-13 15:02:04 UTC (rev 7544)
+++ branches/rel_1_2/Evergreen/src/support-scripts/eg_gen_overdue.pl	2007-07-13 15:42:12 UTC (rev 7545)
@@ -24,6 +24,7 @@
 use OpenSRF::Utils::JSON;
 use Unicode::Normalize;
 use OpenILS::Const qw/:const/;
+use OpenSRF::AppSession;
 
 my $U = 'OpenILS::Application::AppUtils';
 
@@ -96,8 +97,14 @@
 			},
 			{ order_by => { circ => 'usr, circ_lib' } }
 		];
-		my $circs = $e->search_action_circulation($query, {idlist=>1});
+		#my $circs = $e->search_action_circulation($query, {idlist=>1});
 
+        my $ses = OpenSRF::AppSession->create('open-ils.cstore');
+        my $req = $ses->request('open-ils.cstore.direct.action.circulation.id_list', @$query);
+        my $circs = [];
+        my $resp;
+        push(@$circs, $resp->content) while ($resp = $req->recv(timeout=>600));
+
 		process_circs( $circs, "${day}day" );
 	}
 }
@@ -452,8 +459,8 @@
 
 
 	$tmpl =~ s/\${EMAIL_RECIPIENT}/$pemail/;
-	$tmpl =~ s/\${EMAIL_SENDER}/$mail_sender/o; 
-	$tmpl =~ s/\${EMAIL_REPLY_TO}/$mail_sender/;
+	$tmpl =~ s/\${EMAIL_SENDER}/$errors_to/o; 
+	$tmpl =~ s/\${EMAIL_REPLY_TO}/$errors_to/;
 	$tmpl =~ s/\${EMAIL_ERRORS_TO}/$errors_to/;
    $tmpl =~ s/\${EMAIL_HEADERS}//; # - we have no additional headers to add