loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.316 and 1.351

version 1.316, 2010/03/10 21:25:50	version 1.351, 2011/09/27 14:50:12
Line 107 entries from mydesk.tab	Line 107 entries from mydesk.tab

Same as primary_menu() but operates on @secondary_menu.	Same as primary_menu() but operates on @secondary_menu.

=item show_return_link()

=item registerurl()

This gets called in the header section

=item innerregister()	=item innerregister()

This gets called in order to register a URL, both with the Remote	This gets called in order to register a URL in the body of the document
and in the body of the document

=item loadevents()

=item unloadevents()

=item get_menu_name()

=item clear()	=item clear()

Line 168 use Apache::lonenc();	Line 155 use Apache::lonenc();
use Apache::lonlocal;	use Apache::lonlocal;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use HTML::Entities();	use HTML::Entities();
	use Apache::lonwishlist();

use vars qw(@desklines %category_names %category_members %category_positions	use vars qw(@desklines %category_names %category_members %category_positions
$readdesk @primary_menu @secondary_menu);	$readdesk @primary_menu @secondary_menu);
Line 188 sub prep_menuitem {	Line 176 sub prep_menuitem {
return '<li><a'	return '<li><a'
# highlighting for new messages	# highlighting for new messages
. ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '')	. ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '')
. qq\| href="$$menuitem[0]">$link</a></li>\|;	. qq\| href="$$menuitem[0]" target="_top">$link</a></li>\|;
}	}

# primary_menu() evaluates @primary_menu and returns XHTML for the menu	# primary_menu() evaluates @primary_menu and returns XHTML for the menu
Line 200 sub primary_menu {	Line 188 sub primary_menu {
my $menu;	my $menu;
# each element of @primary contains following array:	# each element of @primary contains following array:
# (link url, icon path, alt text, link text, condition)	# (link url, icon path, alt text, link text, condition)
	my $public;
	if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
	\|\| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
	$public = 1;
	}
foreach my $menuitem (@primary_menu) {	foreach my $menuitem (@primary_menu) {
# evaluate conditions	# evaluate conditions
next if ref($menuitem) ne 'ARRAY'; #	next if ref($menuitem) ne 'ARRAY'; #
Line 207 sub primary_menu {	Line 200 sub primary_menu {
&& &Apache::lonmsg::mynewmail(); # whether a new msg	&& &Apache::lonmsg::mynewmail(); # whether a new msg
next if $$menuitem[4] eq 'newmsg' # arrived or not	next if $$menuitem[4] eq 'newmsg' # arrived or not
&& !&Apache::lonmsg::mynewmail(); #	&& !&Apache::lonmsg::mynewmail(); #
next if $$menuitem[4] !~ /public/ ##we've a public user,	next if $$menuitem[4] !~ /public/ ##we've a public user,
&& $env{'user.name'} eq 'public' ##who should not see all	&& $public; ##who should not see all
&& $env{'user.domain'} eq 'public'; ##links	##links
next if $$menuitem[4] eq 'onlypublic'# hide links which are	next if $$menuitem[4] eq 'onlypublic'# hide links which are
&& $env{'user.name'} ne 'public' # only visible to public	&& !$public; # only visible to public
&& $env{'user.domain'} ne 'public'; # users	# users
next if $$menuitem[4] eq 'roles' ##show links depending on	next if $$menuitem[4] eq 'roles' ##show links depending on
&& &Apache::loncommon::show_course(); ##term 'Courses' or	&& &Apache::loncommon::show_course(); ##term 'Courses' or
next if $$menuitem[4] eq 'courses' ##'Roles' wanted	next if $$menuitem[4] eq 'courses' ##'Roles' wanted
Line 220 sub primary_menu {	Line 213 sub primary_menu {


if ($$menuitem[3] eq 'Help') { # special treatment for helplink	if ($$menuitem[3] eq 'Help') { # special treatment for helplink
$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';	if ($public) {
	my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
	my $defdom = &Apache::lonnet::default_login_domain();
	my $to = &Apache::loncommon::build_recipient_list(undef,
	'helpdeskmail',
	$defdom,$origmail);
	if ($to ne '') {
	$menu .= &prep_menuitem($menuitem);
	}
	} else {
	$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
	}
} else {	} else {
my @items = @{$menuitem};	$menu .= prep_menuitem($menuitem);
$items[0] = 'javascript:'.$menuitem->[0].';';
$menu .= &prep_menuitem(\@items);
}	}
}	}
	$menu =~ s/\[domain\]/$env{'user.domain'}/g;
	$menu =~ s/\[user\]/$env{'user.name'}/g;

return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";	return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";
}	}

	#returns hashref {user=>'',dom=>''} containing:
	# own name, domain if user is au
	# name, domain of parent author if user is ca or aa
	#empty return if user is not an author or not on homeserver
	#
	#TODO this should probably be moved somewhere more central
	#since it can be used by different parts of the system
	sub getauthor{
	return unless $env{'request.role'}=~/^(ca\|aa\|au)/; #nothing to do if user isn't some kind of author

	#co- or assistent author?
	my ($dom, $user) = ($env{'request.role'} =~ /^(?:ca\|aa)\.\/($match_domain)\/($match_username)$/)
	? ($1, $2) #domain, username of the parent author
	: @env{ ('request.role.domain', 'user.name') }; #own domain, username

	# current server == home server?
	my $home = &Apache::lonnet::homeserver($user,$dom);
	foreach (&Apache::lonnet::current_machine_ids()){
	return {user => $user, dom => $dom} if $_ eq $home;
	}

	# if wrong server
	return;
	}

sub secondary_menu {	sub secondary_menu {
my $menu;	my $menu;

my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});	my $crs_sec = $env{'request.course.id'} . ($env{'request.course.sec'}
my $canviewgrps = &Apache::lonnet::allowed('vcg', $env{'request.course.id'}	? "/$env{'request.course.sec'}"
. ($env{'request.course.sec'} ? "/$env{'request.course.sec'}"	: '');
: ''));	my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
my $showlink = &show_return_link();	my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec);
	my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
	my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec);
	my $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec);
	my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec);
	my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec);
	my $author = &getauthor();

my %groups = &Apache::lonnet::get_active_groups(	my %groups = &Apache::lonnet::get_active_groups(
$env{'user.domain'}, $env{'user.name'},	$env{'user.domain'}, $env{'user.name'},
$env{'course.' . $env{'request.course.id'} . '.domain'},	$env{'course.' . $env{'request.course.id'} . '.domain'},
$env{'course.' . $env{'request.course.id'} . '.num'});	$env{'course.' . $env{'request.course.id'} . '.num'});

foreach my $menuitem (@secondary_menu) {	foreach my $menuitem (@secondary_menu) {
# evaluate conditions	# evaluate conditions
next if ref($menuitem) ne 'ARRAY';	next if ref($menuitem) ne 'ARRAY';
next if $$menuitem[4] ne 'always'	next if $$menuitem[4] ne 'always'
	&& $$menuitem[4] ne 'author'
&& !$env{'request.course.id'};	&& !$env{'request.course.id'};
next if $$menuitem[4] eq 'showreturn'
&& !$showlink
&& !($env{'request.state'} eq 'construct');
next if $$menuitem[4] =~ /^mdc/	next if $$menuitem[4] =~ /^mdc/
&& !$canedit;	&& !$canedit;
next if $$menuitem[4] eq 'mdcCourse'	next if $$menuitem[4] eq 'nvgr'
&& $crstype eq 'Community';	&& $canvgr;
next if $$menuitem[4] eq 'mdcCommunity'	next if $$menuitem[4] eq 'vgr'
&& $crstype ne 'Community';	&& !$canvgr;
next if $$menuitem[4] =~ /^remotenav/	next if $$menuitem[4] eq 'cst'
&& $env{'environment.remotenavmap'} ne 'on';	&& !$canmodifyuser;
next if $$menuitem[4] =~ /noremotenav/	next if $$menuitem[4] eq 'ncst'
&& $env{'environment.remotenavmap'} eq 'on';	&& $canmodifyuser;
next if $$menuitem[4] =~ /^(no\|)remotenav$/	next if $$menuitem[4] eq 'mgr'
&& $crstype eq 'Community';	&& !$canmgr;
next if $$menuitem[4] =~ /^(no\|)remotenavCommunity$/	next if $$menuitem[4] eq 'nmgr'
&& $crstype ne 'Community';	&& $canmgr;
	next if $$menuitem[4] eq 'whn'
	&& !$canviewwnew;
	next if $$menuitem[4] eq 'opa'
	&& !$canmodpara;
next if $$menuitem[4] =~ /showgroups$/	next if $$menuitem[4] =~ /showgroups$/
&& !$canviewgrps	&& !$canviewgrps
&& !%groups;	&& !%groups;
	next if $$menuitem[4] eq 'author'
	&& !$author;

if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {	if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
# special treatment for role selector	# special treatment for role selector
Line 279 sub secondary_menu {	Line 319 sub secondary_menu {

$menu .= $roles_selector ? "<li>$roles_selector</li>"	$menu .= $roles_selector ? "<li>$roles_selector</li>"
: '';	: '';
} elsif ($env{'environment.remotenavmap'} eq 'on') {
# open link using javascript when remote navmap is activated
my @items = @{$menuitem};
if ($menuitem->[4] eq 'remotenav') {
$items[0] = "javascript:gonav('$menuitem->[0]');";
} else {
$items[0] = "javascript:go('$menuitem->[0]');";
}
$menu .= &prep_menuitem(\@items);
} else {	} else {
$menu .= &prep_menuitem(\@$menuitem);	$menu .= &prep_menuitem(\@$menuitem);
}	}
Line 311 sub secondary_menu {	Line 342 sub secondary_menu {
$menu =~ s/\[url\]/$escurl/g;	$menu =~ s/\[url\]/$escurl/g;
$menu =~ s/\[symb\]/$escsymb/g;	$menu =~ s/\[symb\]/$escsymb/g;
}	}
	$menu =~ s/\[uname\]/$$author{user}/g;
	$menu =~ s/\[udom\]/$$author{dom}/g;

return "<ul id=\"LC_secondary_menu\">$menu</ul>";	return "<ul id=\"LC_secondary_menu\">$menu</ul>";
}	}

sub show_return_link {
return (($env{'request.noversionuri'}=~m{^/(res\|public)/} &&
$env{'request.symb'} eq '')
\|\|
($env{'request.noversionuri'}=~ m{^/cgi-bin/printout.pl})
\|\|
(($env{'request.noversionuri'}=~/^\/adm\//) &&
($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
($env{'request.noversionuri'}!~
m[^/adm/.*/(smppg\|bulletinboard\|aboutme)($\|\?)])
));
}


sub registerurl {
my ($forcereg) = @_;
my $result = '';
if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
my $force_title='';
if ($env{'request.state'} eq 'construct') {
$force_title=&Apache::lonxml::display_title();
}
return
$result
.'<script type="text/javascript">'."\n"
.'// <![CDATA['."\n"
.'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n"
.'// ]]>'."\n"
.'</script>'
.$force_title;
}

sub innerregister {	sub innerregister {
my ($forcereg,$titletable,$bread_crumbs) = @_;	my ($forcereg,$bread_crumbs) = @_;
my ($uname,$thisdisfn);
my $const_space = ($env{'request.state'} eq 'construct');	my $const_space = ($env{'request.state'} eq 'construct');
my $is_const_dir = 0;	my $is_const_dir = 0;

Line 359 sub innerregister {	Line 359 sub innerregister {

undef(@inlineremote);	undef(@inlineremote);

	my $resurl;
if ( $env{'request.symb'} && $env{'request.course.id'} ) {	if ( $env{'request.symb'} && $env{'request.course.id'} ) {

my ($mapurl,$rid,$resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());	(my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};	my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};

my $maptitle = &Apache::lonnet::gettitle($mapurl);	my $maptitle = &Apache::lonnet::gettitle($mapurl);
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());	my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
my $contentstext;
if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {
$contentstext = &mt('Community Contents');
} else {
$contentstext = &mt('Course Contents');
}
my @crumbs = ({text => $contentstext,
href => "Javascript:gonav('/adm/navmaps')"});

	#SD
	#course_type only Course and Community?
	#
	my @crumbs;
	unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')
	&& ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
	@crumbs = ({text => Apache::loncommon::course_type()
	. ' Contents',
	href => "Javascript:gopost('/adm/navmaps','')"});
	}
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {	if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {
push(@crumbs, {text => '...',	push(@crumbs, {text => '...',
no_mt => 1});	no_mt => 1});
Line 388 sub innerregister {	Line 391 sub innerregister {

&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs);	&Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
#$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);	}elsif (! $const_space){
	#a situation when we're looking at a resource outside of context of a
	#course or construction space (e.g. with cumulative rights)
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
}	}
# =============================================================================	# =============================================================================
# ============================ This is for URLs that actually can be registered	# ============================ This is for URLs that actually can be registered
return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})	return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})
\|\| $forcereg );	\|\| $forcereg );

# -- This applies to homework problems for users with grading privileges	# -- This applies to homework problems for users with grading privileges
my $crs='/'.$env{'request.course.id'};	my $crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {	if ($env{'request.course.sec'}) {
Line 405 sub innerregister {	Line 413 sub innerregister {
if ($env{'request.symb'} ne '' &&	if ($env{'request.symb'} ne '' &&
$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {	$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {
if (&Apache::lonnet::allowed('mgr',$crs)) {	if (&Apache::lonnet::allowed('mgr',$crs)) {
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_4]',	$hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
"gocmd('/adm/grades','gradingmenu')",	"gocmd('/adm/grades','gradingmenu')",
'Modify user grades for this assessment resource');	'Content Grades');
} elsif (&Apache::lonnet::allowed('vgr',$crs)) {	} elsif (&Apache::lonnet::allowed('vgr',$crs)) {
$hwkadd.=&switch('','',7,2,'subm.gif','view sub-[_1]','missions[_1]',	$hwkadd.=&switch('','',7,2,'subm.png','Content Submissions','missions[_1]',
"gocmd('/adm/grades','submission')",	"gocmd('/adm/grades','submission')",
'View user submissions for this assessment resource');	'Content Submissions');
}	}
}	}
if ($env{'request.symb'} ne '' &&	if ($env{'request.symb'} ne '' &&
&Apache::lonnet::allowed('opa',$crs)) {	&Apache::lonnet::allowed('opa',$crs)) {
$hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',	$hwkadd.=&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
"gocmd('/adm/parmset','set')",	"gocmd('/adm/parmset','set')",
'Modify parameter settings for this resource');	'Content Settings');
}	}
# -- End Homework	# -- End Homework
###	###
Line 477 sub innerregister {	Line 485 sub innerregister {
my $cfuname='';	my $cfuname='';
my $cfudom='';	my $cfudom='';
my $uploaded;	my $uploaded;
	my $switchserver='';
	my $home;
if ($env{'request.filename'}) {	if ($env{'request.filename'}) {
my $file=&Apache::lonnet::declutter($env{'request.filename'});	my $file=&Apache::lonnet::declutter($env{'request.filename'});
if (defined($cnum) && defined($cdom)) {	if (defined($cnum) && defined($cdom)) {
Line 487 sub innerregister {	Line 497 sub innerregister {
# Check that the user has permission to edit this resource	# Check that the user has permission to edit this resource
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);	($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);
if (defined($cfudom)) {	if (defined($cfudom)) {
my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);	$home=&Apache::lonnet::homeserver($cfuname,$cfudom);
my $allowed=0;	my $allowed=0;
my @ids=&Apache::lonnet::current_machine_ids();	my @ids=&Apache::lonnet::current_machine_ids();
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
if ($allowed) {	if ($allowed) {
$cfile=$file;	$cfile=$file;
	} else {
	$switchserver=$file;
}	}
}	}
}	}
}	}
# Finally, turn the button on or off	# Finally, turn the button on or off
if ($cfile && !$const_space) {	if (($cfile \|\| $switchserver) && !$const_space) {
my $nocrsedit;	my $nocrsedit;
# Suppress display where CC has switched to student role.	# Suppress display where CC has switched to student role.
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
Line 510 sub innerregister {	Line 522 sub innerregister {
if ($nocrsedit) {	if ($nocrsedit) {
$editbutton=&clear(6,1);	$editbutton=&clear(6,1);
} else {	} else {
	my $bot = "go('$cfile')";
	if ($switchserver) {
	if ( $env{'request.symb'} && $env{'request.course.id'} ) {
	$cfile = '/adm/switchserver?otherserver='.$home.'&role='.
	&HTML::Entities::encode($env{'request.role'},'"<>&').'&symb='.
	&HTML::Entities::encode($env{'request.symb'},'"<>&');
	$bot = "need_switchserver('$cfile');";
	}
	}
$editbutton=&switch	$editbutton=&switch
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',	('','',6,1,'pcstr.png','Edit','resource[_2]',
"go('".$cfile."');","Edit this resource");	$bot,"Edit this resource");
$noeditbutton = 0;	$noeditbutton = 0;
}	}
} elsif ($editbutton eq '') {	} elsif ($editbutton eq '') {
Line 527 sub innerregister {	Line 548 sub innerregister {
my $cfile = &edit_course_upload($file,$cnum,$cdom);	my $cfile = &edit_course_upload($file,$cnum,$cdom);
if ($cfile) {	if ($cfile) {
$editbutton=&switch	$editbutton=&switch
('','',6,1,'pcstr.gif','edit[_1]',	('','',6,1,'pcstr.png','Edit',
'resource[_2]',"go('".$cfile."');",	'resource[_2]',"go('".$cfile."');",
'Edit this resource');	'Edit this resource');
}	}
Line 535 sub innerregister {	Line 556 sub innerregister {
}	}
}	}
}	}
	if ($env{'request.course.id'}) {
	if ($resurl eq "public/$cdom/$cnum/syllabus") {
	if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {
	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
	$editbutton=&switch('','',6,1,'pcstr.png','Edit',
	'resource[_2]',
	"go('/adm/courseprefs?phase=display&actions=courseinfo')",
	'Edit this resource');
	}
	}
	}
	}
###	###
###	###
# Prepare the rest of the buttons	# Prepare the rest of the buttons
Line 556 sub innerregister {	Line 589 sub innerregister {
# Probably should be in mydesk.tab	# Probably should be in mydesk.tab
#	#
$menuitems=(<<ENDMENUITEMS);	$menuitems=(<<ENDMENUITEMS);
s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory	s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version	s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version
s&6&3&pub.gif&publish[_1]&resource[_3]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource	s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource	s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document	s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
}	}
if (ref($bread_crumbs) eq 'ARRAY') {	if (ref($bread_crumbs) eq 'ARRAY') {
Line 577 ENDMENUITEMS	Line 610 ENDMENUITEMS
#	#
$menuitems=(<<ENDMENUITEMS);	$menuitems=(<<ENDMENUITEMS);
c&3&1	c&3&1
s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&&1	s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1
s&2&3&forw.gif&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&&3	s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3
c&6&3	c&6&3
c&8&1	c&8&1
c&8&2	c&8&2
s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document	s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1	ENDMENUITEMS
	if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F' && $env{'request.uri'} =~ /^\/res/) {
	# wishlist is only available for users with access to resource-pool
	# and links can only be set for resources within the resource-pool
	$menuitems .= (<<ENDMENUITEMS);
	s&9&1&wishlist-link.png&Wishlist&wishlistlink[_2]&set_wishlistlink()&Set a link for this resource to wishlist&&1
ENDMENUITEMS	ENDMENUITEMS
	}

my $currentURL = &Apache::loncommon::get_symb();	my $currentURL = &Apache::loncommon::get_symb();
my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);	my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);	my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);
$menuitems.="s&9&3&";	$menuitems.="s&9&3&";
if(length($annotation) > 0){	if(length($annotation) > 0){
$menuitems.="anot2.gif";	$menuitems.="anot2.png";
}else{	}else{
$menuitems.="anot.gif";	$menuitems.="anot.png";
}	}
$menuitems.="&anno-[_1]&tations[_1]&annotate()&";	$menuitems.="&Notes&&annotate()&";
$menuitems.="Make notes and annotations about this resource&&1\n";	$menuitems.="Make notes and annotations about this resource&&1\n";

unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme\|viewclasslist\|portfolio)(\?\|$)/) {
if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) {	if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata	s&6&3&catalog.png&Info&info[_1]&catalog_info()&Show Metadata
ENDREALRES	ENDREALRES
}	}
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource	s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource	s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
ENDREALRES	ENDREALRES
}	}
}	}
if ($env{'request.uri'} =~ /^\/res/) {	if ($env{'request.uri'} =~ /^\/res/) {
$menuitems .= (<<ENDMENUITEMS);	$menuitems .= (<<ENDMENUITEMS);
s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document	s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
	ENDMENUITEMS
	if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') {
	# wishlist is only available for users with access to resource-pool
	$menuitems .= (<<ENDMENUITEMS);
	s&9&1&wishlist-link.png&Wishlist&wishlistlink[_2]&set_wishlistlink()&Set a link for this resource to wishlist&&1
ENDMENUITEMS	ENDMENUITEMS
	}
}	}
my $buttons='';	my $buttons='';
foreach (split(/\n/,$menuitems)) {	foreach (split(/\n/,$menuitems)) {
Line 638 ENDMENUITEMS	Line 683 ENDMENUITEMS
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }	foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
if ($addremote) {	if ($addremote) {

Apache::lonhtmlcommon::clear_breadcrumb_tools();	&Apache::lonhtmlcommon::clear_breadcrumb_tools();

Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'navigation', @inlineremote[21,23]);	'navigation', @inlineremote[21,23]);

if(hidden_button_check() ne 'yes') {	if(hidden_button_check() ne 'yes') {
Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'tools', @inlineremote[93,91,81,82,83]);	'tools', @inlineremote[93,91,81,82,83]);

#publish button in construction space	#publish button in construction space
if ($env{'request.state'} eq 'construct'){	if ($env{'request.state'} eq 'construct'){
Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'advtools', @inlineremote[63]);	'advtools', $inlineremote[63]);
}else{	} else {
Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'tools', @inlineremote[63]);	'tools', $inlineremote[63]);
}	}

	unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps\|viewclasslist)(\?\|$)}) {
Apache::lonhtmlcommon::add_breadcrumb_tool(	&Apache::lonhtmlcommon::add_breadcrumb_tool(
'advtools', @inlineremote[61,71,72,73,92]);	'advtools', @inlineremote[61,71,72,73,92]);
	}
}	}
}	}

return Apache::lonhtmlcommon::scripttag('', 'start')	return &Apache::lonhtmlcommon::scripttag('', 'start')
. Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)	. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
. Apache::lonhtmlcommon::scripttag('', 'end');	. &Apache::lonhtmlcommon::scripttag('', 'end');
}	}

sub is_course_upload {	sub is_course_upload {
Line 703 sub edit_course_upload {	Line 749 sub edit_course_upload {
return $cfile;	return $cfile;
}	}

sub loadevents() {
if ($env{'request.state'} eq 'construct' \|\|
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
return 'LONCAPAreg();';
}

sub unloadevents() {
if ($env{'request.state'} eq 'construct' \|\|
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
return 'LONCAPAstale();';
}

sub get_menu_name {
my $hostid = $Apache::lonnet::perlvar{'lonHostID'};
$hostid =~ s/\W//g;
return 'LCmenu'.$hostid;
}

# ================================================================== Raw Config	# ================================================================== Raw Config

#SD
#this is called by
#lonmenu
#
sub clear {	sub clear {
my ($row,$col)=@_;	my ($row,$col)=@_;
$inlineremote[10*$row+$col]='';	$inlineremote[10*$row+$col]='';
Line 747 sub switch {	Line 771 sub switch {
my $idx=10*$row+$col;	my $idx=10*$row+$col;
$category_members{$cat}.=':'.$idx;	$category_members{$cat}.=':'.$idx;

# Inline Remote	# Inline Menu
$img=~s/\.gif$/\.png/;	if ($nobreak==2) { return ''; }
if ($nobreak==2) { return ''; }	my $text=$top.' '.$bot;
my $text=$top.' '.$bot;	$text=~s/\s\-\s//gs;
$text=~s/\s\-\s//gs;

my $pic=	my $pic=
'<img alt="'.$text.'" src="'.	'<img alt="'.$text.'" src="'.
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).	&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
'" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';	'" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
if ($env{'browser.interface'} eq 'faketextual') {	if ($env{'browser.interface'} eq 'faketextual') {
# Main Menu	# Main Menu
if ($nobreak==3) {	if ($nobreak==3) {
$inlineremote[$idx]="\n".	$inlineremote[$idx]="\n".
Line 776 sub switch {	Line 799 sub switch {
'</a></td><td class="LC_menubuttons_text" colspan="3">'.	'</a></td><td class="LC_menubuttons_text" colspan="3">'.
'<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';	'<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';
}	}
} else {	} else {
# Inline Menu	# Inline Menu
#SD look here	$inlineremote[$idx]=
if ($env{'environment.icons'} eq 'iconsonly') {	'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
$inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';	'<span class="LC_menubuttons_inline_text">'.$top.' </span></a>';
} else {	}
$inlineremote[$idx]=
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
'<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';
}
}
return '';	return '';
}	}

Line 1045 sub check_for_rcrs {	Line 1063 sub check_for_rcrs {
return $showreqcrs;	return $showreqcrs;
}	}

# ====================================================================== Footer

sub nav_control_js {
my $nav=($env{'environment.remotenavmap'} eq 'on');
return (<<NAVCONTROL);
var w_loncapanav_flag="$nav";


function gonav(url) {
if (w_loncapanav_flag != 1) {
gopost(url,'');
} else {
navwindow=window.open(url,
"loncapanav","height=600,width=400,scrollbars=1");
}
}
NAVCONTROL
}

sub dc_popup_js {	sub dc_popup_js {
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
more => '(More ...)',	more => '(More ...)',
Line 1098 sub utilityfunctions {	Line 1097 sub utilityfunctions {
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));	$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));

my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});	my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
my $nav_control=&nav_control_js();

my $dc_popup_cid;	my $dc_popup_cid;
if ($env{'user.adv'} && exists($env{'user.role.dc./'.	if ($env{'user.adv'} && exists($env{'user.role.dc./'.
Line 1118 sub utilityfunctions {	Line 1116 sub utilityfunctions {
my $end_page_annotate =	my $end_page_annotate =
&Apache::loncommon::end_page({'js_ready' => 1});	&Apache::loncommon::end_page({'js_ready' => 1});

my $start_page_bookmark =	my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
&Apache::loncommon::start_page('Bookmarks',undef,	&mt('Switch server?');
{'only_body' => 1,
'js_ready' => 1,
'bgcolor' => '#BBBBBB',});

my $end_page_bookmark =
&Apache::loncommon::end_page({'js_ready' => 1});

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

Line 1133 return (<<ENDUTILITY)	Line 1126 return (<<ENDUTILITY)
var reloadURL="$currenturl";	var reloadURL="$currenturl";
var currentSymb="$currentsymb";	var currentSymb="$currentsymb";

$nav_control
$dc_popup_cid	$dc_popup_cid

function go(url) {	function go(url) {
Line 1144 function go(url) {	Line 1136 function go(url) {
}	}
}	}

function gotop(url) {	function need_switchserver(url) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
top.location.href = url;	if (confirm("$confirm_switch")) {
	go(url);
	}
}	}
	return;
}	}

function gopost(url,postdata) {	function gopost(url,postdata) {
Line 1235 function group_chat(group) {	Line 1230 function group_chat(group) {
grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');	grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
}	}

function edit_bookmarks() {
go('');
w_BookmarkPal_flag=1;
bookmarkpal=window.open("/adm/bookmarks",
"BookmarkPal", "width=400,height=505,scrollbars=0");
}

function annotate() {	function annotate() {
w_Annotator_flag=1;	w_Annotator_flag=1;
annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');	annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
Line 1255 function annotate() {	Line 1243 function annotate() {
annotator.document.close();	annotator.document.close();
}	}

function set_bookmark() {	function set_wishlistlink(title, path) {
go('');	if (!title) {
clienttitle=document.title;	title = document.title;
clienthref=location.pathname;	title = title.replace(/^LON-CAPA /,'');
w_bmquery_flag=1;	}
bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');	if (!path) {
bmquery.document.write(	path = location.pathname;
'$start_page_bookmark'	}
+'<center><form method="post"'	Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path,
+' name="newlink" action="/adm/bookmarks" target="bmquery" '	'wishlistNewLink','width=560,height=350,scrollbars=0');
+'> <table width="340" height="150" '	}
+'bgcolor="#FFFFFF" align="center"><tr><td>Link Name:<br /><input '
+'type="text" name="title" size="45" value="'+clienttitle+'" />'	function open_Wishlist_Import(rat) {
+'<br />Address:<br /><input type="text" name="address" size="45" '	var newWin;
+'value="'+clienthref+'" /><br /><center><input type="submit" '	if (rat) {
+'value="Save" /> <input type="button" value="Close" '	newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
+'onclick="javascript:window.close();" /></center></td>'	'wishlistImport','scrollbars=1,resizable=1,menubar=0');
+'</tr></table></form></center>'	}
+'$end_page_bookmark' );	else {
bmquery.document.close();	newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import',
	'wishlistImport','scrollbars=1,resizable=1,menubar=0');
	}
	newWin.focus();
}	}

ENDUTILITY	ENDUTILITY
Line 1309 sub constspaceform {	Line 1300 sub constspaceform {
ENDCONSTSPACEFORM	ENDCONSTSPACEFORM
}	}


sub get_nav_status {
my $navstatus="swmenu.w_loncapanav_flag=";
if ($env{'environment.remotenavmap'} eq 'on') {
$navstatus.="1";
} else {
$navstatus.="-1";
}
return $navstatus;
}

sub hidden_button_check {	sub hidden_button_check {
my $hidden;	if ( $env{'request.course.id'} eq ''
if ($env{'request.course.id'} eq '') {	\|\| $env{'request.role.adv'} ) {
return;
}
if ($env{'request.role.adv'}) {
return;	return;
}	}
my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');	my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');
Line 1336 sub roles_selector {	Line 1314 sub roles_selector {
my ($cdom,$cnum) = @_;	my ($cdom,$cnum) = @_;
my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
my $now = time;	my $now = time;
my (%courseroles,%seccount);	my (%courseroles,%seccount,%courseprivs);
my $is_cc;	my $is_cc;
my $role_selector;	my $role_selector;
my $ccrole;	my $ccrole;
Line 1344 sub roles_selector {	Line 1322 sub roles_selector {
$ccrole = 'co';	$ccrole = 'co';
} else {	} else {
$ccrole = 'cc';	$ccrole = 'cc';
}	}
	my $priv;
	my $destinationurl = $ENV{'REQUEST_URI'};
	my $reqprivs = &required_privs();
	if (ref($reqprivs) eq 'HASH') {
	my $destination = $destinationurl;
	$destination =~ s/(\?.*)$//;
	if (exists($reqprivs->{$destination})) {
	$priv = $reqprivs->{$destination};
	}
	}
if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {	if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {
my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});	my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});

Line 1357 sub roles_selector {	Line 1345 sub roles_selector {
}	}
}	}
if ($is_cc) {	if ($is_cc) {
&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);	&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs,$priv);
} else {	} else {
my %gotnosection;	my %gotnosection;
foreach my $item (keys(%env)) {	foreach my $item (keys(%env)) {
Line 1373 sub roles_selector {	Line 1361 sub roles_selector {
$gotnosection{$role} = 1;	$gotnosection{$role} = 1;
}	}
}	}
	if ($priv ne '') {
	my $cnumsec = $cnum;
	if ($sec ne '') {
	$cnumsec .= "/$sec";
	}
	$courseprivs{"$role./$cdom/$cnumsec./"} =
	$env{"user.priv.$role./$cdom/$cnumsec./"};
	$courseprivs{"$role./$cdom/$cnumsec./$cdom/"} =
	$env{"user.priv.$role./$cdom/$cnumsec./$cdom/"};
	$courseprivs{"$role./$cdom/$cnumsec./$cdom/$cnumsec"} =
	$env{"user.priv.$role./$cdom/$cnumsec./$cdom/$cnumsec"};
	}
if (ref($courseroles{$role}) eq 'ARRAY') {	if (ref($courseroles{$role}) eq 'ARRAY') {
if ($sec ne '') {	if ($sec ne '') {
if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {	if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {
Line 1398 sub roles_selector {	Line 1398 sub roles_selector {
}	}
my @roles_order = ($ccrole,'in','ta','ep','ad','st');	my @roles_order = ($ccrole,'in','ta','ep','ad','st');
if (keys(%courseroles) > 1) {	if (keys(%courseroles) > 1) {
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles);	$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">	$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">
<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';	<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';
$role_selector .= '<option value="">'.$switchtext.'</option>';	$role_selector .= '<option value="">'.$switchtext.'</option>';
Line 1414 sub roles_selector {	Line 1414 sub roles_selector {
}	}
$role_selector .= '</select>'."\n".	$role_selector .= '</select>'."\n".
'<input type="hidden" name="destinationurl" value="'.	'<input type="hidden" name="destinationurl" value="'.
&HTML::Entities::encode($ENV{'REQUEST_URI'}).'" />'."\n".	&HTML::Entities::encode($destinationurl).'" />'."\n".
'<input type="hidden" name="gotorole" value="1" />'."\n".	'<input type="hidden" name="gotorole" value="1" />'."\n".
'<input type="hidden" name="selectrole" value="" />'."\n".	'<input type="hidden" name="selectrole" value="" />'."\n".
'<input type="hidden" name="switch" value="1" />'."\n".	'<input type="hidden" name="switch" value="1" />'."\n".
Line 1424 sub roles_selector {	Line 1424 sub roles_selector {
}	}

sub get_all_courseroles {	sub get_all_courseroles {
my ($cdom,$cnum,$courseroles,$seccount) = @_;	my ($cdom,$cnum,$courseroles,$seccount,$courseprivs) = @_;
unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {	unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') &&
	(ref($courseprivs) eq 'HASH')) {
return;	return;
}	}
my ($result,$cached) =	my ($result,$cached) =
Line 1433 sub get_all_courseroles {	Line 1434 sub get_all_courseroles {
if (defined($cached)) {	if (defined($cached)) {
if (ref($result) eq 'HASH') {	if (ref($result) eq 'HASH') {
if ((ref($result->{'roles'}) eq 'HASH') &&	if ((ref($result->{'roles'}) eq 'HASH') &&
(ref($result->{'seccount'}) eq 'HASH')) {	(ref($result->{'seccount'}) eq 'HASH') &&
	(ref($result->{'privs'}) eq 'HASH')) {
%{$courseroles} = %{$result->{'roles'}};	%{$courseroles} = %{$result->{'roles'}};
%{$seccount} = %{$result->{'seccount'}};	%{$seccount} = %{$result->{'seccount'}};
	%{$courseprivs} = %{$result->{'privs'}};
return;	return;
}	}
}	}
Line 1463 sub get_all_courseroles {	Line 1466 sub get_all_courseroles {
push(@{$courseroles->{$urole}},$usec);	push(@{$courseroles->{$urole}},$usec);
}	}
}	}
	my $area = '/'.$cdom.'/'.$cnum;
	if ($usec ne '') {
	$area .= '/'.$usec;
	}
	if ($role =~ /^cr\//) {
	&Apache::lonnet::custom_roleprivs($courseprivs,$urole,$cdom,$cnum,$urole.'.'.$area,$area);
	} else {
	&Apache::lonnet::standard_roleprivs($courseprivs,$urole,$cdom,$urole.'.'.$area,$cnum,$area);
	}
}	}
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);	my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);
@{$courseroles->{'st'}} = ();	@{$courseroles->{'st'}} = ();
	&Apache::lonnet::standard_roleprivs($courseprivs,'st',$cdom,"st./$cdom/$cnum",$cnum,"/$cdom/$cnum");
if (keys(%sections_count) > 0) {	if (keys(%sections_count) > 0) {
push(@{$courseroles->{'st'}},keys(%sections_count));	push(@{$courseroles->{'st'}},keys(%sections_count));
$seccount->{'st'} = scalar(keys(%sections_count));	$seccount->{'st'} = scalar(keys(%sections_count));
}	}
my $rolehash = {	my $rolehash = {
'roles' => $courseroles,	'roles' => $courseroles,
'seccount' => $seccount,	'seccount' => $seccount,
	'privs' => $courseprivs,
};	};
&Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);	&Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);
return;	return;
}	}

sub jump_to_role {	sub jump_to_role {
my ($cdom,$cnum,$seccount,$courseroles) = @_;	my ($cdom,$cnum,$seccount,$courseroles,$courseprivs,$priv) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
this => 'This role has section(s) associated with it.',	this => 'This role has section(s) associated with it.',
ente => 'Enter a specific section.',	ente => 'Enter a specific section.',
Line 1487 sub jump_to_role {	Line 1501 sub jump_to_role {
avai => 'Available sections are:',	avai => 'Available sections are:',
youe => 'You entered an invalid section choice:',	youe => 'You entered an invalid section choice:',
plst => 'Please try again',	plst => 'Please try again',
	role => 'The role you selected is not permitted to view the current page.',
	swit => 'Switch role, but display Main Menu page instead?',
);	);
my $js;	my $js;
if (ref($courseroles) eq 'HASH') {	if (ref($courseroles) eq 'HASH') {
Line 1509 sub jump_to_role {	Line 1525 sub jump_to_role {
' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";	' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";
}	}
}	}
	my $checkroles = 0;
	if ($priv && ref($courseprivs) eq 'HASH') {
	my (%disallowed,%allowed,@disallow);
	foreach my $role (sort(keys(%{$courseprivs}))) {
	my $trole;
	if ($role =~ m{^(.+?)\Q./$cdom/$cnum\E}) {
	$trole = $1;
	}
	if (($trole ne '') && ($trole ne 'cm')) {
	if ($courseprivs->{$role} =~ /\Q:$priv\E($\|:\|\&\w+)/) {
	$allowed{$trole} = 1;
	} else {
	$disallowed{$trole} = 1;
	}
	}
	}
	foreach my $trole (keys(%disallowed)) {
	unless ($allowed{$trole}) {
	push(@disallow,$trole);
	}
	}
	if (@disallow > 0) {
	$checkroles = 1;
	$js .= " var disallow = new Array('".join("','",@disallow)."');\n".
	" var rolecheck = 1;\n";
	}
	}
	if (!$checkroles) {
	$js .= " var disallow = new Array();\n".
	" rolecheck = 0;\n";
	}
return <<"END";	return <<"END";
<script type="text/javascript">	<script type="text/javascript">
//<![CDATA[	//<![CDATA[
Line 1516 function adhocRole(roleitem) {	Line 1563 function adhocRole(roleitem) {
$js	$js
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;	var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;
if (newrole == '') {	if (newrole == '') {
return;	return;
}	}
var fullrole = newrole+'./$cdom/$cnum';	var fullrole = newrole+'./$cdom/$cnum';
var selidx = '';	var selidx = '';
Line 1525 function adhocRole(roleitem) {	Line 1572 function adhocRole(roleitem) {
selidx = i;	selidx = i;
}	}
}	}
	if (rolecheck > 0) {
	for (var i=0; i<disallow.length; i++) {
	if (disallow[i] == newrole) {
	if (confirm("$lt{'role'}\\n$lt{'swit'}")) {
	document.rolechooser.destinationurl.value = '/adm/menu';
	} else {
	document.rolechooser.elements[roleitem].selectedIndex = 0;
	return;
	}
	}
	}
	}
var secok = 1;	var secok = 1;
var secchoice = '';	var secchoice = '';
if (selidx >= 0) {	if (selidx >= 0) {
Line 1532 function adhocRole(roleitem) {	Line 1591 function adhocRole(roleitem) {
secok = 0;	secok = 0;
var numrolesec = rolesections[selidx].length;	var numrolesec = rolesections[selidx].length;
var msgidx = numsec[selidx] - numrolesec;	var msgidx = numsec[selidx] - numrolesec;
secchoice = prompt("$lt{'this'}\\n"+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");	secchoice = prompt("$lt{'this'} "+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");
if (secchoice == '') {	if (secchoice == '') {
if (msgidx > 0) {	if (msgidx > 0) {
secok = 1;	secok = 1;
Line 1562 function adhocRole(roleitem) {	Line 1621 function adhocRole(roleitem) {
return;	return;
}	}
if (fullrole == "$env{'request.role'}") {	if (fullrole == "$env{'request.role'}") {
	document.rolechooser.elements[roleitem].selectedIndex = 0;
return;	return;
}	}
itemid = retrieveIndex('gotorole');	itemid = retrieveIndex('gotorole');
Line 1587 function retrieveIndex(item) {	Line 1647 function retrieveIndex(item) {
END	END
}	}

	sub required_privs {
	my $privs = {
	'/adm/parmset' => 'opa',
	'/adm/courseprefs' => 'opa',
	'/adm/whatsnew' => 'whn',
	'/adm/populate' => 'cst',
	'/adm/trackstudent' => 'vsa',
	'/adm/statistics' => 'vgr',
	};
	unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
	$privs->{'/adm/classcalc'} => 'vgr',
	$privs->{'/adm/assesscalc'} => 'vgr',
	$privs->{'/adm/studentcalc'} => 'vgr';
	}
	return $privs;
	}

# ================================================================ Main Program	# ================================================================ Main Program

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.316
changed lines
	Added in v.1.351