loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.126, 2004/05/11 06:12:45	version 1.127, 2004/05/11 06:37:39
Line 585 END	Line 585 END
&Apache::lonnet::declutter($url));	&Apache::lonnet::declutter($url));
(undef,undef,$url)=&Apache::lonnet::decode_symb($symb);	(undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
$url=&Apache::lonnet::clutter($url);	$url=&Apache::lonnet::clutter($url);
	if ($url=~/^\/*uploaded\//) {
	$url=~/\.(\w+)$/;
	my $embstyle=&Apache::loncommon::fileembstyle($1);
	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {
	$url='/adm/wrapper'.$url;
	} elsif ($embstyle eq 'ssi') {
	#do nothing with these
	} elsif ($url!~/\.(sequence\|page)$/) {
	$url='/adm/coursedocs/showdoc'.$url;
	}
	}
$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);	$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
}	}
my $parameterset=' ';	my $parameterset=' ';
Line 1048 sub handler {	Line 1059 sub handler {
$ENV{'form.folder'}=pop(@folderpath);	$ENV{'form.folder'}=pop(@folderpath);
}	}
if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {	if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
$showdoc=$1;	$showdoc='/'.$1;
}	}
unless ($showdoc) { # got called from remote	unless ($showdoc) { # got called from remote
$forcestandard=($ENV{'form.folder'}=~/^default_/);	$forcestandard=($ENV{'form.folder'}=~/^default_/);