From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 16 Aug 2007 20:58:30 +0000 (+0000)
Subject: svn merge -r7692:7693 svn://svn.open-ils.org/ILS/trunk/
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=1b397057de5e6bc1d1a5a5b91b2ffbad57eb9d84;p=Evergreen.git

svn merge -r7692:7693 svn://svn.open-ils.org/ILS/trunk/

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

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;
 }