| Line 32... |
Line 32... |
| 32 |
push @announcements, $h->div ({class=>"error"}, "You're logged in as a WFTDA System Admin!") if $user->{SYSADMIN};
|
32 |
push @announcements, $h->div ({class=>"error"}, "You're logged in as a WFTDA System Admin!") if $user->{SYSADMIN};
|
| Line 33... |
Line 33... |
| 33 |
|
33 |
|
| 34 |
my @everyone;
|
34 |
my @everyone;
|
| 35 |
push @everyone, $h->li ("Your Member ID is ".$user->{id});
|
35 |
push @everyone, $h->li ("Your Member ID is ".$user->{id});
|
| 36 |
push @everyone, $h->li ($h->a ( { href=>"view_user" }, "View your user information."));
|
36 |
push @everyone, $h->li ($h->a ( { href=>"view_user" }, "View your user information."));
|
| 37 |
push @everyone, $h->li ($h->a ( { href=>"people" }, "Look at a list of people." )) if ($user->{SYSADMIN} or scalar isLeagueAdmin ($user->{person_id}));
|
37 |
push @everyone, $h->li ($h->a ( { href=>"people" }, "Look at a list of people." )) if ($user->{SYSADMIN} or scalar @{isLeagueAdmin ($user->{person_id})});
|
| 38 |
push @everyone, $h->li ($h->a ( { href=>"organizations" }, "...or a list of leagues." )) if ($user->{SYSADMIN} or scalar isLeagueAdmin ($user->{person_id}));
|
38 |
push @everyone, $h->li ($h->a ( { href=>"organizations" }, "Leagues / Organizations in PEEPS." ));# if ($user->{SYSADMIN} or scalar @{isLeagueAdmin ($user->{person_id})});
|
| Line 39... |
Line 39... |
| 39 |
my @leads;
|
39 |
my @leads;
|
| 40 |
|
40 |
|
| 41 |
my @insurance;
|
41 |
my @insurance;
|