Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.544 and 1.548

version 1.544, 2023/12/28 19:38:17	version 1.548, 2024/04/18 17:53:15
Line 378 sub primary_menu {	Line 378 sub primary_menu {
} else {	} else {
next;	next;
}	}
	}
if ($env{'request.course.id'} && $menucoll) {	if ($env{'request.course.id'} && $menucoll) {
next if ($item->[3]) && (!$menuopts{$item->[3]});	next if ($item->[3]) && (!$menuopts{$item->[3]});
}	}
Line 1306 ENDMENUITEMS	Line 1307 ENDMENUITEMS
s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document	s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
}	}
	}
	#
	# Editing options usually accessed via "Settings" in inline menu need to be
	# accessed in a different way, when Authoring Space is accessed in course
	# context
	#
	if ($env{'request.role'} !~/^(aa\|ca\|au)/) {
	my $privfile = &Apache::loncommon::escape_single("/priv/$udom/$uname/$thisdisfn");
	$menuitems .= (<<ENDMENUITEMS);
	s&7&5&editops.png&Options&edit[_1]&gocstr('/adm/preferences?action=authorsettings','$privfile')&Authoring Space Options
	ENDMENUITEMS
	}
if (ref($bread_crumbs) eq 'ARRAY') {	if (ref($bread_crumbs) eq 'ARRAY') {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
foreach my $crumb (@{$bread_crumbs}){	foreach my $crumb (@{$bread_crumbs}){
Line 1524 ENDMENUITEMS	Line 1537 ENDMENUITEMS
'tools', $inlineremote[63]);	'tools', $inlineremote[63]);
}	}
&advtools_crumbs(@inlineremote);	&advtools_crumbs(@inlineremote);
	#options link/icon in constructions space viewed with course role
	if (($env{'request.state'} eq 'construct') &&
	($env{'request.role'} !~/^(aa\|ca\|au)/)) {
	&Apache::lonhtmlcommon::add_breadcrumb_tool(
	'advtools', $inlineremote[75]);
	}
}	}
} else {	} else {
if ($showprogress) {	if ($showprogress) {
Line 1708 sub prepare_functions {	Line 1727 sub prepare_functions {
} elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) &&	} elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) &&
($resurl ne '/cgi-bin/printout.pl')) {	($resurl ne '/cgi-bin/printout.pl')) {
if ($env{'request.filename'}) {	if ($env{'request.filename'}) {
my $file=&Apache::lonnet::declutter($env{'request.filename'});	my $file;
	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
	if ($env{'request.filename'} =~ m{^\Q$londocroot\E/priv/}) {
	$file = $env{'request.filename'};
	$file =~ s{^\Q$londocroot\E/}{};
	} else {
	$file=&Apache::lonnet::declutter($env{'request.filename'});
	}
($cfile,$home,$switchserver,$forceedit,$forceview) =	($cfile,$home,$switchserver,$forceedit,$forceview) =
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,	&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);	&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
Line 2766 function gocstr(url,filename) {	Line 2792 function gocstr(url,filename) {
this.document.cstrprint.submit();	this.document.cstrprint.submit();
return;	return;
}	}
	if (url == '/adm/preferences?action=authorsettings') {
	document.location.href=url+'&returnurl='+filename;
	return;
	}
if (url !='') {	if (url !='') {
this.document.constspace.filename.value = filename;	this.document.constspace.filename.value = filename;
this.document.constspace.action = url;	this.document.constspace.action = url;

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.544
changed lines
	Added in v.1.548