do the rollback before we ingest the records so the rollback won't be called against...

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
index 7470c6c..9d45d17 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
@@ -666,6 +666,7 @@ sub import_record_list_impl {
             }
         }
     }
+    $e->rollback;
 
     $count = 0;
     for my $ingest (@ingest_queue) {
@@ -674,8 +675,6 @@ sub import_record_list_impl {
     } 
 
     $ingest_ses->disconnect();
-
-    $e->rollback;
     return undef;
 }