| Line 453... |
Line 453... |
| 453 |
])
|
453 |
])
|
| 454 |
])
|
454 |
])
|
| 455 |
]);
|
455 |
]);
|
| 456 |
my $YEAR = 1900 + (localtime)[5];
|
456 |
my $YEAR = 1900 + (localtime)[5];
|
| 457 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "$YEAR Schedule:"), getSchedule ($RCID, "all")]) unless $RCID !~ /^\d+$/;
|
457 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "$YEAR Schedule:"), getSchedule ($RCID, "all")]) unless $RCID !~ /^\d+$/;
|
| - |
|
458 |
if (param ("prior_years")) {
|
| 458 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Prior Years:"), getSchedule ($RCID, "prior")]) unless $RCID !~ /^\d+$/;
|
459 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Prior Years:"), getSchedule ($RCID, "prior")]) unless $RCID !~ /^\d+$/;
|
| - |
|
460 |
} elsif ($view ne "New User" and $view ne "Edit") {
|
| - |
|
461 |
print $h->h5 ($h->a ({href=>"view_user.pl?submit=View&RCid=$F->{RCid}&prior_years=1"}, "[ Show Prior Years ]"));
|
| - |
|
462 |
}
|
| 459 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Recent Activity:"), getLog ($RCID)]) unless $RCID !~ /^\d+$/;
|
463 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Recent Activity:"), getLog ($RCID)]) unless $RCID !~ /^\d+$/;
|
| 460 |
print $h->close ('html');
|
464 |
print $h->close ('html');
|
| 461 |
exit;
|
465 |
exit;
|
| 462 |
}
|
466 |
}
|