[evolvis-commits] r7710: Fixed the theme registration process. ↵

mirabilos at evolvis.org mirabilos at evolvis.org
Thu Feb 24 15:47:29 CET 2011


Author: mirabilos
Date: 2011-02-24 15:47:28 +0100 (Thu, 24 Feb 2011)
New Revision: 7710

Modified:
   trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl
Log:
Fixed the theme registration process.


Modified: trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl	2011-02-24 14:47:27 UTC (rev 7709)
+++ trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl	2011-02-24 14:47:28 UTC (rev 7710)
@@ -503,6 +503,17 @@
     $target = "2.6-0+checkpoint+4" ;
     if (is_lesser $version, $target) {
 	debug "Registering Savannah themes." ;
+
+	$query = "SELECT max(theme_id) FROM themes" ;
+	# debug $query ;
+	$sth = $dbh->prepare ($query) ;
+	$sth->execute () ;
+	@array = $sth->fetchrow_array () ;
+	$sth->finish () ;
+	my $maxid = $array [0] ;
+
+	&bump_sequence_to ("themes_pk_seq", $maxid) ;
+
 	@reqlist = (
 		    "INSERT INTO themes (dirname, fullname) VALUES ('savannah_codex', 'Savannah CodeX') ;",
 		    "INSERT INTO themes (dirname, fullname) VALUES ('savannah_forest', 'Savannah Forest') ;",



More information about the evolvis-commits mailing list