--- loncom/homework/lonhomework.pm 2013/08/20 14:37:33 1.339
+++ loncom/homework/lonhomework.pm 2014/01/10 17:51:10 1.342
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.339 2013/08/20 14:37:33 bisitz Exp $
+# $Id: lonhomework.pm,v 1.342 2014/01/10 17:51:10 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1069,7 +1069,7 @@ sub renderpage {
''.$filename.'');
$result.=
&Apache::loncommon::simple_error_page($request,'Not available',
- $error,{'no_auto_mt_msg'});
+ $error,{'no_auto_mt_msg' => 1});
return;
}
@@ -1130,9 +1130,10 @@ sub get_template_list {
'/templates/*.'.$glob_extension);
@files = map {[$_,&mt(&Apache::lonnet::metadata($_, 'title')),
(&Apache::lonnet::metadata($_, 'category')?&mt(&Apache::lonnet::metadata($_, 'category')):&mt('Miscellaneous')),
- &mt(&Apache::lonnet::metadata($_, 'help'))]} (@files);
+ &Apache::lonnet::metadata($_, 'help')]} (@files);
@files = sort {$a->[2].$a->[1] cmp $b->[2].$b->[1]} (@files);
my ($midpoint,$seconddiv,$numfiles);
+ my @noexamplelink = ('blank.problem','blank.library','script.library');
$numfiles = 0;
foreach my $file (@files) {
next if ($file->[1] !~ /\S/);
@@ -1171,11 +1172,16 @@ sub get_template_list {
if ($file->[3]) {
$result.=&Apache::loncommon::help_open_topic($file->[3]);
}
+ # Provide example link
my $filename=$file->[0];
$filename=~s{^\Q$londocroot\E}{};
- $result.=' '
- .&Apache::loncommon::modal_link($filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
- .'
'."\n";
+ if (!(grep $filename =~ $_, @noexamplelink)) {
+ $result .= ' '
+ .&Apache::loncommon::modal_link(
+ $filename.'?inhibitmenu=yes',&mt('Example'),600,420,'sample')
+ .'';
+ };
+ $result .= '
'."\n";
$count ++;
}
if ($numfiles > 0) {