loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.209, 2002/04/26 18:49:09	version 1.211, 2002/05/06 13:46:41
Line 2517 sub symblist {	Line 2517 sub symblist {
return 'error';	return 'error';
}	}

	# --------------------------------------------------------------- Clean-up symb

	sub symbclean {
	my $symb=shift;
	# remove version from map
	$symb=~s/\.(\d+)\.(\w+)\_\_\_/\.$2\_\_\_/;
	# remove version from URL
	$symb=~s/\.(\d+)\.(\w+)$/\.$2/;
	return $symb;
	}

# ------------------------------------------------------ Return symb list entry	# ------------------------------------------------------ Return symb list entry

sub symbread {	sub symbread {
my $thisfn=shift;	my $thisfn=shift;
unless ($thisfn) {	unless ($thisfn) {
if ($ENV{'request.symb'}) { return $ENV{'request.symb'}; }	if ($ENV{'request.symb'}) { return &symbclean($ENV{'request.symb'}); }
$thisfn=$ENV{'request.filename'};	$thisfn=$ENV{'request.filename'};
}	}
$thisfn=declutter($thisfn);	$thisfn=declutter($thisfn);
Line 2581 sub symbread {	Line 2592 sub symbread {
}	}
}	}
if ($syval) {	if ($syval) {
return $syval.'___'.$thisfn;	return &symbclean($syval.'___'.$thisfn);
}	}
}	}
&appenv('request.ambiguous' => $thisfn);	&appenv('request.ambiguous' => $thisfn);