version 1.129, 2008/11/18 19:13:37
|
version 1.131, 2009/02/18 07:06:19
|
Line 247 sub parse_resource {
|
Line 247 sub parse_resource {
|
$turi=~/\.(\w+)$/; |
$turi=~/\.(\w+)$/; |
my $embstyle=&Apache::loncommon::fileembstyle($1); |
my $embstyle=&Apache::loncommon::fileembstyle($1); |
if ($token->[2]->{'external'} eq 'true') { # external |
if ($token->[2]->{'external'} eq 'true') { # external |
$turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//; |
$turi=~s/^https?\:\/\//\/adm\/wrapper\/ext\//; |
} elsif ($turi=~/^\/*uploaded\//) { # uploaded |
} elsif ($turi=~/^\/*uploaded\//) { # uploaded |
if (($embstyle eq 'img') |
if (($embstyle eq 'img') |
|| ($embstyle eq 'emb') |
|| ($embstyle eq 'emb') |
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); |
} |
} |
|
|