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 ++; |
} |
} |