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

[svn at svn.open-ils.org]

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

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