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.274 and 1.314

version 1.274, 2009/07/11 19:58:29	version 1.314, 2010/02/24 17:38:52
Line 42 Coordinates the response to clicking an	Line 42 Coordinates the response to clicking an
This is part of the LearningOnline Network with CAPA project	This is part of the LearningOnline Network with CAPA project
described at http://www.lon-capa.org.	described at http://www.lon-capa.org.

	=head1 GLOBAL VARIABLES

	=over

	=item @desklines

	Each element of this array contains a line of mydesk.tab that doesn't start with
	cat, prim or scnd.
	It gets filled in the BEGIN block of this module.

	=item %category_names

	The keys of this hash are the abbreviations used in mydesk.tab in those lines that
	start with cat, the values are strings representing titles.
	It gets filled in the BEGIN block of this module.

	=item %category_members

	TODO

	=item %category_positions

	The keys of this hash are the abbreviations used in mydesk.tab in those lines that
	start with cat, its values are position vectors (column, row).
	It gets filled in the BEGIN block of this module.

	=item $readdesk

	Indicates that mydesk.tab has been read.
	It is set to 'done' in the BEGIN block of this module.

	=item @primary_menu

	The elements of this array reference arrays that are made up of the components
	of those lines of mydesk.tab that start with prim.
	It is used by primary_menu() to generate the corresponding menu.
	It gets filled in the BEGIN block of this module.

	=item @secondary_menu

	The elements of this array reference arrays that are made up of the components
	of those lines of mydesk.tab that start with scnd.
	It is used by secondary_menu() to generate the corresponding menu.
	It gets filled in the BEGIN block of this module.

	=back

=head1 SUBROUTINES	=head1 SUBROUTINES

=over	=over

Little texts	=item prep_menuitems(\@menuitem)

	This routine wraps a menuitem in proper HTML. It is used by primary_menu() and
	secondary_menu().

	=item primary_menu()

	This routine 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

	=item secondary_menu()

=item initlittle()	Same as primary_menu() but operates on @secondary_menu.

	=item DEPRECATED: initlittle()

	This routine returns a translated hash for the menu items in the top inline
	menu row

=item menubuttons()	=item menubuttons()

Line 113 The javascript is usually similar to "go	Line 177 The javascript is usually similar to "go

=item get_nav_status()	=item get_nav_status()

=item convert_menu_function()

FIXME this needs to move into mydesktab and the other locations
the text is generated

=item hidden_button_check()	=item hidden_button_check()

=item roles_selector()	=item roles_selector()
Line 137 use Apache::loncommon();	Line 196 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) = @_;
	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]);
	}
	if($$menuitem[4] eq 'newmsg'){ #special style for New Messages
	return '<li><a href="'.$$menuitem[0].'"><span class="LC_new_message">'.$link.'</span></a></li>';
	}
	return '<li><a href="'.$$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 ref($menuitem) ne 'ARRAY'; #
	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 {
	my @items = @{$menuitem};
	$items[0] = 'javascript:'.$menuitem->[0].';';
	$menu .= &prep_menuitem(\@items);
	}
	}

	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 ref($menuitem) ne 'ARRAY';
	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] =~ /^(no\|)remotenav$/
	&& $crstype eq 'Community';
	next if $$menuitem[4] =~ /^(no\|)remotenavCommunity$/
	&& $crstype ne 'Community';
	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>"
	: '';
	} 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 {
	$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	# This routine returns a translated hash for the menu items in the top inline menu row
# Probably should be in mydesk.tab	# 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'),
'other' => 'Other Roles',	'other' => 'Other Roles',
'docs' => 'Edit Course',	'docs' => 'Course Editor',
'exit' => 'Logout',	'exit' => 'Logout',
'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"	# Early-out for pages that should not have a menu, triggered by query string "inhibitmenu=yes"
Line 233 sub menubuttons {	Line 437 sub menubuttons {
my %lt=&initlittle();	my %lt=&initlittle();

my $domain=&Apache::loncommon::determinedomain();	my $domain=&Apache::loncommon::determinedomain();
my $function =&Apache::loncommon::get_users_function();	my $function=&Apache::loncommon::get_users_function();
my $link=&Apache::loncommon::designparm($function.'.link',$domain);	my $link=&Apache::loncommon::designparm($function.'.link',$domain);
my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);	my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);
my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);	my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);
Line 241 sub menubuttons {	Line 445 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);
<ol class="LC_smallMenu LC_right">	<ol class="LC_primary_menu LC_right">
<li>$logo</li>	<li>$logo</li>
<li><a href="/adm/roles" target="_top">$lt{'login'}</a></li>	<li><a href="/adm/roles" target="_top">$lt{'login'}</a></li>
</ol>	</ol>
Line 259 ENDINLINEMENU	Line 463 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 288 ENDRELOAD	Line 493 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 362 sub registerurl {	Line 563 sub registerurl {
(!&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 372 sub registerurl {	Line 579 sub registerurl {
}	}

sub innerregister {	sub innerregister {
my ($forcereg, $titletable) = @_;	my ($forcereg,$titletable,$bread_crumbs) = @_;
my $result = '';	my $result = '';
my ($uname,$thisdisfn);	my ($uname,$thisdisfn);
my $const_space = ($env{'request.state'} eq 'construct');	my $const_space = ($env{'request.state'} eq 'construct');
Line 389 sub innerregister {	Line 596 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,$separator);
if ($noremote	if ($noremote
&& ($env{'request.symb'})	&& ($env{'request.symb'})
&& ($env{'request.course.id'})) {	&& ($env{'request.course.id'})) {
Line 404 sub innerregister {	Line 612 sub innerregister {

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 @crumbs = ({text => "Course Content",	my $contentstext;
href => "Javascript:gonav('/adm/navmaps')"},	if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {
{text => '...',	$contentstext = &mt('Community Contents');
no_mt => 1});	} else {
	$contentstext = &mt('Course Contents');
	}
	my @crumbs = ({text => $contentstext,
	href => "Javascript:gonav('/adm/navmaps')"});

	if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {
	push(@crumbs, {text => '...',
	no_mt => 1});
	}

push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle	push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle
&& $maptitle ne 'default.sequence'	&& $maptitle ne 'default.sequence'
Line 415 sub innerregister {	Line 632 sub innerregister {

push @crumbs, {text => $restitle, no_mt => 1} if $restitle;	push @crumbs, {text => $restitle, no_mt => 1} if $restitle;

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);	#$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
	unless (($env{'request.state'} eq 'edit') \|\| ($newmail) \|\|
	($env{'request.state'} eq 'construct') \|\|
	($env{'form.register'})) {
	$separator = &Apache::loncommon::head_subbox();
	}
#	#
}	}
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
Line 428 sub innerregister {	Line 650 sub innerregister {
my $tableend = ( $noremote ? '</table>' : '');	my $tableend = ( $noremote ? '</table>' : '');
# =============================================================================	# =============================================================================
# ============================ This is for URLs that actually can be registered	# ============================ This is for URLs that actually can be registered
if (($env{'request.noversionuri'}!~m\|^/(res/)*adm/\|) \|\| ($forcereg)) {	if (($env{'request.noversionuri'}!~m{^/(res/)*adm/}) \|\| ($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 534 sub innerregister {	Line 756 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 586 s&7&1&del.gif&delete[_1]&resource[_2]&go	Line 820 s&7&1&del.gif&delete[_1]&resource[_2]&go
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document	s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
}	}
	if ($noremote) {
	if (ref($bread_crumbs) eq 'ARRAY') {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	foreach my $crumb (@{$bread_crumbs}){
	&Apache::lonhtmlcommon::add_breadcrumb($crumb);
	}
	}
	}
} elsif ( defined($env{'request.course.id'}) &&	} elsif ( defined($env{'request.course.id'}) &&
$env{'request.symb'} ne '' ) {	$env{'request.symb'} ne '' ) {
#	#
Line 615 if(length($annotation) > 0){	Line 857 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'}) && ($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.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata
ENDREALRES	ENDREALRES
Line 655 ENDMENUITEMS	Line 904 ENDMENUITEMS
my $addremote=0;	my $addremote=0;
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }	foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
my $inlinebuttons='';	my $inlinebuttons='';
if ($addremote) {	if ($addremote) {
# Registered, textual output
if ($env{'environment.icons'} eq 'iconsonly') {	Apache::lonhtmlcommon::clear_breadcrumb_tools();
$inlinebuttons=(<<ENDARROWSINLINE);
<tr><td>	Apache::lonhtmlcommon::add_breadcrumb_tool(
$inlineremote[21] $inlineremote[23]	'navigation', @inlineremote[21,23]);
ENDARROWSINLINE
if (&hidden_button_check() ne 'yes') {	if(hidden_button_check() ne 'yes') {
$inlinebuttons .= (<<ENDINLINEICONS);	Apache::lonhtmlcommon::add_breadcrumb_tool(
$inlineremote[61] $inlineremote[63]	'tools', @inlineremote[93,91,81,82,83]);
$inlineremote[71] $inlineremote[72] $inlineremote[73]
$inlineremote[81] $inlineremote[82] $inlineremote[83]	#publish button in construction space
$inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr>	if ($env{'request.state'} eq 'construct'){
ENDINLINEICONS	Apache::lonhtmlcommon::add_breadcrumb_tool(
}	'advtools', @inlineremote[63]);
} else {	}else{
if ($inlineremote[21] ne '' \|\| $inlineremote[23] ne '') {	Apache::lonhtmlcommon::add_breadcrumb_tool(
$inlinebuttons=(<<ENDFIRSTLINE);	'tools', @inlineremote[63]);
<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr>	}
ENDFIRSTLINE
}
if (&hidden_button_check() ne 'yes') {	Apache::lonhtmlcommon::add_breadcrumb_tool(
foreach my $row (6..9) {	'advtools', @inlineremote[61,71,72,73,92]);
if ($inlineremote[${row}.'1'] ne ''	}
\|\| $inlineremote[$row.'2'] ne ''
\|\| $inlineremote[$row.'3'] ne '') {	# # Registered, textual output
$inlinebuttons .= <<"ENDLINE";	# if ( $env{'environment.icons'} eq 'iconsonly' ) {
<tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr>	# $inlinebuttons = (<<ENDARROWSINLINE);
ENDLINE	#<tr><td>
}	#$inlineremote[21] $inlineremote[23]
}	#ENDARROWSINLINE
}	# if ( &hidden_button_check() ne 'yes' ) {
}	# $inlinebuttons .= (<<ENDINLINEICONS);
}	#$inlineremote[61] $inlineremote[63]
	#$inlineremote[71] $inlineremote[72] $inlineremote[73]
	#$inlineremote[81] $inlineremote[82] $inlineremote[83]
	#$inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr>
	#ENDINLINEICONS
	# }
	# } else { # not iconsonly
	# if ( $inlineremote[21] ne '' \|\| $inlineremote[23] ne '' ) {
	# $inlinebuttons = (<<ENDFIRSTLINE);
	#<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr>
	#ENDFIRSTLINE
	# }
	# if ( &hidden_button_check() ne 'yes' ) {
	# foreach my $row ( 6 .. 9 ) {
	# if ( $inlineremote[ ${row} . '1' ] ne ''
	# \|\| $inlineremote[ $row . '2' ] ne ''
	# \|\| $inlineremote[ $row . '3' ] ne '' )
	# {
	# $inlinebuttons .= <<"ENDLINE";
	#<tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr>
	#ENDLINE
	# }
	# }
	# }
	# }
	}
	$breadcrumb = &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
$result =(<<ENDREGTEXT);	$result =(<<ENDREGTEXT);
<script type="text/javascript">	<script type="text/javascript">
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
</script>	</script>
$timesync	$timesync
$breadcrumb	$breadcrumb
$tablestart	<!-- $tablestart -->
$inlinebuttons	<!-- $inlinebuttons -->
$tableend	<!-- $tableend -->
$newmail	$newmail
	<!-- $separator -->
<script type="text/javascript">	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
Line 716 ENDREGTEXT	Line 992 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 751 var swmenu=null;	Line 1028 var swmenu=null;
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
	// ]]>
</script>	</script>
ENDREGTHIS	ENDREGTHIS
}	}
Line 766 ENDDONOTREGTEXT	Line 1044 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 790 var swmenu=null;	Line 1069 var swmenu=null;
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
	// ]]>
</script>	</script>
ENDDONOTREGTHIS	ENDDONOTREGTHIS
}	}
Line 860 sub startupremote {	Line 1140 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 910 function main() {	Line 1191 function main() {
wait();	wait();
}	}

	// ]]>
</script>	</script>
ENDREMOTESTARTUP	ENDREMOTESTARTUP
}	}
Line 917 ENDREMOTESTARTUP	Line 1199 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
}	}
Line 927 sub maincall() {	Line 1211 sub maincall() {
if ($env{'environment.remote'} eq 'off') { return ''; }	if ($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 969 sub reopenmenu {	Line 1255 sub reopenmenu {
sub open {	sub open {
my $returnval='';	my $returnval='';
if ($env{'environment.remote'} eq 'off') {	if ($env{'environment.remote'} eq 'off') {
return '<script type="text/javascript">self.name="loncapaclient";</script>';	return
	'<script type="text/javascript">'."\n"
	.'// <![CDATA['."\n"
	.'self.name="loncapaclient";'."\n"
	.'// ]]>'."\n"
	.'</script>';
}	}
my $menuname = &get_menu_name();	my $menuname = &get_menu_name();

Line 982 sub open {	Line 1273 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?inhibitmenu=yes","$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 997 ENDOPEN	Line 1290 ENDOPEN
sub clear {	sub clear {
my ($row,$col)=@_;	my ($row,$col)=@_;
unless ($env{'environment.remote'} eq 'off') {	unless ($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 1022 sub switch {	Line 1316 sub switch {
$category_members{$cat}.=':'.$idx;	$category_members{$cat}.=':'.$idx;

unless ($env{'environment.remote'} eq 'off') {	unless ($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"););
Line 1037 sub switch {	Line 1332 sub switch {
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_noBorder" />';	'" 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) {
Line 1063 sub switch {	Line 1358 sub switch {
$inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';	$inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';
} else {	} else {
$inlineremote[$idx]=	$inlineremote[$idx]=
'<a class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.	'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
'<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';	'<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';
}	}
}	}
Line 1095 sub openmenu {	Line 1390 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><tr>';
for (my $col=1; $col<=2; $col++) {	for (my $col=1; $col<=2; $col++) {
$output.='<td class="LC_mainmenu_col_fieldset">';	$output.='<td class="LC_mainmenu_col_fieldset">';
for (my $row=1; $row<=8; $row++) {	for (my $row=1; $row<=8; $row++) {
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_Box">';	$output.='<div class="LC_Box LC_400Box">';
$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>';	$output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>';
$output.='<table>';	$output.='<table>';
my %active=();	my %active=();
foreach my $menu_item (split(/\:/,$category_members{$cat})) {	foreach my $menu_item (split(/\:/,$category_members{$cat})) {
Line 1146 sub rawconfig {	Line 1442 sub rawconfig {
my $show_course=&Apache::loncommon::show_course();	my $show_course=&Apache::loncommon::show_course();
my $author=$env{'user.author'};	my $author=$env{'user.author'};
my $crs='';	my $crs='';
	my $crstype='';
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$crs='/'.$env{'request.course.id'};	$crs='/'.$env{'request.course.id'};
if ($env{'request.course.sec'}) {	if ($env{'request.course.sec'}) {
$crs.='_'.$env{'request.course.sec'};	$crs.='_'.$env{'request.course.sec'};
}	}
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
	$crstype = &Apache::loncommon::course_type();
}	}
my $pub=($env{'request.state'} eq 'published');	my $pub=($env{'request.state'} eq 'published');
my $con=($env{'request.state'} eq 'construct');	my $con=($env{'request.state'} eq 'construct');
Line 1161 sub rawconfig {	Line 1459 sub rawconfig {
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);	my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
$prt=~s/\$uname/$uname/g;	$prt=~s/\$uname/$uname/g;
$prt=~s/\$udom/$udom/g;	$prt=~s/\$udom/$udom/g;
$prt=~s/\$crs/$crs/g;	if ($prt =~ /\$crs/) {
	next unless ($env{'request.course.id'});
	next if ($crstype eq 'Community');
	$prt=~s/\$crs/$crs/g;
	} elsif ($prt =~ /\$cmty/) {
	next unless ($env{'request.course.id'});
	next if ($crstype ne 'Community');
	$prt=~s/\$cmty/$crs/g;
	}
$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();
#
# I don't think we support this
#
# if ($type eq 'Group') {
# $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 1197 sub rawconfig {	Line 1496 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);
}	}
} elsif (($pro=~/^p(\w+)/) && ($prt)) {	} elsif (($pro=~/^p(\w+)/) && ($prt)) {
if (&Apache::lonnet::allowed($1,$prt)) {	my $priv = $1;
	if ($priv =~ /^mdc(Course\|Community)/) {
	if ($crstype eq $1) {
	$priv = 'mdc';
	} else {
	next;
	}
	}
	if (&Apache::lonnet::allowed($priv,$prt)) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
} elsif ($pro eq 'course') {	} elsif ($pro eq 'course') {
if ($env{'request.course.fn'}) {	if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
	} elsif ($pro eq 'community') {
	if (($env{'request.course.fn'}) && ($crstype eq 'Community')) {
	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
	}
} elsif ($pro =~ /^courseenv_(.*)$/) {	} elsif ($pro =~ /^courseenv_(.*)$/) {
my $key = $1;	my $key = $1;
if ($env{'course.'.$env{'request.course.id'}.'.'.$key}) {	if ($crstype ne 'Community') {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);	my $coursepref = $env{'course.'.$env{'request.course.id'}.'.'.$key};
	if ($key eq 'canuse_pdfforms') {
	if ($env{'request.course.id'} && $coursepref eq '') {
	my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
	$coursepref = $domdefs{'canuse_pdfforms'};
	}
	}
	if ($coursepref) {
	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
	}
	}
	} elsif ($pro =~ /^communityenv_(.*)$/) {
	my $key = $1;
	if ($crstype eq 'Community') {
	my $coursepref = $env{'course.'.$env{'request.course.id'}.'.'.$key};
	if ($key eq 'canuse_pdfforms') {
	if ($env{'request.course.id'} && $coursepref eq '') {
	my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
	$coursepref = $domdefs{'canuse_pdfforms'};
	}
	}
	if ($coursepref) {
	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
	}
}	}
} elsif ($pro =~ /^course_(.*)$/) {	} elsif ($pro =~ /^course_(.*)$/) {
# Check for permissions inside of a course	# Check for permissions inside of a course
if (($env{'request.course.id'}) &&	if (($env{'request.course.id'}) && ($crstype ne 'Community') &&
(&Apache::lonnet::allowed($1,$env{'request.course.id'}.	(&Apache::lonnet::allowed($1,$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
)) {	)) {
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
}	}
	} elsif ($pro =~ /^community_(.*)$/) {
	# Check for permissions inside of a community
	if (($env{'request.course.id'}) && ($crstype eq 'Community') &&
	(&Apache::lonnet::allowed($1,$env{'request.course.id'}.
	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
	)) {
	$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
	}
} elsif ($pro eq 'author') {	} elsif ($pro eq 'author') {
if ($author) {	if ($author) {
if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) \|\|	if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) \|\|
Line 1249 sub rawconfig {	Line 1591 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'},	if (($prt eq 'reqcrsshc') && (!$show_course)) {
$type,undef,'requestcourses')) {	next;
$showreqcrs = 1;
last;
}
}	}
	my $showreqcrs = &check_for_rcrs();
if (!$showreqcrs) {	if (!$showreqcrs) {
$output.=&clear($row,$col);	$output.=&clear($row,$col);
next;	next;
Line 1279 sub rawconfig {	Line 1619 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 {
Line 1286 sub close {	Line 1648 sub close {
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 1295 menu.autologout=0;	Line 1658 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 1322 function gonav(url) {	Line 1686 function gonav(url) {
NAVCONTROL	NAVCONTROL
}	}

	sub dc_popup_js {
	my %lt = &Apache::lonlocal::texthash(
	more => '(More ...)',
	less => '(Less ...)',
	);
	return <<"END";

	function showCourseID() {
	document.getElementById('dccid').style.display='block';
	document.getElementById('dccid').style.textAlign='left';
	document.getElementById('dccid').style.textFace='normal';
	document.getElementById('dccidtext').innerHTML ='<a href="javascript:hideCourseID();">$lt{'less'}</a>';
	return;
	}

	function hideCourseID() {
	document.getElementById('dccid').style.display='none';
	document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()">$lt{'more'}</a>';
	return;
	}

	END

	}

sub utilityfunctions {	sub utilityfunctions {
my $caller = shift;	my $caller = shift;
unless ($env{'environment.remote'} eq 'off' \|\|	unless ($env{'environment.remote'} eq 'off' \|\|
Line 1329 sub utilityfunctions {	Line 1718 sub utilityfunctions {
return ''; }	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]));
	if ($currenturl =~ m{^/adm/wrapper/ext/}) {
	if ($env{'request.external.querystring'}) {
	$currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};
	}
	}
$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 $nav_control=&nav_control_js();

	my $dc_popup_cid;
	if ($env{'user.adv'} && exists($env{'user.role.dc./'.
	$env{'course.'.$env{'request.course.id'}.
	'.domain'}.'/'})) {
	$dc_popup_cid = &dc_popup_js();
	}

my $start_page_annotate =	my $start_page_annotate =
&Apache::loncommon::start_page('Annotator',undef,	&Apache::loncommon::start_page('Annotator',undef,
{'only_body' => 1,	{'only_body' => 1,
Line 1361 return (<<ENDUTILITY)	Line 1762 return (<<ENDUTILITY)
var currentSymb="$currentsymb";	var currentSymb="$currentsymb";

$nav_control	$nav_control
	$dc_popup_cid

function go(url) {	function go(url) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
Line 1370 function go(url) {	Line 1772 function go(url) {
}	}
}	}

	function gotop(url) {
	if (url!='' && url!= null) {
	top.location.href = url;
	}
	}

function gopost(url,postdata) {	function gopost(url,postdata) {
if (url!='') {	if (url!='') {
this.document.server.action=url;	this.document.server.action=url;
Line 1446 function catalog_info() {	Line 1854 function catalog_info() {
}	}

function chat_win() {	function chat_win() {
lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');	lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
}	}

function group_chat(group) {	function group_chat(group) {
Line 1540 sub get_nav_status {	Line 1948 sub get_nav_status {
return $navstatus;	return $navstatus;
}	}

#FIXME this needs to move into mydesk.tab and the other locations
# the text is generated
#
# We currently do not support this anyway.
#
#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 1570 sub hidden_button_check {	Line 1962 sub hidden_button_check {

sub roles_selector {	sub roles_selector {
my ($cdom,$cnum) = @_;	my ($cdom,$cnum) = @_;
	my $crstype = &Apache::loncommon::course_type();
my $now = time;	my $now = time;
my (%courseroles,%seccount);	my (%courseroles,%seccount);
my $is_cc;	my $is_cc;
my $role_selector;	my $role_selector;
if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) {	my $ccrole;
my ($start,$end) = split(/\./,$env{'user.role.cc./'.$cdom.'/'.$cnum});	if ($crstype eq 'Community') {
	$ccrole = 'co';
	} else {
	$ccrole = 'cc';
	}
	if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {
	my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});

if ((($start) && ($start<0)) \|\|	if ((($start) && ($start<0)) \|\|
(($end) && ($end<$now)) \|\|	(($end) && ($end<$now)) \|\|
Line 1619 sub roles_selector {	Line 2018 sub roles_selector {
}	}
}	}
}	}
my @roles_order = ('cc','in','ta','ep','ad','st');	my $switchtext;
	if ($crstype eq 'Community') {
	$switchtext = &mt('Switch community role to...')
	} else {
	$switchtext = &mt('Switch course role to...')
	}
	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);
$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,$crstype).'</option>';
}	}
}	}
foreach my $role (sort(keys(%courseroles))) {	foreach my $role (sort(keys(%courseroles))) {
Line 1637 sub roles_selector {	Line 2042 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 1815 END	Line 2220 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.274
changed lines
	Added in v.1.314