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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-02-12 15:20:21 -0500 (Fri, 12 Feb 2010)
New Revision: 15526

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
added optional user data pass-thru.  this will give the UI the ability to pass in per-printout comments, etc.  go ahead and use the print-on-demand granulariy for consistency

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2010-02-12 18:33:22 UTC (rev 15525)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2010-02-12 20:20:21 UTC (rev 15526)
@@ -1094,7 +1094,7 @@
 );
 
 sub format_lineitem {
-    my($self, $conn, $auth, $li_id, $format) = @_;
+    my($self, $conn, $auth, $li_id, $format, $user_data) = @_;
     my $e = new_editor(authtoken=>$auth);
     return $e->event unless $e->checkauth;
 
@@ -1115,7 +1115,7 @@
     }
 
     my $hook = "format.acqli.$format";
-    return $U->fire_object_event(undef, $hook, $li, $context_org);
+    return $U->fire_object_event(undef, $hook, $li, $context_org, 'print-on-demand', $user_data);
 }
 
 __PACKAGE__->register_method (