loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.277, 2010/12/31 02:40:14	version 1.279, 2011/03/05 20:06:33
Line 1409 sub get_grade_messages {	Line 1409 sub get_grade_messages {
$trystr = '<td><span class="LC_nobreak">'.&mt($tries_text)." $tries";	$trystr = '<td><span class="LC_nobreak">'.&mt($tries_text)." $tries";
if ($Apache::lonhomework::parsing_a_task) {	if ($Apache::lonhomework::parsing_a_task) {
} elsif($env{'request.state'} ne 'construct') {	} elsif($env{'request.state'} ne 'construct') {
$trystr.="/$maxtries";	$trystr.="/".&Apache::lonhtmlcommon::direct_parm_link($maxtries,$env{'request.symb'},'maxtries',$id,$target);
} else {	} else {
if (defined($Apache::inputtags::params{'maxtries'})) {	if (defined($Apache::inputtags::params{'maxtries'})) {
$trystr.="/".$Apache::inputtags::params{'maxtries'};	$trystr.="/".$Apache::inputtags::params{'maxtries'};
Line 1522 sub previous_tries {	Line 1522 sub previous_tries {
) {	) {

my $txt_correct = &mt('Correct');	my $txt_correct = &mt('Correct');
	my $awarded = $Apache::lonhomework::history{"$prefix.awarded"};
	my $txt_correct = &mt('Correct');
	if ($awarded < 1 && $awarded > 0) {
	$txt_correct=&mt('Partially correct');
	} elsif ($awarded < 1) {
	if ($awarded eq '') {
	$txt_correct='';
	} else {
	$txt_correct=&mt('Incorrect');
	}
	}
$message =~ s{(<td.?>)(.?)(</td>)}	$message =~ s{(<td.?>)(.?)(</td>)}
{$1 <strong>$txt_correct</strong>. $3}s;	{$1 <strong>$txt_correct</strong>. $3}s;
}	}