now works with an editor object if it exists

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm
index 0fce4ac..099e34f 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm
@@ -14,7 +14,7 @@ my $U = "OpenILS::Application::AppUtils";
 
 # returns ( $newid, $evt ).  If $evt, then there was an error
 sub create_non_cat_circ {
-       my( $staffid, $patronid, $circ_lib, $noncat_type, $circ_time ) = @_;
+       my( $staffid, $patronid, $circ_lib, $noncat_type, $circ_time, $editor ) = @_;
 
        my( $id, $nct, $evt );
        $circ_time ||= 'now';
@@ -29,12 +29,18 @@ sub create_non_cat_circ {
        $circ->item_type($noncat_type);
        $circ->circ_time($circ_time);
 
-       $id = $U->simplereq(
-               'open-ils.storage',
-               'open-ils.storage.direct.action.non_cataloged_circulation.create', $circ );
-       $evt = $U->DB_UPDATE_FAILED($circ) unless $id;
+       if( $editor ) {
+               $evt = $editor->event unless
+                       $circ = $editor->create_action_non_cataloged_circulation( $circ )
+
+       } else {
+               $id = $U->simplereq(
+                       'open-ils.storage',
+                       'open-ils.storage.direct.action.non_cataloged_circulation.create', $circ );
+               $evt = $U->DB_UPDATE_FAILED($circ) unless $id;
+               $circ->id($id);
+       }
 
-       $circ->id($id);
        return( $circ, $evt );
 }