- fix [ 1288699 ] 6.7.4 - username sometimes does not appear

- fix [ 1296468 ] Username doesn't show up in Edit User Account
 - fix [ 1295921 ] Problem with Survey content.
 - fix [ 1290460 ] Survey error when adding multiple choice answers
 - fix [ 1288887 ] new user information mail dos'nt contains the username
This commit is contained in:
JT Smith 2005-09-20 16:35:07 +00:00
parent 104ee36535
commit 844b03b34a
5 changed files with 64 additions and 11 deletions

View file

@ -0,0 +1,45 @@
use lib "../../lib";
use strict;
use Getopt::Long;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Asset;
use WebGUI::Setting;
my $toVersion = "6.7.5";
my $configFile;
my $quiet;
start();
fixSurveyAnswerDefinition();
finish();
#-------------------------------------------------
sub fixSurveyAnswerDefinition {
print "\tFixing definition of survey answers.\n" unless ($quiet);
WebGUI::SQL->write("alter table Survey_answer change gotoQuestion gotoQuestion varchar(22) binary");
}
#-------------------------------------------------
sub start {
$|=1; #disable output buffering
GetOptions(
'configFile=s'=>\$configFile,
'quiet'=>\$quiet
);
WebGUI::Session::open("../..",$configFile);
WebGUI::Session::refreshUserInfo(3);
WebGUI::SQL->write("insert into webguiVersion values (".quote($toVersion).",'upgrade',".time().")");
}
#-------------------------------------------------
sub finish {
WebGUI::Session::close();
}