--- loncom/homework/lonhomework.pm 2014/01/15 14:46:27 1.343
+++ loncom/homework/lonhomework.pm 2014/02/25 19:31:48 1.344
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.343 2014/01/15 14:46:27 bisitz Exp $
+# $Id: lonhomework.pm,v 1.344 2014/02/25 19:31:48 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1176,12 +1176,12 @@ sub get_template_list {
# Provide example link
my $filename=$file->[0];
$filename=~s{^\Q$londocroot\E}{};
- if (!(grep $filename =~ $_, @noexamplelink)) {
- $result .= ' '
- .&Apache::loncommon::modal_link(
- $filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
- .'';
- };
+ if (!(grep($filename =~ /\Q$_\E$/,@noexamplelink))) {
+ $result .= ' '
+ .&Apache::loncommon::modal_link(
+ $filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
+ .'';
+ }
$result .= '
'."\n";
$count ++;
}