loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.71, 2000/11/27 20:44:04	version 1.72, 2000/11/27 23:10:18
Line 1484 sub metadata {	Line 1484 sub metadata {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
my $entry=$token->[1];	my $entry=$token->[1];
my $unikey=$entry;	my $unikey=$entry;
if ($token->[2]->{'part'}) {	if (defined($token->[2]->{'part'})) {
$unikey.='_'.$token->[2]->{'part'};	$unikey.='_'.$token->[2]->{'part'};
}	}
if ($token->[2]->{'name'}) {	if (defined($token->[2]->{'name'})) {
$unikey.='_'.$token->[2]->{'name'};	$unikey.='_'.$token->[2]->{'name'};
}	}
if ($metacache{$uri.':keys'}) {	if ($metacache{$uri.':keys'}) {
Line 1497 sub metadata {	Line 1497 sub metadata {
}	}
map {	map {
$metacache{$uri.':'.$unikey.'.'.$_}=$token->[2]->{$_};	$metacache{$uri.':'.$unikey.'.'.$_}=$token->[2]->{$_};
} $token->[3];	} @{$token->[3]};
$metacache{$uri.':'.$unikey}=$parser->get_text('/'.$entry);	$metacache{$uri.':'.$unikey}=$parser->get_text('/'.$entry);
}	}
}	}