cgi-bin/LJ/Event/CommunityMantioned.pm

   1 package LJ::Event::CommunityMantioned;
   2 use strict;
   3 use Class::Autouse qw(LJ::Entry);
   4 use Carp qw(croak);
   5 use base 'LJ::Event';
   6
   7 sub new {
   8     my ($class, $u, $fromu, $commu) = @_;
   9     foreach ($u, $fromu, $commu) {
  10         LJ::errobj('Event::CommunityMantioned', u => $_)->throw unless LJ::isu($_);
  11     }
  12
  13     return $class->SUPER::new($u, $fromu->{userid}, $commu->{userid});
  14 }
  15
  16 sub is_common { 0 }
  17 sub available_for_user  { 1 }
  18
  19 sub is_subscription_visible_to  {
  20     my ($class, $u) = @_;
  21
  22     return 0 if ($class->{user}->prop('pingback') eq 'D');
  23     return 1 if $u->can_manage($class->{user});
  24     return 0;
  25 }
  26
  27 sub subscription_as_html {
  28     my ($class, $subscr) = @_;
  29     my $journal = $subscr->journal or croak "No user";
  30
  31     return LJ::Lang::ml('event.comm_mantioned', { community => $journal->ljuser_display } );
  32 }
  33
  34 sub is_subscription_ntype_disabled_for {
  35     my ($self, $ntypeid, $u) = @_;
  36
  37     return 0 if $ntypeid == LJ::NotificationMethod::Email->ntypeid;
  38     return 1;
  39 }
  40
  41
  42
  43 package LJ::Error::Event::CommunityMantioned;
  44 sub fields { 'u' }
  45 sub as_string {
  46     my $self = shift;
  47     return "LJ::Event::CommuinityMantioned passed bogus u object: $self->{u}";
  48 }
  49
  50 1;