[BACK]Return to lonproblemstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.35 and 1.36

version 1.35, 2002/11/01 22:09:39 version 1.36, 2002/11/12 19:52:46
Line 35 Line 35
 #  #
 ###  ###
   
 package Apache::lonproblemstatistics;   package Apache::lonproblemstatistics;
   
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet();
Line 221  sub BuildProblemStatisticsPage { Line 221  sub BuildProblemStatisticsPage {
 sub BuildGraphicChart {  sub BuildGraphicChart {
     my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_;      my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_;
     my %cache;      my %cache;
     my $max = 0;      my $max;
     unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
         return 'Unable to tie database.7';          return 'Unable to tie database.7';
     }      }
Line 258  sub BuildGraphicChart { Line 258  sub BuildGraphicChart {
  &DrawGraph(\@values,$courseDescription,$title,$max,$r);   &DrawGraph(\@values,$courseDescription,$title,$max,$r);
     }      }
             if($sortProblems eq 'Sort Within Sequence') {              if($sortProblems eq 'Sort Within Sequence') {
                 $r->print('<b>'.$cache{$sequence.':title'}.'</b>');                  $r->print('<br><b>'.$cache{$sequence.':title'}.'</b>'."\n");
             }              }
   
             $currentSequence = $sequence;              $currentSequence = $sequence;
             @values = ();              @values = ();
       $max=0;
         }          }
         my $data = 0;          my $data = 0;
         if($graph eq 'DoDiffGraph') {          if($graph eq 'DoDiffGraph') {
Line 287  sub DrawGraph { Line 288  sub DrawGraph {
     my ($values,$courseDescription,$title,$Max,$r)=@_;      my ($values,$courseDescription,$title,$Max,$r)=@_;
     my $sendValues = join(',', @$values);      my $sendValues = join(',', @$values);
     my $sendCount = scalar(@$values);      my $sendCount = scalar(@$values);
       $r->print("<br>The Maximum Value is: $Max");
     if ( $Max > 1 ) {      if ( $Max > 1 ) {
  if ($Max % 10) {   if ($Max % 10) {
     $Max++;              if ( int($Max) < $Max ) {
        $Max++;
    $Max = int($Max);
       }
  }   }
     #(10 - $Max % 10);                                                                            #(10 - $Max % 10);
  $Max = int($Max);  
     } else { $Max = 1; }      } else { $Max = 1; }
   
     my @GData = ($courseDescription, 'Problem_number',  #    my @GData = ($courseDescription, 'Problem_number',
                  $title, $Max, $sendCount, $sendValues);  #                 $title, $Max, $sendCount, $sendValues);
     $r->print('</form>'."\n");      my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues);
   
   #    $r->print('</form>'."\n");
       $r->print('<br>'."\n");
     $r->print('<IMG src="/cgi-bin/graph.gif?'.      $r->print('<IMG src="/cgi-bin/graph.gif?'.
               (join('&', @GData)).'" border="1" />');                (join('&', @GData)).'" border="1" />');
     $r->print('<form>'."\n");  #    $r->print('<form>'."\n");
       $r->print('<br>'."\n");
 }  }
   
 #---- Problem Statistics Web Page ---------------------------------------  #---- Problem Statistics Web Page ---------------------------------------
Line 331  sub BuildStatisticsTable { Line 338  sub BuildStatisticsTable {
     my $count = 1;      my $count = 1;
     my $currentSequence = -1;      my $currentSequence = -1;
     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'  &&
            $cache->{'StatisticsMaps'} ne $cache->{$sequence.':title'}) {             $cache->{'StatisticsMaps'} ne $cache->{$sequence.':title'}) {
             next;              next;
Removed from v.1.35  
changed lines
  Added in v.1.36

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>