fixed: able to view visitor profile, send private messages, add as friend

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

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 --------------------------------