version 1.99.2.1, 2006/02/23 08:38:54
|
version 1.101, 2006/02/22 21:58:59
|
Line 445 sub accinit {
|
Line 445 sub accinit {
|
foreach (split(/\,/,$hash{$_})) { |
foreach (split(/\,/,$hash{$_})) { |
my $resid=$_; |
my $resid=$_; |
my $uri=$hash{'src_'.$resid}; |
my $uri=$hash{'src_'.$resid}; |
$uri=~s/^\/adm\/wrapper//; |
my ($uripath,$urifile) = |
$uri=&Apache::lonnet::declutter($uri); |
&Apache::lonnet::split_uri_for_cond($uri); |
my @uriparts=split(/\//,$uri); |
|
my $urifile=$uriparts[$#uriparts]; |
|
$#uriparts--; |
|
my $uripath=join('/',@uriparts); |
|
if ($uripath) { |
if ($uripath) { |
my $uricond='0'; |
my $uricond='0'; |
if (defined($hash{'conditions_'.$resid})) { |
if (defined($hash{'conditions_'.$resid})) { |