version 1.36, 2002/11/12 19:52:46
|
version 1.40, 2003/02/25 20:47:47
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# (Publication Handler |
|
# |
# |
# $Id$ |
# $Id$ |
# |
# |
Line 185 sub BuildProblemStatisticsPage {
|
Line 184 sub BuildProblemStatisticsPage {
|
$Ptr .= '<td align="left">'."\n"; |
$Ptr .= '<td align="left">'."\n"; |
my @sections = split(':',$cache{'sectionList'}); |
my @sections = split(':',$cache{'sectionList'}); |
my @sectionsSelected = split(':',$cache{'sectionsSelected'}); |
my @sectionsSelected = split(':',$cache{'sectionsSelected'}); |
$Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections, |
$Ptr .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
\@sectionsSelected, |
|
'Statistics'); |
|
$Ptr .= '</td></tr>'."\n"; |
$Ptr .= '</td></tr>'."\n"; |
$Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'}, |
$Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'}, |
$cache{'DisplayLegend'}, |
$cache{'DisplayLegend'}, |
Line 222 sub BuildGraphicChart {
|
Line 219 sub BuildGraphicChart {
|
my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_; |
my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_; |
my %cache; |
my %cache; |
my $max; |
my $max; |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
|
return 'Unable to tie database.7'; |
|
} |
|
|
|
my $title = ''; |
my $title = ''; |
if($graph eq 'DoDiffGraph') { |
if($graph eq 'DoDiffGraph') { |
Line 244 sub BuildGraphicChart {
|
Line 238 sub BuildGraphicChart {
|
|
|
my @values = (); |
my @values = (); |
|
|
|
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
|
return 'Unable to tie database.7'; |
|
} |
|
|
foreach(@$orderedProblems) { |
foreach(@$orderedProblems) { |
my ($sequence,$problem,$part)=split(':', $_); |
my ($sequence,$problem,$part)=split(':', $_); |
if($cache{'StatisticsMaps'} ne 'All Maps' && |
if($cache{'StatisticsMaps'} ne 'All Maps' && |
Line 299 sub DrawGraph {
|
Line 297 sub DrawGraph {
|
#(10 - $Max % 10); |
#(10 - $Max % 10); |
} else { $Max = 1; } |
} else { $Max = 1; } |
|
|
# my @GData = ($courseDescription, 'Problem_number', |
|
# $title, $Max, $sendCount, $sendValues); |
|
my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues); |
my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues); |
|
|
# $r->print('</form>'."\n"); |
# $r->print('</form>'."\n"); |
$r->print('<br>'."\n"); |
$r->print('<br>'."\n"); |
$r->print('<IMG src="/cgi-bin/graph.gif?'. |
$r->print('<IMG src="/cgi-bin/graph.png?'. |
(join('&', @GData)).'" border="1" />'); |
(join('&', @GData)).'" border="1" />'); |
# $r->print('<form>'."\n"); |
# $r->print('<form>'."\n"); |
$r->print('<br>'."\n"); |
$r->print('<br>'."\n"); |
Line 659 sub ExtractStudentData {
|
Line 655 sub ExtractStudentData {
|
|
|
sub SortDivideByTries { |
sub SortDivideByTries { |
my ($toSort, $data, $sortOn)=@_; |
my ($toSort, $data, $sortOn)=@_; |
my @orderedData = sort { ($data->{$a.':totalTries'}) ? |
my @orderedData = sort { ($data->{$a.':totalTries'}) ? |
($data->{$a.$sortOn}/$data->{$a.':totalTries'}):0 |
($data->{$a.$sortOn}/$data->{$a.':totalTries'}):0 |
<=> |
<=> |
($data->{$b.':totalTries'}) ? |
($data->{$b.':totalTries'}) ? |