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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-13 11:43:10 -0500 (Tue, 13 Jan 2009)
New Revision: 11811

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 01:10:46 UTC (rev 11810)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm	2009-01-13 16:43:10 UTC (rev 11811)
@@ -56,7 +56,7 @@
         if($p->standing_penalty->block_list) {
             for my $m (@fatal_mask) {
                 if($p->standing_penalty->block_list =~ /$m/) {
-                    push(@fatal, $p->name);
+                    push(@fatal, $p->standing_penalty->name);
                     $pushed = 1;
                     last;
                 }