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

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-02-18 09:36:12 -0500 (Fri, 18 Feb 2011)
New Revision: 19483

Modified:
   branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
Log:
allow users to see their own payments w/o perm

Modified: branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
===================================================================
--- branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm	2011-02-18 14:36:11 UTC (rev 19482)
+++ branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm	2011-02-18 14:36:12 UTC (rev 19483)
@@ -534,9 +534,11 @@
                     mbt => ['usr']
                 }
             }
-        ]) or return OpenILS::Event->new('MP_NOT_FOUND');
+        ]) or return $e->event;
 
-        return $e->event unless $e->allowed('VIEW_TRANSACTION', $payment->xact->usr->home_ou); 
+        return $e->event unless 
+            $e->requestor->id == $payment->xact->usr->id or
+            $e->allowed('VIEW_TRANSACTION', $payment->xact->usr->home_ou); 
 
         push @$payments, $payment;
     }