[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.76.2.5.2.1 and 1.77

version 1.76.2.5.2.1, 2023/09/08 00:52:36 version 1.77, 2020/08/31 14:36:19
Line 85  sub render_resource { Line 85  sub render_resource {
     ##      ##
     ## Render the problem      ## Render the problem
     my ($base) = ($resource->src =~ m|^(.*/)[^/]*$|);      my ($base) = ($resource->src =~ m|^(.*/)[^/]*$|);
     $base=&Apache::lonnet::absolute_url().$base;      $base="http://".$ENV{'SERVER_NAME'}.$base;
     my ($src,$symb)=($resource->link,&escape($resource->shown_symb));      my ($src,$symb)=($resource->link,&escape($resource->shown_symb));
     my $rendered_problem = &Apache::lonnet::ssi_body($src.'?symb='.$symb);      my $rendered_problem = &Apache::lonnet::ssi_body($src.'?symb='.$symb);
     $rendered_problem =~ s/<\s*form\s*/<nop /g;      $rendered_problem =~ s/<\s*form\s*/<nop /g;
Line 188  sub problem_selector { Line 188  sub problem_selector {
                     $rowspan = ' rowspan="'.$totalresps.'"';                      $rowspan = ' rowspan="'.$totalresps.'"';
                 }                  }
                 $seq_str .= &Apache::loncommon::start_data_table_row().                  $seq_str .= &Apache::loncommon::start_data_table_row().
                             '<td'.$rowspan.' style="vertical-align:top">'.                              '<td'.$rowspan.' style="vertical-align:middle">'.
                             '<label><input type="radio" name="symb" value="'.$value.'"'.$checked.' />'.                              '<label><input type="radio" name="symb" value="'.$value.'"'.$checked.' />'.
                             $title.'</label>';                              $title.'</label>';
                 my $link = $res->link.'?symb='.&escape($res->shown_symb);                  my $link = $res->link.'?symb='.&escape($res->shown_symb);
Line 198  sub problem_selector { Line 198  sub problem_selector {
             my %partsseen;              my %partsseen;
             foreach my $part (@{$res->parts}) {              foreach my $part (@{$res->parts}) {
                 my (@response_ids,@response_types);                  my (@response_ids,@response_types);
                 if (($include_tools) && ($res->is_tool)) {                  if ($res->is_tool) {
                     @response_ids = ();                      @response_ids = ();
                     @response_types = ('tool');                      @response_types = ('tool');
                 } else {                  } else {
Line 210  sub problem_selector { Line 210  sub problem_selector {
                     my $resptype = $response_types[$i];                      my $resptype = $response_types[$i];
                     if ($resptype =~ m/$AcceptedResponseTypes/) {                      if ($resptype =~ m/$AcceptedResponseTypes/) {
                         if ($byres) {                          if ($byres) {
                             if (exists($partsseen{$part})) {                              unless (exists($partsseen{$part})) {
                                 $seq_str .= &Apache::loncommon::continue_data_table_row();  
                             } else {  
                                 my $parttitle = $part;                                  my $parttitle = $part;
                                 if ($part eq '0') {                                  if ($part eq '0') {
                                     $parttitle = '';                                      $parttitle = '';
Line 224  sub problem_selector { Line 222  sub problem_selector {
                                     $seq_str .= &Apache::loncommon::continue_data_table_row();                                      $seq_str .= &Apache::loncommon::continue_data_table_row();
                                 }                                  }
                                 unless ($partsseen{$part}) {                                  unless ($partsseen{$part}) {
                                     my $resprowspan;                                      $seq_str .= '<td rowspan="'.scalar(@response_ids).'" style="vertical-align:middle">'.
                                     if (scalar(@response_ids) > 1) {  
                                         $resprowspan = ' rowspan="'.scalar(@response_ids).'"';  
                                     }  
                                     $seq_str .= '<td'.$resprowspan.' style="vertical-align:top">'.  
                                                 $parttitle.'</td>';                                                  $parttitle.'</td>';
                                     $partsseen{$part} = scalar(@response_ids);                                      $partsseen{$part} = scalar(@response_ids);
                                 }                                  }
Line 262  sub problem_selector { Line 256  sub problem_selector {
                             $seq_str .= ('&nbsp;'x2).                              $seq_str .= ('&nbsp;'x2).
                                         '<a target="preview" href="'.$link.'">'.&mt('view').'</a>';                                          '<a target="preview" href="'.$link.'">'.&mt('view').'</a>';
                             $seq_str .= "</td>". &Apache::loncommon::end_data_table_row()."\n";                              $seq_str .= "</td>". &Apache::loncommon::end_data_table_row()."\n";
                               $rb_count++;
                         }                          }
                         $rb_count++;  
                     }                      }
                 }                  }
             }              }
Line 290  sub problem_selector { Line 284  sub problem_selector {
         }          }
     }      }
     $Str .= &Apache::loncommon::end_data_table().&Apache::loncommon::end_scrollbox()."\n";      $Str .= &Apache::loncommon::end_data_table().&Apache::loncommon::end_scrollbox()."\n";
     if (!$rb_count) {  
         if ($byres) {  
             $Str = '<p class="LC_info">'.&mt('No gradable problems found').'</p>';  
         } elsif ($AcceptedResponseTypes eq '.') {  
             $Str = '<p class="LC_info">'.&mt('No problems found').'</p>';  
         } else {  
             $Str = '<p class="LC_info">'.&mt('No analyzable problems found').'</p>';  
         }  
     }  
     return $Str;      return $Str;
 }  }
   
Removed from v.1.76.2.5.2.1  
changed lines
  Added in v.1.77

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