From 566cc54f7e571dde728cef88ae9d63ab43806b00 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 16 Aug 2007 20:54:25 +0000 Subject: [PATCH] ported set_circ_due_date to in-transaction cstore-editor git-svn-id: svn://svn.open-ils.org/ILS/trunk@7693 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ.pm | 26 +++++++++-------------- 1 file changed, 10 insertions(+), 16 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm index 3bb45be0e2..bed1bc2b5f 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm @@ -467,26 +467,20 @@ __PACKAGE__->register_method ( ); sub set_circ_due_date { - my( $s, $c, $authtoken, $circid, $date ) = @_; - my ($circ, $evt) = $U->fetch_circulation($circid); - return $evt if $evt; - - my $reqr; - ($reqr, $evt) = $U->checkses($authtoken); - return $evt if $evt; + my( $self, $conn, $auth, $circ_id, $date ) = @_; - $evt = $U->check_perms($reqr->id, $circ->circ_lib, 'CIRC_OVERRIDE_DUE_DATE'); - return $evt if $evt; + my $e = new_editor(xact=>1, authtoken=>$auth); + return $e->die_event unless $e->checkauth; + my $circ = $e->retrieve_action_circulation($circ_id) + or return $e->die_event; + return $e->die_event unless $e->allowed('CIRC_OVERRIDE_DUE_DATE', $circ->circ_lib); $date = clense_ISO8601($date); - $logger->activity("user ".$reqr->id. - " updating due_date on circ $circid: $date"); - $circ->due_date($date); - my $stat = $U->storagereq( - 'open-ils.storage.direct.action.circulation.update', $circ); - return $U->DB_UPDATE_FAILED unless defined $stat; - return $stat; + $e->update_action_circulation($circ) or return $e->die_event; + $e->commit; + + return $circ->id; } -- 2.11.0