|
version 1.72, 2002/01/18 16:48:14
|
version 1.73, 2002/02/14 22:01:39
|
|
Line 392 sub publish {
|
Line 392 sub publish {
|
| |
|
| $scrout.='<h3>Dependencies</h3>'; |
$scrout.='<h3>Dependencies</h3>'; |
| my $allowstr=''; |
my $allowstr=''; |
| foreach (keys %allow) { |
foreach (sort(keys(%allow))) { |
| my $thisdep=$_; |
my $thisdep=$_; |
| |
if ($thisdep !~ /[^\s]/) { next; } |
| unless ($style eq 'rat') { |
unless ($style eq 'rat') { |
| $allowstr.="\n".'<allow src="'.$thisdep.'" />'; |
$allowstr.="\n".'<allow src="'.$thisdep.'" />'; |
| } |
} |
|
Line 592 sub publish {
|
Line 593 sub publish {
|
| $keywordout.=' checked'; |
$keywordout.=' checked'; |
| } |
} |
| } elsif (&Apache::loncommon::keyword($_)) { |
} elsif (&Apache::loncommon::keyword($_)) { |
| $keywordout.=' checked'; |
$keywordout.=' checked'; |
| } |
} |
| $keywordout.='>'.$_.'</td>'; |
$keywordout.='>'.$_.'</td>'; |
| if ($colcount>10) { |
if ($colcount>10) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher