From:['.localtime($ConceptData{'Int.'.$k}).
+ '] To: ['.localtime($ConceptData{'Int.'.($k+1)}-1).
+ "]
$Correct
$Wrong
";
+
+ $Str .= "\n".'
';
+
+ $r->print($Str);
+#$Apache::lonxml::debug=1;
+#&Apache::lonhomework::showhash(%ConceptData);
+#$Apache::lonxml::debug=0;
}
sub DrawGraph {
- my $data=shift;
- my($data1,$data2,$Max,$P_No,$Src,$k)=split(/\+/,$data);
+ my ($k,$Src)=@_;
+ my $Max=0;
+ my @data1;
+ my @data2;
- my $Str="\n".'
'.
- "\n".'
'.
- "\n".'
Correct Answers
'.
- "\n".'
Wrong Answers
'.
- "\n".'
From
'.
- "\n".'
To
'.
- "\n".'
'.
- "\n"."
".
- "\n"."
$data1
".
- "\n"."
$data2
".
- "\n"."
".localtime($ConceptData{'Int.'.($k-1)})."
".
- "\n"."
".localtime($ConceptData{'Int.'.$k}-1)."
".
- "\n"."
";
- $r->print($Str);
-# $r->print(' Correct Answers: '.$data1.
-# ' Wrong Answers: '.$data2);
-# $r->print(' From: '.localtime($ConceptData{'Int.'.($k-1)}).
-# ' To: '.localtime($ConceptData{"Int.$k"}));
-
-# if ( $Max > 1 ) {
-# $Max += (10 - $Max % 10);
-# $Max = int($Max);
-# }
-# else { $Max = 1; }
- my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.$k : $Src;
- $GData=$Titr.'&'.'Concepts'.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;
- if($ConceptData{'Interval'}>1){
- $r->print(' ');
- return;
+ # Adjust Data and find the Max
+ for (my $n=0; $n<=$#Concepts; $n++ ) {
+ my $tmp=$Concepts[$n];
+ $data1[$n]=$ConceptData{"$tmp.$k.true"};
+ $data2[$n]=$ConceptData{"$tmp.$k.false"};
+ my $Sum=$data1[$n]+$data2[$n];
+ if ( $Max<$Sum ) {$Max=$Sum;}
}
- $r->print(' Move your mouse over a bar to find out the concept');
- my $ptr='';
- $ptr.="\n".'';
- $ptr.="\n".'
'.
- "\n".'
';
- $r->print(' '.$ptr.' ');
+ for (my $n=0; $n<=$#Concepts; $n++ ) {
+ if ($data1[$n]+$data2[$n]<$Max) {
+ $data2[$n]+=$Max-($data1[$n]+$data2[$n]);
+ }
+ }
+ my $P_No = $#data1+1;
+
+ if ( $Max > 1 ) {
+ $Max += (10 - $Max % 10);
+ $Max = int($Max);
+ } else { $Max = 1; }
+
+
+ my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.($k+1) : $Src;
+# $GData=$Titr.'&Concepts'.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;
+ $GData="$Titr&Concepts&Answers&$Max&$P_No&".
+ (join(',',@data1)).'&'.(join(',',@data2));
+
+ $r->print('');
}
sub AnalyzeProblem {
-# -------------------------------- Selecting the number of intervals
+ # selecting the number of intervals
my $OpSel='';
my $CurInt = $ENV{'form.interval'};
if ($CurInt eq '') {$CurMap = '1';}
- my $Ptr = 'Select number of intervals'."\n".
+ my $Ptr = ' Select number of intervals'."\n".
'