Only note an upgrade in the DB after it succeeded

This prevents it from bypassing a failed upgrade if the upgrade.pl script is run again.  Instead it will get stuck on the failed upgrade, forcing the problem to be resolved instead of ignored.
This commit is contained in:
Graham Knop 2008-08-19 17:36:08 +00:00
parent 00fcdf40df
commit f4e43c9b31

View file

@ -74,7 +74,6 @@ sub start {
$session->user({userId=>3});
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Upgrade to ".$toVersion});
$session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")");
return $session;
}
@ -84,6 +83,7 @@ sub finish {
updateTemplates($session);
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->commit;
$session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")");
$session->close();
}