rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.63, 2003/10/23 21:01:54	version 1.65, 2003/10/29 21:50:41
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# (Server for RAT Maps
#
# (Edit Handler for RAT Maps
# (TeX Content Handler
#
# YEAR=2000
# 05/29/00,05/30 Gerd Kortemeyer)
# 7/1 Gerd Kortemeyer)
# 7/1,7/3,7/4,7/7,7/8,7/10 Gerd Kortemeyer)
#
# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30,
# 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,
# 11/1,11/2,11/14,11/16,11/22,12/28,
# YEAR=2001
# 07/05/01,08/30,08/31 Gerd Kortemeyer
#
###	###

package Apache::lonuserstate;	package Apache::lonuserstate;
Line 89 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; }
$uri=~s/\.(\w+)$/\.$version\.$1/;	$uri=~s/\.(\w+)$/\.$version\.$1/;
}	}
return $uri;	return $uri;
Line 98 sub putinversion {	Line 82 sub putinversion {
# ----------------------------------------- Processing versions file for course	# ----------------------------------------- Processing versions file for course

sub processversionfile {	sub processversionfile {
my %cenv=shift;	my %cenv=@_;
my %versions=&Apache::lonnet::dump('resourceversions',	my %versions=&Apache::lonnet::dump('resourceversions',
$cenv{'domain'},	$cenv{'domain'},
$cenv{'num'});	$cenv{'num'});