loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.366, 2011/12/28 22:41:02	version 1.368, 2012/02/03 00:15:14
Line 1132 sub utilityfunctions {	Line 1132 sub utilityfunctions {
my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.	my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
&mt('Switch server?');	&mt('Switch server?');

	my $esc_url=&escape($currenturl);
	my $esc_symb=&escape($currentsymb);

return (<<ENDUTILITY)	return (<<ENDUTILITY)

var currentURL="$currenturl";	var currentURL=unescape("$esc_url");
var reloadURL="$currenturl";	var reloadURL=unescape("$esc_url");
var currentSymb="$currentsymb";	var currentSymb=unescape("$esc_symb");

$dc_popup_cid	$dc_popup_cid

Line 1657 sub required_privs {	Line 1659 sub required_privs {
'/adm/trackstudent' => 'vsa',	'/adm/trackstudent' => 'vsa',
'/adm/statistics' => 'vgr',	'/adm/statistics' => 'vgr',
'/adm/setblock' => 'dcm',	'/adm/setblock' => 'dcm',
	'/adm/coursedocs' => 'mdc',
};	};
unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {	unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
$privs->{'/adm/classcalc'} = 'vgr',	$privs->{'/adm/classcalc'} = 'vgr',