loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.76.2.1, 2020/08/26 21:50:16	version 1.76.2.2, 2020/09/01 15:11:02
Line 159 sub problem_selector {	Line 159 sub problem_selector {
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
my $seq_str = '';	my $seq_str = '';
foreach my $res (&get_resources($navmap,$seq)) {	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;	my $title = $res->compTitle;
if (! defined($title) \|\| $title eq '') {	if (! defined($title) \|\| $title eq '') {
($title) = ($res->src =~ m:/([^/]*)$:);	($title) = ($res->src =~ m:/([^/]*)$:);
Line 173 sub problem_selector {	Line 176 sub problem_selector {
if ($env{'form.problemchoice'} eq $res->symb()) {	if ($env{'form.problemchoice'} eq $res->symb()) {
$checked = ' checked="checked"';	$checked = ' checked="checked"';
}	}
	my $rowspan;
	if ($totalresps > 1) {
	$rowspan = ' rowspan="'.$totalresps.'"';
	}
$seq_str .= &Apache::loncommon::start_data_table_row().	$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.' />'.	'<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);