loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.231, 2008/02/14 21:29:08	version 1.232, 2008/03/18 23:31:31
Line 964 sub publish {	Line 964 sub publish {

$scrout.='<h3>'.&mt('Dependencies').'</h3>';	$scrout.='<h3>'.&mt('Dependencies').'</h3>';
my $allowstr='';	my $allowstr='';
foreach (sort(keys(%allow))) {	foreach my $thisdep (sort(keys(%allow))) {
my $thisdep=$_;
if ($thisdep !~ /[^\s]/) { next; }	if ($thisdep !~ /[^\s]/) { next; }
if ($thisdep =~/\$/) {	if ($thisdep =~/\$/) {
$scrout.='<br /><span class="LC_warning">'.	$scrout.='<br /><span class="LC_warning">'
&mt('The resource depends on another resource with variable filename, i.e., [_1]. '.	.&mt('The resource depends on another resource with variable filename, i.e., [_1].','<tt>'.$thisdep.'</tt>').'<br />'
'You likely need to explicitly allow access to all possible dependencies using the [_2]-tag',	.&mt('You likely need to explicitly allow access to all possible dependencies using the [_1]-tag.','<tt><allow></tt>')
'<tt>'.$thisdep.'</tt>','<tt><allow></tt>').'</span>';	.'</span><br />';
}	}
unless ($style eq 'rat') {	unless ($style eq 'rat') {
$allowstr.="\n".'<allow src="'.$thisdep.'" />';	$allowstr.="\n".'<allow src="'.$thisdep.'" />';