From: erickson Date: Thu, 27 Jul 2006 19:20:14 +0000 (+0000) Subject: now works with an editor object if it exists X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b24be2ec23fe119946d27fbfd579ccf1b3ab14af;p=Evergreen.git 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 0fce4ac243..099e34f9f2 100644 --- 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 ); }