[evolvis-commits] r10119: Update sql calls↵

mirabilos at evolvis.org mirabilos at evolvis.org
Thu Feb 24 17:38:10 CET 2011


Author: mirabilos
Date: 2011-02-24 17:38:10 +0100 (Thu, 24 Feb 2011)
New Revision: 10119

Modified:
   trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl
Log:
Update sql calls


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 16:38:09 UTC (rev 10118)
+++ trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl	2011-02-24 16:38:10 UTC (rev 10119)
@@ -1552,26 +1552,6 @@
     }
 
     $version = &get_db_version ;
-    $target = "3.3.0-0+5" ;
-    if (&is_lesser ($version, $target)) {
-        &debug ("Upgrading with 20040729.sql") ;
-
-        @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20040729.sql") } ;
-        foreach my $s (@reqlist) {
-            $query = $s ;
-            # debug $query ;
-            $sth = $dbh->prepare ($query) ;
-            $sth->execute () ;
-            $sth->finish () ;
-        }
-        @reqlist = () ;
-
-        &update_db_version ($target) ;
-        &debug ("Committing.") ;
-        $dbh->commit () ;
-    }
-
-    $version = &get_db_version ;
     $target = "3.3.0-0+6" ;
     if (&is_lesser ($version, $target)) {
         &debug ("Upgrading with 20040804.sql") ;
@@ -1713,7 +1693,69 @@
         $dbh->commit () ;
     }
 
+    $version = &get_db_version ;
+    $target = "3.3.0-3" ;
+    if (&is_lesser ($version, $target)) {
+        &debug ("Upgrading with 20041014.sql") ;
 
+        @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20041014.sql") } ;
+        foreach my $s (@reqlist) {
+            $query = $s ;
+            # debug $query ;
+            $sth = $dbh->prepare ($query) ;
+            $sth->execute () ;
+            $sth->finish () ;
+        }
+        @reqlist = () ;
+
+        &update_db_version ($target) ;
+        &debug ("Committing.") ;
+        $dbh->commit () ;
+    }
+
+    $version = &get_db_version ;
+    $target = "3.3.0-4" ;
+    if (&is_lesser ($version, $target)) {
+        &debug ("Upgrading with 20041020.sql") ;
+
+        @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20041020.sql") } ;
+        foreach my $s (@reqlist) {
+            $query = $s ;
+            # debug $query ;
+            $sth = $dbh->prepare ($query) ;
+            $sth->execute () ;
+            $sth->finish () ;
+        }
+        @reqlist = () ;
+
+        &update_db_version ($target) ;
+        &debug ("Committing.") ;
+        $dbh->commit () ;
+    }
+
+    $version = &get_db_version ;
+    $target = "4.0.0-0" ;
+    # This is an exception, I reapply a modified version of 20040729.sql since it was doing nothing
+    # the other call was deleted from this file
+    if (&is_lesser ($version, $target)) {
+        &debug ("Upgrading with 20040729.sql") ;
+
+        @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20040729.sql") } ;
+        foreach my $s (@reqlist) {
+            $query = $s ;
+            # debug $query ;
+            $sth = $dbh->prepare ($query) ;
+            $sth->execute () ;
+            $sth->finish () ;
+        }
+        @reqlist = () ;
+
+        &update_db_version ($target) ;
+        &debug ("Committing.") ;
+        $dbh->commit () ;
+    }
+
+
     &debug ("It seems your database $action went well and smoothly.  That's cool.") ;
     &debug ("Please enjoy using Gforge.") ;
 



More information about the evolvis-commits mailing list