From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sat, 28 Feb 2009 21:58:42 +0000 (+0000)
Subject: pass target object instead of event->target to object_by_path.  call split with regex
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0cd27b6a76abe52672e92a48904b11384dc1449e;p=evergreen%2Ftadl.git

pass target object instead of event->target to object_by_path.  call split with regex

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12325 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 5ee4c7c9b0..ed8b830612 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
@@ -1,7 +1,7 @@
 package OpenILS::Application::Trigger::Event;
 use OpenSRF::EX qw/:try/;
 
-use OpenSRF::Utils::Logger qw/:level/;
+use OpenSRF::Utils::Logger qw/:logger/;
 
 use OpenILS::Utils::Fieldmapper;
 use OpenILS::Utils::CStoreEditor q/:funcs/;
@@ -363,15 +363,15 @@ sub build_environment {
     
         for my $e ( @{$self->event->event_def->env} ) {
             my (@label, @path);
-            @path = split('.', $e->path) if ($e->path);
-            @label = split('.', $e->label) if ($e->label);
+            @path = split(/\./, $e->path) if ($e->path);
+            @label = split(/\./, $e->label) if ($e->label);
     
-            $self->_object_by_path( $self->event->target, $e->collector, \@label, \@path );
+            $self->_object_by_path( $self->target, $e->collector, \@label, \@path );
         }
 
         if ($self->event->event_def->group_field) {
-            my @group_path = split('.', $self->event->event_def->group_field);
-            my $group_object = $self->_object_by_path( $self->event->target, undef, [], \@group_path );
+            my @group_path = split(/\./, $self->event->event_def->group_field);
+            my $group_object = $self->_object_by_path( $self->target, undef, [], \@group_path );
         }
     
         $self->environment->{complete} = 1;