| Line 424... |
Line 424... |
| 424 |
print $h->ul ($h->div ({ class=>"rTableRow" }, $h->input ({ type => "submit", name => "submit", value => "Remove Affiliation", onClick => "document.forms['UserForm'].requestSubmit();" })));
|
424 |
print $h->ul ($h->div ({ class=>"rTableRow" }, $h->input ({ type => "submit", name => "submit", value => "Remove Affiliation", onClick => "document.forms['UserForm'].requestSubmit();" })));
|
| 425 |
}
|
425 |
}
|
| Line 426... |
Line 426... |
| 426 |
|
426 |
|
| 427 |
|
427 |
|
| Line 428... |
Line 428... |
| 428 |
my @policyhistory = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, qw(ID Policy Start End) ) ]));
|
428 |
my @policyhistory = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, qw(ID Policy Start End) ) ]));
|
| 429 |
my @policy_columns = qw(id person_id member_org_id policy_name fee created start end terminated active);
|
429 |
my @policy_columns = qw(id person_id member_org_id policy_id policy_name fee created start end terminated active);
|
| 430 |
|
430 |
|
| 431 |
my @policies = @{ $dbh->selectall_arrayref ("select * from coverage where person_id = ? order by start desc, end", undef, $person_id) };
|
431 |
my @policies = @{ $dbh->selectall_arrayref ("select * from coverage where person_id = ? order by start desc, end", undef, $person_id) };
|