rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

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);
}	}