[LON-CAPA-cvs] cvs: loncom /interface/statistics lonstathelpers.pm

raeburn raeburn at source.lon-capa.org
Mon Aug 31 10:36:20 EDT 2020


raeburn		Mon Aug 31 14:36:20 2020 EDT

  Modified files:              
    /loncom/interface/statistics	lonstathelpers.pm 
  Log:
  - problem selector for grading 
    - omit unconfigired simple problems
    - use rowspan for multiple responseIDs
  
  
Index: loncom/interface/statistics/lonstathelpers.pm
diff -u loncom/interface/statistics/lonstathelpers.pm:1.76 loncom/interface/statistics/lonstathelpers.pm:1.77
--- loncom/interface/statistics/lonstathelpers.pm:1.76	Wed Aug 26 18:13:39 2020
+++ loncom/interface/statistics/lonstathelpers.pm	Mon Aug 31 14:36:19 2020
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstathelpers.pm,v 1.76 2020/08/26 18:13:39 raeburn Exp $
+# $Id: lonstathelpers.pm,v 1.77 2020/08/31 14:36:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -166,6 +166,9 @@
     foreach my $seq (@sequences) {
         my $seq_str = '';
         foreach my $res (&get_resources($navmap,$seq,$include_tools)) {
+            if ($res->src() eq '/res/lib/templates/simpleproblem.problem') {
+                next if (grep(/^placeholder$/,@{$res->parts}));
+            }
             my $title = $res->compTitle;
             if (! defined($title) || $title eq '') {
                 ($title) = ($res->src =~ m:/([^/]*)$:);
@@ -180,8 +183,12 @@
                 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="'.$totalresps.'" style="vertical-align:middle">'.
+                            '<td'.$rowspan.' style="vertical-align:middle">'.
                             '<label><input type="radio" name="symb" value="'.$value.'"'.$checked.' />'.
                             $title.'</label>';
                 my $link = $res->link.'?symb='.&escape($res->shown_symb);




More information about the LON-CAPA-cvs mailing list