loncom/homework/grades.pm - diff - 1.596.2.12.2.40.2.1

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.596.2.12.2.40, 2017/05/19 20:08:33	version 1.596.2.12.2.40.2.1, 2018/10/09 15:45:43
Line 44 use Apache::Constants qw(:common :http);	Line 44 use Apache::Constants qw(:common :http);
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonenc;	use Apache::lonenc;
use Apache::bridgetask();	use Apache::bridgetask();
	use Apache::lontexconvert();
use String::Similarity;	use String::Similarity;
use LONCAPA;	use LONCAPA;

Line 465 sub cleanRecord {	Line 466 sub cleanRecord {
$env{'form.kwstyle'} = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';	$env{'form.kwstyle'} = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';
$env{'form.'.$symb} = 1; # so that we don't have to read it from disk for multiple sub of the same prob.	$env{'form.'.$symb} = 1; # so that we don't have to read it from disk for multiple sub of the same prob.
}	}
	$answer = &Apache::lontexconvert::msgtexconverted($answer);
return '<br /><br /><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>';	return '<br /><br /><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>';
} elsif ( $response eq 'organic') {	} elsif ( $response eq 'organic') {
my $result=&mt('Smile representation: [_1]',	my $result=&mt('Smile representation: [_1]',