loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.331, 2011/11/29 13:24:38	version 1.333, 2011/12/15 01:21:28
Line 444 sub check_access {	Line 444 sub check_access {
# if (correct and show prob status) or excused then CANNOT_ANSWER	# if (correct and show prob status) or excused then CANNOT_ANSWER
if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/)	if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/)
&& (&show_problem_status()) ) {	&& (&show_problem_status()) ) {
if (&Apache::inputtags::grading_is_nonlenient($id) \|\|	if (($Apache::lonhomework::history{"resource.$id.awarded"} >= 1) \|\|
$Apache::lonhomework::history{"resource.$id.awarded"} == 1) {	(&Apache::lonnet::EXT("resource.$id.retrypartial") !~/^1\|on\|yes$/i)) {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';
}	}
} elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {	} elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {
Line 1125 sub get_template_list {	Line 1125 sub get_template_list {
my $filename=$file->[0];	my $filename=$file->[0];
$filename=~s{^\Q$londocroot\E}{};	$filename=~s{^\Q$londocroot\E}{};
$result.=' <span class="LC_fontsize_small">'	$result.=' <span class="LC_fontsize_small">'
.'<a href="'.$filename.'?inhibitmenu=yes" target="sample">'.&mt('Example').'</a>'	.&Apache::loncommon::modal_link($filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
.'</span><br />'."\n";	.'</span><br />'."\n";
$count ++;	$count ++;
}	}