version 1.8, 2002/03/06 23:56:13
|
version 1.9, 2002/03/07 00:05:21
|
Line 558 sub ExtractStudentData {
|
Line 558 sub ExtractStudentData {
|
# $DisF .= '+'.$TempHash{"$part.Time"}; |
# $DisF .= '+'.$TempHash{"$part.Time"}; |
$TimeTot += $TempHash{"$part.Time"}; |
$TimeTot += $TempHash{"$part.Time"}; |
$Dis .= $TempHash{$part.'.PrOrd'}.'='.$DisF.'+'.$Yes; |
$Dis .= $TempHash{$part.'.PrOrd'}.'='.$DisF.'+'.$Yes; |
|
|
#$r->print('<br>'.$DisFactor,'###',$DiscFac{$DisFactor}); |
|
$ptr .= ":$TempHash{$part.'.Tries'}". |
$ptr .= ":$TempHash{$part.'.Tries'}". |
":$TempHash{$part.'.Wrongs'}". |
":$TempHash{$part.'.Wrongs'}". |
":$TempHash{$part.'.Code'}"; |
":$TempHash{$part.'.Code'}"; |
Line 579 sub ExtractStudentData {
|
Line 577 sub ExtractStudentData {
|
my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0; |
my $DisFac = ( $TotalTries ) ? ($TotParCr/$TotalTries) : 0; |
my $DisFactor = sprintf( "%.4f", $DisFac ); |
my $DisFactor = sprintf( "%.4f", $DisFac ); |
$DiscFac{$DisFactor}=$Dis; |
$DiscFac{$DisFactor}=$Dis; |
#$r->print('<br>'.$DisFactor,'###',$DiscFac{$DisFactor}); |
|
#my $time; |
#my $time; |
#if ($ProbSolved){ |
#if ($ProbSolved){ |
#$time = int(($TimeTot/$ProbSolved)-10000000); |
#$time = int(($TimeTot/$ProbSolved)-10000000); |
Line 1010 sub ClassList {
|
Line 1007 sub ClassList {
|
$name=&Apache::lonnet::unescape($name); |
$name=&Apache::lonnet::unescape($name); |
$students[$thisindex]=$name; |
$students[$thisindex]=$name; |
my ($sname,$sdom)=split(/\:/,$name); |
my ($sname,$sdom)=split(/\:/,$name); |
|
|
#my %reply=&Apache::lonnet::idrget($sdom,$sname); |
#my %reply=&Apache::lonnet::idrget($sdom,$sname); |
#my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
#my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
# ':environment:lastname&generation&firstname&middlename', |
# ':environment:lastname&generation&firstname&middlename', |
Line 1019 sub ClassList {
|
Line 1015 sub ClassList {
|
if ($ssec==-1) {next;} |
if ($ssec==-1) {next;} |
$ssec=($ssec) ? $ssec : '(none)'; |
$ssec=($ssec) ? $ssec : '(none)'; |
#$ssec=(int($ssec)) ? int($ssec) : $ssec; |
#$ssec=(int($ssec)) ? int($ssec) : $ssec; |
#$r->print($sname.'...'.$ssec.'<br>'); |
|
$section{$ssec}=$ssec; |
$section{$ssec}=$ssec; |
if ($CurSec eq 'All Sections' || $ssec eq $CurSec) { |
if ($CurSec eq 'All Sections' || $ssec eq $CurSec) { |
$students[$StudNo]=$name; |
$students[$StudNo]=$name; |
Line 1036 sub ClassList {
|
Line 1031 sub ClassList {
|
$r->rflush(); |
$r->rflush(); |
# --------------- Find all assessments and put them into some linear-like order |
# --------------- Find all assessments and put them into some linear-like order |
&tracetable($firstres,'&'.$lastres.'&'); |
&tracetable($firstres,'&'.$lastres.'&'); |
|
|
# my $c=0; |
# my $c=0; |
# foreach (sort keys %mapsort) { |
# foreach (sort keys %mapsort) { |
# $r->print('<br>'.$c.')'.$_.' ... '.$mapsort{$_}); |
# $r->print('<br>'.$c.')'.$_.' ... '.$mapsort{$_}); |
# $c++; |
# $c++; |
# } |
# } |
#foreach(@cols) { |
|
# $c++; |
|
# $r->print('<br>'.$cols[$c]); |
|
#} |
|
#$r->print('<br> Count = '.$c); |
|
|
|
} |
} |
|
|
# ------------------------------------------------------------- End render page |
# ------------------------------------------------------------- End render page |