--- loncom/interface/lonstatistics.pm 2002/05/14 23:17:06 1.18
+++ loncom/interface/lonstatistics.pm 2002/05/19 15:44:40 1.20
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# (Publication Handler
#
-# $Id: lonstatistics.pm,v 1.18 2002/05/14 23:17:06 minaeibi Exp $
+# $Id: lonstatistics.pm,v 1.20 2002/05/19 15:44:40 minaeibi Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,7 +31,7 @@
# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei
# YEAR=2002
# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei
-# 5/12, 5/14 Behrouz Minaei
+# 5/12,5/14,5/15,5/19 Behrouz Minaei
#
###
@@ -119,6 +119,7 @@ sub InitAnalysis {
foreach my $concept (@{$Answer{"$parts.concepts"}}) {
foreach my $foil (@{$Answer{"$parts.concept.$concept"}}) {
$foil_to_concept{$foil} = $concept;
+ #$ConceptData{$foil} = $Answer{"$parts.foil.value.$foil"};
}
}
return $symb;
@@ -150,7 +151,9 @@ sub ShowOpGraph {
my ($InpStr, $Int_No)=@_;
my ($rid,$part)=split(/\:/,substr($InpStr,8));
$ConceptData{"Interval"}=$Int_No;
+ #Initialize the option response true answers
my $symb=&InitAnalysis($rid,$students[0]);
+ #compute the intervals
&Interval($rid,$part,$symb);
my $URI = $hash{'src_'.$rid};
my $Src = $hash{'title_'.$rid};
@@ -158,6 +161,7 @@ sub ShowOpGraph {
$r->print('
'.$URI.'');
$r->rflush();
+ #Java script Progress window
&Create_PrgWin();
&Update_PrgWin("Starting to analyze problem");
for (my $index=0;$index<=$#students;$index++) {
@@ -166,9 +170,13 @@ sub ShowOpGraph {
}
&Close_PrgWin();
+ $r->print('
');
for (my $k=0; $k<$Int_No; $k++ ) {
&DrawGraph($k,$Src);
}
+ for (my $k=0; $k<$Int_No; $k++ ) {
+ &DrawTable($k);
+ }
#$Apache::lonxml::debug=1;
#&Apache::lonhomework::showhash(%ConceptData);
#$Apache::lonxml::debug=0;
@@ -177,14 +185,13 @@ sub ShowOpGraph {
}
-sub DrawGraph {
- my ($k,$Src)=@_;
+sub DrawTable {
+ my $k=shift;
my $Max=0;
my @data1;
my @data2;
my $Correct=0;
my $Wrong=0;
- # Adjust Data and find the Max
for (my $n=0; $n<=$#Concepts; $n++ ) {
my $tmp=$Concepts[$n];
$data1[$n]=$ConceptData{"$tmp.$k.true"};
@@ -218,34 +225,57 @@ sub DrawGraph {
"\n"." ".$data2[$n]." | ".
"\n"."";
}
- $Str.=' | From:['.localtime($ConceptData{'Int.'.($k-1)}).
- '] To: ['.localtime($ConceptData{"Int.$k"}).
+ $Str.=' | | 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;
+}
- if ( $Max > 1 ) {
- $Max += (10 - $Max % 10);
- $Max = int($Max);
- } else { $Max = 1; }
+
+sub DrawGraph {
+ my ($k,$Src)=@_;
+ my $Max=0;
+ my @data1;
+ my @data2;
+
+ # 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;}
+ }
+ 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 : $Src;
+
+
+ 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('
');
+ $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';}
@@ -259,6 +289,7 @@ sub AnalyzeProblem {
$Ptr .= ''."\n";
$r->print( $Ptr );
+ #the table of option response problems
$r->print('
Option Response Problems in this course:
');
my $Str = "\n".''.
"\n".''.
@@ -289,6 +320,7 @@ sub AnalyzeProblem {
sub Decide {
+ #deciding the true or false answer belongs to each interval
my ($type,$foil,$time)=@_;
my $k=0;
while ($time>$ConceptData{'Int.'.($k+1)} &&
@@ -297,6 +329,7 @@ sub Decide {
}
+#restore the student submissions and finding the result
sub OpStatus {
my ($rid,$student)=@_;
my ($uname,$udom)=split(/\:/,$student);
@@ -538,7 +571,7 @@ sub StudentReport {
sub CreateTable {
my ($Hd, $Hid)=@_;
- if ($ENV{'form.showcsv'}) {
+ if ($ENV{'form.showcsv'}) {
if ( $Hd == 1 ) {
$r->print('
"'.$hash{'title_'.$Hid}.'","'.$hash{'src_'.$Hid}.'"');
}
@@ -573,6 +606,7 @@ sub CloseTable {
# ------------------------------------------- Prepare Statistics Table
sub PreStatTable {
+
my $CacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
"_$ENV{'user.domain'}_$cid\_statistics.db";
my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
@@ -995,7 +1029,6 @@ sub Build_Statistics {
@list = sort (@list);
-
&Discriminant();
$OpSel2='';
@@ -1135,6 +1168,7 @@ sub Cache_Statistics {
my @list = ();
my $Useful;
my $UnUseful;
+# $r->print(''."\n");
my %myHeader = reverse( %Header );
$Pos = $myHeader{$ENV{'form.sort'}};
if ($Pos > 0) {$Pos++;}
@@ -1295,6 +1329,26 @@ sub initial {
$HWN=$P_Order;
}
+# my $CacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
+# "_$ENV{'user.domain'}_$cid\_classlist.db";
+# if (-e "$CacheDB") {
+# if (tie(%students,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) {
+# &CachClassList();
+# }
+# else {
+# $r->print("Unable to tie hash to db file");
+# }
+# }
+# else {
+# if (tie(%students,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) {
+# &MakeClassList();
+# }
+# else {
+# $r->print("Unable to tie hash to db file");
+# }
+# }
+# untie(%students);
+
sub ClassList {
@@ -1307,34 +1361,40 @@ sub ClassList {
$firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}};
$lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}};
if (($firstres) && ($lastres)) {
- #my %result = &Apache::lonnet::dump('classlist',$sdom,$sname);
+# my %students = &Apache::lonnet::dump('classlist',$cdom,$cnum);
+# $Apache::lonxml::debug=1;
+# &Apache::lonhomework::showhash(%students);
+# $Apache::lonxml::debug=0;
+# my $StudNo = 0;
+# my $now=time;
+# my ($temp)=keys(%students);
+# unless ($temp=~/^error\:/) {
+# foreach my $KeyPoint(sort keys(%students)) {
+
+
my $classlst=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.':classlist',$chome);
+
my $StudNo = 0;
my $now=time;
unless ($classlst=~/^error\:/) {
- foreach (sort split(/\&/,$classlst)) {
- my ($name,$value)=split(/\=/,$_);
+ foreach my $KeyPoint(sort split(/\&/,$classlst)) {
+ my ($name,$value)=split(/\=/,$KeyPoint);
my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value));
- $name=&Apache::lonnet::unescape($name);
- my ($sname,$sdom)=split(/\:/,$name);
my $active=1;
my $Status=$ENV{'form.status'};
$Status = ($Status) ? $Status : 'Active';
if ( ( ($end) && $now > $end ) &&
( ($Status eq 'Active') ) ) { $active=0; }
+
if ( ($Status eq 'Expired') &&
($end == 0 || $now < $end) ) { $active=0; }
+
if ($active) {
my $thisindex=$#students+1;
$name=&Apache::lonnet::unescape($name);
$students[$thisindex]=$name;
my ($sname,$sdom)=split(/\:/,$name);
- #my %reply=&Apache::lonnet::idrget($sdom,$sname);
- #my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
- # ':environment:lastname&generation&firstname&middlename',
- # &Apache::lonnet::homeserver($sname,$sdom));
my $ssec=&usection($sdom,$sname,$cid,$Status);
-# if ($ssec==-1 ) {next;}
if ($ssec==-1 || $ssec eq 'adm' ) {next;}
$ssec=($ssec) ? $ssec : '(none)';
#$ssec=(int($ssec)) ? int($ssec) : $ssec;
@@ -1387,10 +1447,12 @@ sub Title {
$r->rflush();
}
+
sub CreateForm {
$r->print("\n".'