loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2001/11/28 16:36:08	version 1.17, 2001/11/28 17:16:16
Line 117 sub ExtractStudentData {	Line 117 sub ExtractStudentData {
else {$Code = ' ';}	else {$Code = ' ';}
$TempHash{"$Part.Code"} = $Code;	$TempHash{"$Part.Code"} = $Code;
# if ($test=~/minaeibi/) {	# if ($test=~/minaeibi/) {
# $r->print($Key." ,,, ".$Val."<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>');	$r->print($Key."PartNo =$PartNo "."Tries=$Tries!<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>');
# }	# }
}	}
}	}
Line 132 sub ExtractStudentData {	Line 132 sub ExtractStudentData {
}	}
}	}
$Str .= $TempHash{$part.'.Code'};	$Str .= $TempHash{$part.'.Code'};
	$r->print($n.") Part=".$part." code=$TempHash{$part.'.Code'}<br>");
}	}
}	}
else {for(my $n=0; $n<$PartNo; $n++) {$Str.=' ';}}	else {for(my $n=0; $n<$PartNo; $n++) {$Str.=' ';}}