loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.395, 2012/12/06 13:38:25	version 1.397, 2012/12/06 21:43:27
Line 578 sub innerregister {	Line 578 sub innerregister {
my $text = 'Edit Folder';	my $text = 'Edit Folder';
if (($mapurl =~ /\.page$/) \|\|	if (($mapurl =~ /\.page$/) \|\|
($env{'request.symb'}=~	($env{'request.symb'}=~
/^uploaded/$cdom/$cnum/default_\d+\.page$/)) {	m{uploaded/$cdom/$cnum/default_\d+\.page$})) {
$text = 'Edit Page';	$text = 'Edit Page';
}	}
&switch('','',7,4,'docs-22x22.png',$text,'parms[_2]',	&switch('','',7,4,'docs-22x22.png',$text,'parms[_2]',
Line 915 sub prepare_functions {	Line 915 sub prepare_functions {
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&	(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
(($resurl =~ m{^/adm/wrapper/ext/}) \|\|	(($resurl =~ m{^/adm/wrapper/ext/}) \|\|
($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) \|\|	($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) \|\|
($resurl eq '/adm/supplemental'))) {	($resurl eq '/adm/supplemental') \|\|
	($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) \|\|
	($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) {
my @folders=split('&',$env{'form.folderpath'});	my @folders=split('&',$env{'form.folderpath'});
if ((@folders > 2) \|\| ($resurl ne '/adm/supplemental')) {	if ((@folders > 2) \|\| ($resurl ne '/adm/supplemental')) {
my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));	my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));