Subversion Repositories PEEPS

Rev

Rev 12 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12 Rev 14
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;