rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.64, 2003/10/29 21:21:08	version 1.69, 2003/12/15 15:26:26
Line 73 sub putinversion {	Line 73 sub putinversion {
my $uri=shift;	my $uri=shift;
if ($hash{'version_'.$uri}) {	if ($hash{'version_'.$uri}) {
my $version=$hash{'version_'.$uri};	my $version=$hash{'version_'.$uri};
if ($version eq 'current') { return $uri; }	if ($version eq 'mostrecent') { return $uri; }
	if ($version eq &Apache::lonnet::getversion(
	&Apache::lonnet::filelocation('',$uri)))
	{ return $uri; }
$uri=~s/\.(\w+)$/\.$version\.$1/;	$uri=~s/\.(\w+)$/\.$version\.$1/;
}	}
return $uri;	return $uri;
Line 160 sub loadmap {	Line 163 sub loadmap {
} elsif ($turi!~/\.(sequence\|page)$/) {	} elsif ($turi!~/\.(sequence\|page)$/) {
$turi='/adm/coursedocs/showdoc'.$turi;	$turi='/adm/coursedocs/showdoc'.$turi;
}	}
} else { # normal internal resource	} elsif ($turi) { # normal non-empty internal resource
if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {	my $mapdir=$uri;
$turi='/adm/wrapper'.$turi;	$mapdir=~s/[^\/]+$//;
}	$turi=&Apache::lonnet::hreflocation($mapdir,$turi);
	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {
	$turi='/adm/wrapper'.$turi;
	}
}	}
}	}