[open-ils-commits] r19553 - branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-03-01 16:20:30 -0500 (Tue, 01 Mar 2011)
New Revision: 19553

Modified:
   branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
Log:
update cached user after email/password update; repaired recently-introduced typo on user transaction retrieval method

Modified: branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
===================================================================
--- branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm	2011-03-01 21:19:39 UTC (rev 19552)
+++ branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm	2011-03-01 21:20:30 UTC (rev 19553)
@@ -1313,6 +1313,9 @@
 
     $e->update_actor_user($db_user) or return $e->die_event;
     $e->commit;
+
+    # update the cached user to pick up these changes
+    $U->simplereq('open-ils.auth', 'open-ils.auth.session.reset_timeout', $auth, 1);
     return 1;
 }
 
@@ -1701,7 +1704,7 @@
         { 'total_owed' => { '>' => 0 } };
 
     my $method = 'open-ils.actor.user.transactions.history.still_open';
-    $method = "$method.authoritative" if $api => /authoritative/;
+    $method = "$method.authoritative" if $api =~ /authoritative/;
     my ($trans) = $self->method_lookup($method)->run($auth, $user_id, $type, $filter, $options);
 
 	if($api =~ /total/o) {