rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonpageflip.pm between versions 1.72 and 1.75

version 1.72, 2006/10/20 19:42:28	version 1.75, 2008/03/12 02:45:50
Line 240 sub first_accessible_resource {	Line 240 sub first_accessible_resource {
if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',	if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',
&GDBM_READER(),0640)) {	&GDBM_READER(),0640)) {
$furl=$hash{'first_url'};	$furl=$hash{'first_url'};
if (!&Apache::lonnet::allowed('bre',$furl)) {	my %args;
	my ($url,$args) = split(/\?/,$furl);
	foreach my $pair (split(/\&/,$args)) {
	my ($name,$value) = split(/=/,$pair);
	$args{&unescape($name)} = &unescape($value);
	}
	if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) {
# Wow, we cannot see this ... move forward to the next one that we can see	# Wow, we cannot see this ... move forward to the next one that we can see
my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward');	my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward');
# Build the new URL	# Build the new URL
my ($newresid,$newmapid)=split(/\./,$newrid);	my ($newmapid,$newresid)=split(/\./,$newrid);
my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid});	my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid});
$furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb });	$furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb });
if ($hash{'encrypted_'.$newrid}) {	if ($hash{'encrypted_'.$newrid}) {
Line 438 sub handler {	Line 444 sub handler {
$redirectsymb='';	$redirectsymb='';
}	}
}	}
&Apache::lonnet::appenv('user.criticalcheck.time'=>time);	&Apache::lonnet::appenv({'user.criticalcheck.time'=>time});
}	}

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.72
changed lines
	Added in v.1.75