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.268 and 1.286

version 1.268, 2009/05/26 20:30:28	version 1.286, 2009/10/15 20:48:16
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
#	#
# There are two parameters controlling the action of this module:	# There is one parameter controlling the action of this module:
#
# browser.interface - if this is 'textual', it overrides the second parameter
# and goes to screen reader PDA mode
#	#
# environment.remote - if this is 'on', the routines controll the remote	# environment.remote - if this is 'on', the routines controll the remote
# control, otherwise they render the main window controls; ignored it	# control, otherwise they render the main window controls;
# browser.interface is 'textual'
#

=head1 NAME	=head1 NAME

Line 142 use Apache::loncommon();	Line 137 use Apache::loncommon();
use Apache::lonenc();	use Apache::lonenc();
use Apache::lonlocal;	use Apache::lonlocal;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
	use HTML::Entities();

use vars qw(@desklines %category_names %category_members %category_positions $readdesk);	use vars qw(@desklines %category_names %category_members %category_positions
	$readdesk @primary_menu @secondary_menu);


my @inlineremote;	my @inlineremote;

	sub prep_menuitem {
	my $menuitem = shift;
	return '' unless ref $menuitem eq 'ARRAY';
	my $link;
	if ($$menuitem[1]) { # graphical Link
	$link = "<img class=\"LC_noBorder\""
	. " src=\"" . Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\""
	. " alt=\"" . mt($$menuitem[2]) . "\" />";
	} else { # textual Link
	$link = mt($$menuitem[3]);
	}
	return "<li><a href=\"javascript:$$menuitem[0]\">$link</a></li>";
	}

	# primary_menu() evaluates @primary_menu and returns XHTML for the menu
	# that contains following links:
	# About, Message, Roles, Help, Logout
	# @primary_menu is filled within the BEGIN block of this module with
	# entries from mydesk.tab
	sub primary_menu {
	my $menu;
	# each element of @primary contains following array:
	# (link url, icon path, alt text, link text, condition)
	foreach my $menuitem (@primary_menu) {
	# evaluate conditions
	next if $$menuitem[4] eq 'nonewmsg' # show links depending on
	&& Apache::lonmsg::mynewmail(); # whether a new msg
	next if $$menuitem[4] eq 'newmsg' # arrived or not
	&& !Apache::lonmsg::mynewmail(); #
	next if $$menuitem[4] !~ /public/ ##we've a public user,
	&& $env{'user.name'} eq 'public' ##who should not see all
	&& $env{'user.domain'} eq 'public'; ##links
	next if $$menuitem[4] eq 'onlypublic'# hide links which are
	&& $env{'user.name'} ne 'public' # only visible to public
	&& $env{'user.domain'} ne 'public'; # users
	next if $$menuitem[4] eq 'roles' ##show links depending on
	&& Apache::loncommon::show_course(); ##term 'Courses' or
	next if $$menuitem[4] eq 'courses' ##'Roles' wanted
	&& !Apache::loncommon::show_course(); ##


	if ($$menuitem[3] eq 'Help') { # special treatment for helplink
	$menu .= '<li>'.Apache::loncommon::top_nav_help('Help').'</li>';
	} else {
	$menu .= prep_menuitem(\@$menuitem);
	}
	}

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


	sub secondary_menu {
	my $menu;

	my $crstype = &Apache::loncommon::course_type();
	my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
	my $canviewgrps = &Apache::lonnet::allowed('vcg', $env{'request.course.id'}
	. ($env{'request.course.sec'} ? "/$env{'request.course.sec'}"
	: ''));
	my $showlink = &show_return_link();
	my %groups = &Apache::lonnet::get_active_groups(
	$env{'user.domain'}, $env{'user.name'},
	$env{'course.' . $env{'request.course.id'} . '.domain'},
	$env{'course.' . $env{'request.course.id'} . '.num'});
	foreach my $menuitem (@secondary_menu) {
	# evaluate conditions
	next if $$menuitem[4] ne 'always'
	&& !$env{'request.course.id'};
	next if $$menuitem[4] eq 'showreturn'
	&& !$showlink
	&& !($env{'request.state'} eq 'construct');
	next if $$menuitem[4] =~ /^mdc/
	&& !$canedit;
	next if $$menuitem[4] eq 'mdcCourse'
	&& $crstype eq 'Community';
	next if $$menuitem[4] eq 'mdcCommunity'
	&& $crstype ne 'Community';
	next if $$menuitem[4] =~ /^remotenav/
	&& $env{'environment.remotenavmap'} ne 'on';
	next if $$menuitem[4] =~ /noremotenav/
	&& $env{'environment.remotenavmap'} eq 'on';
	next if $$menuitem[4] =~ /showgroups$/
	&& $canviewgrps
	&& !%groups;

	if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
	# special treatment for role selector
	my $roles_selector = roles_selector(
	$env{'course.' . $env{'request.course.id'} . '.domain'},
	$env{'course.' . $env{'request.course.id'} . '.num'} );

	$menu .= $roles_selector ? "<li>$roles_selector</li>"
	: '';
	} else {
	$menu .= prep_menuitem(\@$menuitem);
	}
	}
	if ($menu =~ /\[url\].*\[symb\]/) {
	my $escurl = escape( Apache::lonenc::check_encrypt(
	$env{'request.noversionuri'}));

	my $escsymb = escape( Apache::lonenc::check_encrypt(
	$env{'request.symb'}));

	if ( $env{'request.state'} eq 'construct'
	and ( $env{'request.noversionuri'} eq ''
	\|\| !defined($env{'request.noversionuri'})))
	{
	($escurl = $env{'request.filename'}) =~
	s{^/home/([^/]+)/public_html/(.*)$}{/priv/$1/$2};

	$escurl = escape($escurl);
	}
	$menu =~ s/\[url\]/$escurl/g;
	$menu =~ s/\[symb\]/$escsymb/g;
	}

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


	#
	# This routine returns a translated hash for the menu items in the top inline menu row
	# Probably should be in mydesk.tab

	#SD this sub is deprecated - don't use it
sub initlittle {	sub initlittle {
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',	return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
'nav' => 'Navigate Contents',	'nav' => 'Course Contents',
'main' => 'Main Menu',	'main' => 'Main Menu',
'roles' => (&Apache::loncommon::show_course()?	'roles' => (&Apache::loncommon::show_course()?
'Courses':'Roles'),	'Courses':'Roles'),
Line 160 sub initlittle {	Line 284 sub initlittle {
'login' => 'Log In',	'login' => 'Log In',
'launch' => 'Launch Remote Control',	'launch' => 'Launch Remote Control',
'groups' => 'Groups',	'groups' => 'Groups',
'gdoc' => 'Group Documents',	'gdoc' => 'Community Documents',
);	);
}	}

	#SD this sub is deprecated - don't use it
	#SD functionality is covered by new loncommon::bodytag and primary_menu(), secondary_menu()
sub menubuttons {	sub menubuttons {
my $forcereg=shift;	my $forcereg=shift;
my $registration=shift;
my $titletable=shift;	my $titletable=shift;
	#
	# Early-out for pages that should not have a menu, triggered by query string "inhibitmenu=yes"
	#
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['inhibitmenu']);	['inhibitmenu']);
if (($env{'form.inhibitmenu'} eq 'yes') \|\|	if (($env{'form.inhibitmenu'} eq 'yes') \|\|
Line 184 sub menubuttons {	Line 312 sub menubuttons {
my $role_selector;	my $role_selector;
my $showgroups=0;	my $showgroups=0;
my ($cnum,$cdom);	my ($cnum,$cdom);
	#
	# if the URL is hidden, symbs and the non-versioned version of the URL would be encrypted
	#
my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));	my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));	my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));

Line 192 sub menubuttons {	Line 323 sub menubuttons {
$logo.'" alt="LON-CAPA Logo" class="LC_noBorder" /></a>';	$logo.'" alt="LON-CAPA Logo" class="LC_noBorder" /></a>';

if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
	#
	# We are in construction space
	#
if (($env{'request.noversionuri'} eq '') \|\| (!defined($env{'request.noversionuri'}))) {	if (($env{'request.noversionuri'} eq '') \|\| (!defined($env{'request.noversionuri'}))) {
my $returnurl = $env{'request.filename'};	my $returnurl = $env{'request.filename'};
$returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;	$returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;
Line 199 sub menubuttons {	Line 333 sub menubuttons {
}	}
}	}
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
	#
	# We are in a course
	#
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my %coursegroups;	my %coursegroups;
Line 230 sub menubuttons {	Line 367 sub menubuttons {

if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {	if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
<table id="LC_top_nav">	<ol class="LC_primary_menu LC_right">
<tr>	<li>$logo</li>
<td>$logo</td>	<li><a href="/adm/roles" target="_top">$lt{'login'}</a></li>
<td></td>	</ol>
<td class="LC_top_nav_login">	<hr />
<a href="/adm/roles" target="_top">$lt{'login'}</a>
</td>
</tr>
</table>
ENDINLINEMENU	ENDINLINEMENU
}	}
$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';	$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';
Line 252 ENDINLINEMENU	Line 385 ENDINLINEMENU
$navmaps=(<<ENDNAV);	$navmaps=(<<ENDNAV);
<li><a href="$link" target="_top">$lt{'nav'}</a></li>	<li><a href="$link" target="_top">$lt{'nav'}</a></li>
ENDNAV	ENDNAV
my $is_group = (&Apache::loncommon::course_type() eq 'Group');	my $is_community =
	(&Apache::loncommon::course_type() eq 'Community');
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};	my $text = ($is_community) ? $lt{'gdoc'} : $lt{'docs'};
$docs=(<<ENDDOCS);	$docs=(<<ENDDOCS);
<li><a href="/adm/coursedocs" target="_top">$text</a></li>	<li><a href="/adm/coursedocs" target="_top">$text</a></li>
ENDDOCS	ENDDOCS
Line 281 ENDRELOAD	Line 415 ENDRELOAD
<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>	<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>
ENDCRELOAD	ENDCRELOAD
}	}
my $reg='';	my $reg = $forcereg ? &innerregister($forcereg,$titletable) : '';
if ($registration) {	my $form = &serverform();
$reg=&innerregister($forcereg,$titletable);	my $utility = &utilityfunctions();
}
my $form=&serverform();	#Prepare the message link that indicates the arrival of new mail
my $utility=&utilityfunctions();	my $messagelink = Apache::lonmsg::mynewmail() ? "Message (new)" : "Message";
	$messagelink = '<a href="javascript:go(\'/adm/communicate\');">'
my $messagelink = "";	. mt($messagelink) .'</a>';
if(&Apache::lonmsg::mynewmail()){
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message(new)</a>'	my $helplink = &Apache::loncommon::top_nav_help('Help');
}else{
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message</a>'
}
my $helplink=&Apache::loncommon::top_nav_help('Help');
return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
<script type="text/javascript">	<script type="text/javascript">
// BEGIN LON-CAPA Internal
// <![CDATA[	// <![CDATA[
	// BEGIN LON-CAPA Internal
$utility	$utility
// ]]>	// ]]>
</script>	</script>
<ol class="LC_smallMenu LC_right">	<ol class="LC_primary_menu LC_right">
<li>$logo</li>	<li>$logo</li>
<li>$messagelink</li>	<li>$messagelink</li>
<li>$roles</li>	<li>$roles</li>
<li>$helplink</li>	<li>$helplink</li>
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>	<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>
</ol>	</ol>
<ul id="LC_TabMainMenuContent">	<ul id="LC_secondary_menu">
<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li>	<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li>
$reloadlink	$reloadlink
$navmaps	$navmaps
Line 350 sub registerurl {	Line 480 sub registerurl {
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$force_title=&Apache::lonxml::display_title();	$force_title=&Apache::lonxml::display_title();
}	}
if (($env{'browser.interface'} eq 'textual') \|\|	if (($env{'environment.remote'} eq 'off') \|\|
($env{'environment.remote'} eq 'off') \|\|
((($env{'request.publicaccess'}) \|\|	((($env{'request.publicaccess'}) \|\|
(!&Apache::lonnet::is_on_map(	(!&Apache::lonnet::is_on_map(
&unescape($env{'request.noversionuri'})))) &&	&unescape($env{'request.noversionuri'})))) &&
(!$forcereg))) {	(!$forcereg))) {
return $result.	return
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;	$result
	.'<script type="text/javascript">'."\n"
	.'// <![CDATA['."\n"
	.'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n"
	.'// ]]>'."\n"
	.'</script>'
	.$force_title;
}	}
# Graphical display after login only	# Graphical display after login only
if ($env{'request.registered'} && !$forcereg) { return ''; }	if ($env{'request.registered'} && !$forcereg) { return ''; }
Line 383 sub innerregister {	Line 518 sub innerregister {
my $reopen=&Apache::lonmenu::reopenmenu();	my $reopen=&Apache::lonmenu::reopenmenu();

my $newmail='';	my $newmail='';
my $breadcrumb;

if (&Apache::lonmsg::newmail() && !$noremote) {	if (&Apache::lonmsg::newmail() && !$noremote) {
# We have new mail and remote is up	# We have new mail and remote is up
$newmail= 'swmenu.setstatus("you have","messages");';	$newmail= 'swmenu.setstatus("you have","messages");';
}	}

	my $breadcrumb;
if ($noremote	if ($noremote
&& ($env{'request.symb'})	&& ($env{'request.symb'})
&& ($env{'request.course.id'})) {	&& ($env{'request.course.id'})) {
Line 463 sub innerregister {	Line 599 sub innerregister {
}	}
if ($env{'user.author'}) {	if ($env{'user.author'}) {
if ($env{'request.role'}=~/^(aa\|ca\|au)/) {	if ($env{'request.role'}=~/^(aa\|ca\|au)/) {
	#
	# We have the role of an author
	#
# Set defaults for authors	# Set defaults for authors
my ($top,$bottom) = ('con-','struct');	my ($top,$bottom) = ('con-','struct');
my $action = "go('/priv/".$env{'user.name'}."');";	my $action = "go('/priv/".$env{'user.name'}."');";
Line 491 sub innerregister {	Line 630 sub innerregister {
$noeditbutton = 0;	$noeditbutton = 0;
}	}
}	}
	#
	# We are an author for some stuff, but currently do not have the role of author.
	# Figure out if we have authoring privileges for the resource we are looking at.
	# This should maybe become a privilege check in lonnet
	#
##	##
## Determine if user can edit url.	## Determine if user can edit url.
##	##
Line 549 sub innerregister {	Line 693 sub innerregister {
# Prepare the rest of the buttons	# Prepare the rest of the buttons
my $menuitems;	my $menuitems;
if ($const_space) {	if ($const_space) {
	#
	# We are in construction space
	#
my ($uname,$thisdisfn) =	my ($uname,$thisdisfn) =
($env{'request.filename'}=~m\|^/home/([^/]+)/public_html/(.*)\|);	($env{'request.filename'}=~m\|^/home/([^/]+)/public_html/(.*)\|);
my $currdir = '/priv/'.$uname.'/'.$thisdisfn;	my $currdir = '/priv/'.$uname.'/'.$thisdisfn;
Line 558 sub innerregister {	Line 705 sub innerregister {
$currdir =~ s\|[^/]+$\|\|;	$currdir =~ s\|[^/]+$\|\|;
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);	my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
my $esc_currdir = &Apache::loncommon::escape_single($currdir);	my $esc_currdir = &Apache::loncommon::escape_single($currdir);
	#
	# 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.gif&list[_1]&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.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version
Line 568 ENDMENUITEMS	Line 718 ENDMENUITEMS
}	}
} elsif ( defined($env{'request.course.id'}) &&	} elsif ( defined($env{'request.course.id'}) &&
$env{'request.symb'} ne '' ) {	$env{'request.symb'} ne '' ) {
	#
	# We are in a course and looking at a registred URL
	# Should probably be in mydesk.tab
	#
$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.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&&1
Line 591 if(length($annotation) > 0){	Line 745 if(length($annotation) > 0){
$menuitems.="&anno-[_1]&tations[_1]&annotate()&";	$menuitems.="&anno-[_1]&tations[_1]&annotate()&";
$menuitems.="Make notes and annotations about this resource&&1\n";	$menuitems.="Make notes and annotations about this resource&&1\n";

	unless ($noremote) {
	my $showreqcrs = &check_for_rcrs();
	if ($showreqcrs) {
	$menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]".
	"&go('/adm/requestcourse')&Course requests\n";
	}
	}
unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {
if (!$env{'request.enc'}) {	if (!$env{'request.enc'}) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
Line 692 ENDREGTEXT	Line 853 ENDREGTEXT
$result = (<<ENDREGTHIS);	$result = (<<ENDREGTHIS);

<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
var swmenu=null;	var swmenu=null;

Line 727 var swmenu=null;	Line 889 var swmenu=null;
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
	// ]]>
</script>	</script>
ENDREGTHIS	ENDREGTHIS
}	}
Line 734 ENDREGTHIS	Line 897 ENDREGTHIS
} else {	} else {
# ========================================== This can or will not be registered	# ========================================== This can or will not be registered
if ($noremote) {	if ($noremote) {
# Not registered, textual	# Not registered
$result= (<<ENDDONOTREGTEXT);	$result= (<<ENDDONOTREGTEXT);
ENDDONOTREGTEXT	ENDDONOTREGTEXT
} else {	} else {
Line 742 ENDDONOTREGTEXT	Line 905 ENDDONOTREGTEXT
$result = (<<ENDDONOTREGTHIS);	$result = (<<ENDDONOTREGTHIS);

<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
var swmenu=null;	var swmenu=null;

Line 766 var swmenu=null;	Line 930 var swmenu=null;
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
	// ]]>
</script>	</script>
ENDDONOTREGTHIS	ENDDONOTREGTHIS
}	}
Line 825 sub unloadevents() {	Line 990 sub unloadevents() {

sub startupremote {	sub startupremote {
my ($lowerurl)=@_;	my ($lowerurl)=@_;
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {
return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');	return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
}	}
#	#
Line 837 sub startupremote {	Line 1001 sub startupremote {
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');	my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');
return(<<ENDREMOTESTARTUP);	return(<<ENDREMOTESTARTUP);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
var timestart;	var timestart;
function wheelswitch() {	function wheelswitch() {
if (typeof(document.wheel) != 'undefined') {	if (typeof(document.wheel) != 'undefined') {
Line 887 function main() {	Line 1052 function main() {
wait();	wait();
}	}

	// ]]>
</script>	</script>
ENDREMOTESTARTUP	ENDREMOTESTARTUP
}	}
Line 894 ENDREMOTESTARTUP	Line 1060 ENDREMOTESTARTUP
sub setflags() {	sub setflags() {
return(<<ENDSETFLAGS);	return(<<ENDSETFLAGS);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
menuloaded=0;	menuloaded=0;
tim=0;	tim=0;
	// ]]>
</script>	</script>
ENDSETFLAGS	ENDSETFLAGS
}	}

sub maincall() {	sub maincall() {
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }
return(<<ENDMAINCALL);	return(<<ENDMAINCALL);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
main();	main();
	// ]]>
</script>	</script>
ENDMAINCALL	ENDMAINCALL
}	}
Line 913 ENDMAINCALL	Line 1082 ENDMAINCALL
sub load_remote_msg {	sub load_remote_msg {
my ($lowerurl)=@_;	my ($lowerurl)=@_;

if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }

my $esclowerurl=&escape($lowerurl);	my $esclowerurl=&escape($lowerurl);
my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'	my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
Line 938 sub get_menu_name {	Line 1106 sub get_menu_name {


sub reopenmenu {	sub reopenmenu {
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();
my $nothing = &Apache::lonhtmlcommon::javascript_nothing();	my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
return('window.open('.$nothing.',"'.$menuname.'","",false);');	return('window.open('.$nothing.',"'.$menuname.'","",false);');
Line 948 sub reopenmenu {	Line 1115 sub reopenmenu {

sub open {	sub open {
my $returnval='';	my $returnval='';
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {	return
return '<script type="text/javascript">self.name="loncapaclient";</script>';	'<script type="text/javascript">'."\n"
	.'// <![CDATA['."\n"
	.'self.name="loncapaclient";'."\n"
	.'// ]]>'."\n"
	.'</script>';
}	}
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();

Line 963 sub open {	Line 1134 sub open {
#}	#}
#ENDRESIZE	#ENDRESIZE
# }	# }
$returnval.=(<<ENDOPEN);	$returnval=(<<ENDOPEN);
	// <![CDATA[
window.status='Opening LON-CAPA Remote Control';	window.status='Opening LON-CAPA Remote Control';
var menu=window.open("/res/adm/pages/menu.html","$menuname",	var menu=window.open("/res/adm/pages/menu.html?inhibitmenu=yes","$menuname",
"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");	"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
self.name='loncapaclient';	self.name='loncapaclient';
	// ]]>
ENDOPEN	ENDOPEN
return '<script type="text/javascript">'.$returnval.'</script>';	return '<script type="text/javascript">'.$returnval.'</script>';
}	}
Line 977 ENDOPEN	Line 1150 ENDOPEN

sub clear {	sub clear {
my ($row,$col)=@_;	my ($row,$col)=@_;
unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {	if (($row<1) \|\| ($row>13)) { return ''; }
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););	return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););
} else {	} else {
$inlineremote[10*$row+$col]='';	$inlineremote[10*$row+$col]='';
Line 1003 sub switch {	Line 1176 sub switch {
my $idx=10*$row+$col;	my $idx=10*$row+$col;
$category_members{$cat}.=':'.$idx;	$category_members{$cat}.=':'.$idx;

unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {	if (($row<1) \|\| ($row>13)) { return ''; }
# Remote	# Remote
return "\n".	return "\n".
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););	qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););
} elsif ($env{'browser.interface'} eq 'textual') {
# Accessibility
if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;
$text=~s/\s\-\s//gs;
if ($nobreak) {
$inlineremote[$idx]=
'<a href="javascript:'.$act.';">'.$text.'</a>';
} else {
$inlineremote[$idx]="\n<br />".
$desc.' <a href="javascript:'.$act.';">'.$text.'</a>';
}
} else {	} else {
# Inline Remote	# Inline Remote
if ($env{'environment.icons'} ne 'classic') {	if ($env{'environment.icons'} ne 'classic') {
Line 1034 sub switch {	Line 1195 sub switch {
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).	&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
'" align="'.($nobreak==3?'right':'left').'" class="LC_noBorder" />';	'" align="'.($nobreak==3?'right':'left').'" class="LC_noBorder" />';
if ($env{'browser.interface'} eq 'faketextual') {	if ($env{'browser.interface'} eq 'faketextual') {
# Accessibility	# Main Menu
if ($nobreak==3) {	if ($nobreak==3) {
$inlineremote[$idx]="\n".	$inlineremote[$idx]="\n".
'<td class="LC_menubuttons_text" align="right">'.$text.	'<td class="LC_menubuttons_text" align="right">'.$text.
Line 1082 sub secondlevel {	Line 1243 sub secondlevel {

sub openmenu {	sub openmenu {
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }
my $nothing = &Apache::lonhtmlcommon::javascript_nothing();	my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
return "window.open(".$nothing.",'".$menuname."');";	return "window.open(".$nothing.",'".$menuname."');";
}	}
Line 1091 sub openmenu {	Line 1251 sub openmenu {
sub inlinemenu {	sub inlinemenu {
undef(@inlineremote);	undef(@inlineremote);
undef(%category_members);	undef(%category_members);
	# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
&rawconfig(1);	&rawconfig(1);
my $output='<table id="LC_mainmenu"><tr>';	my $output='<table id="LC_mainmenu"><tr>';
for (my $col=1; $col<=2; $col++) {	for (my $col=1; $col<=2; $col++) {
Line 1099 sub inlinemenu {	Line 1260 sub inlinemenu {
foreach my $cat (keys(%category_members)) {	foreach my $cat (keys(%category_members)) {
if ($category_positions{$cat} ne "$col,$row") { next; }	if ($category_positions{$cat} ne "$col,$row") { next; }
#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';	#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
$output.='<div class="LC_ContentBoxSpecial">';	$output.='<div class="LC_Box">';
$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>';	$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>';
$output.='<table>';	$output.='<table>';
my %active=();	my %active=();
Line 1122 sub inlinemenu {	Line 1283 sub inlinemenu {
}	}

sub rawconfig {	sub rawconfig {
	#
	# This evaluates mydesk.tab
	# Need to add more positions and more privileges to deal with all
	# menu items.
	#
my $textualoverride=shift;	my $textualoverride=shift;
my $output='';	my $output='';
unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {
$output.=	$output.=
"window.status='Opening Remote Control';var swmenu=".&openmenu().	"window.status='Opening Remote Control';var swmenu=".&openmenu().
"\nwindow.status='Configuring Remote Control ';";	"\nwindow.status='Configuring Remote Control ';";
Line 1157 sub rawconfig {	Line 1322 sub rawconfig {
$prt=~s/\$requested_domain/$requested_domain/g;	$prt=~s/\$requested_domain/$requested_domain/g;
if ($category_names{$cat}!~/\w/) { $cat='oth'; }	if ($category_names{$cat}!~/\w/) { $cat='oth'; }
my $type = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
if ($type eq 'Group') {	# if ($type eq 'Group') {
$desc = &convert_menu_function($desc,$type);	# $desc = &convert_menu_function($desc,$type);
}	# }
if ($pro eq 'clear') {	if ($pro eq 'clear') {
$output.=&clear($row,$col);	$output.=&clear($row,$col);
} elsif ($pro eq 'any') {	} elsif ($pro eq 'any') {
Line 1238 sub rawconfig {	Line 1403 sub rawconfig {
$output.=&clear($row,$col);	$output.=&clear($row,$col);
next;	next;
}	}
} elsif ($prt eq 'reqcrs') {	} elsif (($prt eq 'reqcrsnsc') \|\| ($prt eq 'reqcrsshc')) {
my $showreqcrs = 0;	if (($prt eq 'reqcrsnsc') && ($show_course)) {
foreach my $type ('official','unofficial') {	next;
if (&Apache::lonnet::usertools_access($env{'user.name'},
$env{'user.domain'},
$type,undef,'requestcourses')) {
$showreqcrs = 1;
last;
}
}	}
	if (($prt eq 'reqcrsshc') && (!$show_course)) {
	next;
	}
	my $showreqcrs = &check_for_rcrs();
if (!$showreqcrs) {	if (!$showreqcrs) {
$output.=&clear($row,$col);	$output.=&clear($row,$col);
next;	next;
Line 1258 sub rawconfig {	Line 1421 sub rawconfig {
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
}	}
}	}
unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off') {
($env{'environment.remote'} eq 'off')) {
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";	$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";
if (&Apache::lonmsg::newmail()) {	if (&Apache::lonmsg::newmail()) {
$output.='swmenu.setstatus("you have","messages");';	$output.='swmenu.setstatus("you have","messages");';
Line 1269 sub rawconfig {	Line 1431 sub rawconfig {
return $output;	return $output;
}	}

	sub check_for_rcrs {
	my $showreqcrs = 0;
	my @reqtypes = ('official','unofficial','community');
	foreach my $type (@reqtypes) {
	if (&Apache::lonnet::usertools_access($env{'user.name'},
	$env{'user.domain'},
	$type,undef,'requestcourses')) {
	$showreqcrs = 1;
	last;
	}
	}
	if (!$showreqcrs) {
	foreach my $type (@reqtypes) {
	if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
	$showreqcrs = 1;
	last;
	}
	}
	}
	return $showreqcrs;
	}

# ======================================================================= Close	# ======================================================================= Close

sub close {	sub close {
if (($env{'browser.interface'} eq 'textual') \|\|	if ($env{'environment.remote'} eq 'off') { return ''; }
($env{'environment.remote'} eq 'off')) { return ''; }
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();
return(<<ENDCLOSE);	return(<<ENDCLOSE);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
window.status='Accessing Remote Control';	window.status='Accessing Remote Control';
menu=window.open("/adm/rat/empty.html","$menuname",	menu=window.open("/adm/rat/empty.html","$menuname",
"height=350,width=150,scrollbars=no,menubar=no");	"height=350,width=150,scrollbars=no,menubar=no");
Line 1286 menu.autologout=0;	Line 1470 menu.autologout=0;
window.status='Closing Remote Control';	window.status='Closing Remote Control';
menu.close();	menu.close();
window.status='Done.';	window.status='Done.';
	// ]]>
</script>	</script>
ENDCLOSE	ENDCLOSE
}	}
Line 1315 NAVCONTROL	Line 1500 NAVCONTROL

sub utilityfunctions {	sub utilityfunctions {
my $caller = shift;	my $caller = shift;
unless (($env{'browser.interface'} eq 'textual') \|\|	unless ($env{'environment.remote'} eq 'off' \|\|
($env{'environment.remote'} eq 'off') \|\| ($caller eq '/adm/menu')) { return ''; }	$caller eq '/adm/menu') {
	return ''; }

my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));	my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));	$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));

Line 1529 sub get_nav_status {	Line 1716 sub get_nav_status {
return $navstatus;	return $navstatus;
}	}

#FIXME this needs to move into mydesktab and the other locations
# the text is generated
sub convert_menu_function {
my ($rolename,$type) = @_;
if ($type eq 'Group') {
$rolename =~ s/student/member/g;
$rolename =~ s/group/team/g;
$rolename =~ s/course/group/g;
$rolename =~ s/Course/Group/g;
}
return $rolename;
}

sub hidden_button_check {	sub hidden_button_check {
my $hidden;	my $hidden;
if ($env{'request.course.id'} eq '') {	if ($env{'request.course.id'} eq '') {
Line 1556 sub hidden_button_check {	Line 1730 sub hidden_button_check {

sub roles_selector {	sub roles_selector {
my ($cdom,$cnum) = @_;	my ($cdom,$cnum) = @_;
	my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
	if ($crstype eq '') {
	$crstype = 'Course';
	}
my $now = time;	my $now = time;
my (%courseroles,%seccount);	my (%courseroles,%seccount);
my $is_cc;	my $is_cc;
Line 1605 sub roles_selector {	Line 1783 sub roles_selector {
}	}
}	}
}	}
	my $switchtext;
	if ($crstype eq 'Community') {
	$switchtext = &mt('Switch community role to...')
	} else {
	$switchtext = &mt('Switch course role to...')
	}
my @roles_order = ('cc','in','ta','ep','ad','st');	my @roles_order = ('cc','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);
$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="">'.&mt('Switch course role to...').'</option>';	$role_selector .= '<option value="">'.$switchtext.'</option>';
foreach my $role (@roles_order) {	foreach my $role (@roles_order) {
if (defined($courseroles{$role})) {	if (defined($courseroles{$role})) {
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';	$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';
Line 1623 sub roles_selector {	Line 1807 sub roles_selector {
}	}
$role_selector .= '</select>'."\n".	$role_selector .= '</select>'."\n".
'<input type="hidden" name="destinationurl" value="'.	'<input type="hidden" name="destinationurl" value="'.
$ENV{'REQUEST_URI'}.'" />'."\n".	&HTML::Entities::encode($ENV{'REQUEST_URI'}).'" />'."\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 1718 sub jump_to_role {	Line 1902 sub jump_to_role {
' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";	' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";
}	}
}	}
my $output = <<"END";	return <<"END";
<script type="text/javascript">	<script type="text/javascript">
	//<![CDATA[
function adhocRole(roleitem) {	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;
Line 1790 function retrieveIndex(item) {	Line 1975 function retrieveIndex(item) {
}	}
return -1;	return -1;
}	}
	// ]]>

</script>	</script>
END	END
return $output;
}	}


Line 1802 END	Line 1985 END

BEGIN {	BEGIN {
if (! defined($readdesk)) {	if (! defined($readdesk)) {
{	{
my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';	my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
if ( CORE::open( my $config,"<$tabfile") ) {	if ( CORE::open( my $config,"<$tabfile") ) {
while (my $configline=<$config>) {	while (my $configline=<$config>) {
$configline=(split(/\#/,$configline))[0];	$configline=(split(/\#/,$configline))[0];
$configline=~s/^\s+//;	$configline=~s/^\s+//;
chomp($configline);	chomp($configline);
if ($configline=~/^cat\:/) {	if ($configline=~/^cat\:/) {
my @entries=split(/\:/,$configline);	my @entries=split(/\:/,$configline);
$category_positions{$entries[2]}=$entries[1];	$category_positions{$entries[2]}=$entries[1];
$category_names{$entries[2]}=$entries[3];	$category_names{$entries[2]}=$entries[3];
} elsif ($configline) {	} elsif ($configline=~/^prim\:/) {
push(@desklines,$configline);	my @entries = (split(/\:/, $configline))[1..5];
}	push @primary_menu, \@entries;
}	} elsif ($configline=~/^scnd\:/) {
CORE::close($config);	my @entries = (split(/\:/, $configline))[1..5];
}	push @secondary_menu, \@entries;
}	} elsif ($configline) {
$readdesk='done';	push(@desklines,$configline);
	}
	}
	CORE::close($config);
	}
	}
	$readdesk='done';
}	}
}	}

1;	1;
__END__	__END__

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

Removed from v.1.268
changed lines
	Added in v.1.286