[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface/statistics lonstathelpers.pm
raeburn
raeburn at source.lon-capa.org
Tue Sep 1 11:11:02 EDT 2020
raeburn Tue Sep 1 15:11:02 2020 EDT
Modified files: (Branch: version_2_11_X)
/loncom/interface/statistics lonstathelpers.pm
Log:
- For 2.11
Backport 1.77
Index: loncom/interface/statistics/lonstathelpers.pm
diff -u loncom/interface/statistics/lonstathelpers.pm:1.76.2.1 loncom/interface/statistics/lonstathelpers.pm:1.76.2.2
--- loncom/interface/statistics/lonstathelpers.pm:1.76.2.1 Wed Aug 26 21:50:16 2020
+++ loncom/interface/statistics/lonstathelpers.pm Tue Sep 1 15:11:02 2020
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstathelpers.pm,v 1.76.2.1 2020/08/26 21:50:16 raeburn Exp $
+# $Id: lonstathelpers.pm,v 1.76.2.2 2020/09/01 15:11:02 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -159,6 +159,9 @@
foreach my $seq (@sequences) {
my $seq_str = '';
foreach my $res (&get_resources($navmap,$seq)) {
+ 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:/([^/]*)$:);
@@ -173,8 +176,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