Return to lonuserstate.pm CVS log | Up to [LON-CAPA] / rat |
version 1.130, 2008/12/19 03:58:24 | version 1.131, 2009/02/18 07:06:19 |
---|---|
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); |
} | } |