Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonpageflip.pm between versions 1.77 and 1.80.8.2

version 1.77, 2008/11/20 15:19:05	version 1.80.8.2, 2013/05/10 23:24:19
Line 222 sub navlaunch {	Line 222 sub navlaunch {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
$r->print(&Apache::loncommon::start_page('Launched'));	$r->print(&Apache::loncommon::start_page('Launched'));
$r->print(<<ENDNAV);	$r->print(<<ENDNAV);
<p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p>	<p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p>
<script type="text/javascript">	<script type="text/javascript">
function collapse() {	function collapse() {
menu=window.open("/adm/navmaps?collapseExternal","loncapanav",	menu=window.open("/adm/navmaps?collapseExternal","loncapanav",
"height=600,width=400,scrollbars=1");	"height=600,width=400,scrollbars=1");
this.document.location='/adm/navmaps?turningOffExternal';	this.document.location='/adm/navmaps?turningOffExternal';
}	}
</script>	</script>
<p><a href="javascript:collapse();">Collapse external navigation window</a></p>	<p><a href="javascript:collapse();">Collapse external navigation window</a></p>
ENDNAV	ENDNAV
Line 248 sub first_accessible_resource {	Line 248 sub first_accessible_resource {
my ($name,$value) = split(/=/,$pair);	my ($name,$value) = split(/=/,$pair);
$args{&unescape($name)} = &unescape($value);	$args{&unescape($name)} = &unescape($value);
}	}
if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) {	if ((($env{'environment.remotenavmap'} eq 'on') && ($furl =~ m{^/adm/navmaps})) \|\|
	(!&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
Line 325 sub handler {	Line 326 sub handler {
untie %hash;	untie %hash;
} else {	} else {
$newloc='/adm/navmaps';	$newloc='/adm/navmaps';
}	}
if ($newloc eq '/adm/navmaps' && $direction eq 'navlaunch') {	if (($newloc =~ m{^/adm/navmaps}) && ($direction eq 'navlaunch')) {
&navlaunch($r);	&navlaunch($r);
return OK;	return OK;
} else {	} else {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->header_out(Location =>	$r->header_out(Location =>
&Apache::lonnet::absolute_url().$newloc);	&Apache::lonnet::absolute_url().$newloc);

return REDIRECT;	return REDIRECT;
}	}
}	}
$currenturl=~s/^http\:\/\///;	$currenturl=~s/^https?\:\/\///;
$currenturl=~s/^[^\/]+//;	$currenturl=~s/^[^\/]+//;
#	#
# Is the current URL on the map? If not, start with last known URL	# Is the current URL on the map? If not, start with last known URL
Line 352 sub handler {	Line 353 sub handler {
if ($last) {	if ($last) {
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);	$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);
} else {	} else {
if ($direction eq 'return') {	if ($direction eq 'return') {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->header_out(Location =>	$r->header_out(Location =>
&Apache::lonnet::absolute_url().	&Apache::lonnet::absolute_url().
'/adm/noidea.html');	'/adm/noidea.html');
return REDIRECT;	return REDIRECT;
} else {	} else {
&navlaunch($r);	&navlaunch($r);
return OK;	return OK;
}	}
}	}
}	}
# ------------------------------------------- Do we have any idea where we are?	# ------------------------------------------- Do we have any idea where we are?
Line 449 sub handler {	Line 450 sub handler {
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time});	&Apache::lonnet::appenv({'user.criticalcheck.time'=>time});
}	}

	if (($redirecturl =~ m{^/adm/navmaps}) &&
	($env{'environment.remotenavmap'} eq 'on')) {
	&navlaunch($r);
	return OK;
	}
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
my $url=&Apache::lonnet::absolute_url().$redirecturl;	my $url=&Apache::lonnet::absolute_url().$redirecturl;
$url = &add_get_param($url, { 'symb' => $redirectsymb});	$url = &add_get_param($url, { 'symb' => $redirectsymb});
Line 478 $start_page	Line 484 $start_page
<p>	<p>
$lt{'pick'}:	$lt{'pick'}:
<p>	<p>
<table border=2>	<table border="2">
<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>	<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>
ENDSTART	ENDSTART
foreach my $id (@possibilities) {	foreach my $id (@possibilities) {
Line 519 ENDMENU	Line 525 ENDMENU
} else {	} else {
# ---------------------------------------- No, could not determine where we are	# ---------------------------------------- No, could not determine where we are
$r->internal_redirect('/adm/ambiguous');	$r->internal_redirect('/adm/ambiguous');
	return OK;
}	}
} else {	} else {
# -------------------------- Class was not initialized or page fliped strangely	# -------------------------- Class was not initialized or page fliped strangely

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.77
changed lines
	Added in v.1.80.8.2