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