Return to lonuserstate.pm CVS log | Up to [LON-CAPA] / rat |
version 1.128.2.1, 2008/12/21 04:46:53 | version 1.128.2.2, 2009/03/21 06:12:05 |
---|---|
Line 573 sub accinit { | Line 573 sub accinit { |
$acchash{'acc.res.'.$short.'.'}='&:0&'; | $acchash{'acc.res.'.$short.'.'}='&:0&'; |
my $courseuri=$uri; | my $courseuri=$uri; |
$courseuri=~s/^\/res\///; | $courseuri=~s/^\/res\///; |
&Apache::lonnet::delenv('(acc\.|httpref\.)'); | my $regexp = 1; |
&Apache::lonnet::delenv('(acc\.|httpref\.)',$regexp); | |
&Apache::lonnet::appenv(\%acchash); | &Apache::lonnet::appenv(\%acchash); |
} | } |