[open-ils-commits] r12325 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-02-28 16:58:42 -0500 (Sat, 28 Feb 2009)
New Revision: 12325

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
Log:
pass target object instead of event->target to object_by_path.  call split with regex

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-02-28 15:13:14 UTC (rev 12324)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-02-28 21:58:42 UTC (rev 12325)
@@ -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 @@
     
         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;