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

[svn at svn.open-ils.org]

Author: phasefx
Date: 2010-03-29 16:36:08 -0400 (Mon, 29 Mar 2010)
New Revision: 16042

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
use editor

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-03-29 20:36:06 UTC (rev 16041)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-03-29 20:36:08 UTC (rev 16042)
@@ -2639,7 +2639,7 @@
             if ( $cancel_reason ) {
                 $aur_obj->cancel_reason( $cancel_reason );
                 $e->update_acq_user_request($aur_obj) or return $e->die_event;
-                create_user_request_events( [ $aur_obj ], 'aur.rejected' );
+                create_user_request_events( $e, [ $aur_obj ], 'aur.rejected' );
             } else {
                 $e->delete_acq_user_request($aur_obj);
             }
@@ -2704,17 +2704,15 @@
         }
     }
 
-    $aur_obj = $e->create_acq_user_request($aur_obj) or $e->die_event;
+    $aur_obj = $e->create_acq_user_request($aur_obj) or return $e->die_event;
 
-    $e->commit;
+    $e->commit and create_user_request_events( $e, [ $aur_obj ], 'aur.created' );
 
-    create_user_request_events( [ $aur_obj ], 'aur.created' );
-
     return $aur_obj;
 }
 
 sub create_user_request_events {
-    my($user_reqs, $hook) = @_;
+    my($e, $user_reqs, $hook) = @_;
 
     my $ses = OpenSRF::AppSession->create('open-ils.trigger');
     $ses->connect;