loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.398, 2012/12/07 17:15:56	version 1.399, 2012/12/22 14:57:20
Line 487 sub innerregister {	Line 487 sub innerregister {
}	}
my $trail;	my $trail;
if ($env{'form.folderpath'}) {	if ($env{'form.folderpath'}) {
my $editbutton =	&prepare_functions($resurl,$forcereg,$group,undef,undef,1);
&prepare_functions($resurl,$forcereg,$group,undef,undef,1);
($trail) =	($trail) =
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);	&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
} else {	} else {
Line 525 sub innerregister {	Line 524 sub innerregister {
$editbutton = &prepare_functions($resurl,$forcereg,$group);	$editbutton = &prepare_functions($resurl,$forcereg,$group);
}	}
if ($editbutton eq '') {	if ($editbutton eq '') {
&clear(6,1);	$editbutton = &clear(6,1);
}	}

#	#
Line 860 sub prepare_functions {	Line 859 sub prepare_functions {
$forceedit,$forceview,$forcereg,	$forceedit,$forceview,$forcereg,
$env{'form.title'},$env{'form.suppurl'});	$env{'form.title'},$env{'form.suppurl'});
}	}
} elsif ($resurl !~ m{^adm/($match_domain)/($match_username)/aboutme$}) {	} elsif ($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
if ($env{'request.filename'}) {	if ($env{'request.filename'}) {
my $file=&Apache::lonnet::declutter($env{'request.filename'});	my $file=&Apache::lonnet::declutter($env{'request.filename'});
($cfile,$home,$switchserver,$forceedit,$forceview) =	($cfile,$home,$switchserver,$forceedit,$forceview) =