[open-ils-commits] r11369 - trunk/Open-ILS/src/extras/import

[svn at svn.open-ils.org]

Author: dbs
Date: 2008-12-01 14:41:31 -0500 (Mon, 01 Dec 2008)
New Revision: 11369

Modified:
   trunk/Open-ILS/src/extras/import/marc2bre.pl
Log:
Let's handle the clean Evergreen schema import situation


Modified: trunk/Open-ILS/src/extras/import/marc2bre.pl
===================================================================
--- trunk/Open-ILS/src/extras/import/marc2bre.pl	2008-12-01 18:58:25 UTC (rev 11368)
+++ trunk/Open-ILS/src/extras/import/marc2bre.pl	2008-12-01 19:41:31 UTC (rev 11369)
@@ -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 = (