| Line 451... |
Line 451... |
| 451 |
$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCell" }, " ") ]),
|
451 |
$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCell" }, " ") ]),
|
| 452 |
$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr" }, $h->a ({ href=>$goback }, "[go back]"), $F->{buttons}) ])
|
452 |
$h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableCellr" }, $h->a ({ href=>$goback }, "[go back]"), $F->{buttons}) ])
|
| 453 |
])
|
453 |
])
|
| 454 |
])
|
454 |
])
|
| 455 |
]);
|
455 |
]);
|
| - |
|
456 |
my $YEAR = 1900 + (localtime)[5];
|
| 456 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "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 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Prior Years:"), getSchedule ($RCID, "prior")]) unless $RCID !~ /^\d+$/;
|
| 457 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Recent Activity:"), getLog ($RCID)]) unless $RCID !~ /^\d+$/;
|
459 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Recent Activity:"), getLog ($RCID)]) unless $RCID !~ /^\d+$/;
|
| 458 |
print $h->close ('html');
|
460 |
print $h->close ('html');
|
| 459 |
exit;
|
461 |
exit;
|
| 460 |
}
|
462 |
}
|