loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.292, 2002/10/07 13:50:36	version 1.293, 2002/10/07 20:24:38
Line 2838 sub metadata {	Line 2838 sub metadata {

$uri=&declutter($uri);	$uri=&declutter($uri);
# if it is a non metadata possible uri return quickly	# if it is a non metadata possible uri return quickly
if (($uri eq '') \|\| ($uri =~ m\|^/*adm/\|) \|\| ($uri =~ m\|/$\|) \|\|	if (($uri eq '') \|\| (($uri =~ m\|^/*adm/\|) && ($uri !~ m\|^adm/includes\|)) \|\|
($uri =~ m\|/.meta$\|)) {	($uri =~ m\|/$\|) \|\| ($uri =~ m\|/.meta$\|)) {
return '';	return '';
}	}
my $filename=$uri;	my $filename=$uri;