version 1.37, 2002/03/02 02:03:47
|
version 1.38, 2002/05/09 17:06:09
|
Line 120 sub ExtractStudentData {
|
Line 120 sub ExtractStudentData {
|
} |
} |
} |
} |
|
|
my $Prob = &Apache::lonnet::declutter( $hash{'map_id_'.$1} ). |
my $Prob = &Apache::lonnet::symbclean( |
|
&Apache::lonnet::declutter( $hash{'map_id_'.$1} ). |
'___'.$2.'___'. |
'___'.$2.'___'. |
&Apache::lonnet::declutter( $hash{'src_'.$ResId} ); |
&Apache::lonnet::declutter( $hash{'src_'.$ResId} )); |
$Code=' '; |
$Code=' '; |
$Tries = 0; |
$Tries = 0; |
$LatestVersion = $result{"version:$Prob"}; |
$LatestVersion = $result{"version:$Prob"}; |
Line 148 sub ExtractStudentData {
|
Line 149 sub ExtractStudentData {
|
$TempHash{"$Part.Code"} = $Code; |
$TempHash{"$Part.Code"} = $Code; |
} |
} |
} |
} |
} |
} |
|
# Actually append problem to output (all parts) |
|
$Str.='<a href="/adm/grades?symb='. |
|
&Apache::lonnet::escape($Prob). |
|
'&student='.$sname.'&domain='.$sdom.'&command=submission">'; |
for ( my $n = 0; $n < $PartNo; $n++ ) { |
for ( my $n = 0; $n < $PartNo; $n++ ) { |
my $part = $TempHash{$n}; |
my $part = $TempHash{$n}; |
my $Code = $TempHash{"$part.Code"}; |
my $Code = $TempHash{"$part.Code"}; |
Line 163 sub ExtractStudentData {
|
Line 168 sub ExtractStudentData {
|
$Str .= $TempHash{"$part.Code"}; |
$Str .= $TempHash{"$part.Code"}; |
if ( $Code ne 'x' ) {$ProbTotal++;} |
if ( $Code ne 'x' ) {$ProbTotal++;} |
} |
} |
|
$Str.='</a>'; |
} |
} |
else { |
else { |
for(my $n=0; $n<$PartNo; $n++) { |
for(my $n=0; $n<$PartNo; $n++) { |