[evolvis-commits] r17514: give the Site Admin group a project short+long description↵ so Edit Public Info works

mirabilos at evolvis.org mirabilos at evolvis.org
Fri Sep 2 14:01:33 CEST 2011


Author: mirabilos
Date: 2011-09-02 14:01:32 +0200 (Fri, 02 Sep 2011)
New Revision: 17514

Modified:
   branches/ev48fixes/deb-specific/db-upgrade.pl
Log:
give the Site Admin group a project short+long description
so Edit Public Info works


Modified: branches/ev48fixes/deb-specific/db-upgrade.pl
===================================================================
--- branches/ev48fixes/deb-specific/db-upgrade.pl	2011-09-02 10:35:44 UTC (rev 17513)
+++ branches/ev48fixes/deb-specific/db-upgrade.pl	2011-09-02 12:01:32 UTC (rev 17514)
@@ -3490,6 +3490,31 @@
 	$dbh->commit();
     }
 
+    $version = &get_db_version;
+    $target = "4.8.3+evolvis36.1";
+    if (&is_lesser ($version, $target)) {
+	&debug("Giving Site Admin group descriptions");
+	@reqlist = (
+	    "UPDATE groups
+		SET short_description='Site Admin',
+		    register_purpose='Site Admin group'
+		WHERE group_id=1;",
+	    );
+
+	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();
+    }
+
     ########################### INSERT HERE #################################
 
     &debug ("It seems your database $action went well and smoothly. That's cool.") ;



More information about the evolvis-commits mailing list