loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.66, 2000/11/20 19:04:15	version 1.67, 2000/11/21 12:23:25
Line 67	Line 67
# 10/04 Gerd Kortemeyer	# 10/04 Gerd Kortemeyer
# 10/04 Guy Albertelli	# 10/04 Guy Albertelli
# 10/06,10/09,10/10,10/11,10/14,10/20,10/23,10/25,10/26,10/27,10/28,10/29,	# 10/06,10/09,10/10,10/11,10/14,10/20,10/23,10/25,10/26,10/27,10/28,10/29,
# 10/30,10/31,11/2,11/14,11/15,11/16,11/20 Gerd Kortemeyer	# 10/30,10/31,11/2,11/14,11/15,11/16,11/20,11/21 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 1308 sub EXT {	Line 1308 sub EXT {

# --------------------------------------------- last, look in resource metadata	# --------------------------------------------- last, look in resource metadata
my $uri=&declutter($ENV{'request.filename'});	my $uri=&declutter($ENV{'request.filename'});
my $filename=$perlvar{'lonDocRoot'}.'/res/'.$ENV.'.meta';	my $filename=$perlvar{'lonDocRoot'}.'/res/'.$uri.'.meta';
if (-e $filename) {	if (-e $filename) {
my @content;	my @content;
{	{