version 1.22, 2001/07/05 18:14:17
|
version 1.23, 2001/08/30 21:56:55
|
Line 13
|
Line 13
|
# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30, |
# 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, |
# 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, |
# 11/1,11/2,11/14,11/16,11/22,12/28, |
# 07/05/01 Gerd Kortemeyer |
# 07/05/01,08/30 Gerd Kortemeyer |
|
|
package Apache::lonuserstate; |
package Apache::lonuserstate; |
|
|
Line 330 sub accinit {
|
Line 330 sub accinit {
|
$#uriparts--; |
$#uriparts--; |
my $uripath=join('/',@uriparts); |
my $uripath=join('/',@uriparts); |
$uripath=~s/^\/res\///; |
$uripath=~s/^\/res\///; |
|
if ($uripath) { |
my $uricond='0'; |
my $uricond='0'; |
if (defined($hash{'conditions_'.$resid})) { |
if (defined($hash{'conditions_'.$resid})) { |
$uricond=$captured{$hash{'conditions_'.$resid}}; |
$uricond=$captured{$hash{'conditions_'.$resid}}; |
Line 347 sub accinit {
|
Line 348 sub accinit {
|
} else { |
} else { |
$acchash{'acc.res.'.$short.'.'.$uripath}= |
$acchash{'acc.res.'.$short.'.'.$uripath}= |
'&'.$urifile.':'.$uricond.'&'; |
'&'.$urifile.':'.$uricond.'&'; |
} |
} |
|
} |
} split(/\,/,$hash{$_}); |
} split(/\,/,$hash{$_}); |
} |
} |
} keys %hash; |
} keys %hash; |