loncom/interface/statistics/lonsurveyreports.pm - diff

Return to lonsurveyreports.pm CVS log

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

version 1.20, 2008/12/01 17:23:40	version 1.22, 2008/12/12 05:03:39
Line 211 sub SurveyProblemSelector {	Line 211 sub SurveyProblemSelector {
$Str .= '<tr><td>'.	$Str .= '<tr><td>'.
'<input type="radio" name="problemchoice" id="'.$id.'" '.	'<input type="radio" name="problemchoice" id="'.$id.'" '.
'value="'.$value.'" '.$checked.'/>'.'</td>'.	'value="'.$value.'" '.$checked.'/>'.'</td>'.
'<td><nobr>'.	'<td><span class="LC_nobreak">'.
'<label for="'.$id.'">'.$problem->{'res'}->compTitle.' ('.$problem->{'seq'}->compTitle.')'.'</label>'.	'<label for="'.$id.'">'.$problem->{'res'}->compTitle.' ('.$problem->{'seq'}->compTitle.')'.'</label>'.
(' 'x2).	(' 'x2).
'<a target="preview" href="'.$link.'">'.&mt('View survey').'</a>'.'</td></tr>'.$/;	'<a target="preview" href="'.$link.'">'.&mt('View survey').'</a></span></td></tr>'.$/;
}	}
$Str .= '</table>';	$Str .= '</table>';
return $Str;	return $Str;
Line 339 sub make_text_report {	Line 339 sub make_text_report {
} else {	} else {
$r->print('<p class="LC_warning">'	$r->print('<p class="LC_warning">'
.&mt('There is no essay or string response data to output for this survey.')	.&mt('There is no essay or string response data to output for this survey.')
.'</h2>');	.'</p>');
}	}
$r->rflush();	$r->rflush();
return;	return;