| Line 31... |
Line 31... |
| 31 |
my @announcements;
|
31 |
my @announcements;
|
| 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=>"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}));
|
| 37 |
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" }, "...or a list of leagues." )) if ($user->{SYSADMIN} or scalar isLeagueAdmin ($user->{person_id}));
|
| Line 38... |
Line 39... |
| 38 |
my @leads;
|
39 |
my @leads;
|
| Line 95... |
Line 96... |
| 95 |
|
96 |
|
| Line 96... |
Line 97... |
| 96 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a SysAdmin:"), $h->ul ([ @sysadmins ]) ]) if ($LVL >= 5);
|
97 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a SysAdmin:"), $h->ul ([ @sysadmins ]) ]) if ($LVL >= 5);
|
| Line 97... |
Line 98... |
| 97 |
|
98 |
|
| Line 98... |
Line 99... |
| 98 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Your Latest Activity:"), $h->ul ([ @activity_log ]), $h->h5 ($h->a ({ href=>"log" }, "[Your entire log history]")) ]);
|
99 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Your Latest Activity:"), $h->ul ([ @activity_log ]), $h->h5 ($h->a ({ href=>"log" }, "[Your entire log history]")) ]);
|