+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 {
@@ -223,7 +291,8 @@ sub discrit {
''.
'');
} sort keys %what;
- $r->print('');
+ $r->print(
+ '');
}
# =============================================================== Compose reply
@@ -240,13 +309,15 @@ sub comprep {
my $dispcrit='';
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
$dispcrit=
- ' Send as critical message
';
+ ' Send as critical message
'.
+ ' Send as critical message'.
+ ' and return receipt
'; } $r->print(<<"ENDREPLY");