|
version 1.267, 2002/08/13 14:37:52
|
version 1.267.4.1, 2002/08/30 19:09:27
|
|
Line 2743 sub metadata {
|
Line 2743 sub metadata {
|
| my $package=$token->[2]->{'package'}; |
my $package=$token->[2]->{'package'}; |
| my $keyroot=''; |
my $keyroot=''; |
| if ($prefix) { |
if ($prefix) { |
| $keyroot.='_'.$prefix; |
$keyroot.=$prefix; |
| } else { |
} else { |
| if (defined($token->[2]->{'part'})) { |
if (defined($token->[2]->{'part'})) { |
| $keyroot.='_'.$token->[2]->{'part'}; |
$keyroot.='_'.$token->[2]->{'part'}; |
|
Line 2801 sub metadata {
|
Line 2801 sub metadata {
|
| # |
# |
| # Importing a library here |
# Importing a library here |
| # |
# |
| if (defined($depthcount)) { $depthcount++; } else |
|
| { $depthcount=0; } |
|
| if ($depthcount<20) { |
if ($depthcount<20) { |
| foreach (split(/\,/,&metadata($uri,'keys', |
my $location=$parser->get_text('/import'); |
| $parser->get_text('/import'),$unikey, |
my $dir=$filename; |
| $depthcount))) { |
$dir=~s|[^/]*$||; |
| |
$location=&filelocation($dir,$location); |
| |
foreach (sort(split(/\,/,&metadata($uri,'keys', |
| |
$location,$unikey, |
| |
$depthcount+1)))) { |
| $metathesekeys{$_}=1; |
$metathesekeys{$_}=1; |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl