added optional user data pass-thru. this will give the UI the ability to pass in...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15526 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
index de7b661..c9cb25b 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
@@ -1094,7 +1094,7 @@ __PACKAGE__->register_method(
 );
 
 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 @@ sub format_lineitem {
     }
 
     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 (