[open-ils-commits] r15032 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-11-25 16:39:59 -0500 (Wed, 25 Nov 2009)
New Revision: 15032

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
Log:
added 'g' qualifier to event path-fleshing method name munging

Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-11-25 21:39:38 UTC (rev 15031)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-11-25 21:39:59 UTC (rev 15032)
@@ -85,7 +85,7 @@
     
     my $meth = "retrieve_" . $class;
     $meth =~ s/Fieldmapper:://;
-    $meth =~ s/::/_/;
+    $meth =~ s/::/_/g;
     
     $self->target( $self->editor->$meth( $self->event->target ) );