--- loncom/homework/lonhomework.pm 2014/01/10 17:51:10 1.342 +++ 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.342 2014/01/10 17:51:10 bisitz Exp $ +# $Id: lonhomework.pm,v 1.344 2014/02/25 19:31:48 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -451,13 +451,14 @@ sub check_access { $datemsg=$date; } elsif ($type eq 'opendate') { $status='CLOSED'; - $datemsg = &mt("will open on")." $date"; + $datemsg = &mt('will open on [_1]',$date); } elsif ($type eq 'duedate') { $status='CAN_ANSWER'; - $datemsg = &mt("is due at")." $date"; + $datemsg = &mt('is due at [_1]',$date); } elsif ($type eq 'answerdate') { $status='CLOSED'; - $datemsg = &mt("was due on")." $lastdate".&mt(", and answers will be available on")." $date"; + $datemsg = &mt('was due on [_1], and answers will be available on [_2]', + $lastdate,$date); } } if ($status eq 'CAN_ANSWER' || @@ -1175,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 ++; }