loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.244.2.12, 2010/01/18 21:35:55	version 1.244.2.14, 2010/01/19 16:53:10
Line 576 sub innerregister {	Line 576 sub innerregister {
}	}
# Finally, turn the button on or off	# Finally, turn the button on or off
if ($cfile && !$const_space) {	if ($cfile && !$const_space) {
$editbutton=&switch	my $nocrsedit;
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',	# Suppress display where CC has switched to student role.
	if ($env{'request.course.id'}) {
	unless(&Apache::lonnet::allowed('mdc',
	$env{'request.course.id'})) {
	$nocrsedit = 1;
	}
	}
	if ($nocrsedit) {
	$editbutton=&clear(6,1);
	} else {
	$editbutton=&switch
	('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");	"go('".$cfile."');","Edit this resource");
$noeditbutton = 0;	$noeditbutton = 0;
	}
} elsif ($editbutton eq '') {	} elsif ($editbutton eq '') {
$editbutton=&clear(6,1);	$editbutton=&clear(6,1);
}	}
Line 1709 sub roles_selector {	Line 1721 sub roles_selector {
my (%courseroles,%seccount);	my (%courseroles,%seccount);
my $is_cc;	my $is_cc;
my $role_selector;	my $role_selector;
	my $ccrole;
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$ccrole = 'co';	$ccrole = 'co';
} else {	} else {