loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.467, 2011/12/04 15:51:58	version 1.468, 2011/12/21 20:21:49
Line 2876 sub handler {	Line 2876 sub handler {
# Do we directly jump somewhere?	# Do we directly jump somewhere?

if ($env{'form.command'} eq 'direct') {	if ($env{'form.command'} eq 'direct') {
my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($env{'form.symb'});	my ($mapurl,$id,$resurl);
if ($resurl=~/\.(sequence\|page)$/) {	if ($env{'form.symb'} eq '') {
$mapurl=$resurl;	$mapurl = $env{'course.'.$env{'request.course.id'}.'.url'};
	} else {
	($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($env{'form.symb'});
	if ($resurl=~/\.(sequence\|page)$/) {
	$mapurl=$resurl;
	} elsif ($resurl eq 'adm/navmaps') {
	$mapurl=$env{'course.'.$env{'request.course.id'}.'.url'};
	}
}	}
my $mapresobj;	my $mapresobj;
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();