[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