Subversion Repositories PEEPS

Rev

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

Rev 6 Rev 8
Line 52... Line 52...
52
}
52
}
53
push @insurance, $h->li ($h->a ( { href=>"insurance" }, "View Insurance History." ));
53
push @insurance, $h->li ($h->a ( { href=>"insurance" }, "View Insurance History." ));
54
push @insurance, $h->li ($h->a ( { href=>"verify_insurance" }, "Verify Someone's Insurance Coverage." ));
54
push @insurance, $h->li ($h->a ( { href=>"verify_insurance" }, "Verify Someone's Insurance Coverage." ));
Line -... Line 55...
-
 
55
 
-
 
56
 
-
 
57
my @league_admin;
-
 
58
foreach (@{isLeagueAdmin ($user->{person_id})}) {
-
 
59
  push @league_admin, $h->li ($h->a ( { href=>"view_league?id=".$_ }, "View ".getLeagueName ($_) ));
55
 
60
}
Line 56... Line 61...
56
 
61
 
-
 
62
my @managers;
-
 
63
 
-
 
64
my @sysadmins;
Line 57... Line 65...
57
my @managers;
65
if ($user->{SYSADMIN}) {
58
 
66
  push @sysadmins, $h->li ($h->a ( { href=>"org_log" }, "View Org Change Logs." ));
59
my @sysadmins;
67
}
60
 
68
 
Line 79... Line 87...
79
 
87
 
Line 80... Line 88...
80
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do:"), $h->ul ([ @everyone ]) ]);
88
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do:"), $h->ul ([ @everyone ]) ]);
Line 81... Line 89...
81
 
89
 
Line 82... Line 90...
82
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Personal Insurance:"), $h->ul ([ @insurance ]) ]);
90
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Personal Insurance:"), $h->ul ([ @insurance ]) ]);
Line 83... Line 91...
83
 
91