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.243 and 1.244.2.15

version 1.243, 2008/09/11 21:05:19	version 1.244.2.15, 2010/05/23 19:16:02
Line 36	Line 36
# browser.interface is 'textual'	# browser.interface is 'textual'
#	#

	=head1 NAME

	Apache::lonmenu

	=head1 SYNOPSIS

	Coordinates the response to clicking an image.

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head1 SUBROUTINES

	=over

	=item show_course()

	Little texts

	=item initlittle()

	=item menubuttons()

	This gets called at the top of the body section

	=item show_return_link()

	=item registerurl()

	This gets called in the header section

	=item innerregister()

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

	=item loadevents()

	=item unloadevents()

	=item startupremote()

	=item setflags()

	=item maincall()

	=item load_remote_msg()

	=item get_menu_name()

	=item reopenmenu()

	=item open()

	Open the menu

	=item clear()

	=item switch()

	Switch a button or create a link
	Switch acts on the javascript that is executed when a button is clicked.
	The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".

	=item secondlevel()

	=item openmenu()

	=item inlinemenu()

	=item rawconfig()

	=item close()

	=item footer()

	=item utilityfunctions()

	=item serverform()

	=item constspaceform()

	=item get_nav_status()

	=item hidden_button_check()

	=item roles_selector()

	=item jump_to_role()

	=back

	=cut

package Apache::lonmenu;	package Apache::lonmenu;

use strict;	use strict;
Line 45 use Apache::loncommon();	Line 139 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);

Line 53 my @inlineremote;	Line 148 my @inlineremote;



# ================================================================ Little texts
sub show_course {	sub show_course {
my $course = !$env{'user.adv'};	my $course = !$env{'user.adv'};
if (!$env{'user.adv'}) {	if (!$env{'user.adv'}) {
Line 69 sub show_course {	Line 163 sub show_course {
}	}

sub initlittle {	sub initlittle {
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',	my %lt=&Apache::lonlocal::texthash('ret' => 'Return to Last Location',
'nav' => 'Navigate Contents',	'nav' => 'Course Contents',
'main' => 'Main Menu',	'main' => 'Main Menu',
'roles' => (&show_course()?	'roles' => (&Apache::loncommon::show_course()?
'Courses':'Roles'),	'Courses':'Roles'),
'other' => 'Other Roles',	'other' => 'Other Roles',
'docs' => 'Edit Course',	'docs' => 'Edit Course',
'exit' => 'Exit',	'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',
);	);
	if (&Apache::loncommon::course_type() eq 'Community') {
	$lt{'nav'} = &mt('Community Contents');
	$lt{'docs'} = &mt('Edit Community');
	}
	return %lt;
}	}

# ============================= This gets called at the top of the body section

sub menubuttons {	sub menubuttons {
my $forcereg=shift;	my $forcereg=shift;
my $registration=shift;	my $registration=shift;
Line 150 ENDNAV	Line 247 ENDNAV
<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>	<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>
ENDRELOAD	ENDRELOAD
}	}
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {	my $is_community =
$docs=(<<ENDDOCS);	(&Apache::loncommon::course_type() eq 'Community');
<a href="/adm/coursedocs" target="_top">$lt{'docs'}</a>	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
	my $text = ($is_community) ? $lt{'gdoc'} : $lt{'docs'};
	$docs=(<<ENDDOCS);
	<a href="/adm/coursedocs" target="_top">$text</a>
ENDDOCS	ENDDOCS
}	}
if ($showgroups) {	if ($showgroups) {
Line 217 ENDINLINEMENU	Line 317 ENDINLINEMENU
$navmaps=(<<ENDNAV);	$navmaps=(<<ENDNAV);
<td><a href="$link" target="_top">$lt{'nav'}</a></td>	<td><a href="$link" target="_top">$lt{'nav'}</a></td>
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);
<td><a href="/adm/coursedocs" target="_top">$text</a></td>	<td><a href="/adm/coursedocs" target="_top">$text</a></td>
ENDDOCS	ENDDOCS
Line 255 ENDCRELOAD	Line 356 ENDCRELOAD
my $helplink=&Apache::loncommon::top_nav_help('Help');	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>
Line 297 sub show_return_link {	Line 398 sub show_return_link {
));	));
}	}

# ====================================== This gets called in the header section

sub registerurl {	sub registerurl {
my ($forcereg) = @_;	my ($forcereg) = @_;
Line 314 sub registerurl {	Line 414 sub registerurl {
&unescape($env{'request.noversionuri'})))) &&	&unescape($env{'request.noversionuri'})))) &&
(!$forcereg))) {	(!$forcereg))) {
return $result.	return $result.
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;	'<script type="text/javascript">'."\n".
	'function LONCAPAreg(){;} function LONCAPAstale(){}'."\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 322 sub registerurl {	Line 424 sub registerurl {
return $result.$force_title;	return $result.$force_title;
}	}

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

sub innerregister {	sub innerregister {
my ($forcereg, $titletable) = @_;	my ($forcereg, $titletable) = @_;
my $result = '';	my $result = '';
Line 401 sub innerregister {	Line 500 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[_3]',	$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_4]',
"gocmd('/adm/grades','gradingmenu')",	"gocmd('/adm/grades','gradingmenu')",
'Modify user grades for this assessment resource');	'Modify user grades for this assessment resource');
} elsif (&Apache::lonnet::allowed('vgr',$crs)) {	} elsif (&Apache::lonnet::allowed('vgr',$crs)) {
Line 422 sub innerregister {	Line 521 sub innerregister {
### resource	### resource
###	###
my $editbutton = '';	my $editbutton = '';
	my $noeditbutton = 1;
	my ($cnum,$cdom);
	if ($env{'request.course.id'}) {
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	}
if ($env{'user.author'}) {	if ($env{'user.author'}) {
if ($env{'request.role'}=~/^(aa\|ca\|au)/) {	if ($env{'request.role'}=~/^(aa\|ca\|au)/) {
# Set defaults for authors	# Set defaults for authors
Line 449 sub innerregister {	Line 554 sub innerregister {
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
if (!$allowed) {	if (!$allowed) {
$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);	$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);
	$noeditbutton = 0;
}	}
}	}
##	##
Line 457 sub innerregister {	Line 563 sub innerregister {
my $cfile='';	my $cfile='';
my $cfuname='';	my $cfuname='';
my $cfudom='';	my $cfudom='';
	my $uploaded;
if ($env{'request.filename'}) {	if ($env{'request.filename'}) {
my $file=&Apache::lonnet::declutter($env{'request.filename'});	my $file=&Apache::lonnet::declutter($env{'request.filename'});
$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;	$file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;
Line 474 sub innerregister {	Line 581 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;
	}
} elsif ($editbutton eq '') {	} elsif ($editbutton eq '') {
$editbutton=&clear(6,1);	$editbutton=&clear(6,1);
}	}
}	}
	if (($noeditbutton) && ($env{'request.filename'})) {
	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
	my $file=&Apache::lonnet::declutter($env{'request.filename'});
	if (defined($cnum) && defined($cdom)) {
	if (&is_course_upload($file,$cnum,$cdom)) {
	my $cfile = &edit_course_upload($file,$cnum,$cdom);
	if ($cfile) {
	$editbutton=&switch
	('','',6,1,'pcstr.gif','edit[_1]',
	'resource[_2]',"go('".$cfile."');",
	'Edit this resource');
	}
	}
	}
	}
	}
###	###
###	###
# Prepare the rest of the buttons	# Prepare the rest of the buttons
Line 498 sub innerregister {	Line 634 sub innerregister {
$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
s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource	s&6&3&pub.gif&publish[_1]&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.gif&delete[_1]&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.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
Line 528 if(length($annotation) > 0){	Line 664 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[_1]&info[_1]&catalog_info()&Show catalog information	s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata
ENDREALRES	ENDREALRES
}	}
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);
Line 633 ENDREGTEXT	Line 776 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 668 var swmenu=null;	Line 812 var swmenu=null;
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
	// ]]>
</script>	</script>
ENDREGTHIS	ENDREGTHIS
}	}
Line 683 ENDDONOTREGTEXT	Line 828 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 707 var swmenu=null;	Line 853 var swmenu=null;
}	}

// END LON-CAPA Internal	// END LON-CAPA Internal
	// ]]>
</script>	</script>
ENDDONOTREGTHIS	ENDDONOTREGTHIS
}	}
Line 715 ENDDONOTREGTHIS	Line 862 ENDDONOTREGTHIS
return $result;	return $result;
}	}

	sub is_course_upload {
	my ($file,$cnum,$cdom) = @_;
	my $uploadpath = &LONCAPA::propath($cdom,$cnum);
	$uploadpath =~ s{^\/}{};
	if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) \|\|
	($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) {
	return 1;
	}
	return;
	}

	sub edit_course_upload {
	my ($file,$cnum,$cdom) = @_;
	my $cfile;
	if ($file =~/\.(htm\|html\|css\|js\|txt)$/) {
	my $ext = $1;
	my $url = &Apache::lonnet::hreflocation('',$file);
	my $home = &Apache::lonnet::homeserver($cnum,$cdom);
	my @ids=&Apache::lonnet::current_machine_ids();
	my $dest;
	if ($home && grep(/^\Q$home\E$/,@ids)) {
	$dest = $url.'?forceedit=1';
	} else {
	unless (&Apache::lonnet::get_locks()) {
	$dest = '/adm/switchserver?otherserver='.
	$home.'&role='.$env{'request.role'}.
	'&url='.$url.'&forceedit=1';
	}
	}
	if ($dest) {
	$cfile = &HTML::Entities::encode($dest,'"<>&');
	}
	}
	return $cfile;
	}

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

# ============================================================= Start up remote

sub startupremote {	sub startupremote {
my ($lowerurl)=@_;	my ($lowerurl)=@_;
Line 743 sub startupremote {	Line 925 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 792 function main() {	Line 975 function main() {
timestart=date.getTime();	timestart=date.getTime();
wait();	wait();
}	}
	// ]]>
</script>	</script>
ENDREMOTESTARTUP	ENDREMOTESTARTUP
}	}
Line 800 ENDREMOTESTARTUP	Line 983 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 811 sub maincall() {	Line 996 sub maincall() {
($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 823 sub load_remote_msg {	Line 1010 sub load_remote_msg {
($env{'environment.remote'} eq 'off')) { return ''; }	($env{'environment.remote'} eq 'off')) { return ''; }

my $esclowerurl=&escape($lowerurl);	my $esclowerurl=&escape($lowerurl);
my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',	my $link=&mt('[_1]Continue[_2] on in Inline Menu mode',
"/adm/remote?action=collapse&url=$esclowerurl");	'<a href="/adm/remote?action=collapse&url='.$esclowerurl.'">',
	'</a>');
return(<<ENDREMOTEFORM);	return(<<ENDREMOTEFORM);
<p>	<p>
<form name="wheel">	<form name="wheel">
Line 841 sub get_menu_name {	Line 1029 sub get_menu_name {
return 'LCmenu'.$hostid;	return 'LCmenu'.$hostid;
}	}

# ================================================================= Reopen menu

sub reopenmenu {	sub reopenmenu {
if (($env{'browser.interface'} eq 'textual') \|\|	if (($env{'browser.interface'} eq 'textual') \|\|
Line 851 sub reopenmenu {	Line 1038 sub reopenmenu {
return('window.open('.$nothing.',"'.$menuname.'","",false);');	return('window.open('.$nothing.',"'.$menuname.'","",false);');
}	}

# =============================================================== Open the menu

sub open {	sub open {
my $returnval='';	my $returnval='';
if (($env{'browser.interface'} eq 'textual') \|\|	if (($env{'browser.interface'} eq 'textual') \|\|
($env{'environment.remote'} eq 'off')) {	($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 870 sub open {	Line 1061 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","$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 1017 sub inlinemenu {	Line 1210 sub inlinemenu {
}	}
foreach my $item (sort(keys(%active))) {	foreach my $item (sort(keys(%active))) {
$output.=$inlineremote[$item];	$output.=$inlineremote[$item];
&Apache::lonnet::logthis("item=$item output=$inlineremote[$item]");
}	}
$output.='</table>';	$output.='</table>';
$output.='</fieldset>';	$output.='</fieldset>';
Line 1043 sub rawconfig {	Line 1235 sub rawconfig {
my $uname=$env{'user.name'};	my $uname=$env{'user.name'};
my $udom=$env{'user.domain'};	my $udom=$env{'user.domain'};
my $adv=$env{'user.adv'};	my $adv=$env{'user.adv'};
my $show_course=&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 1061 sub rawconfig {	Line 1255 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;	$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();
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 1094 sub rawconfig {	Line 1293 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 1137 sub rawconfig {	Line 1379 sub rawconfig {
}	}
}	}
}	}
	} elsif ($pro eq 'tools') {
	my @tools = ('aboutme','blog','portfolio');
	if (grep(/^\Q$prt\E$/,@tools)) {
	if (!&Apache::lonnet::usertools_access($env{'user.name'},
	$env{'user.domain'},
	$prt,undef,'tools')) {
	$output.=&clear($row,$col);
	next;
	}
	} elsif (($prt eq 'reqcrsnsc') \|\| ($prt eq 'reqcrsshc')) {
	if (($prt eq 'reqcrsnsc') && ($show_course)) {
	next;
	}
	if (($prt eq 'reqcrsshc') && (!$show_course)) {
	next;
	}
	my $showreqcrs = &check_for_rcrs();
	if (!$showreqcrs) {
	$output.=&clear($row,$col);
	next;
	}
	}
	$prt='any';
	$output.=&secondlevel(
	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);

}	}
}	}
unless (($env{'browser.interface'} eq 'textual') \|\|	unless (($env{'browser.interface'} eq 'textual') \|\|
Line 1150 sub rawconfig {	Line 1418 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 1158 sub close {	Line 1448 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 1167 menu.autologout=0;	Line 1458 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 1199 sub utilityfunctions {	Line 1491 sub utilityfunctions {
unless (($env{'browser.interface'} eq 'textual') \|\|	unless (($env{'browser.interface'} eq 'textual') \|\|
($env{'environment.remote'} eq 'off') \|\| ($caller eq '/adm/menu')) { return ''; }	($env{'environment.remote'} eq 'off') \|\| ($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]));
	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'});
Line 1353 function set_bookmark() {	Line 1650 function set_bookmark() {
bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');	bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
bmquery.document.write(	bmquery.document.write(
'$start_page_bookmark'	'$start_page_bookmark'
+"<center><form method='post'"	+'<center><form method="post"'
+" name='newlink' action='/adm/bookmarks' target='bmquery' "	+' name="newlink" action="/adm/bookmarks" target="bmquery" '
+">\\n <table width=340 height=150 "	+'> <table width="340" height="150" '
+"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input "	+'bgcolor="ffffff" align="center"><tr><td>Link Name:<br /><input '
+"type='text' name='title' size=45 value='"+clienttitle+"' />"	+'type="text" name="title" size="45" value="'+clienttitle+'" />'
+"<br />Address:<br /><input type='text' name='address' size='45' "	+'<br />Address:<br /><input type="text" name="address" size="45" '
+"value='"+clienthref+"' /><br /><center><input type='submit' "	+'value="'+clienthref+'" /><br /><center><input type="submit" '
+"value='Save' /> <input type='button' value='Close (no save)' "	+'value="Save" /> <input type="button" value="Close" '
+"onclick='javascript:window.close();' /><\\/center><\\/td>"	+'onclick="javascript:window.close();" /></center></td>'
+"<\\/tr><\\/table><\\/form><\\/center>"	+'</tr></table></form></center>'
+'$end_page_bookmark' );	+'$end_page_bookmark' );
bmquery.document.close();	bmquery.document.close();
}	}
Line 1410 sub get_nav_status {	Line 1707 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 1437 sub hidden_button_check {	Line 1721 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,%gotnosection);	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)) \|\|
(($start) && ($now<$start))) {	(($start) && ($now<$start))) {
Line 1453 sub roles_selector {	Line 1743 sub roles_selector {
}	}
}	}
if ($is_cc) {	if ($is_cc) {
my %adv_roles =	&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);
&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
foreach my $role (keys(%adv_roles)) {
my ($urole,$usec) = split(/:/,$role);
if (!$gotnosection{$urole}) {
$seccount{$urole} ++;
$gotnosection{$urole} = 1;
}
if (ref($courseroles{$urole}) eq 'ARRAY') {
if ($usec ne '') {
if (!grep(/^Q$usec\E$/,@{$courseroles{$urole}})) {
push(@{$courseroles{$urole}},$usec);
$seccount{$urole} ++;
}
}
} else {
@{$courseroles{$urole}} = ();
if ($usec ne '') {
$seccount{$urole} ++;
push(@{$courseroles{$urole}},$usec);
}
}
}
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
@{$courseroles{'st'}} = ();
if (keys(%sections_count) > 0) {
push(@{$courseroles{'st'}},keys(%sections_count));
}
} else {	} else {
	my %gotnosection;
foreach my $item (keys(%env)) {	foreach my $item (keys(%env)) {
if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) {	if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) {
my $role = $1;	my $role = $1;
Line 1512 sub roles_selector {	Line 1776 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 1530 sub roles_selector {	Line 1801 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 1539 sub roles_selector {	Line 1810 sub roles_selector {
return $role_selector;	return $role_selector;
}	}

	sub get_all_courseroles {
	my ($cdom,$cnum,$courseroles,$seccount) = @_;
	unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {
	return;
	}
	my ($result,$cached) =
	&Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);
	if (defined($cached)) {
	if (ref($result) eq 'HASH') {
	if ((ref($result->{'roles'}) eq 'HASH') &&
	(ref($result->{'seccount'}) eq 'HASH')) {
	%{$courseroles} = %{$result->{'roles'}};
	%{$seccount} = %{$result->{'seccount'}};
	return;
	}
	}
	}
	my %gotnosection;
	my %adv_roles =
	&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
	foreach my $role (keys(%adv_roles)) {
	my ($urole,$usec) = split(/:/,$role);
	if (!$gotnosection{$urole}) {
	$seccount->{$urole} ++;
	$gotnosection{$urole} = 1;
	}
	if (ref($courseroles->{$urole}) eq 'ARRAY') {
	if ($usec ne '') {
	if (!grep(/^\Q$usec\E$/,@{$courseroles->{$urole}})) {
	push(@{$courseroles->{$urole}},$usec);
	$seccount->{$urole} ++;
	}
	}
	} else {
	@{$courseroles->{$urole}} = ();
	if ($usec ne '') {
	$seccount->{$urole} ++;
	push(@{$courseroles->{$urole}},$usec);
	}
	}
	}
	my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);
	@{$courseroles->{'st'}} = ();
	if (keys(%sections_count) > 0) {
	push(@{$courseroles->{'st'}},keys(%sections_count));
	$seccount->{'st'} = scalar(keys(%sections_count));
	}
	my $rolehash = {
	'roles' => $courseroles,
	'seccount' => $seccount,
	};
	&Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);
	return;
	}

sub jump_to_role {	sub jump_to_role {
my ($cdom,$cnum,$seccount,$courseroles) = @_;	my ($cdom,$cnum,$seccount,$courseroles) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
Line 1570 sub jump_to_role {	Line 1896 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 1642 function retrieveIndex(item) {	Line 1969 function retrieveIndex(item) {
}	}
return -1;	return -1;
}	}
	// ]]>

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

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

Removed from v.1.243
changed lines
	Added in v.1.244.2.15