version 1.164, 2001/10/16 08:53:19
|
version 1.167, 2001/10/30 19:19:09
|
Line 131
|
Line 131
|
# 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20,9/21,9/26, |
# 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20,9/21,9/26, |
# 10/2 Gerd Kortemeyer |
# 10/2 Gerd Kortemeyer |
# 10/5,10/10 Scott Harrison |
# 10/5,10/10 Scott Harrison |
# 10/15 Gerd Kortemeyer |
|
|
|
package Apache::lonnet; |
package Apache::lonnet; |
|
|
Line 855 sub devalidate {
|
Line 854 sub devalidate {
|
} |
} |
} |
} |
|
|
|
# -------------------------------------------------------------------Temp Store |
|
|
|
sub tmpstore { |
|
my ($storehash,$symb,$namespace,$domain,$stuname) = @_; |
|
my $home=''; |
|
|
|
if ($stuname) { |
|
$home=&homeserver($stuname,$domain); |
|
|
|
} |
|
|
|
if (!$symb) { |
|
$symb=&symbread(); |
|
if (!$symb) { |
|
$symb= $ENV{'request.url'}; |
|
} |
|
} |
|
|
|
$symb=escape($symb); |
|
if (!$namespace) { unless ($namespace=$ENV{'request.course.id'}) { return ''; } } |
|
if (!$domain) { $domain=$ENV{'user.domain'}; } |
|
if (!$stuname) { $stuname=$ENV{'user.name'}; } |
|
if (!$home) { $home=$ENV{'user.home'}; } |
|
my $namevalue=''; |
|
map { |
|
$namevalue.=escape($_).'='.escape($$storehash{$_}).'&'; |
|
} keys %$storehash; |
|
$namevalue=~s/\&$//; |
|
|
|
} |
|
|
# ----------------------------------------------------------------------- Store |
# ----------------------------------------------------------------------- Store |
|
|
sub store { |
sub store { |
Line 1242 sub allowed {
|
Line 1272 sub allowed {
|
|
|
# If this is generating or modifying users, exit with special codes |
# If this is generating or modifying users, exit with special codes |
|
|
if (':csu:cdc:ccc:cin:cta:cep:ccr:cst:cad:cli:cau:cdg:'=~/\:$priv\:/) { |
if (':csu:cdc:ccc:cin:cta:cep:ccr:cst:cad:cli:cau:cdg:cca:'=~/\:$priv\:/) { |
return $thisallowed; |
return $thisallowed; |
} |
} |
# |
# |
Line 1911 sub EXT {
|
Line 1941 sub EXT {
|
$spacequalifierrest}; |
$spacequalifierrest}; |
} elsif ($realm eq 'resource') { |
} elsif ($realm eq 'resource') { |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
|
|
|
# print '<br>'.$space.' - '.$qualifier.' - '.$spacequalifierrest; |
|
|
|
|
# ----------------------------------------------------- Cascading lookup scheme |
# ----------------------------------------------------- Cascading lookup scheme |
my $symbp; |
my $symbp; |
if ($symbparm) { |
if ($symbparm) { |
Line 2008 sub EXT {
|
Line 2042 sub EXT {
|
# ------------------------------------------------------------------ Cascade up |
# ------------------------------------------------------------------ Cascade up |
|
|
unless ($space eq '0') { |
unless ($space eq '0') { |
my ($part,$id)=split(/(\.|\_)/,$space); |
my ($part,$id)=split(/\_/,$space); |
if ($id) { |
if ($id) { |
my $partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest, |
my $partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest, |
$symbparm); |
$symbparm); |
Line 2057 sub metadata {
|
Line 2091 sub metadata {
|
$keyroot.='_'.$token->[2]->{'part'}; |
$keyroot.='_'.$token->[2]->{'part'}; |
} |
} |
if (defined($token->[2]->{'id'})) { |
if (defined($token->[2]->{'id'})) { |
$keyroot.='.'.$token->[2]->{'id'}; |
$keyroot.='_'.$token->[2]->{'id'}; |
} |
} |
if ($metacache{$uri.':packages'}) { |
if ($metacache{$uri.':packages'}) { |
$metacache{$uri.':packages'}.=','.$package.$keyroot; |
$metacache{$uri.':packages'}.=','.$package.$keyroot; |
Line 2070 sub metadata {
|
Line 2104 sub metadata {
|
my $value=$packagetab{$_}; |
my $value=$packagetab{$_}; |
my $part=$keyroot; |
my $part=$keyroot; |
$part=~s/^\_//; |
$part=~s/^\_//; |
$part=~s/\./\_/g; |
|
if ($subp eq 'display') { |
if ($subp eq 'display') { |
$value.=' [Part: '.$part.']'; |
$value.=' [Part: '.$part.']'; |
} |
} |
Line 2090 sub metadata {
|
Line 2123 sub metadata {
|
$unikey.='_'.$token->[2]->{'part'}; |
$unikey.='_'.$token->[2]->{'part'}; |
} |
} |
if (defined($token->[2]->{'id'})) { |
if (defined($token->[2]->{'id'})) { |
$unikey.='.'.$token->[2]->{'id'}; |
$unikey.='_'.$token->[2]->{'id'}; |
} |
} |
if (defined($token->[2]->{'name'})) { |
if (defined($token->[2]->{'name'})) { |
$unikey.='_'.$token->[2]->{'name'}; |
$unikey.='_'.$token->[2]->{'name'}; |