loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.343, 2014/01/15 14:46:27	version 1.344, 2014/02/25 19:31:48
Line 1176 sub get_template_list {	Line 1176 sub get_template_list {
# Provide example link	# Provide example link
my $filename=$file->[0];	my $filename=$file->[0];
$filename=~s{^\Q$londocroot\E}{};	$filename=~s{^\Q$londocroot\E}{};
if (!(grep $filename =~ $_, @noexamplelink)) {	if (!(grep($filename =~ /\Q$_\E$/,@noexamplelink))) {
$result .= ' <span class="LC_fontsize_small">'	$result .= ' <span class="LC_fontsize_small">'
.&Apache::loncommon::modal_link(	.&Apache::loncommon::modal_link(
$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')	$filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
.'</span>';	.'</span>';
};	}
$result .= '<br />'."\n";	$result .= '<br />'."\n";
$count ++;	$count ++;
}	}