loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.18, 2003/01/11 06:28:19	version 1.20, 2003/01/13 17:41:45
Line 31	Line 31
# YEAR=2002	# YEAR=2002
# 2/1/, 5/13, 5/15	# 2/1/, 5/13, 5/15
# YEAR=2003	# YEAR=2003
# 1/7/	# 1/7/, 1/13
# A CGI script that dynamically outputs a graphical chart for lonstatistics.	# A CGI script that dynamically outputs a graphical chart for lonstatistics.
#	#
####	####
Line 51 my $bar_space=10;	Line 51 my $bar_space=10;

my @xlabels;	my @xlabels;

if ($xlab=~/^Percentage$/){	if ($Titr =~ /^Percentage$/){
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {	for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
# $xlabels[$nIdx]=$data11[$nIdx];
$xlabels[$nIdx]=$nIdx;	$xlabels[$nIdx]=$nIdx;
}	}
@data11=();	@data11=();
@data11=split(/\,/,$data2);	@data11=split(/\,/,$data2);
@data12=();	@data12=();
	$Titr = '';
} else {	} else {
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {	for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
$xlabels[$nIdx]=$nIdx+1;	$xlabels[$nIdx]=$nIdx+1;
Line 68 if ($xlab=~/^Percentage$/){	Line 68 if ($xlab=~/^Percentage$/){
my @data =(\@xlabels,\@data11,\@data12);	my @data =(\@xlabels,\@data11,\@data12);

my $Range1;	my $Range1;
my $Range2;	my $Range2 = 200;

if ($xlab=~/^Concepts$/){	if ($xlab=~/^Concepts$/){
$Range1=270;	$Range1=270;
$Range2=200;	} elsif ($xlab=~/^Problem_number$/){
} elsif ($xlab=~/^Percentage$/){	$Range1=450;
$Range1=800;#*$PNo;	} else {
$Range2=200;	$Range1=($PNo==100) ? 800 : (120+$PNo*10);
$skip_x=5;	$skip_x=5;
$bar_space=1;	$bar_space=1;
$xlab='Percentage_of_Correct_Problems';
} else {
$Range1=450;
$Range2=200;
}	}