version 1.60, 2001/12/05 21:17:56
|
version 1.62, 2001/12/06 18:56:14
|
Line 39
|
Line 39
|
# 06/23,08/07,08/11,8/13,8/17,8/18,8/24,9/26,10/16 Gerd Kortemeyer |
# 06/23,08/07,08/11,8/13,8/17,8/18,8/24,9/26,10/16 Gerd Kortemeyer |
# 12/04,12/05 Guy Albertelli |
# 12/04,12/05 Guy Albertelli |
# 12/05 Gerd Kortemeyer |
# 12/05 Gerd Kortemeyer |
|
# 12/05 Guy Albertelli |
|
# 12/06 Gerd Kortemeyer |
|
|
package Apache::lonpublisher; |
package Apache::lonpublisher; |
|
|
Line 349 sub publish {
|
Line 351 sub publish {
|
} |
} |
} |
} |
# ------------------------------------------------------------ Construct Allows |
# ------------------------------------------------------------ Construct Allows |
unless ($style eq 'rat') { |
|
$scrout.='<h3>Dependencies</h3>'; |
$scrout.='<h3>Dependencies</h3>'; |
my $allowstr="\n"; |
my $allowstr=''; |
map { |
map { |
my $thisdep=$_; |
my $thisdep=$_; |
$allowstr.='<allow src="'.$thisdep.'" />'."\n"; |
unless ($style eq 'rat') { |
|
$allowstr.="\n".'<allow src="'.$thisdep.'" />'; |
|
} |
$scrout.='<br>'; |
$scrout.='<br>'; |
unless ($thisdep=~/\*/) { |
unless ($thisdep=~/\*/) { |
$scrout.='<a href="'.$thisdep.'">'; |
$scrout.='<a href="'.$thisdep.'">'; |
Line 379 sub publish {
|
Line 383 sub publish {
|
} |
} |
} keys %allow; |
} keys %allow; |
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s; |
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s; |
} |
|
# ------------------------------------------------------------- Write modified |
# ------------------------------------------------------------- Write modified |
|
|
{ |
{ |