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

forward port of colins 6.8.4 bugwork

Browse source
This commit is contained in:
Colin Kuskie 2006-01-02 18:51:38 +00:00
parent 8d8c6d8065
commit 21188e7949
4 changed files with 38 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

28
docs/upgrades/upgrade_6.8.3-6.8.4.pl
View file

@ -23,13 +23,14 @@ start(); # this line required
fixDefaultThreadTemplate();
enableAvatarProfileField();
updateDataFormEmailFields();
finish(); # this line required
#-------------------------------------------------
sub fixDefaultThreadTemplate {
print "\Add avatar to default thread template.\n" unless ($quiet);
print "\Enable Avatars in the default Thread template.\n" unless ($quiet);
my $template = <<EOT1;
<a name="id<tmpl_var assetId>" id="id<tmpl_var assetId>"></a>
@ -259,6 +260,24 @@ EOT1
}
#-------------------------------------------------
sub enableAvatarProfileField {
print "\tMake user profile Avatar field visible and editable.\n" unless ($quiet);
WebGUI::SQL->write("update userProfileField set visible=1 where fieldName='avatar'");
WebGUI::SQL->write("update userProfileField set editable=1 where fieldName='avatar'");
}
#-------------------------------------------------
sub updateDataFormEmailFields {
print "\tFix default email tabId's.\n" unless ($quiet);
WebGUI::SQL->write("alter table DataForm_field alter DataForm_tabId set default 0;");
my $sth = WebGUI::SQL->read('select DataForm_fieldId,DataForm_tabId from DataForm_field');
my $wrh = WebGUI::SQL->prepare('update DataForm_field set DataForm_tabId=0 where DataForm_fieldId=?');
while (my %hash = $sth->hash) {
$wrh->execute([$hash{DataForm_fieldId}]) unless $hash{DataForm_tabId};
}
}
# ---- DO NOT EDIT BELOW THIS LINE ----
@ -275,13 +294,6 @@ sub start {
WebGUI::SQL->write("insert into webguiVersion values (".quote($toVersion).",'upgrade',".time().")");
}
#-------------------------------------------------
sub enableAvatarProfileField {
print "\tMake user profile Avatar field visible and editable.\n" unless ($quiet);
WebGUI::SQL->write("update userProfileField set visible=1 where fieldName='avatar'");
WebGUI::SQL->write("update userProfileField set editable=1 where fieldName='avatar'");
}
#-------------------------------------------------
sub finish {
WebGUI::Session::close();