[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.75 and 1.76.2.5

version 1.75, 2017/12/18 23:51:19 version 1.76.2.5, 2020/10/24 19:37:20
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="http://".$ENV{'SERVER_NAME'}.$base;      $base=&Apache::lonnet::absolute_url().$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 108  sub render_resource { Line 108  sub render_resource {
 ####################################################  ####################################################
 ####################################################  ####################################################
 sub get_resources {  sub get_resources {
     my ($navmap,$sequence,$include_tools) = @_;      my ($navmap,$sequence) = @_;
     my @resources;      my @resources = $navmap->retrieveResources($sequence,
     if ($include_tools) {                                                 sub { shift->is_problem(); },
         @resources = $navmap->retrieveResources($sequence,                                                 0,0,0);
                                                 sub { shift->is_gradable(); },  
                                                 0,0,0);  
     } else {  
         @resources = $navmap->retrieveResources($sequence,  
                                                 sub { shift->is_problem(); },  
                                                 0,0,0);  
     }  
     return @resources;      return @resources;
 }  }
   
Line 142  Skips 'survey' problems. Line 135  Skips 'survey' problems.
 ####################################################  ####################################################
 ####################################################  ####################################################
 sub problem_selector {  sub problem_selector {
     my ($AcceptedResponseTypes,$sequence_addendum,$symbmode,$all,$prefix,$smallbox,$onclick,      my ($AcceptedResponseTypes,$sequence_addendum,$symbmode,$all,$prefix,
         $include_tools) = @_;          $byres,$include_tools,$smallbox,$onclick) = @_;
 # all: also make sequences selectable  # all: also make sequences selectable
 # prefix: prefix for all form names  # prefix: prefix for all form names
   # byres: radiobutton shown per resource
   # include_tools: external tools included 
 # smallbox: use smaller box  # smallbox: use smaller box
 # onclick: javascript to execute when clicked  # onclick: javascript to execute when clicked
     my $Str;      my $Str;
Line 163  sub problem_selector { Line 158  sub problem_selector {
     return $navmap if (! ref($navmap)); # error      return $navmap if (! ref($navmap)); # error
     foreach my $seq (@sequences) {      foreach my $seq (@sequences) {
         my $seq_str = '';          my $seq_str = '';
         foreach my $res (&get_resources($navmap,$seq,$include_tools)) {          foreach my $res (&get_resources($navmap,$seq)) {
             foreach my $part (@{$res->parts}) {              if ($res->src() eq '/res/lib/templates/simpleproblem.problem') {
                 my (@response_ids,@response_types);                  next if (grep(/^placeholder$/,@{$res->parts}));
                 if ($res->is_tool) {              }
                     @response_ids = ();              my $title = $res->compTitle;
                     @response_types = ('tool');              if (! defined($title) || $title eq '') {
                 } else {                  ($title) = ($res->src =~ m:/([^/]*)$:);
                     @response_ids   = $res->responseIds($part);              }
                     @response_types = $res->responseType($part);              my $totalresps = 0;
               if ($byres) {
                   foreach my $part (@{$res->parts}) {
                       $totalresps += scalar($res->responseIds($part));
                 }                  }
                   my $value = &HTML::Entities::encode($res->symb(),'<>&"');
                   my $checked;
                   if ($env{'form.problemchoice'} eq $res->symb()) {
                       $checked = ' checked="checked"';
                   }
                   my $rowspan;
                   if ($totalresps > 1) {
                       $rowspan = ' rowspan="'.$totalresps.'"';
                   }
                   $seq_str .= &Apache::loncommon::start_data_table_row().
                               '<td'.$rowspan.' style="vertical-align:top">'.
                               '<label><input type="radio" name="symb" value="'.$value.'"'.$checked.' />'.
                               $title.'</label>';
                   my $link = $res->link.'?symb='.&escape($res->shown_symb);
                   $seq_str .= ('&nbsp;'x2).
                               '<a target="preview" href="'.$link.'">'.&mt('view').'</a></td>';
               }
               my %partsseen;
               foreach my $part (@{$res->parts}) {
                   my @response_ids   = $res->responseIds($part);
                   my @response_types = $res->responseType($part);
                 for (my $i=0;$i<scalar(@response_types);$i++){                  for (my $i=0;$i<scalar(@response_types);$i++){
                     my $respid = $response_ids[$i];                      my $respid = $response_ids[$i];
                     my $resptype = $response_types[$i];                      my $resptype = $response_types[$i];
                     if ($resptype =~ m/$AcceptedResponseTypes/) {                      if ($resptype =~ m/$AcceptedResponseTypes/) {
                         my $value = &make_target_id({symb=>$res->symb,                          if ($byres) {
                                                      part=>$part,                              if (exists($partsseen{$part})) {
                                                      respid=>$respid,                                  $seq_str .= &Apache::loncommon::continue_data_table_row();
                                                      resptype=>$resptype});                              } else {
                         my $checked = '';                                  my $parttitle = $part;
                         if ($env{'form.problemchoice'} eq $value) {                                  if ($part eq '0') {
                             $checked = ' checked="checked"';                                      $parttitle = '';
                                   }
                                   if ($parttitle ne '') {
                                       $parttitle = ('&nbsp;'x2).&mt('part').':&nbsp;'.$parttitle;
                                   }
                                   if (keys(%partsseen)) {
                                       $seq_str .= &Apache::loncommon::continue_data_table_row();
                                   }
                                   unless ($partsseen{$part}) {
                                       my $resprowspan;
                                       if (scalar(@response_ids) > 1) {
                                           $resprowspan = ' rowspan="'.scalar(@response_ids).'"';
                                       }
                                       $seq_str .= '<td'.$resprowspan.' style="vertical-align:top">'.
                                                   $parttitle.'</td>';
                                       $partsseen{$part} = scalar(@response_ids);
                                   }
                               }
                               $seq_str .= '<td>'.$resptype;
                               if (scalar(@response_ids) > 1) {
                                   $seq_str .= '&nbsp;'.&mt('id').':&nbsp;'.$respid;
                               }
                               $seq_str .= '</td>'. &Apache::loncommon::end_data_table_row()."\n";
                           } else {
                               my $value = &make_target_id({symb=>$res->symb,
                                                            part=>$part,
                                                            respid=>$respid,
                                                            resptype=>$resptype});
                               my $checked = '';
                               if ($env{'form.problemchoice'} eq $value) {
                                   $checked = ' checked="checked"';
                               }
                               $seq_str .= &Apache::loncommon::start_data_table_row().
                                   ($symbmode?
                                    '<td><input type="radio" id="'.$prefix.$rb_count.'" name="'.$prefix.'symb" value="'.&HTML::Entities::encode($res->symb,'<>&"').'" '.$checked.' '.
                                    $jsadd.
                                    ' /></td>'
                                    :qq{<td><input type="radio" id="$rb_count" name="problemchoice" value="$value"$checked /></td>}).
                                   '<td><label for="'.$prefix.$rb_count.'">'.$resptype.'</label></td>'.
                                   '<td><label for="'.$prefix.$rb_count.'">'.$title.'</label>';
                               if (scalar(@response_ids) > 1) {
                                   $seq_str .= &mt('response').' '.$respid;
                               }
                               my $link = $res->link.'?symb='.&escape($res->shown_symb);
                               $seq_str .= ('&nbsp;'x2).
                                           '<a target="preview" href="'.$link.'">'.&mt('view').'</a>';
                               $seq_str .= "</td>". &Apache::loncommon::end_data_table_row()."\n";
                         }                          }
                         my $title = $res->compTitle;  
                         if (! defined($title) || $title eq '') {  
                             ($title) = ($res->src =~ m:/([^/]*)$:);  
                         }  
                         $seq_str .=  &Apache::loncommon::start_data_table_row().  
                             ($symbmode?  
                              '<td><input type="radio" id="'.$prefix.$rb_count.'" name="'.$prefix.'symb" value="'.&HTML::Entities::encode($res->symb,'<>&"').'" '.$checked.' '.  
                              $jsadd.  
                              ' /></td>'  
                             :qq{<td><input type="radio" id="$rb_count" name="problemchoice" value="$value"$checked /></td>}).  
                             '<td><label for="'.$prefix.$rb_count.'">'.$resptype.'</label></td>'.  
                             '<td><label for="'.$prefix.$rb_count.'">'.$title.'</label>';  
                         if (scalar(@response_ids) > 1) {  
                             $seq_str .= &mt('response').' '.$respid;  
                         }  
                         my $link = $res->link.'?symb='.&escape($res->shown_symb);  
                         $seq_str .= ('&nbsp;'x2).  
                             '<a target="preview" href="'.$link.'">'.&mt('view').'</a>';  
                         $seq_str .= "</td>". &Apache::loncommon::end_data_table_row()."\n";  
                         $rb_count++;                          $rb_count++;
                     }                      }
                 }                  }
             }              }
         }          }
         if ($seq_str ne '') {          if ($seq_str ne '') {
             $Str .= &Apache::loncommon::start_data_table_header_row().              if ($byres) {
                 '<th colspan="3">'.  
                 ($all?'<input type="radio" id="'.$prefix.'s'.$rb_count.'" name="'.$prefix.'symb" value="'.&HTML::Entities::encode($seq->symb,'<>&').'" '.$jsadd.' />':'').  
                 $seq->compTitle.'</th>'.  
                 &Apache::loncommon::end_data_table_header_row()."\n".$seq_str;  
             if (defined($sequence_addendum)) {  
                 $Str .= &Apache::loncommon::start_data_table_header_row().                  $Str .= &Apache::loncommon::start_data_table_header_row().
                     ('<td>&nbsp;</td>'x2).                          '<th colspan="3">'.$seq->compTitle.'</th>'.
                     '<td align="right">'.$sequence_addendum.'</td>'.                          &Apache::loncommon::end_data_table_header_row().
                     &Apache::loncommon::end_data_table_header_row()."\n";                          $seq_str;
               } else {
                   $Str .= &Apache::loncommon::start_data_table_header_row().
                       '<th colspan="3">'.
                       ($all?'<input type="radio" id="'.$prefix.'s'.$rb_count.'" name="'.$prefix.'symb" value="'.&HTML::Entities::encode($seq->symb,'<>&').'" '.$jsadd.' />':'').
                       $seq->compTitle.'</th>'.
                       &Apache::loncommon::end_data_table_header_row()."\n".$seq_str;
                   if (defined($sequence_addendum)) {
                       $Str .= &Apache::loncommon::start_data_table_header_row().
                           ('<td>&nbsp;</td>'x2).
                           '<td align="right">'.$sequence_addendum.'</td>'.
                           &Apache::loncommon::end_data_table_header_row()."\n";
                   }
             }              }
         }          }
   
     }      }
     $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.75  
changed lines
  Added in v.1.76.2.5

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