Subversion Repositories PEEPS

Rev

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

Rev 22 Rev 36
Line 56... Line 56...
56 
 
 56 
 
57 
 
 57 
 
58 
my @league_admin;
 58 
my @league_admin;
- 
 
 59 
foreach (@{isLeagueAdmin ($user->{person_id})}) {
- 
 
 60 
  push @league_admin, $h->li ($h->a ( { href=>"view_league?id=".$_ }, "View ".getLeagueName ($_) ));
- 
 
 61 
  my ($pending) = $dbh->selectrow_array ("select count(id) from full_person where league_id = ? and role = ?", undef, $_, "Pending");
- 
 
 62 
  if ($pending) {
- 
 
 63 
    my $lid = $_;
- 
 
 64 
    push @league_admin, $h->li ($h->a ( { href=>"/people?filter-league_id=$lid&filter-role=Pending" }, "There are Pending Member Request(s)." ));
- 
 
 65 
    push @league_admin, $h->ul ([map { $h->li ($h->a ({href=>"/manage_role?league_id=$lid&person_id=$_->[0]"}, $_->[1])) } @{$dbh->selectall_arrayref ("select id, derby_name from full_person where league_id = ? and role = ?", undef, $_, "Pending")}]);
59 
foreach (@{isLeagueAdmin ($user->{person_id})}) {
 66 
  }
Line 60... Line 67...
60 
  push @league_admin, $h->li ($h->a ( { href=>"view_league?id=".$_ }, "View ".getLeagueName ($_) ));
 67
Line 61... Line 68...
61 
}
 68 
}