version 1.17, 2002/10/24 20:58:06
|
version 1.18, 2002/11/08 22:16:47
|
Line 219 sub CreateInterface {
|
Line 219 sub CreateInterface {
|
$Str .= '</td><td>'."\n"; |
$Str .= '</td><td>'."\n"; |
$Str .= '<input type="submit" name="DefaultColumns" '; |
$Str .= '<input type="submit" name="DefaultColumns" '; |
$Str .= 'value="Default Column Display" />'."\n"; |
$Str .= 'value="Default Column Display" />'."\n"; |
|
$Str .= '</td><td>'."\n"; |
|
$Str .= '<input type="submit" name="displaymode" '; |
|
if (! exists($ENV{'form.displaymode'}) || |
|
lc($ENV{'form.displaymode'}) eq 'display with links') { |
|
$Str .= 'value="Display without links" />'; |
|
# Set the current value, in case it is undefined |
|
$ENV{'form.displaymode'} = 'Display with links'; |
|
} else { |
|
$Str .= 'value="Display with links" />'; |
|
} |
|
$Str .= "\n"; |
$Str .= '</td></tr></table>'."\n"; |
$Str .= '</td></tr></table>'."\n"; |
|
|
return $Str; |
return $Str; |
Line 265 sub CreateTableHeadings {
|
Line 276 sub CreateTableHeadings {
|
=item &FormatStudentData() |
=item &FormatStudentData() |
|
|
First, FormatStudentInformation is called and prefixes the course information. |
First, FormatStudentInformation is called and prefixes the course information. |
This function produces a formatted string of the student's course information. |
This function produces a formatted string of the student\'s course information. |
Each column of data represents all the problems for a given sequence. For |
Each column of data represents all the problems for a given sequence. For |
valid grade data, a link is created for that problem to a submission record |
valid grade data, a link is created for that problem to a submission record |
for that problem. |
for that problem. |
Line 327 sub StudentReport {
|
Line 338 sub StudentReport {
|
} |
} |
$hasVersion = 'true'; |
$hasVersion = 'true'; |
$hasData = 'true'; |
$hasData = 'true'; |
$Str .= '<a href="/adm/grades?symb='; |
if (lc($ENV{'form.displaymode'}) ne 'display without links') { |
$Str .= &Apache::lonnet::escape($problem); |
$Str .= '<a href="/adm/grades?symb='; |
$Str .= '&student='.$username.'&domain='.$domain; |
$Str .= &Apache::lonnet::escape($problem); |
$Str .= '&command=submission">'; |
$Str .= '&student='.$username.'&domain='.$domain; |
|
$Str .= '&command=submission">'; |
|
} |
my $code = $cache->{$name.':'.$problemID.':'.$_.':code'}; |
my $code = $cache->{$name.':'.$problemID.':'.$_.':code'}; |
my $tries = $cache->{$name.':'.$problemID.':'.$_.':tries'}; |
my $tries = $cache->{$name.':'.$problemID.':'.$_.':tries'}; |
if($code eq '*' && $tries < 10 && $tries ne '') { |
if($code eq '*' && $tries < 10 && $tries ne '') { |
$code = $tries; |
$code = $tries; |
} |
} |
$Str .= $code; |
$Str .= $code; |
$Str .= '</a>'; |
if (lc($ENV{'form.displaymode'}) ne 'display without links') { |
|
$Str .= '</a>'; |
|
} |
$characterCount++; |
$characterCount++; |
} |
} |
} |
} |