440 522 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
#
# Site variables.
#
use strict;
use libdb;

sub DoUpdate($$$)
{
    my ($dbhandle, $dbname, $version) = @_;

    my $var = "aptui/autoextend_maximum";
    if (!TBSiteVarExists($var)) {
	my $desc = "Maximum number of days requested that will automaticaly ".
	    "be granted; zero means only admins can extend an experiment.";
	my $defval = "7";

	DBQueryFatal("INSERT INTO sitevariables VALUES ".
                     "('$var',NULL,'$defval','$desc',0)");
    }
    return 0;
}
1;

# Local Variables:
# mode:perl
# End: