[Gforge-commits] gforge/deb-specific db-upgrade.pl,1.48,1.49

[cbayle]

Update of /cvsroot/gforge/gforge/deb-specific
In directory db.perdue.net:/tmp/cvs-serv19967/deb-specific

Modified Files:
        db-upgrade.pl 
Log Message:
Add new sql 


Index: db-upgrade.pl
===================================================================
RCS file: /cvsroot/gforge/gforge/deb-specific/db-upgrade.pl,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- db-upgrade.pl       4 Feb 2004 21:32:29 -0000       1.48
+++ db-upgrade.pl       25 Mar 2004 23:25:52 -0000      1.49
@@ -1450,6 +1450,46 @@
         $dbh->commit () ;
     }
 
+    $version = &get_db_version ;
+    $target = "3.2.1-0+5" ;
+    if (is_lesser $version, $target) {
+        debug "Upgrading with 20040315.sql" ;
+
+        @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20040315.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+0" ;
+    if (is_lesser $version, $target) {
+        debug "Upgrading with 20040325.sql" ;
+
+        @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20040325.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." ;