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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-02-28 20:08:32 -0500 (Sat, 28 Feb 2009)
New Revision: 12330

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
Log:
fix param format for retrieve_

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-03-01 01:03:03 UTC (rev 12329)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-03-01 01:08:32 UTC (rev 12330)
@@ -428,7 +428,8 @@
     $meth =~ s/Fieldmapper:://;
     $meth =~ s/::/_/;
 
-    my $obj = $self->editor->$meth( { $ffield => $context->$lfield() } );
+    my $obj = $self->editor->$meth( 
+        ($multi) ? { $ffield => $context->$lfield() } : $context->$lfield() );
 
     if (@$path) {