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

Changes to WebGUI for Private Messaging

Browse source
This commit is contained in:
Frank Dillon 2007-06-14 20:10:33 +00:00
parent cc7687c877
commit 82e020dc4f
9 changed files with 562 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

26
docs/upgrades/upgrade_7.3.19-7.4.0.pl
View file

@ -27,6 +27,7 @@ buildNewUserProfileTable($session);
addAttachmentsToEvents($session);
addMetaDataPostsToCS($session);
addUserInvitations($session);
addPrivateMessaging($session);
finish($session); # this line required
@ -256,6 +257,31 @@ sub addAttachmentsToEvents {
print "OK!\n" unless $quiet;
}
#-------------------------------------------------
sub addPrivateMessaging {
my $session = shift;
print "\tAdding private messaging...." unless ($quiet);
$session->setting->add("viewInboxTemplateId","PBtmpl0000000000000206");
$session->setting->add("viewInboxMessageTemplateId","PBtmpl0000000000000205");
$session->setting->add("sendPrivateMessageTemplateId","PBtmplPrivateMessage01");
$session->db->write("alter table inbox add sentBy varchar(22) not null default 3");
my %data = (
label=>q|WebGUI::International::get("allow private messages label","WebGUI")|,
editable=>1,
visible=>1,
required=>0,
showAtRegistration=>0,
requiredForPasswordRecovery=>0,
fieldType=>"yesNo",
protected=>1,
);
WebGUI::ProfileField->create($session,"allowPrivateMessages", \%data, 4);
#Allow private messages for everyone initially
$session->db->write("update userProfileData set allowPrivateMessages=1");
print "OK!\n" unless $quiet;
}
# ---- DO NOT EDIT BELOW THIS LINE ----