loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2001/10/18 14:25:49	version 1.9, 2001/10/22 14:52:14
Line 17	Line 17
#	#
# 7/10/01 Behrouz Minaei	# 7/10/01 Behrouz Minaei
# 9/8 Gerd Kortemeyer	# 9/8 Gerd Kortemeyer
# 10/18/01 Behrouz Minaei	# 10/18/01, 10/19/01 Behrouz Minaei

package Apache::lonchart;	package Apache::lonchart;

Line 82 sub ExtractStudentData {	Line 82 sub ExtractStudentData {
my $Part = $1;	my $Part = $1;
if ( $TempHash{"$Part"} eq '' ) {	if ( $TempHash{"$Part"} eq '' ) {
$TempHash{"$Part"} = $Part;	$TempHash{"$Part"} = $Part;
$TempHash{$PartNo}=$Part;	$TempHash{$PartNo}=$Part;
	$TempHash{"$Part.Code"} = ' ';
$PartNo++;	$PartNo++;
}	}
$TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"};	$TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"};
Line 107 sub ExtractStudentData {	Line 108 sub ExtractStudentData {
$Str .= $TempHash{$part.'.Code'};	$Str .= $TempHash{$part.'.Code'};
}	}
}	}
	else { $Str .= ' '; }
}	}
}	}
return $Str;	return $Str;