[open-ils-commits] r11370 - branches/rel_1_4/Open-ILS/src/extras/import

[svn at svn.open-ils.org]

Author: dbs
Date: 2008-12-01 14:43:10 -0500 (Mon, 01 Dec 2008)
New Revision: 11370

Modified:
   branches/rel_1_4/Open-ILS/src/extras/import/marc2bre.pl
Log:
Backport r11369 from trunk to handle the clean schema import scenario


Modified: branches/rel_1_4/Open-ILS/src/extras/import/marc2bre.pl
===================================================================
--- branches/rel_1_4/Open-ILS/src/extras/import/marc2bre.pl	2008-12-01 19:41:31 UTC (rev 11369)
+++ branches/rel_1_4/Open-ILS/src/extras/import/marc2bre.pl	2008-12-01 19:43:10 UTC (rev 11370)
@@ -93,6 +93,12 @@
 	$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 = (