$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"."
"); + $Sum1=0; + $Sum2=0; + $nStud=0; + } + return %Proc; +} + + +#------- Creating Discimination factor +sub Discriminant { + my $Count=0; + foreach (keys(%DiscFac)){ + $Count++; + } + $UpCnt = int(0.27*$Count); + my $low=0; + my $up=$Count-$UpCnt; + my @UpList=(); + my @LowList=(); + $Count=0; + foreach my $key (sort(keys(%DiscFac))){ + $Count++; + #$r->print("
$Count) $key = $DiscFac{$key}"); + if ($low < $UpCnt || $Count > $up) { + $low++; + my $str=$DiscFac{$key}; + foreach(split(/\:/,$str)){ + if ($_) { + if ($low<$UpCnt){push(@LowList,$_);} + else {push(@UpList,$_);} + } + } + } + } + %DisUp=&ProcessDisc(@UpList); + %DisLow=&ProcessDisc(@LowList); +} + + sub NumericSort { $a <=> $b; } @@ -92,9 +501,7 @@ sub StudentReport { 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; @@ -115,11 +522,8 @@ sub StudentReport { "\n".'
"'.$hash{'title_'.$Hid}.'","'.$hash{'src_'.$Hid}.'"'); + } + return; + } + my $ColNo=0; + foreach (keys(%Header)){ + $ColNo++; + } if ( $Hd == 1 ) { -# $Hid=~/(\d+)\.(\d+)/; $r->print('
'.$hash{'title_'.$Hid}.'' -# .' ('.&Apache::lonnet::declutter($hash{'map_id_'.$1}).')' - ); + '" target="_blank">'.$hash{'title_'.$Hid}.''); } my $Result = "\n".'
| P# | '."\n"; - for ( my $nIdx=0; $nIdx < 11; $nIdx++ ) { + for ( my $nIdx=0; $nIdx < $ColNo; $nIdx++ ) { $Result .= ''.''.' | '."\n"; } @@ -232,18 +642,20 @@ sub CreateTable { } sub CloseTable { + if ($ENV{'form.showcsv'}) { + return; + } $r->print("\n".'
|---|
'. - ' #Stdnts: Total Number of Students opened the problem.'; $r->print($Ptr); + + $r->print('Output CSV format: print(' checked'); } + $r->print('>'); + $r->rflush(); if ((-e "$CacheDB")&&($ENV{'form.sort'} ne 'Recalculate Statistics')) { @@ -303,7 +726,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{$_};} @@ -314,11 +736,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); } @@ -328,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; @@ -360,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 = ''; @@ -381,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; } @@ -405,8 +824,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; @@ -415,22 +835,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; @@ -442,7 +862,6 @@ sub ExtractStudentData { $TempHash{"$Part.ParCr"} = ($ParCr) ? $ParCr : 0; $TotalTries += $TempHash{"$Part.Tries"}; $TotParCr += $TempHash{"$Part.ParCr"}; -#$r->print($Version.'---'.$Prob.'==='.$Time.'
'. - ' Tries : Total 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.
'. - ' %Wrng : Percentage of students tried to solve the problem but'. + ' #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.
'. + ' 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.
'. + ' %Wrng : Percentage of students tried to solve the problem but'. ' still incorrect. [ 100*((#Stdnts-(#YES+#yes))/#Stdnts) ]
'. -# ' DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]
'. - ' DoDiff : Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]
'. - ' S.D. : Standard Deviation of the tries.'. +# ' DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]
'. Kashy formula + ' DoDiff : Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]
'. #Gerd formula + ' S.D. : Standard Deviation of the tries.'. '[ sqrt(sum((Xi - Mean)^2)) / (#Stdnts-1)'. ' where Xi denotes every student\'s tries ]
'. - ' Skew. : Skewness of the students tries.'. - ' [ (sqrt( sum((Xi - Mean)^3) / #Stdnts)) / (S.D.^3) ]
'. - -# ' Dis.F. : Discrimination Factor. [ Sum of Partial Credits Awarded / Total Number of Tries in %27 upper and lower students]'. + ' Skew. : Skewness of the students tries.'. + ' [ (sqrt( sum((Xi - Mean)^3) / #Stdnts)) / (S.D.^3) ]
'. + ' Dis.F. : Discrimination Factor: A Standard for '. + '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'. '
'); my $Val = $result{"$Version:$Prob:resource.$Part.solved"}; if ( $Val eq 'correct_by_student' ) { $Wrongs = $Tries - 1; $Code = 'C'; } @@ -461,12 +880,14 @@ sub ExtractStudentData { my $Yes = 0; if ( $TempHash{$part.'.Code'} eq 'C' || $TempHash{$part.'.Code'} eq 'O' ) - {$ProbSolved++;$Yes=1;} -# my $ptr = "$hash{'title_'.$ResId}"; - my $ptr = $TempHash{$part.'.PrOrd'}.':'.$ResId; + {$ProbSolved++;$Yes=1;} + + # my $ptr = "$hash{'title_'.$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; @@ -475,12 +896,12 @@ sub ExtractStudentData { $DisF = sprintf( "%.4f", $Fac ); } else {$DisF = $Fac;} -# $DisF .= '+'.$TempHash{"$part.Time"}; +# $DisF .= '+'.$TempHash{"$part.Time"};33333333 $TimeTot += $TempHash{"$part.Time"}; - $Dis .= $ptr.'*'.$ResId.'='.$DisF.'+'.$Yes; - $ptr .= ":$TempHash{$part.'.Tries'}". - ":$TempHash{$part.'.Wrongs'}". - ":$TempHash{$part.'.Code'}"; + $Dis .= $TempHash{$part.'.PrOrd'}.'='.$DisF.'+'.$Yes; + $ptr .= "&$TempHash{$part.'.Tries'}". + "&$TempHash{$part.'.Wrongs'}". + "&$TempHash{$part.'.Code'}"; push (@list, $ptr); $TotalOpend++; $ProbTot++; @@ -488,31 +909,32 @@ 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++; #} #} } if ( $TotalTries ) { my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0; -# my $DisFactor = int(sprintf( "%.4f", $DisFac ) * 100); my $DisFactor = sprintf( "%.4f", $DisFac ); - my $time; - if ($ProbSolved){ - $time = int(($TimeTot/$ProbSolved)-10000000); - } - $DiscFac{($DisFactor.':'.$sname.':'.$ProbTot.':'.$TotalOpend.':'. - $TotalTries.':'.$ProbSolved.':'.$time)}=$Dis; -#$r->print($DisFactor.$sname.'
--- Dis= '.$Dis.'
'); + $DiscFac{$DisFactor}=$Dis; + #my $time; + #if ($ProbSolved){ + #$time = int(($TimeTot/$ProbSolved)-10000000); + #} + #$DiscFac{($DisFactor.':'.$sname.':'.$ProbTot.':'.$TotalOpend.':'. + # $TotalTries.':'.$ProbSolved.':'.$time)}=$Dis; } } #$r->print($sname.' PrCr= '.$TotParCr.' Slvd= '.$ProbSolved.' Tries='.$TotalTries.'
'); } + # ------------------------------------------------------------ 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}; @@ -524,7 +946,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}; } @@ -539,36 +963,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})){ @@ -589,11 +1030,12 @@ sub MySort { } } -sub Build_Statistics { +sub Create_PrgWin { +#----------- Create progress $r->print(<
Computation Progress
'+ ''. - "\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'};
@@ -1038,21 +1581,13 @@ sub StudentOptions {
$r->rflush();
}
-sub GetStatus {
- $OpSelDis1='';
- $OpSelDis2='';
+sub GetStatus {
$OpSel1='';
$OpSel2='';
$OpSel3='';
$OpSel4='';
-# if ( $ENV{'form.DisType'} eq 'Total Number of Correct Answers' ) {
-# $OpSelDis1='selected';
-# $CurDis=0;
-# }
-# else { $OpSel2 = 'selected'; $CurDis = 1;}
-
if ( $ENV{'form.order'} eq 'Descending' ) { $OpSel2='selected'; }
else { $OpSel1 = 'selected'; }
@@ -1079,7 +1614,7 @@ sub GetStatus {
sub MapSecOptions {
# ----------------------------------- Loading the Maps Combobox
my $Ptr = ''; - $Ptr .= '
'; + $Ptr .= ''; $Ptr .= '
Select Map '."\n". '