ENDDISHEADER
- map {
+ foreach (sort keys %courselist) {
my ($end,$start)=split(/\:/,$courselist{$_});
my $active=1;
if (($end) && ($now>$end)) { $active=0; }
@@ -249,35 +363,53 @@ ENDDISHEADER
my %reply=&Apache::lonnet::get('environment',
['firstname','middlename','lastname','generation'],
$sdom,$sname);
- $r->print('
'.
+ 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('
';
+ ' Send as critical message ' . $crithelp .
+ '
'.
+ ' Send as critical message ' .
+ ' and return receipt' . $crithelp . '
'; } $r->print(<<"ENDREPLY");