$Count) $date: $who --> $resource"); + $r->rflush(); + if ($post) { + $r->print("
Sent data ".join(':',unescape(@posts)).''); + } + } +} + + + +sub InitAnalysis { + my ($rid, $student)=@_; + my ($uname,$udom)=split(/\:/,$student); + $rid=~/(\d+)\.(\d+)/; + my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. + &Apache::lonnet::declutter($hash{'src_'.$rid}); + my $URI = $hash{'src_'.$rid}; + my $Answ=&Apache::lonnet::ssi($URI,('grade_target' => 'analyze', + 'grade_username' => $uname, + 'grade_domain' => $udom, + 'grade_courseid' => $cid, + 'grade_symb' => $symb)); +# my $Answ=&Apache::lonnet::ssi($URI,('grade_target' => 'analyze')); + + (my $garbage,$Answ)=split(/_HASH_REF__/,$Answ,2); + %Answer=(); + %Answer=&Apache::lonnet::str2hash($Answ); + + my $parts=''; + foreach my $elm (@{$Answer{"parts"}}) { + $parts.="$elm,"; + } + chop($parts); + my $conc=''; + foreach my $elm (@{$Answer{"$parts.concepts"}}) { + $conc.="$elm@"; + } + chop($conc); + + @Concepts=split(/\@/,$conc); + 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; +} + + +sub Interval { + my ($rid,$part,$symb)=@_; + my $Int=$ConceptData{"Interval"}; + my $due = &Apache::lonnet::EXT('resource.$part.duedate',$symb)+1; + my $opn = &Apache::lonnet::EXT('resource.$part.opendate',$symb); + my $add=int(($due-$opn)/$Int); + $ConceptData{"Int.0"}=$opn; + for (my $i=1;$i<$Int;$i++) { + $ConceptData{"Int.$i"}=$opn+$i*$add; + } + $ConceptData{"Int.$Int"}=$due; + for (my $i=0;$i<$Int;$i++) { + for (my $n=0; $n<=$#Concepts; $n++ ) { + my $tmp=$Concepts[$n]; + $ConceptData{"$tmp.$i.true"}=0; + $ConceptData{"$tmp.$i.false"}=0; + } + } +} + + +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}; + $Src =~ s/\ /"_"/eg; + $r->print('
'.$URI.''); + $r->rflush(); + + #Java script Progress window + &Create_PrgWin(); + &Update_PrgWin("Starting to analyze problem"); + for (my $index=0;$index<=$#students;$index++) { + &Update_PrgWin($index); + &OpStatus($rid,$students[$index]); + } + &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; + my $Answ=&Apache::lonnet::ssi($URI); + $r->print("
Here you can see the Problem:
$Answ"); +} + + +sub DrawTable { + my $k=shift; + my $Max=0; + my @data1; + my @data2; + my $Correct=0; + my $Wrong=0; + for (my $n=0; $n<=$#Concepts; $n++ ) { + my $tmp=$Concepts[$n]; + $data1[$n]=$ConceptData{"$tmp.$k.true"}; + $Correct+=$data1[$n]; + $data2[$n]=$ConceptData{"$tmp.$k.false"}; + $Wrong+=$data2[$n]; + 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; +# $r->print('
From: ['.localtime($ConceptData{'Int.'.($k-1)}). +# '] To: ['.localtime($ConceptData{"Int.$k"}).']'); + my $Str = "\n".'
| # | '. + "\n".'Concept | '. + "\n".'Correct | '. + "\n".'Wrong | '. + "\n".'
|---|---|---|---|
| ".($n+1)." | ". + "\n"."".$Concepts[$n]." | ". + "\n"."".$data1[$n]." | ". + "\n"."".$data2[$n]." | ". + "\n"."From:['.localtime($ConceptData{'Int.'.$k}). + '] To: ['.localtime($ConceptData{'Int.'.($k+1)}-1). + "] | $Correct | $Wrong | "; + + $Str .= "\n".'
');
+}
+
+
+sub AnalyzeProblem {
+ # selecting the number of intervals
+ my $OpSel='';
+ my $CurInt = $ENV{'form.interval'};
+ if ($CurInt eq '') {$CurMap = '1';}
+ my $Ptr = 'Select number of intervals'."\n". + ''."\n"; + $r->print( $Ptr ); + + #the table of option response problems + $r->print('
Option Response Problems in this course:
'); + my $Str = "\n".'
| # | '. + "\n".'Problem Title | '. + "\n".'Resource | '. + "\n".'Address | '. + "\n".'
|---|---|---|---|
| $P_No | ". + "\n"."".$Temp." | ". + "\n"."".$hash{'src_'.$rid}." | ". + "\n"."".''.' | '. + "\n"."
"); +# $r->print("$nIdx) $Temp --> ($nStud) $Proc{$Temp}
"); $Sum1=0; $Sum2=0; $nStud=0; @@ -158,17 +495,13 @@ sub NumericSort { # ------ Create different Student Report sub StudentReport { - my ($sname,$sdom)=@_; - if ( $sname eq 'All Students' ) { $r->print( '
WARNING: Please select a student
' ); return; } - my $shome=&Apache::lonnet::homeserver($sname,$sdom); - my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname.':'.$cid,$shome ); - my %result = (); + my %result = &Apache::lonnet::dump($cid,$sdom,$sname); my $ResId; my $PrOrd; my $Code; @@ -189,11 +522,8 @@ sub StudentReport { "\n".'"'.$hash{'title_'.$Hid}.'","'.$hash{'src_'.$Hid}.'"'); + } + return; + } my $ColNo=0; foreach (keys(%Header)){ $ColNo++; } - my ($Hd, $Hid)=@_; if ( $Hd == 1 ) { $r->print('
'.$hash{'title_'.$Hid}.''); @@ -307,12 +642,16 @@ sub CreateTable { } sub CloseTable { + if ($ENV{'form.showcsv'}) { + return; + } $r->print("\n".''."\n"); $r->rflush(); } # ------------------------------------------- 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'}". @@ -345,7 +684,7 @@ sub PreStatTable { $Ptr .= '
'.
' #Stdnts: Total Number of Students opened the problem.
'.
' Tries : Total Number of Tries for solving the problem.
'.
- ' Mod : Maximunm Number of Tries for solving the problem.
'.
+ ' Mod : Maximunm Number of Tries for solving the problem.
'.
' Mean : Average Number of the tries. [ Tries / #Stdnts ]
'.
' #YES : Number of students solved the problem correctly.
'.
' #yes : Number of students solved the problem by override.
'.
@@ -362,13 +701,18 @@ sub PreStatTable {
'evaluating the problem according to a Criterion
'.
' [Applied Criterion in %27 Upper Students - '.
'Applied the same Criterion in %27 Lower Students]
'.
- ' 1st Criterion for Sorting the Students: '.
- 'Sum of Partial Credit Awarded / Total Number of Tries
'.
- ' 2nd Criterion for Sorting the Students: '.
- 'Total number of Correct Answers / Total Number of Tries'.
+ ' 1st Criterion for Sorting the Students: '.
+ 'Sum of Partial Credit Awarded / Total Number of Tries
'.
+ ' 2nd Criterion for Sorting the Students: '.
+ 'Total number of Correct Answers / Total Number of Tries'.
'';
$r->print($Ptr);
+
+ $r->print('Output CSV format: print(' checked'); }
+ $r->print('>');
+
$r->rflush();
if ((-e "$CacheDB")&&($ENV{'form.sort'} ne 'Recalculate Statistics')) {
@@ -393,24 +737,7 @@ sub PreStatTable {
}
}
-#33333
-# my $c=0;
-# foreach (sort keys %OpResp) {
-# $r->print(''.$c.$_.' ====== '.$OpResp{$_}); -# my $count=$#students+1; -# for (my $n=0;$n<1;$n++){ -# my ($sname,$sdom)=$students[$n]; -# my $Prob=$OpResp{$_}; -##my $userview=&Apache::lonnet::ssi($hash{'src_'.$ResId}); -# $r->print('
'.$Prob.$sname.$sdom.$cid. -# '
'.&Apache::loncommon::get_previous_attempt($Prob,$sname,$sdom,$cid)); -# #$r->print('
'.$Prob.$sname. ' *** '.&Apache::lonnet::ssi($hash{'src_'.$Prob})); -# } -# $c++; -# } - - #$r->print('Total instances of the problems : '.($p_count*($#students+1))); - +# $r->print('Total instances of the problems : '.($p_count*($#students+1))); untie(%CachData); untie(%GraphDat); } @@ -422,15 +749,18 @@ sub usection { my ($udom,$unam,$courseid,$ActiveFlag)=@_; $courseid=~s/\_/\//g; $courseid=~s/^(\w)/\/$1/; - foreach (split(/\&/,&Apache::lonnet::reply('dump:'. - $udom.':'.$unam.':roles', - &Apache::lonnet::homeserver($unam,$udom)))){ - my ($key,$value)=split(/\=/,$_); - $key=&Apache::lonnet::unescape($key); + + my %result=&Apache::lonnet::dump('roles',$udom,$unam); + my ($checkForResult)=keys(%result); + if ($checkForResult=~/^(con_lost|error|no_such_host)/i) { + return -1; + } + foreach my $key (keys (%result)) { + my $value=$result{$key}; if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) { my $section=$1; if ($key eq $courseid.'_st') { $section=''; } - my ($dummy,$end,$start)=split(/\_/,&Apache::lonnet::unescape($value)); + my ($dummy,$end,$start)=split(/\_/,$value); if ( $ActiveFlag ne 'Any' ) { my $now=time; my $notactive=0; @@ -454,13 +784,10 @@ sub usection { # ------ Dump the Student's DB file and handling the data for statistics table - sub ExtractStudentData { - my ($student,$coid)=@_; + my $student=shift; my ($sname,$sdom) = split( /\:/, $student ); - my $shome=&Apache::lonnet::homeserver( $sname,$sdom ); - my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname.':'.$coid,$shome ); - my %result = (); + my %result = &Apache::lonnet::dump($cid,$sdom,$sname); my $ResId; my $PrOrd; my $Dis = ''; @@ -475,22 +802,20 @@ sub ExtractStudentData { my $TotParCr = 0; my $Wrongs; my %TempHash; - my $Version; + my $Version; my $LatestVersion; my $SecLimit; my $MapLimit; - unless ($reply=~/^error\:/) { - foreach (split(/\&/,$reply)) { - my ($name,$value)=split(/\=/,&Apache::lonnet::unescape($_)); - $result{$name}=$value; - } + my ($temp)=keys(%result); + unless ($temp=~/^(con_lost|error|no_such_host)/i) { foreach my $CurCol(@cols) { ($PrOrd,$ResId)=split(/\:/,$CurCol); if ( !$CurCol ) { next; } $ResId=~/(\d+)\.(\d+)/; my $MapId=$1; my $PrbId=$2; - my $Map = &Apache::lonnet::declutter( $hash{'map_id_'.$MapId} ); + my $MapOrg = $hash{'map_id_'.$MapId}; + my $Map = &Apache::lonnet::declutter($MapOrg); if ( $CurMap ne 'All Maps' ) { my ( $ResMap, $NameMap ) = split(/\=/,$CurMap); if ( $Map ne $ResMap ) { next; } @@ -510,29 +835,22 @@ sub ExtractStudentData { $TempHash{"$Part.PrOrd"} = $PrOrd+$PartNo; $PartNo++; } - my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); + #my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); } } - + &Apache::lonnet::declutter( $hash{'src_'.$ResId} ); + my $URI = $hash{'src_'.$ResId}; my $Prob = $Map.'___'.$PrbId.'___'. - &Apache::lonnet::declutter( $hash{'src_'.$ResId} ); - $OpResp{$PrOrd}=$Prob; + &Apache::lonnet::declutter($URI); $Code='U'; $Tries = 0; $ParCr = 0; $Wrongs = 0; - $LatestVersion = $result{"version:$Prob"}; - + $LatestVersion = $result{"version:$Prob"}; if ( $LatestVersion ) { -#333333333 -#my $userview=&Apache::lonnet::ssi($hash{'src_'.$ResId}); -#$r->print('
'.$userview); -#$r->print('
'.$Prob.$sname.$sdom.$coid.'
'.&get_student_answers($Prob,$sname,$sdom,$coid)); - for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) { my $vkeys = $result{"$Version:keys:$Prob"}; my @keys = split(/\:/,$vkeys); - foreach my $Key (@keys) { if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) { my $Part = $1; @@ -578,7 +896,7 @@ sub ExtractStudentData { $DisF = sprintf( "%.4f", $Fac ); } else {$DisF = $Fac;} -# $DisF .= '+'.$TempHash{"$part.Time"}; +# $DisF .= '+'.$TempHash{"$part.Time"};33333333 $TimeTot += $TempHash{"$part.Time"}; $Dis .= $TempHash{$part.'.PrOrd'}.'='.$DisF.'+'.$Yes; $ptr .= "&$TempHash{$part.'.Tries'}". @@ -612,6 +930,7 @@ sub ExtractStudentData { } + # ------------------------------------------------------------ Build page table sub tracetable { my ($rid,$beenhere)=@_; @@ -644,29 +963,29 @@ sub tracetable { my $meta=$hash{'src_'.$frid}; my $PartNo = 0; - if ($IsMap==0){ + my $Part; + # if ($IsMap==0){ if ($meta) { if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) { foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { if ($_=~/^stores\_(\w+)\_tries$/) { - &Apache::lonnet::metadata($meta,$_.'.part'); + $Part=&Apache::lonnet::metadata($meta,$_.'.part'); $P_Order++; $mapsort{$HWN} .= '&'.$P_Order; $PartNo++; #$r->print('
'.$PartNo.'---'.$P_Order); } - } - foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) { - if ($_=~/^optionresponse\_(\w+)\_(\w+)$/) { -# $r->print('
'.$_.&Apache::lonnet::metadata($meta,$_)); - $r->print('
'.$_.'...'.$P_Order); - $OpResp{$P_Order+1}=$frid; - } + foreach my $K(split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) { + if ($K=~/^optionresponse\_($Part)\_(\w+)$/) { + #$r->print('
'.$_.'...'.$P_Order.'---'.$Part); + $OpResp{$P_Order}="$frid:$Part"; + } + } } } } } - } + # } } else { $cols[$#cols+1]=($P_Order+1).':'.$rid; my $meta=$hash{'src_'.$rid}; @@ -682,7 +1001,7 @@ sub tracetable { foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) { if ($_=~/^optionresponse\_($Part)\_(\w+)$/) { #$r->print('
'.$_.'...'.$P_Order.'---'.$Part); - $OpResp{$P_Order+1}=$rid; + $OpResp{$P_Order}="$rid:$Part";; } } @@ -711,7 +1030,8 @@ sub MySort { } } -sub Build_Statistics { +sub Create_PrgWin { +#----------- Create progress $r->print(<
'. + "\n".'"'.($RealIdx+1).'",'. + "\n".'"'.$hash{'title_'.$ResId}.$Dummy.'",'. + "\n".'"'.$hash{'src_'.$ResId}.'",'. + "\n".'"'.$StdNo.'",'. + "\n".'"'.$TotalTries.'",'. + "\n".'"'.$MxTries.'",'. + "\n".'"'.$Avg.'",'. + "\n".'"'.$YES.'",'. + "\n".'"'.$Override.'",'. + "\n".'"'.$Wrng.'",'. + "\n".'"'.$DoD.'",'. + "\n".'"'.$SD.'",'. + "\n".'"'.$Sk.'",'. + "\n".'"'.$_D1.'",'. + "\n".'"'.$_D2.'"'; + $r->print("\n".$Ptr); + } + else{ + my $Ptr = "\n".'
Could not access course data
'); + } else { + foreach my $name (keys (%classlist)) { + my $value=$classlist{$name}; + my ($end,$start)=split(/\:/,$value); my $active=1; my $Status=$ENV{'form.status'}; $Status = ($Status) ? $Status : 'Active'; if ( ( ($end) && $now > $end ) && - ( ($Status eq 'Active') ) ) { $active=0; } + ( ($Status eq 'Active') ) ) { $active=0; } if ( ($Status eq 'Expired') && - ($end == 0 || $now < $end) ) { $active=0; } + ($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; $section{$ssec}=$ssec; @@ -1073,12 +1453,10 @@ sub ClassList { $StuBox{$sname}=$sdom; } $StudNo++; - } + } } } - else { - $r->print('Could not access course data
'); - } + $r->print("Total number of students : ".($#students+1)); $r->rflush(); # --------------- Find all assessments and put them into some linear-like order @@ -1088,66 +1466,98 @@ sub ClassList { # $r->print(''.$c.')'.$_.' ... '.$mapsort{$_}); # $c++; # } +# my $c=1; +# foreach (sort keys %OpResp) { +# $r->print('
'.$c.')'.$_.' ... '.$OpResp{$_}.' ... '.$hash{'src_'.$OpResp{$_}}); +# $c++; +# } + } # ------------------------------------------------------------- End render page else { $r->print('
Undefined course sequence
'); } - &MapSecOptions(); } -sub Menu { - my $InpStr = $ENV{'form.sort'}; - if ( $InpStr eq 'DoDiff Graph' || $InpStr eq '%Wrong Graph' ) { - &GetGraphData($InpStr); - $r->print('');
- }
- else {
- $r->print('
');
+sub Title {
+ $r->print('');
# ---------------------------------------------------------------- Course title
- $r->print('Course : "'. - $ENV{'course.'.$ENV{'request.course.id'}. - '.description'}.'"
'.localtime().'
'); + $r->print('Course : "'. + $ENV{'course.'.$ENV{'request.course.id'}. + '.description'}.'"
'.localtime().'
'); # ------------------------------- This is going to take a while, produce output - $r->rflush(); + $r->rflush(); +} - $r->print("\n".''. - "\n".''. - "\n".''); - $r->rflush(); } } + +sub Menu { + &initial(); +# $Apache::lonxml::debug=1; +# &Apache::lonhomework::showhash(%ENV); +# $Apache::lonxml::debug=0; + &Title(); + my $InpStr = $ENV{'form.sort'}; + if ($InpStr eq 'Activity Log') { + &Activity(); + } + elsif ($InpStr=~/^Analyze\_/) { + &ClassList(); + &ShowOpGraph($InpStr,$ENV{'form.interval'}); + } + elsif ( $InpStr eq 'DoDiff Graph' || $InpStr eq '%Wrong Graph' ) { + &GetGraphData($InpStr); + $r->print('');
+ }
+ else {
+ &CreateForm();
+ $r->print("\n".'');
+ }
+ $r->print("\n".''.
+ "\n".'');
+ $r->rflush();
+}
+
+
sub StudentOptions {
my $OpSel5='';
$CurStu = $ENV{'form.student'};
@@ -1171,6 +1581,7 @@ sub StudentOptions {
$r->rflush();
}
+
sub GetStatus {
$OpSel1='';
$OpSel2='';
@@ -1203,7 +1614,7 @@ sub GetStatus {
sub MapSecOptions {
# ----------------------------------- Loading the Maps Combobox
my $Ptr = ''; - $Ptr .= '
'; + $Ptr .= ''; $Ptr .= '
Select Map '."\n". '