ENDDISHEADER
map {
my ($end,$start)=split(/\:/,$courselist{$_});
my $active=1;
if (($end) && ($now>$end)) { $active=0; }
if ($active) {
my ($sname,$sdom)=split(/\:/,$_);
my %reply=&Apache::lonnet::get('environment',
['firstname','middlename','lastname','generation'],
$sdom,$sname);
my $section=&Apache::lonnet::usection
($sdom,$sname,$ENV{'request.course.id'});
$r->print(
'
'.
$reply{'firstname'}.' '.
$reply{'middlename'}.' '.
$reply{'lastname'}.' '.
$reply{'generation'}.
' ('.$_.') '.$section);
}
} sort keys %courselist;
}
# ==================================================== Display Critical Message
sub discrit {
my $r=shift;
$r->print('
'; } $r->print(<<"ENDREPLY");
ENDREPLY } # ======================================================== Display all messages sub disall { my $r=shift; $r->print('  | Date | '. 'Username | Domain | Subject | Status | |
---|---|---|---|---|---|---|
Open | Delete | '.localtime($sendtime).' | '. $fromname.' | '.$fromdomain.' | '. &Apache::lonnet::unescape($shortsubj).' | '. $status.' |