loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.236, 2004/11/30 22:57:16	version 1.238, 2004/12/02 00:01:34
Line 2606 ENDROLE	Line 2606 ENDROLE
($ENV{'request.filename'} =~ m\|^/home/([^/]+)/public_html/(.*)\|);	($ENV{'request.filename'} =~ m\|^/home/([^/]+)/public_html/(.*)\|);
my $formaction='/priv/'.$uname.'/'.$thisdisfn;	my $formaction='/priv/'.$uname.'/'.$thisdisfn;
$formaction=~s/\/+/\//g;	$formaction=~s/\/+/\//g;
unless ($customtitle) {	unless ($customtitle) { #this is for resources; directories have customtitle, and crumbs and select recent are created in lonpubdir.pm
my $parentpath = $thisdisfn;	my $parentpath = '';
if ($thisdisfn =~ m-(.+/)[^/]*$-) {	if ($thisdisfn =~ m-(.+/)[^/]*$-) {
$parentpath = $1;	$parentpath = $1;
}	}
Line 3887 sub escape_double {	Line 3887 sub escape_double {
# Escapes the last element of a full URL.	# Escapes the last element of a full URL.
sub escape_url {	sub escape_url {
my ($url) = @_;	my ($url) = @_;
my @urlslices = split(/\//, $url);	my @urlslices = split(/\//, $url,-1);
my $lastitem = &Apache::lonnet::escape(pop(@urlslices));	my $lastitem = &Apache::lonnet::escape(pop(@urlslices));
return join('/',@urlslices).'/'.$lastitem;	return join('/',@urlslices).'/'.$lastitem;
}	}