$Count) $date: $who --> $res"); + if ($post) { + $Count++; + $r->print("
$Count) Sent data ".join(':', + &Apache::lonnet::unescape(@posts)).''); + } + $r->rflush(); + # } + ## push (@allaccess,unescape($access)); + #print $machine; + } + } +# @allaccess=sort(@allaccess); +# $Count=0; +# foreach my $access (@allaccess) { +# my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access); +# $Count++; +# $r->print("
$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; @@ -155,17 +503,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; @@ -186,11 +530,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}.''); @@ -303,18 +650,20 @@ 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'}". "_$ENV{'user.domain'}_$cid\_graph.db"; - my $CachDisFac = "/home/httpd/perl/tmp/$ENV{'user.name'}". - "_$ENV{'user.domain'}_$cid\_DiscFactor.db"; my $OpSel11=''; my $OpSel12=''; my $OpSel13=''; @@ -343,7 +692,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.
'.
@@ -360,18 +709,22 @@ 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')) {
if (tie(%CachData,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) {
- tie(%DiscFac,'GDBM_File',$CachDisFac,&GDBM_READER,0640);
tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640);
&Cache_Statistics();
}
@@ -381,7 +734,6 @@ sub PreStatTable {
}
else {
if (tie(%CachData,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) {
- tie(%DiscFac,'GDBM_File',$CachDisFac,&GDBM_WRCREAT,0640);
tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640);
foreach (keys %DiscFac) {delete $CachData{$_};}
foreach (keys %CachData) {delete $CachData{$_};}
@@ -392,11 +744,10 @@ sub PreStatTable {
$r->print("Unable to tie hash to db file");
}
}
- #$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);
- untie(%DiscFac);
}
@@ -406,15 +757,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;
@@ -438,13 +792,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 = '';
@@ -459,22 +810,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; }
@@ -483,8 +832,9 @@ sub ExtractStudentData {
my $PartNo = 0;
$Dis .= ':';
undef %TempHash;
- foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {
- if ($_=~/^stores\_(\d+)\_tries$/) {
+
+ foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {
+ if ($_=~/^stores\_(\w+)\_tries$/) {
my $Part=&Apache::lonnet::metadata($meta,$_.'.part');
if ( $TempHash{"$Part"} eq '' ) {
$TempHash{"$Part"} = $Part;
@@ -493,22 +843,22 @@ sub ExtractStudentData {
$TempHash{"$Part.PrOrd"} = $PrOrd+$PartNo;
$PartNo++;
}
+ #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} );
+ &Apache::lonnet::declutter($URI);
$Code='U';
$Tries = 0;
$ParCr = 0;
$Wrongs = 0;
- $LatestVersion = $result{"version:$Prob"};
-
+ $LatestVersion = $result{"version:$Prob"};
if ( $LatestVersion ) {
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;
@@ -520,7 +870,6 @@ sub ExtractStudentData {
$TempHash{"$Part.ParCr"} = ($ParCr) ? $ParCr : 0;
$TotalTries += $TempHash{"$Part.Tries"};
$TotParCr += $TempHash{"$Part.ParCr"};
-#$r->print($Version.'---'.$Prob.'==='.$Time.''); my $Val = $result{"$Version:$Prob:resource.$Part.solved"}; if ( $Val eq 'correct_by_student' ) { $Wrongs = $Tries - 1; $Code = 'C'; } @@ -542,11 +891,11 @@ sub ExtractStudentData { {$ProbSolved++;$Yes=1;} # my $ptr = "$hash{'title_'.$ResId}"; - my $ptr = $TempHash{$part.'.PrOrd'}.':'.$ResId; + my $ptr = $TempHash{$part.'.PrOrd'}.'&'.$ResId; if ( $PartNo > 1 ) { $ptr .= "*(part $part)"; - $Dis .= ':'; + $Dis .= '&'; } my $Fac = ($TempHash{"$part.Tries"}) ? ($TempHash{"$part.ParCr"}/$TempHash{"$part.Tries"}) : 0; @@ -555,12 +904,12 @@ 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'}". - ":$TempHash{$part.'.Wrongs'}". - ":$TempHash{$part.'.Code'}"; + $ptr .= "&$TempHash{$part.'.Tries'}". + "&$TempHash{$part.'.Wrongs'}". + "&$TempHash{$part.'.Code'}"; push (@list, $ptr); $TotalOpend++; $ProbTot++; @@ -568,7 +917,7 @@ sub ExtractStudentData { } #else { #for(my $n=0; $n<$PartNo; $n++) { - # push (@list, "$hash{'title_'.$ResId}*$ResId:0:0:U"); + # push (@list, "$TempHash{'0'.'.PrOrd'}.':'.$ResId:0:0:U"); # $ProbTot++; #} #} @@ -589,9 +938,11 @@ sub ExtractStudentData { } + # ------------------------------------------------------------ Build page table sub tracetable { my ($rid,$beenhere)=@_; + my $IsMap=0; $rid=~/(\d+)\.(\d+)/; $maps{&Apache::lonnet::declutter($hash{'map_id_'.$1})}='';#$hash{'title_'.$rid}; #$maps{$HWN}=$hash{'title_'.$rid}; @@ -603,7 +954,9 @@ sub tracetable { $cols[$#cols+1]=0; $P_Order++; $HWN=$P_Order; - $mapsort{$HWN} = $rid.':'; + $mapsort{$HWN} = $rid.':'; + $IsMap=1; + #$maps{&Apache::lonnet::declutter($hash{'src_'.$rid})}= # $hash{'title_'.$rid}; } @@ -618,36 +971,53 @@ sub tracetable { my $meta=$hash{'src_'.$frid}; my $PartNo = 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\_(\d+)\_tries$/) { - &Apache::lonnet::metadata($meta,$_.'.part'); + if ($_=~/^stores\_(\w+)\_tries$/) { + $Part=&Apache::lonnet::metadata($meta,$_.'.part'); $P_Order++; $mapsort{$HWN} .= '&'.$P_Order; $PartNo++; - $r->print('
'.$PartNo.'---'.$P_Order); + #$r->print('
'.$PartNo.'---'.$P_Order); + } + 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}; my $PartNo = 0; - if ($meta) { + if ($meta) { if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) { - foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { - if ($_=~/^stores\_(\d+)\_tries$/) { - &Apache::lonnet::metadata($meta,$_.'.part'); + foreach my $Key(split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { + if ($Key=~/^stores\_(\w+)\_tries$/) { + my $Part=&Apache::lonnet::metadata($meta,$Key.'.part'); $P_Order++; $mapsort{$HWN} .= '&'.$P_Order; $PartNo++; + foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) { + if ($_=~/^optionresponse\_($Part)\_(\w+)$/) { + #$r->print('
'.$_.'...'.$P_Order.'---'.$Part); + $OpResp{$P_Order}="$rid:$Part";; + } + + } + } } } - } + } } if (defined($hash{'to_'.$rid})) { foreach (split(/\,/,$hash{'to_'.$rid})){ @@ -668,7 +1038,8 @@ sub MySort { } } -sub Build_Statistics { +sub Create_PrgWin { +#----------- Create progress $r->print(<
'.$Pre.'---'.$Post); &TableRow($Post,$i,$nIdx); $nIdx++; } @@ -878,7 +1263,7 @@ sub Cache_Statistics { else { &CreateTable(0); for ( my $nIdx = 0; $nIdx < $p_count; $nIdx++ ) { - my($Pre, $Post) = split(/\&/,$list[$nIdx]); + my($Pre, $Post) = split(/\@/,$list[$nIdx]); &TableRow($Post,$nIdx,$nIdx); } &CloseTable(); @@ -887,31 +1272,54 @@ sub Cache_Statistics { sub TableRow { my ($Str,$Idx,$RealIdx)=@_; - my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES, - $Override,$Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\:/,$Str); - $r->print( "\n".'
'. + "\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; @@ -1021,12 +1482,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 @@ -1036,70 +1495,97 @@ 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'};
@@ -1123,6 +1609,7 @@ sub StudentOptions {
$r->rflush();
}
+
sub GetStatus {
$OpSel1='';
$OpSel2='';
@@ -1155,7 +1642,7 @@ sub GetStatus {
sub MapSecOptions {
# ----------------------------------- Loading the Maps Combobox
my $Ptr = ''; - $Ptr .= '
'; + $Ptr .= ''; $Ptr .= '
Select Map '."\n". '