|
version 1.99.2.1, 2006/02/23 08:38:54
|
version 1.103, 2006/02/22 23:44:55
|
|
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})) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserstate.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat