--- loncom/homework/lonhomework.pm 2014/01/15 14:46:27 1.343 +++ loncom/homework/lonhomework.pm 2014/08/07 19:53:19 1.345 @@ -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.345 2014/08/07 19:53:19 musolffc Exp $ # # Copyright Michigan State University Board of Trustees # @@ -541,7 +541,7 @@ sub due_date { } else { $date = $due_date; } - return $date + return $date; } sub seconds_to_human_length { @@ -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 ++; }