[open-ils-commits] r11812 - trunk/Open-ILS/src/perlmods/OpenILS/Utils

svn at svn.open-ils.org svn at svn.open-ils.org
Tue Jan 13 11:55:46 EST 2009


Author: erickson
Date: 2009-01-13 11:55:44 -0500 (Tue, 13 Jan 2009)
New Revision: 11812

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm
Log:
pull name from the SP object, not the user_standing_penalty

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm	2009-01-13 16:43:10 UTC (rev 11811)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm	2009-01-13 16:55:44 UTC (rev 11812)
@@ -62,7 +62,7 @@
                 }
             }
         }
-        push(@info, $p->name) unless $pushed;
+        push(@info, $p->standing_penalty->name) unless $pushed;
     }
 
     return {fatal_penalties => \@fatal, info_penalties => \@info};



More information about the open-ils-commits mailing list