ENDDISHEADER
@@ -249,12 +285,15 @@ 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;
}
@@ -294,13 +333,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");