[open-ils-commits] r10511 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-02 15:50:30 -0400 (Tue, 02 Sep 2008)
New Revision: 10511

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
Log:
rollback on failed auth as well..

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2008-09-02 19:49:48 UTC (rev 10510)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2008-09-02 19:50:30 UTC (rev 10511)
@@ -381,7 +381,7 @@
 sub import_record_list {
     my($self, $conn, $auth, $rec_ids) = @_;
     my $e = new_editor(xact => 1, authtoken => $auth);
-    return $e->event unless $e->checkauth;
+    return $e->die_event unless $e->checkauth;
     my $err = import_record_list_impl($self, $conn, $auth, $e, $rec_ids);
     return $err if $err;
     $e->commit;