Subversion Repositories PEEPS

Rev

Rev 36 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 36 Rev 38
Line 27... Line 27...
27 
use DateTime;
 27 
use DateTime;
28 
my $dt = DateTime->today;
 28 
my $dt = DateTime->today;
29 
$dt =~ s/T00\:00\:00$//;
 29 
$dt =~ s/T00\:00\:00$//;
Line 30... Line 30...
30 
 
 30 
 
31 
my @announcements;
 31 
my @announcements;
- 
 
 32 
push @announcements, $h->div ({class=>"error"}, "You're logged in as a WFTDA System Admin!".$h->br.$h->br) if $user->{SYSADMIN};
- 
 
 33 
 
- 
 
 34 
my @roles = @{ $dbh->selectall_arrayref ("select member_org_id, id from role where person_id = ? and role = ?", undef, $user->{id}, "Pending") };
- 
 
 35 
my %roles = map { $_->[0] => $_->[1] } @roles;
- 
 
 36 
if (scalar @roles) {
- 
 
 37 
  push @announcements, $h->div ("You have a Pending request to join: ".join (", ", map { getLeagueName ($_) } keys %roles));
- 
 
 38 
}
Line 32... Line 39...
32 
push @announcements, $h->div ({class=>"error"}, "You're logged in as a WFTDA System Admin!") if $user->{SYSADMIN};
 39 
 
33 
 
 40 
 
34 
my @everyone;
 41 
my @everyone;
35 
push @everyone, $h->li ("Your Member ID is ".$user->{id});
 42 
push @everyone, $h->li ("Your Member ID is ".$user->{id});