165 267 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14
use strict;
use libdb;

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

    if (!DBSlotExists("experiments", "geniflags")) {
	DBQueryFatal("alter table experiments add ".
		     "  `geniflags` int(11) NOT NULL default '0'");
    }
    return 0;
}
1;