| Line 33... |
Line 33... |
| 33 |
my @everyone;
|
33 |
my @everyone;
|
| 34 |
my @leads;
|
34 |
my @leads;
|
| Line 35... |
Line 35... |
| 35 |
|
35 |
|
| 36 |
my @insurance;
|
36 |
my @insurance;
|
| - |
|
37 |
$user->{policy} = isPersonCovered ($user->{id});
|
| - |
|
38 |
($user->{RCPolicy}) = $dbh->selectrow_array ("select id from coverage where policy_id = 4 and person_id = ?", undef, $user->{id});
|
| 37 |
$user->{policy} = isPersonCovered ($user->{id});
|
39 |
|
| 38 |
if ($user->{policy}) {
|
40 |
if ($user->{policy}) {
|
| 39 |
my $daysremaining = remainingPolicyDays ($user->{id}, $user->{policy});
|
41 |
my $daysremaining = remainingPolicyDays ($user->{id}, $user->{policy});
|
| 40 |
push @insurance, $h->li ("You are currently covered by Policy ID: $user->{policy}");
|
42 |
push @insurance, $h->li ("You are currently covered by Policy ID: $user->{policy}");
|
| 41 |
push @insurance, $h->li ("You have $daysremaining days remaining in coverage.");
|
43 |
push @insurance, $h->li ("You have $daysremaining days remaining in coverage.");
|
| 42 |
if ($daysremaining <= 90) {
|
44 |
if ($daysremaining <= 90) {
|
| 43 |
push @insurance, $h->li ($h->a ( { href=>"attestation" }, "You're eligible to renew." ));
|
45 |
push @insurance, $h->li ($h->a ( { href=>"attestation?policy=1" }, "You're eligible to renew." ));
|
| Line -... |
Line 46... |
| - |
|
46 |
}
|
| - |
|
47 |
|
| 44 |
}
|
48 |
push @insurance, $h->li ($h->a ( { href=>"attestation?policy=4" }, "Purchase Insurance Coverage for RollerCon 2026." )) unless (isPersonCovered ($user->{id}, "2026-07-11") or $user->{RCPolicy});
|
| 45 |
|
49 |
|
| - |
|
50 |
} else {
|
| 46 |
} else {
|
51 |
push @insurance, $h->li ($h->a ( { href=>"attestation?policy=1" }, "Purchase Insurance." ));
|
| Line 47... |
Line 52... |
| 47 |
push @insurance, $h->li ($h->a ( { href=>"attestation" }, "Purchase Insurance." ));
|
52 |
push @insurance, $h->li ($h->a ( { href=>"attestation?policy=4" }, "Purchase Insurance Coverage for RollerCon 2026." )) unless $user->{RCPolicy};
|
| 48 |
}
|
53 |
}
|
| Line 49... |
Line 54... |
| 49 |
|
54 |
|
| 50 |
|
55 |
|
| 51 |
my @policyhistory = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, qw(ID Policy Start End) ) ]));
|
56 |
my @policyhistory = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, qw(ID Policy Start End) ) ]));
|
| 52 |
my @policy_columns = qw(id person_id member_org_id policy_name fee created start end terminated active);
|
57 |
my @policy_columns = qw(id person_id member_org_id policy_id policy_name fee created start end terminated active);
|
| Line 89... |
Line 94... |
| 89 |
|
94 |
|
| Line 90... |
Line 95... |
| 90 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Personal Insurance:"), $h->ul ([ @insurance ]) ]);
|
95 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Personal Insurance:"), $h->ul ([ @insurance ]) ]);
|
| Line 91... |
Line -... |
| 91 |
|
- |
|
| 92 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Personal Policy History:"), $h->ul ([ @policyhistory ]) ]) if (scalar @policyhistory);
|
- |
|
| 93 |
|
- |
|
| 94 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a Lead:"), $h->ul ([ @leads ]) ]) if ($LVL > 1);
|
- |
|
| 95 |
|
96 |
|
| Line 96... |
Line 97... |
| 96 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a Manager:"), $h->ul ([ @managers ]) ]) if ($LVL > 2);
|
97 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Personal Policy History:"), $h->ul ([ @policyhistory ]) ]) if (scalar @policyhistory);
|
| Line 97... |
Line 98... |
| 97 |
|
98 |
|