loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

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++) {