[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.37 and 1.40

version 1.37, 2002/11/26 16:59:03 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 303  sub DrawGraph { Line 301  sub DrawGraph {
   
 #    $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");
Removed from v.1.37  
changed lines
  Added in v.1.40

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