Backport r11369 from trunk to handle the clean schema import scenario

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

diff --git a/Open-ILS/src/extras/import/marc2bre.pl b/Open-ILS/src/extras/import/marc2bre.pl
index c8663e3..7b90dab 100755 (executable)
--- a/Open-ILS/src/extras/import/marc2bre.pl
+++ b/Open-ILS/src/extras/import/marc2bre.pl
@@ -93,6 +93,12 @@ if (!$recid) {
        $sth->fetch;
        $sth->finish;
        $dbh->disconnect;
+
+       # In a clean Evergreen schema, the maximum ID will be -1; but sequences
+       # have to start at 1, so handle the clean Evergreen schema situation
+       if ($recid == 0) {
+               $recid = 1;
+       }
 }
 
 my %tcn_source_map = (