From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 25 Nov 2009 21:39:38 +0000 (+0000)
Subject: added 'g' qualifier to event path-fleshing method name munging
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=47accfa4a0e3f2664135ad00e90a17aa6fdabbaa;p=working%2FEvergreen.git

added 'g' qualifier to event path-fleshing method name munging

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6@15031 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
index 2f17d2554d..78ff6aa99e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
@@ -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 ) );