'.$name;
+ if ($ENV{'user.name'} ne $self->{'name'} &&
+ $ENV{'user.domain'} ne $self->{'domain'}) {
+ $title .= &Apache::loncommon::aboutmewrapper
+ ($self->{'name'}.'@'.$self->{'domain'},
+ $self->{'name'},$self->{'domain'});
+ }
+ $title .= "
\n";
+ $title .= '
'.$self->{'coursedesc'}."
\n";
+ $title .= '
'.localtime(time).'
';
return $title;
}
@@ -111,12 +127,15 @@ sub outsheet_html {
# Get the list of assessment files #
####################################
my @AssessFileNames = $self->othersheets('assesscalc');
+ my $editing_is_allowed = &Apache::lonnet::allowed('mgr',
+ $ENV{'request.course.id'});
####################################
# Determine table structure #
####################################
my $num_uneditable = 26;
my $num_left = 52-$num_uneditable;
my $tableheader =<<"END";
+
Student
@@ -137,23 +156,40 @@ END
$label_num++;
}
$tableheader .="
\n");
#
# Prepare to output rows
- $tableheader =<<"END";
+ if (exists($ENV{'request.role.adv'}) && $ENV{'request.role.adv'}) {
+ $tableheader =<<"END";
+
Row
Assessment
END
+ } else {
+ $tableheader =<<"END";
+
+
+
Assessment
+END
+ }
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){
if ($label_num<$num_uneditable) {
$tableheader.='
';
@@ -176,22 +212,37 @@ END
next if ($resource->{'type'} ne 'assessment');
my $rownum = $self->get_row_number_from_key($resource->{'symb'});
my $assess_filename = $self->{'row_source'}->{$rownum};
- my $row_output = '