loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.722, 2006/03/27 23:00:18	version 1.723, 2006/03/27 23:43:43
Line 4743 sub stat_file {	Line 4743 sub stat_file {
$uri = &clutter($uri);	$uri = &clutter($uri);

# we want just the url part without the unneeded accessor url bits	# we want just the url part without the unneeded accessor url bits
if ($file =~ m-^/adm/-) {	if ($uri =~ m-^/adm/-) {
$file=~s-^/adm/wrapper/-/-;	$uri=~s-^/adm/wrapper/-/-;
$file=~s-^/adm/coursedocs/showdoc/-/-;	$uri=~s-^/adm/coursedocs/showdoc/-/-;
}	}

my ($udom,$uname,$file,$dir);	my ($udom,$uname,$file,$dir);
if ($uri =~ m-^/(uploaded\|editupload)/-) {	if ($uri =~ m-^/(uploaded\|editupload)/-) {
($udom,$uname,$file) =	($udom,$uname,$file) =