version 1.63, 2003/10/23 21:01:54
|
version 1.70, 2003/12/15 15:49:23
|
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; } |
|
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 98 sub putinversion {
|
Line 85 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'}); |
Line 176 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=~/\S/) { # 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; |
|
} |
} |
} |
} |
} |
|
|