diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 59259732c..88f29e1dd 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -18,6 +18,7 @@ - fixed: "Back to Album" link doesn't work - fixed: email validation links can be broken by mail servers - fixed: Clipboard select all doesn't work with one item in IE + - fixed: able to view visitor profile, send private messages, add as friend 7.5.9 - fixed: Collaboration System attachments follow site's max size instead of CS's diff --git a/docs/upgrades/upgrade_7.5.9-7.5.10.pl b/docs/upgrades/upgrade_7.5.9-7.5.10.pl index 402dfd173..ab7dc881f 100644 --- a/docs/upgrades/upgrade_7.5.9-7.5.10.pl +++ b/docs/upgrades/upgrade_7.5.9-7.5.10.pl @@ -14,7 +14,7 @@ use Getopt::Long; use WebGUI::Session; use WebGUI::Storage; use WebGUI::Asset; - +use WebGUI::User; my $toVersion = '7.5.10'; my $quiet; # this line required @@ -22,7 +22,7 @@ my $quiet; # this line required my $session = start(); # this line required -# upgrade functions go here +privatizeVisitor($session); finish($session); # this line required @@ -35,6 +35,16 @@ finish($session); # this line required # print "DONE!\n" unless $quiet; #} +#---------------------------------------------------------------------------- +sub privatizeVisitor { + my $session = shift; + my $visitor = WebGUI::User->new($session, '1'); + $visitor->profileField('allowPrivateMessages', 'none'); + $visitor->profileField('publicEmail', 0); + $visitor->profileField('publicProfile', 0); + $visitor->profileField('ableToBeFriend', 0); +} + # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------