From 47accfa4a0e3f2664135ad00e90a17aa6fdabbaa Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 25 Nov 2009 21:39:38 +0000
Subject: [PATCH] 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
---
 Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ) );
 
-- 
2.11.0