added 'g' qualifier to event path-fleshing method name munging
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 25 Nov 2009 21:39:38 +0000 (21:39 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 25 Nov 2009 21:39:38 +0000 (21:39 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6@15031 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm

index 2f17d25..78ff6aa 100644 (file)
@@ -85,7 +85,7 @@ sub init {
     
     my $meth = "retrieve_" . $class;
     $meth =~ s/Fieldmapper:://;
-    $meth =~ s/::/_/;
+    $meth =~ s/::/_/g;
     
     $self->target( $self->editor->$meth( $self->event->target ) );