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

Diff for /loncom/interface/statistics/lonstathelpers.pm between versions 1.23 and 1.24

version 1.23, 2004/09/16 21:54:22 version 1.24, 2004/09/23 14:35:25
Line 169  sub ProblemSelector { Line 169  sub ProblemSelector {
   
 =pod  =pod
   
 =item &MultpleProblemSelector($navmap,$selected,$inputname)  =item &MultipleProblemSelector($navmap,$selected,$inputname)
   
 Generate HTML with checkboxes for problem selection.  Generate HTML with checkboxes for problem selection.
   
Line 206  sub MultipleProblemSelector { Line 206  sub MultipleProblemSelector {
     # Header      # Header
     $Str .= <<"END";      $Str .= <<"END";
 <script>  <script>
     function checkall(value, checkName) {      function checkall(value) {
         for (i=0; i<document.forms.$formname.elements.length; i++) {          for (i=0; i<document.forms.$formname.elements.length; i++) {
             ele = document.forms.$formname.elements[i];              ele = document.forms.$formname.elements[i];
             if (ele.name == '$inputname') {              if (ele.name == '$inputname') {
Line 231  END Line 231  END
     while (my $curRes = $iterator->next()) {      while (my $curRes = $iterator->next()) {
         if ($curRes == $iterator->END_MAP) {          if ($curRes == $iterator->END_MAP) {
             if (ref($Accumulator[-1]) eq 'CODE') {              if (ref($Accumulator[-1]) eq 'CODE') {
                 push(@Sequence_Data,&{$Accumulator[-1]}());                  my $old_accumulator = pop(@Accumulator);
                 pop(@Accumulator);                  push(@Sequence_Data,&{$old_accumulator}());
             }              }
         } elsif ($curRes == $iterator->BEGIN_MAP) {          } elsif ($curRes == $iterator->BEGIN_MAP) {
             # Not much to do here.              # Not much to do here.
         }          }
         next if (! ref($curRes));          next if (! ref($curRes));
         if ($curRes->is_map) {          if ($curRes->is_map) {
             push(@Accumulator,&new_accumulator($curRes->title,              push(@Accumulator,&new_accumulator($curRes->compTitle,
                                                $curRes->src,                                                 $curRes->src,
                                                $curRes->symb,                                                 $curRes->symb,
                                                $inputname));                                                 $inputname));
Line 255  END Line 255  END
         #my $seq = pop(@Sequence_Data);          #my $seq = pop(@Sequence_Data);
         next if (! defined($seq) || ref($seq) ne 'HASH');          next if (! defined($seq) || ref($seq) ne 'HASH');
         $Str.= '<tr><td colspan="2">'.          $Str.= '<tr><td colspan="2">'.
             '<b>'.&get_title($seq->{'title'},$seq->{'src'}).'</b>'.              '<b>'.$seq->{'title'}.'</b>'.
             '</td></tr>'.$/;              '</td></tr>'.$/;
         $Str.= $seq->{'html'};          $Str.= $seq->{'html'};
     }      }
Line 287  sub new_accumulator { Line 287  sub new_accumulator {
                 }                  }
                 $target.=                   $target.= 
                     'value="'.&Apache::lonnet::escape($res->symb).'" />'.                      'value="'.&Apache::lonnet::escape($res->symb).'" />'.
                     '&nbsp;'.                      '&nbsp;'.$res->compTitle.'</label></td>'.
                     &get_title($res->title,$res->symb).'</label></td>'.  
                     '</tr>'.$/;                      '</tr>'.$/;
             } else {               } else { 
                 if (defined($target)) {                  if (defined($target)) {
Removed from v.1.23  
changed lines
  Added in v.1.24

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