|
version 1.11, 2000/12/11 18:35:14
|
version 1.13, 2000/12/12 16:51:39
|
|
Line 176 sub make_file_list {
|
Line 176 sub make_file_list {
|
| # render starting HTML formatting elements |
# render starting HTML formatting elements |
| if (@files) { |
if (@files) { |
| } |
} |
| |
my $pwd=`pwd`; chop $pwd; |
| if (@files) { |
if (@files) { |
| foreach my $i (0..$#files) { |
foreach my $i (0..$#files) { |
| my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'}; |
my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'}; |
|
Line 193 sub make_file_list {
|
Line 194 sub make_file_list {
|
| my $rot2; |
my $rot2; |
| foreach my $l (@list) { |
foreach my $l (@list) { |
| $l=~s/^\s*//; $l=~s/\s*$//; |
$l=~s/^\s*//; $l=~s/\s*$//; |
| $rot2.="$rot$l\n" if length($l); |
$rot2.="BinaryRoot$rot$l\n" if length($l); |
| } |
} |
| chop $rot2; |
chop $rot2; |
| $rot=$rot2; |
$rot=$rot2; |
| } |
} |
| |
else { |
| |
$rot="BinaryRoot$rot"; |
| |
} |
| |
if ($category eq "conf") { |
| |
$rot.=" # config"; |
| |
} |
| $description.=<<END; |
$description.=<<END; |
| $rot |
$rot |
| END |
END |
![[BACK]](/icons/back.gif){kind=icon}
Return to parse.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build