--- 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'}.'/'.