--- loncom/publisher/lonpublisher.pm 2008/02/13 14:18:59 1.230
+++ loncom/publisher/lonpublisher.pm 2008/02/14 21:29:08 1.231
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.230 2008/02/13 14:18:59 bisitz Exp $
+# $Id: lonpublisher.pm,v 1.231 2008/02/14 21:29:08 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -967,15 +967,21 @@ sub publish {
foreach (sort(keys(%allow))) {
my $thisdep=$_;
if ($thisdep !~ /[^\s]/) { next; }
+ if ($thisdep =~/\$/) {
+ $scrout.='
'.
+ &mt('The resource depends on another resource with variable filename, i.e., [_1]. '.
+ 'You likely need to explicitly allow access to all possible dependencies using the [_2]-tag',
+ ''.$thisdep.'','<allow>').'';
+ }
unless ($style eq 'rat') {
$allowstr.="\n".'';
}
$scrout.='
';
- if ($thisdep!~/\*/ && $thisdep!~m|^/adm/|) {
+ if ($thisdep!~/[\*\$]/ && $thisdep!~m|^/adm/|) {
$scrout.='';
}
$scrout.=''.$thisdep.'';
- if ($thisdep!~/\*/ && $thisdep!~m|^/adm/|) {
+ if ($thisdep!~/[\*\$]/ && $thisdep!~m|^/adm/|) {
$scrout.='';
if (
&Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.'/'.