oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Form inheritance work for lists, removal of $session{os}{slash}

Browse source
This commit is contained in:
Colin Kuskie 2005-12-01 20:46:55 +00:00
parent abe85d439e
commit 99df1f414e
90 changed files with 1364 additions and 1168 deletions
Download patch file Download diff file Expand all files Collapse all files

15
docs/upgrades/upgrade_6.7.8-6.8.0.pl
View file

@ -40,6 +40,7 @@ addInOutBoard();
addDashboardStuff();
addZipArchive();
updateUserProfileDayLabels();
changeSelectListToSelectBox();
fixVeryLateDates();
finish();
@ -1655,6 +1656,20 @@ sub updateUserProfileDayLabels {
WebGUI::SQL->write(q!update userProfileField set dataValues='{0=>WebGUI::International::get(\"sunday\",\"DateTime\"),1=>WebGUI::International::get(\"monday\",\"DateTime\")}' where fieldName='firstDayOfWeek'!);
}
#-------------------------------------------------
sub changeSelectListToSelectBox {
print "\tChanging all selectLists to selectBox's in userProfileField.\n" unless ($quiet);
WebGUI::SQL->write(q!update userProfileField set dataType='selectBox' where dataType='selectList'!);
my $sql = q!select fieldName,dataDefault from userProfileField where dataType IN ('selectBox','timeZone')!;
my $sth = WebGUI::SQL->read($sql);
while (my $hash = $sth->hashRef) {
$hash->{dataDefault} =~ tr/][//d;
WebGUI::SQL->write(sprintf q!update userProfileField set dataDefault=%s where fieldName=%s!, quote($hash->{dataDefault}), quote($hash->{fieldName}) );
}
}
();
#--- DO NOT EDIT BELOW THIS LINE
#-------------------------------------------------