+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);
+ $r->print('
'.
+ $reply{'firstname'}.' '.
+ $reply{'middlename'}.' '.
+ $reply{'lastname'}.' '.
+ $reply{'generation'}.
+ ' ('.$_.')');
+ }
+ } 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.' |