[dw-free] Clean up OpenID /manage/settings/

[mark]

[commit: http://hg.dwscoalition.org/dw-free/rev/a075f0ed5aed]

http://bugs.dwscoalition.org/show_bug.cgi?id=322

Remove some options from identity accounts.

Patch by sophie.

--------------------------------------------------------------------------------
diff -r 2dba2ba18e24 -r a075f0ed5aed cgi-bin/LJ/Event/CommunityInvite.pm
--- a/cgi-bin/LJ/Event/CommunityInvite.pm	Fri Feb 27 02:51:19 2009 +0000
+++ b/cgi-bin/LJ/Event/CommunityInvite.pm	Fri Feb 27 03:09:35 2009 +0000
@@ -138,6 +138,12 @@ sub subscription_as_html {
     return BML::ml('event.comm_invite'); # "I receive an invitation to join a community";
 }
 
+sub available_for_user {
+    my ($class, $u, $subscr) = @_;
+
+    return $u->is_identity ? 0 : 1;
+}
+
 package LJ::Error::Event::CommunityInvite;
 sub fields { 'u' }
 sub as_string {
diff -r 2dba2ba18e24 -r a075f0ed5aed cgi-bin/LJ/Event/CommunityJoinRequest.pm
--- a/cgi-bin/LJ/Event/CommunityJoinRequest.pm	Fri Feb 27 02:51:19 2009 +0000
+++ b/cgi-bin/LJ/Event/CommunityJoinRequest.pm	Fri Feb 27 03:09:35 2009 +0000
@@ -146,6 +146,12 @@ sub subscription_as_html {
     return BML::ml('event.community_join_requst'); # Someone requests membership in a community I maintain';
 }
 
+sub available_for_user {
+    my ($class, $u, $subscr) = @_;
+
+    return $u->is_identity ? 0 : 1;
+}
+
 package LJ::Error::Event::CommunityJoinRequest;
 sub fields { 'u' }
 sub as_string {
diff -r 2dba2ba18e24 -r a075f0ed5aed cgi-bin/LJ/Event/InvitedFriendJoins.pm
--- a/cgi-bin/LJ/Event/InvitedFriendJoins.pm	Fri Feb 27 02:51:19 2009 +0000
+++ b/cgi-bin/LJ/Event/InvitedFriendJoins.pm	Fri Feb 27 03:09:35 2009 +0000
@@ -131,4 +131,10 @@ sub content {
     return $self->as_html_actions;
 }
 
+sub available_for_user {
+    my ($class, $u, $subscr) = @_;
+
+    return $u->is_identity ? 0 : 1;
+}
+
 1;
diff -r 2dba2ba18e24 -r a075f0ed5aed cgi-bin/LJ/Setting/SearchInclusion.pm
--- a/cgi-bin/LJ/Setting/SearchInclusion.pm	Fri Feb 27 02:51:19 2009 +0000
+++ b/cgi-bin/LJ/Setting/SearchInclusion.pm	Fri Feb 27 03:09:35 2009 +0000
@@ -6,7 +6,7 @@ sub should_render {
 sub should_render {
     my ($class, $u) = @_;
 
-    return $u ? 1 : 0;
+    return $u && !$u->is_identity ? 1 : 0;
 }
 
 sub helpurl {
--------------------------------------------------------------------------------