loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.141, 2001/08/07 14:33:53	version 1.143, 2001/08/07 22:56:06
Line 1823 sub EXT {	Line 1823 sub EXT {
$metadata=&metadata($ENV{'request.filename'},	$metadata=&metadata($ENV{'request.filename'},
'parameter_'.$spacequalifierrest);	'parameter_'.$spacequalifierrest);
if ($metadata) { return $metadata; }	if ($metadata) { return $metadata; }

	$spacequalifierrest=~/[^\_]+$/;

	$metadata=&metadata($ENV{'request.filename'},'parameter_0'.$1);

	if ($metadata) { return $metadata; }

# ---------------------------------------------------- Any other user namespace	# ---------------------------------------------------- Any other user namespace
} elsif ($realm eq 'environment') {	} elsif ($realm eq 'environment') {
Line 2197 if ($readit ne 'done') {	Line 2203 if ($readit ne 'done') {
while (my $configline=<$config>) {	while (my $configline=<$config>) {
chomp($configline);	chomp($configline);
my ($short,$plain)=split(/:/,$configline);	my ($short,$plain)=split(/:/,$configline);
if ($plain ne '') { $packagetab{$short}=$plain; }	my ($pack,$name)=split(/\&/,$short);
	if ($plain ne '') {
	$packagetab{$pack.'&'.$name.'&name'}=$name;
	$packagetab{$short}=$plain;
	}
}	}
}	}