loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.1400 and 1.1477

version 1.1400, 2022/12/31 14:08:58	version 1.1477, 2025/03/31 13:55:07
Line 71 use Apache::lonuserutils();	Line 71 use Apache::lonuserutils();
use Apache::lonuserstate();	use Apache::lonuserstate();
use Apache::courseclassifier();	use Apache::courseclassifier();
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
	use LONCAPA::ltiutils;
use LONCAPA::LWPReq;	use LONCAPA::LWPReq;
use LONCAPA::map();	use LONCAPA::map();
use HTTP::Request;	use HTTP::Request;
Line 436 sub studentbrowser_javascript {	Line 437 sub studentbrowser_javascript {
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
// <![CDATA[	// <![CDATA[
var stdeditbrowser;	var stdeditbrowser;
function openstdbrowser(formname,uname,udom,clicker,roleflag,ignorefilter,courseadv) {	function openstdbrowser(formname,uname,udom,clicker,roleflag,ignorefilter,courseadv,uident) {
var url = '/adm/pickstudent?';	var url = '/adm/pickstudent?';
var filter;	var filter;
if (!ignorefilter) {	if (!ignorefilter) {
Line 457 sub studentbrowser_javascript {	Line 458 sub studentbrowser_javascript {
}	}
}	}
if ((courseadv == 'only') \|\| (courseadv == 'none')) { url+="&courseadv="+courseadv; }	if ((courseadv == 'only') \|\| (courseadv == 'none')) { url+="&courseadv="+courseadv; }
	if (uident !== '') { url+="&identelement="+uident; }
var title = 'Student_Browser';	var title = 'Student_Browser';
var options = 'scrollbars=1,resizable=1,menubar=0';	var options = 'scrollbars=1,resizable=1,menubar=0';
options += ',width=700,height=600';	options += ',width=700,height=600';
Line 488 ENDRESBRW	Line 490 ENDRESBRW
}	}

sub selectstudent_link {	sub selectstudent_link {
my ($form,$unameele,$udomele,$courseadv,$clickerid)=@_;	my ($form,$unameele,$udomele,$courseadv,$clickerid,$identelem)=@_;
my $callargs = "'".&Apache::lonhtmlcommon::entity_encode($form)."','".	my $callargs = "'".&Apache::lonhtmlcommon::entity_encode($form)."','".
&Apache::lonhtmlcommon::entity_encode($unameele)."','".	&Apache::lonhtmlcommon::entity_encode($unameele)."','".
&Apache::lonhtmlcommon::entity_encode($udomele)."'";	&Apache::lonhtmlcommon::entity_encode($udomele)."'";
Line 505 sub selectstudent_link {	Line 507 sub selectstudent_link {
$callargs .= ",'','','$courseadv'";	$callargs .= ",'','','$courseadv'";
} elsif ($courseadv eq 'condition') {	} elsif ($courseadv eq 'condition') {
$callargs .= ",'','','$courseadv'";	$callargs .= ",'','','$courseadv'";
	} elsif ($identelem ne '') {
	$callargs .= ",'','',''";
	}
	if ($identelem ne '') {
	$callargs .= ",'".&Apache::lonhtmlcommon::entity_encode($identelem)."'";
}	}
return '<span class="LC_nobreak">'.	return '<span class="LC_nobreak">'.
'<a href="javascript:openstdbrowser('.$callargs.');">'.	'<a href="javascript:openstdbrowser('.$callargs.');">'.
Line 959 ENDSCRT	Line 966 ENDSCRT

sub select_timezone {	sub select_timezone {
my ($name,$selected,$onchange,$includeempty,$id,$disabled)=@_;	my ($name,$selected,$onchange,$includeempty,$id,$disabled)=@_;
my $output='<select name="'.$name.'" '.$id.$onchange.$disabled.'>'."\n";	my $labeltext = &HTML::Entities::encode(&mt('Select Time Zone'));
	my $output='<select name="'.$name.'" '.$id.$onchange.$disabled.
	' aria-label="'.$labeltext.'">'."\n";
if ($includeempty) {	if ($includeempty) {
$output .= '<option value=""';	$output .= '<option value=""';
if (($selected eq '') \|\| ($selected eq 'local')) {	if (($selected eq '') \|\| ($selected eq 'local')) {
Line 1167 sub linked_select_forms {	Line 1176 sub linked_select_forms {
$menuorder,	$menuorder,
$onchangefirst,	$onchangefirst,
$onchangesecond,	$onchangesecond,
$suffix	$suffix,
	$haslabel
) = @_;	) = @_;
my $second = "document.$formname.$secondselectname";	my $second = "document.$formname.$secondselectname";
my $first = "document.$formname.$firstselectname";	my $first = "document.$formname.$firstselectname";
Line 1233 END	Line 1243 END
$result.=">".&mt($hashref->{$value}->{'text'})."</option>\n";	$result.=">".&mt($hashref->{$value}->{'text'})."</option>\n";
}	}
$result .= "</select>\n";	$result .= "</select>\n";
	if ($haslabel) {
	$result .= '</label>';
	}
my %select2;	my %select2;
if (ref($hashref->{$firstdefault}) eq 'HASH') {	if (ref($hashref->{$firstdefault}) eq 'HASH') {
if (ref($hashref->{$firstdefault}->{'select2'}) eq 'HASH') {	if (ref($hashref->{$firstdefault}->{'select2'}) eq 'HASH') {
%select2 = %{$hashref->{$firstdefault}->{'select2'}};	%select2 = %{$hashref->{$firstdefault}->{'select2'}};
}	}
}	}
$result .= $middletext;	if ($middletext ne '') {
	$result .= '<label>'.$middletext;
	}
$result .= "<select size=\"1\" name=\"$secondselectname\"";	$result .= "<select size=\"1\" name=\"$secondselectname\"";
if ($onchangesecond) {	if ($onchangesecond) {
$result .= ' onchange="'.$onchangesecond.'"';	$result .= ' onchange="'.$onchangesecond.'"';
Line 1257 END	Line 1272 END
$result.=">".&mt($select2{$value})."</option>\n";	$result.=">".&mt($select2{$value})."</option>\n";
}	}
$result .= "</select>\n";	$result .= "</select>\n";
	if ($middletext ne '') {
	$result .= '</label>';
	}
# return $debug;	# return $debug;
return $result;	return $result;
} # end of sub linked_select_forms {	} # end of sub linked_select_forms {
Line 1335 sub help_open_topic {	Line 1353 sub help_open_topic {
}	}
$template.=' <a'.$target.' href="'.$link.'" title="'.$title.'">'	$template.=' <a'.$target.' href="'.$link.'" title="'.$title.'">'
.'<img src="'.$helpicon.'" border="0"'	.'<img src="'.$helpicon.'" border="0"'
.' alt="'.&mt('Help: [_1]',$topic).'"'	.' alt="'.&mt('Help icon').'"'
.' title="'.$title.'" style="vertical-align:middle;"'.$imgid	.' title="'.$title.'" style="vertical-align:middle;"'.$imgid
.' /></a>';	.' /></a>';
if ($text ne "") {	if ($text ne "") {
Line 1365 sub helpLatexCheatsheet {	Line 1383 sub helpLatexCheatsheet {
$out .= '<span>'	$out .= '<span>'
.&help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),$stayOnPage,undef,600)	.&help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),$stayOnPage,undef,600)
.'</span> <span>'	.'</span> <span>'
.&help_open_topic('Authoring_Multilingual_Problems',&mt('How to create problems in different languages'),$stayOnPage,undef,600)	.&help_open_topic('Authoring_Multilingual_Problems',&mt('Languages'),$stayOnPage,undef,600)
.'</span>';	.'</span>';
}	}
$out .= '</span>'; # End cheatsheet	$out .= '</span>'; # End cheatsheet
Line 1444 $banner_link	Line 1462 $banner_link
<a href="$link" title="$title" $linkattr>$text</a>	<a href="$link" title="$title" $linkattr>$text</a>
END	END
} else {	} else {
return ' '.$text.' ';	return ' <h1 class="LC_helpmenu">'.$text.'</h1> ';
}	}
}	}

Line 1456 sub help_menu_js {	Line 1474 sub help_menu_js {
my $helptopic=&general_help();	my $helptopic=&general_help();
my $details_link = $httphost.'/adm/help/'.$helptopic.'.hlp';	my $details_link = $httphost.'/adm/help/'.$helptopic.'.hlp';
my $nothing=&Apache::lonhtmlcommon::javascript_nothing();	my $nothing=&Apache::lonhtmlcommon::javascript_nothing();
	my $bannertitle = &mt('Help Menu');
	&js_escape(\$bannertitle);
	my $bodytitle = &mt('Documentation');
	&js_escape(\$bodytitle);
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Help Menu', undef,	&Apache::loncommon::start_page('Help Menu', undef,
{'frameset' => 1,	{'frameset' => 1,
Line 1467 sub help_menu_js {	Line 1489 sub help_menu_js {
my $end_page =	my $end_page =
&Apache::loncommon::end_page({'frameset' => 1,	&Apache::loncommon::end_page({'frameset' => 1,
'js_ready' => 1,});	'js_ready' => 1,});

my $template .= <<"ENDTEMPLATE";	my $template .= <<"ENDTEMPLATE";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 1492 function helpMenu(target) {	Line 1513 function helpMenu(target) {
return;	return;
}	}
function writeHelp(caller) {	function writeHelp(caller) {
caller.document.writeln('$start_page\\n<frame name="bannerframe" src="'+banner_link+'" marginwidth="0" marginheight="0" frameborder="0">\\n');	caller.document.writeln('$start_page\\n<frame name="bannerframe" title="$bannertitle" src="'+banner_link+'" marginwidth="0" marginheight="0" frameborder="0">\\n');
caller.document.writeln('<frame name="bodyframe" src="$details_link" marginwidth="0" marginheight="0" frameborder="0">\\n$end_page');	caller.document.writeln('<frame name="bodyframe" title="$bodytitle" src="$details_link" marginwidth="0" marginheight="0" frameborder="0">\\n$end_page');
caller.document.close();	caller.document.close();
caller.focus();	caller.focus();
}	}
Line 1757 the id of the element to resize, second	Line 1778 the id of the element to resize, second
surrounds everything that comes after the textarea, this routine needs	surrounds everything that comes after the textarea, this routine needs
to be attached to the <body> for the onload and onresize events.	to be attached to the <body> for the onload and onresize events.

=back

=cut	=cut

sub resize_textarea_js {	sub resize_textarea_js {
Line 1851 sub colorfuleditor_js {	Line 1870 sub colorfuleditor_js {
if (document.getElementById('crsres_include_'+element)) {	if (document.getElementById('crsres_include_'+element)) {
include = document.getElementById('crsres_include_'+element).value;	include = document.getElementById('crsres_include_'+element).value;
}	}
populateCrsSelects(form,dirsel,filesel,1,include,1,0,1,1);	populateCrsSelects(form,dirsel,filesel,1,include,1,0,1,1,0);
}	}
}	}
if (document.getElementById('chooser_'+element+'_upload')) {	if (document.getElementById('chooser_'+element+'_upload')) {
Line 1859 sub colorfuleditor_js {	Line 1878 sub colorfuleditor_js {
if (currcrsupload == 'none') {	if (currcrsupload == 'none') {
dirsel = 'crsauthorpath_'+element;	dirsel = 'crsauthorpath_'+element;
filesel = '';	filesel = '';
populateCrsSelects(form,dirsel,filesel,0,'',1,0,1,0);	populateCrsSelects(form,dirsel,filesel,0,'',1,0,1,0,1);
}	}
}	}
}	}
Line 1874 sub colorfuleditor_js {	Line 1893 sub colorfuleditor_js {
if (document.getElementById('coursepath_'+element).length) {	if (document.getElementById('coursepath_'+element).length) {
numdirs = document.getElementById('coursepath_'+element).length;	numdirs = document.getElementById('coursepath_'+element).length;
}	}
	if ((document.getElementById('hascrsres_'+element)) &&
	(document.getElementById('nocrsres_'+element))) {
	if (numdirs) {
	document.getElementById('hascrsres_'+element).style.display='inline-block';
	document.getElementById('nocrsres_'+element).style.display='none';
	} else {
	document.getElementById('hascrsres_'+element).style.display='none';
	document.getElementById('nocrsres_'+element).style.display='inline-block';
	}
	}
form.elements['coursepath_'+element].selectedIndex = 0;	form.elements['coursepath_'+element].selectedIndex = 0;
if (numdirs > 1) {	if (numdirs > 1) {
var selelem = form.elements['coursefile_'+element];	var selelem = form.elements['coursefile_'+element];
Line 2266 sub import_crsauthor_form {	Line 2295 sub import_crsauthor_form {
return (0) unless (($cnum ne '') && ($cdom ne ''));	return (0) unless (($cnum ne '') && ($cdom ne ''));
my @ids=&Apache::lonnet::current_machine_ids();	my @ids=&Apache::lonnet::current_machine_ids();
my ($output,$is_home,$toppath,%subdirs,%files,%selimport_menus,$include,$exclude);	my ($output,$is_home,$toppath,%subdirs,%files,%selimport_menus,$include,$exclude);

if (grep(/^\Q$crshome\E$/,@ids)) {	if (grep(/^\Q$crshome\E$/,@ids)) {
$is_home = 1;	$is_home = 1;
}	}
Line 2278 sub import_crsauthor_form {	Line 2307 sub import_crsauthor_form {
$js_only = join(',',map { &js_escape($_); } sort(keys(%{$include})));	$js_only = join(',',map { &js_escape($_); } sort(keys(%{$include})));
}	}
$exclude = &Apache::lonnet::priv_exclude();	$exclude = &Apache::lonnet::priv_exclude();
&Apache::lonnet::recursedirs($is_home,1,$include,$exclude,1,$toppath,'',\%subdirs,\%files);	&Apache::lonnet::recursedirs($is_home,1,$include,$exclude,1,0,$toppath,'',\%subdirs,\%files);
my $numdirs = scalar(keys(%files));	my $numdirs = scalar(keys(%files));
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
fnam => 'Filename',	fnam => 'Filename',
dire => 'Directory',	dire => 'Directory',
se => 'Select',	se => 'Select',
);	);
$output = $lt{'dire'}.	$output = '<label>'.$lt{'dire'}.': '.
'<select id="'.$firstselectname.'" name="'.$firstselectname.'" '.	'<select id="'.$firstselectname.'" name="'.$firstselectname.'" '.
'onchange="populateCrsSelects(this.form,'."'$firstselectname','$secondselectname',1,'$js_only',0,1,0,0".');">'.	'onchange="populateCrsSelects(this.form,'."'$firstselectname','$secondselectname',1,'$js_only',0,1,0,0,0".');">'.
'<option value="" selected="selected">'.$lt{'se'}.'</option>';	'<option value="" selected="selected">'.$lt{'se'}.'</option>';
	if ($files{'/'}) {
	$output .= '<option value="/">/</option>'."\n";
	}
foreach my $key (sort { lc($a) cmp lc($b) } (keys(%files))) {	foreach my $key (sort { lc($a) cmp lc($b) } (keys(%files))) {
	next if ($key eq '/');
$output .= '<option value="'.$key.'">'.$key.'</option>'."\n";	$output .= '<option value="'.$key.'">'.$key.'</option>'."\n";
}	}
$output .= '</select><br />'."\n".	$output .= '</select></label><br /><label>'."\n".
$lt{'fnam'}.'<select id="'.$secondselectname.'" name="'.$secondselectname.'">'."\n".	$lt{'fnam'}.': <select id="'.$secondselectname.'" name="'.$secondselectname.'">'."\n".
'<option value="" selected="selected"></option>'."\n".	'<option value="" selected="selected"></option>'."\n".
'</select>'."\n";	'</select></label>'."\n".
$output .= '<input type="hidden" id="crsres_include_'.$suffix.'" value="'.$only.'" />';	'<input type="hidden" id="crsres_include_'.$suffix.'" value="'.$only.'" />';
return ($numdirs,$output);	return ($numdirs,$output);
}	}

Line 2310 sub show_crsfiles_js {	Line 2343 sub show_crsfiles_js {
my $js = <<"END";	my $js = <<"END";


function populateCrsSelects (form,dirsel,filesel,exc,include,setdir,setfile,recurse,nonemptydir) {	function populateCrsSelects (form,dirsel,filesel,exc,include,setdir,setfile,recurse,nonemptydir,addtopdir) {
var relpath = '';	var relpath = '';
if ((setfile) && (dirsel != null) && (dirsel != 'undefined') && (dirsel != '')) {	if ((setfile) && (dirsel != null) && (dirsel != 'undefined') && (dirsel != '')) {
var currdir = form.elements[dirsel].options[form.elements[dirsel].selectedIndex].value;	var currdir = form.elements[dirsel].options[form.elements[dirsel].selectedIndex].value;
Line 2340 sub show_crsfiles_js {	Line 2373 sub show_crsfiles_js {
if (exc) {	if (exc) {
exclude = '$exclude';	exclude = '$exclude';
}	}
var params = "role=course&files=1&rec="+recurse+"&nonempty="+nonemptydir+"&exc="+exclude+"&inc="+include+"&path="+relpath;	var params = "role=course&files=1&rec="+recurse+"&nonempty="+nonemptydir+"&exc="+exclude+"&inc="+include+"&addtop="+addtopdir+"&path="+relpath;
http.open("POST", url, true);	http.open("POST", url, true);
http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");	http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
http.onreadystatechange = function() {	http.onreadystatechange = function() {
Line 2358 sub show_crsfiles_js {	Line 2391 sub show_crsfiles_js {
}	}
var len = data.dirs.length;	var len = data.dirs.length;
if (len) {	if (len) {
if (len > 1) {	selelem.options[selelem.options.length] = new Option('$se','');
selelem.options[selelem.options.length] = new Option('$se','');
}
}
if (len) {
var j;	var j;
for (j = 0; j < len; j++) {	for (j = 0; j < len; j++) {
selelem.options[selelem.options.length] = new Option(data.dirs[j],data.dirs[j]);	selelem.options[selelem.options.length] = new Option(data.dirs[j],data.dirs[j]);
Line 2422 sub show_crsfiles_js {	Line 2451 sub show_crsfiles_js {
END	END
}	}

	sub crsauthor_rights {
	my ($rightsfile,$path,$docroot,$cnum,$cdom) = @_;
	my $sourcerights = "$path/$rightsfile";
	my $now = time;
	if (!-e $sourcerights) {
	my $cid = $cdom.'_'.$cnum;
	if (!-e "$docroot/priv/$cdom") {
	mkdir("$docroot/priv/$cdom",0755);
	}
	if (!-e "$docroot/priv/$cdom/$cnum") {
	mkdir("$docroot/priv/$cdom/$cnum",0755);
	}
	if (open(my $fh,">$sourcerights")) {
	print $fh <<END;
	<accessrule effect="deny" realm="" type="course" role="" />
	<accessrule effect="allow" realm="$cid" type="course" role="" />
	END
	close($fh);
	}
	}
	if (!-e "$sourcerights.meta") {
	if (open(my $fh,">$sourcerights.meta")) {
	my $author=$env{'environment.firstname'}.' '.
	$env{'environment.middlename'}.' '.
	$env{'environment.lastname'}.' '.
	$env{'environment.generation'};
	$author =~ s/\s+$//;
	print $fh <<"END";

	<abstract></abstract>
	<author>$author</author>
	<authorspace>$cnum:$cdom</authorspace>
	<copyright>private</copyright>
	<creationdate>$now</creationdate>
	<customdistributionfile></customdistributionfile>
	<dependencies></dependencies>
	<domain>$cdom</domain>
	<highestgradelevel>0</highestgradelevel>
	<keywords></keywords>
	<language>notset</language>
	<lastrevisiondate>$now</lastrevisiondate>
	<lowestgradelevel>0</lowestgradelevel>
	<mime>rights</mime>
	<modifyinguser>$env{'user.name'}:$env{'user.domain'}</modifyinguser>
	<notes></notes>
	<obsolete></obsolete>
	<obsoletereplacement></obsoletereplacement>
	<owner>$cnum:$cdom</owner>
	<rule>deny:::course,allow:$cid::course</rule>
	<sourceavail></sourceavail>
	<standards></standards>
	<subject></subject>
	<title>Course Authoring Rights</title>
	END
	close($fh);
	}
	}
	return;
	}

	=pod

	=item * &iframe_wrapper_headjs()

	emits javascript containing two global vars to facilitate handling of resizing
	by code in iframe_wrapper_resizejs() used when an iframe is present in a page
	with standard LON-CAPA menus.

	=cut

	#
	# Where iframe is in use, if window.onload() executes before the custom resize function
	# has been defined (jQuery), two global javascript vars (LCnotready and LCresizedef)
	# are used to ensure document.ready() triggers a call to resize, so the iframe contents
	# do not obscure the Functions menu.
	#

	sub iframe_wrapper_headjs {
	return <<"ENDJS";
	<script type="text/javascript">
	// <![CDATA[
	var LCnotready = 0;
	var LCresizedef = 0;
	// ]]>
	</script>

	ENDJS

	}

	=pod

	=item * &iframe_wrapper_resizejs()

	emits javascript used to handle resizing for a page containing
	an iframe, to ensure that the iframe does not obscure any
	standard LON-CAPA menu items.

	=back

	=cut

	#
	# jQuery to use when iframe is in use and a page resize occurs.
	# This script will ensure that the iframe does not obscure any
	# standard LON-CAPA inline menus (primary, secondary, and/or
	# breadcrumbs and Functions menus. Expects javascript from
	# &iframe_wrapper_headjs() to be in head portion of the web page,
	# e.g., by inclusion in second arg passed to &start_page().
	#

	sub iframe_wrapper_resizejs {
	my $offset = 5;
	&get_unprocessed_cgi($ENV{'QUERY_STRING'},['inhibitmenu']);
	if (($env{'form.inhibitmenu'} eq 'yes') \|\| ($env{'form.only_body'})) {
	$offset = 0;
	}
	return &Apache::lonhtmlcommon::scripttag(<<SCRIPT);
	\$(document).ready( function() {
	\$(window).unbind('resize').resize(function(){
	var header = null;
	var offset = $offset;
	var height = 0;
	var hdrtop = 0;
	if (\$('div.LC_menus_content:first').length) {
	if (\$('div.LC_menus_content:first').hasClass ("shown")) {
	header = \$('div.LC_menus_content:first');
	offset = 12;
	}
	} else if (\$('div.LC_head_subbox:first').length) {
	header = \$('div.LC_head_subbox:first');
	offset = 9;
	} else {
	if (\$('#LC_breadcrumbs').length) {
	header = \$('#LC_breadcrumbs');
	}
	}
	if (header != null && header.length) {
	height = header.height();
	hdrtop = header.position().top;
	}
	var pos = height + hdrtop + offset;
	\$('.LC_iframecontainer').css('top', pos);
	});
	LCresizedef = 1;
	if (LCnotready == 1) {
	LCnotready = 0;
	\$(window).trigger('resize');
	}
	});
	window.onload = function(){
	if (LCresizedef) {
	LCnotready = 0;
	\$(window).trigger('resize');
	} else {
	LCnotready = 1;
	}
	};
	SCRIPT

	}

=pod	=pod

=head1 Excel and CSV file utility routines	=head1 Excel and CSV file utility routines
Line 2609 sub create_text_file {	Line 2800 sub create_text_file {
# ------------------------------------------	# ------------------------------------------

sub domain_select {	sub domain_select {
my ($name,$value,$multiple,$incdoms,$excdoms)=@_;	my ($name,$value,$multiple,$incdoms,$excdoms,$id)=@_;
my @possdoms;	my @possdoms;
if (ref($incdoms) eq 'ARRAY') {	if (ref($incdoms) eq 'ARRAY') {
@possdoms = @{$incdoms};	@possdoms = @{$incdoms};
Line 2630 sub domain_select {	Line 2821 sub domain_select {
if ($multiple) {	if ($multiple) {
$domains{''}=&mt('Any domain');	$domains{''}=&mt('Any domain');
$domains{'select_form_order'} = [sort {lc($a) cmp lc($b) } (keys(%domains))];	$domains{'select_form_order'} = [sort {lc($a) cmp lc($b) } (keys(%domains))];
return &multiple_select_form($name,$value,4,\%domains);	return &multiple_select_form($name,$value,4,\%domains,undef,$id);
} else {	} else {
$domains{'select_form_order'} = [sort {lc($a) cmp lc($b) } (keys(%domains))];	$domains{'select_form_order'} = [sort {lc($a) cmp lc($b) } (keys(%domains))];
return &select_form($name,$value,\%domains);	return &select_form($name,$value,\%domains,'','',$id);
}	}
}	}

Line 2645 sub domain_select {	Line 2836 sub domain_select {

=over 4	=over 4

=item * &multiple_select_form($name,$value,$size,$hash,$order)	=item * &multiple_select_form($name,$value,$size,$hash,$order,$id)

Returns a string containing a <select> element int multiple mode	Returns a string containing a <select> element int multiple mode

Line 2657 Args:	Line 2848 Args:
$hash - the elements should be 'option' => 'shown text'	$hash - the elements should be 'option' => 'shown text'
(shown text should already have been &mt())	(shown text should already have been &mt())
$order - (optional) array ref of the order to show the elements in	$order - (optional) array ref of the order to show the elements in
	$id = (optional) id for <select> element

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub multiple_select_form {	sub multiple_select_form {
my ($name,$value,$size,$hash,$order)=@_;	my ($name,$value,$size,$hash,$order,$id)=@_;
my %selected = map { $_ => 1 } ref($value)?@{$value}:($value);	my %selected = map { $_ => 1 } ref($value)?@{$value}:($value);
my $output='';	my $output='';
if (! defined($size)) {	if (! defined($size)) {
Line 2671 sub multiple_select_form {	Line 2863 sub multiple_select_form {
$size = scalar(keys(%$hash));	$size = scalar(keys(%$hash));
}	}
}	}
$output.="\n".'<select name="'.$name.'" size="'.$size.'" multiple="multiple">';	if ($id ne '') {
	$id = ' id="'.$id.'"';
	}
	$output.="\n".'<select name="'.$name.'" size="'.$size.'" multiple="multiple"'.$id.'>';
my @order;	my @order;
if (ref($order) eq 'ARRAY') {	if (ref($order) eq 'ARRAY') {
@order = @{$order};	@order = @{$order};
Line 2695 sub multiple_select_form {	Line 2890 sub multiple_select_form {

=pod	=pod

=item * &select_form($defdom,$name,$hashref,$onchange,$readonly)	=item * &select_form($defdom,$name,$hashref,$onchange,$readonly,$id,$aria_labelledby)

Returns a string containing a <select name='$name' size='1'> form to	Returns a string containing a <select name='$name' size='1'> form to
allow a user to select options from a ref to a hash containing:	allow a user to select options from a ref to a hash containing:
Line 2703 option_name => displayed text. An option	Line 2898 option_name => displayed text. An option
a javascript onchange item, e.g., onchange="this.form.submit();".	a javascript onchange item, e.g., onchange="this.form.submit();".
An optional arg -- $readonly -- if true will cause the select form	An optional arg -- $readonly -- if true will cause the select form
to be disabled, e.g., for the case where an instructor has a section-	to be disabled, e.g., for the case where an instructor has a section-
specific role, and is viewing/modifying parameters.	specific role, and is viewing/modifying parameters. An optional arg
	-- $id -- will be used as the id attribute of the select element. An
	optional arg -- $aria_labelledby -- will be included as the aria-labelledby
	attribute of the select element.

See lonrights.pm for an example invocation and use.	See lonrights.pm for an example invocation and use.

Line 2711 See lonrights.pm for an example invocati	Line 2909 See lonrights.pm for an example invocati

#-------------------------------------------	#-------------------------------------------
sub select_form {	sub select_form {
my ($def,$name,$hashref,$onchange,$readonly) = @_;	my ($def,$name,$hashref,$onchange,$readonly,$id,$aria_labelledby) = @_;
return unless (ref($hashref) eq 'HASH');	return unless (ref($hashref) eq 'HASH');
if ($onchange) {	if ($onchange) {
$onchange = ' onchange="'.$onchange.'"';	$onchange = ' onchange="'.$onchange.'"';
Line 2720 sub select_form {	Line 2918 sub select_form {
if ($readonly) {	if ($readonly) {
$disabled = ' disabled="disabled"';	$disabled = ' disabled="disabled"';
}	}
my $selectform = "<select name=\"$name\" size=\"1\"$onchange$disabled>\n";	if ($id ne '') {
	$id = ' id="'.$id.'"';
	}
	if ($aria_labelledby ne '') {
	$aria_labelledby = ' aria-labelledby="'.$aria_labelledby.'"';
	}
	my $selectform = "<select name=\"$name\" size=\"1\"$onchange$disabled$id$aria_labelledby>\n";
my @keys;	my @keys;
if (exists($hashref->{'select_form_order'})) {	if (exists($hashref->{'select_form_order'})) {
@keys=@{$hashref->{'select_form_order'}};	@keys=@{$hashref->{'select_form_order'}};
Line 2771 sub display_filter {	Line 2975 sub display_filter {
my $onchange = "javascript:toggleHistoryOptions(this,'containingphrase','$context',	my $onchange = "javascript:toggleHistoryOptions(this,'containingphrase','$context',
'$secondid','$thirdid')";	'$secondid','$thirdid')";
return '<span class="LC_nobreak"><label>'.&mt('Records: [_1]',	return '<span class="LC_nobreak"><label>'.&mt('Records: [_1]',
&Apache::lonmeta::selectbox('show',$env{'form.show'},undef,	&Apache::lonmeta::selectbox('show',$env{'form.show'},'','',undef,
(&mt('all'),10,20,50,100,1000,10000))).	(&mt('all'),10,20,50,100,1000,10000))).
'</label></span> <span class="LC_nobreak">'.	'</label></span> <span class="LC_nobreak">'.
&mt('Filter: [_1]',	&mt('Filter: [_1]',
Line 2873 sub gradeleveldescription {	Line 3077 sub gradeleveldescription {
}	}

sub select_level_form {	sub select_level_form {
my ($deflevel,$name)=@_;	my ($deflevel,$name,$id)=@_;
	if ($id ne '') {
	$id = ' id="'.$id.'"';
	}
unless ($deflevel) { $deflevel=0; }	unless ($deflevel) { $deflevel=0; }
my $selectform = "<select name=\"$name\" size=\"1\">\n";	my $selectform = "<select name=\"$name\" size=\"1\"$id>\n";
for (my $i=0; $i<=18; $i++) {	for (my $i=0; $i<=18; $i++) {
$selectform.="<option value=\"$i\" ".	$selectform.="<option value=\"$i\" ".
($i==$deflevel ? 'selected="selected" ' : '').	($i==$deflevel ? 'selected="selected" ' : '').
Line 2889 sub select_level_form {	Line 3096 sub select_level_form {

=pod	=pod

=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms,$excdoms,$disabled)	=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms,$excdoms,$disabled,$id)

Returns a string containing a <select name='$name' size='1'> form to	Returns a string containing a <select name='$name' size='1'> form to
allow a user to select the domain to preform an operation in.	allow a user to select the domain to preform an operation in.
Line 2908 The optional $excdoms is a reference to	Line 3115 The optional $excdoms is a reference to

The optional $disabled argument, if true, adds the disabled attribute to the select tag.	The optional $disabled argument, if true, adds the disabled attribute to the select tag.

	The option $id argument is the value (if any) to set as the (unique) id attribute for the select tag.

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub select_dom_form {	sub select_dom_form {
my ($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms,$excdoms,$disabled) = @_;	my ($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms,$excdoms,$disabled,$id) = @_;
if ($onchange) {	if ($onchange) {
$onchange = ' onchange="'.$onchange.'"';	$onchange = ' onchange="'.$onchange.'"';
}	}
if ($disabled) {	if ($disabled) {
$disabled = ' disabled="disabled"';	$disabled = ' disabled="disabled"';
}	}
	if ($id ne '') {
	$id = ' id="'.$id.'"';
	}
my (@domains,%exclude);	my (@domains,%exclude);
if (ref($incdoms) eq 'ARRAY') {	if (ref($incdoms) eq 'ARRAY') {
@domains = sort {lc($a) cmp lc($b)} (@{$incdoms});	@domains = sort {lc($a) cmp lc($b)} (@{$incdoms});
Line 2929 sub select_dom_form {	Line 3141 sub select_dom_form {
if (ref($excdoms) eq 'ARRAY') {	if (ref($excdoms) eq 'ARRAY') {
map { $exclude{$_} = 1; } @{$excdoms};	map { $exclude{$_} = 1; } @{$excdoms};
}	}
my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange$disabled>\n";	my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange$disabled$id>\n";
foreach my $dom (@domains) {	foreach my $dom (@domains) {
next if ($exclude{$dom});	next if ($exclude{$dom});
$selectdomain.="<option value=\"$dom\" ".	$selectdomain.="<option value=\"$dom\" ".
Line 3773 sub passwd_validation_js {	Line 3985 sub passwd_validation_js {
} else {	} else {
$alertmsg = &mt('A secret did not satisfy requirement(s):').'\n\n';	$alertmsg = &mt('A secret did not satisfy requirement(s):').'\n\n';
}	}
	} elsif ($context eq 'ltitools') {
	my %domconfig = &Apache::lonnet::get_dom('configuration',['toolsec'],$domain);
	if (ref($domconfig{'toolsec'}) eq 'HASH') {
	if (ref($domconfig{'toolsec'}{'rules'}) eq 'HASH') {
	%passwdconf = %{$domconfig{'toolsec'}{'rules'}};
	}
	}
	if ($id eq 'add') {
	$alertmsg = &mt('Secret for added external tool did not satisfy requirement(s):').'\n\n';
	} elsif ($id =~ /^\d+$/) {
	my $pos = $id+1;
	$alertmsg = &mt('Secret for external tool [_1] did not satisfy requirement(s):','#'.$pos).'\n\n';
	} else {
	$alertmsg = &mt('A secret did not satisfy requirement(s):').'\n\n';
	}
} else {	} else {
%passwdconf = &Apache::lonnet::get_passwdconf($domain);	%passwdconf = &Apache::lonnet::get_passwdconf($domain);
$alertmsg = &mt('Initial password did not satisfy requirement(s):').'\n\n';	$alertmsg = &mt('Initial password did not satisfy requirement(s):').'\n\n';
Line 4650 sub filemimetype {	Line 4877 sub filemimetype {


sub filecategoryselect {	sub filecategoryselect {
my ($name,$value)=@_;	my ($name,$value,$id)=@_;
return &select_form($value,$name,	return &select_form($value,$name,
{'' => &mt('Any category'), map { $_,$_ } sort(keys(%category_extensions))});	{'' => &mt('Any category'), map { $_,$_ } sort(keys(%category_extensions))},
	'','',$id);
}	}

=pod	=pod
Line 5136 sub get_student_view {	Line 5364 sub get_student_view {
$userview=~s/\<\/html\>//gi;	$userview=~s/\<\/html\>//gi;
$userview=~s/\<head\>//gi;	$userview=~s/\<head\>//gi;
$userview=~s/\<\/head\>//gi;	$userview=~s/\<\/head\>//gi;
	$userview=~s/\Q<div class="LC_landmark" role="main"\E/<div class="LC_landmark"/;
$userview=~s/action\s*\=/would_be_action\=/gi;	$userview=~s/action\s*\=/would_be_action\=/gi;
$userview=&relative_to_absolute($feedurl,$userview);	$userview=&relative_to_absolute($feedurl,$userview);
if (wantarray) {	if (wantarray) {
Line 5499 sub blockcheck {	Line 5728 sub blockcheck {
}	}
unless ($has_evb) {	unless ($has_evb) {
if (($activity eq 'printout') \|\| ($activity eq 'grades') \|\| ($activity eq 'search') \|\|	if (($activity eq 'printout') \|\| ($activity eq 'grades') \|\| ($activity eq 'search') \|\|
($activity eq 'boards') \|\| ($activity eq 'groups') \|\| ($activity eq 'chat')) {	($activity eq 'index') \|\| ($activity eq 'boards') \|\| ($activity eq 'groups') \|\|
	($activity eq 'chat')) {
if ($udom eq $cdom) {	if ($udom eq $cdom) {
$check_ipaccess = 1;	$check_ipaccess = 1;
}	}
Line 5590 sub blockcheck {	Line 5820 sub blockcheck {

if (($activity eq 'boards' \|\| $activity eq 'chat' \|\|	if (($activity eq 'boards' \|\| $activity eq 'chat' \|\|
$activity eq 'groups' \|\| $activity eq 'printout' \|\|	$activity eq 'groups' \|\| $activity eq 'printout' \|\|
$activity eq 'search' \|\| $activity eq 'reinit' \|\|	$activity eq 'search' \|\| $activity eq 'index' \|\|
$activity eq 'alert') &&	$activity eq 'reinit' \|\| $activity eq 'alert') &&
($env{'request.course.id'})) {	($env{'request.course.id'})) {
foreach my $key (keys(%live_courses)) {	foreach my $key (keys(%live_courses)) {
if ($key ne $env{'request.course.id'}) {	if ($key ne $env{'request.course.id'}) {
Line 5926 END_MYBLOCK	Line 6156 END_MYBLOCK
$text = &mt('Gradebook Blocked');	$text = &mt('Gradebook Blocked');
} elsif ($activity eq 'search') {	} elsif ($activity eq 'search') {
$text = &mt('Search Blocked');	$text = &mt('Search Blocked');
	} elsif ($activity eq 'index') {
	$text = &mt('Content Index Blocked');
} elsif ($activity eq 'alert') {	} elsif ($activity eq 'alert') {
$text = &mt('Checking Critical Messages Blocked');	$text = &mt('Checking Critical Messages Blocked');
} elsif ($activity eq 'reinit') {	} elsif ($activity eq 'reinit') {
Line 6359 Input: (optional) filename from which br	Line 6591 Input: (optional) filename from which br
If page header is being requested for use in a frameset, then	If page header is being requested for use in a frameset, then
the second (option) argument -- frameset will be true, and	the second (option) argument -- frameset will be true, and
the target attribute set for links should be target="_parent".	the target attribute set for links should be target="_parent".
	If $title is supplied as the third arg, that will be used to
	the left of the breadcrumbs tail for the current path.

Returns: HTML div with CSTR path and recent box	Returns: HTML div with CSTR path and recent box
To be included on Authoring Space pages	To be included on Authoring Space pages
Line 6366 Returns: HTML div with CSTR path and rec	Line 6600 Returns: HTML div with CSTR path and rec
=cut	=cut

sub CSTR_pageheader {	sub CSTR_pageheader {
my ($trailfile,$frameset) = @_;	my ($trailfile,$frameset,$title) = @_;
if ($trailfile eq '') {	if ($trailfile eq '') {
$trailfile = $env{'request.filename'};	$trailfile = $env{'request.filename'};
}	}
Line 6389 sub CSTR_pageheader {	Line 6623 sub CSTR_pageheader {
$lastitem = $thisdisfn;	$lastitem = $thisdisfn;
}	}

my ($crsauthor,$title);	my $crsauthor;
if (($env{'request.course.id'}) &&	if (($env{'request.course.id'}) &&
($env{'course.'.$env{'request.course.id'}.'.num'} eq $uname) &&	($env{'course.'.$env{'request.course.id'}.'.num'} eq $uname) &&
($env{'course.'.$env{'request.course.id'}.'.domain'} eq $udom)) {	($env{'course.'.$env{'request.course.id'}.'.domain'} eq $udom)) {
$crsauthor = 1;	$crsauthor = 1;
$title = &mt('Course Authoring Space');	if ($title eq '') {
} else {	$title = &mt('Course Authoring Space');
	}
	} elsif ($title eq '') {
$title = &mt('Authoring Space');	$title = &mt('Authoring Space');
}	}

Line 6440 sub CSTR_pageheader {	Line 6676 sub CSTR_pageheader {
return $output;	return $output;
}	}

	##############################################
	=pod

	=item * &nocodemirror()

	Input: None

	Returns: 1 if CodeMirror is deactivated based on
	user's preference, or domain default,
	if user indicated use of default.

	=cut

	sub nocodemirror {
	my $nocodem = $env{'environment.nocodemirror'};
	unless ($nocodem) {
	my %domdefs = &Apache::lonnet::get_domain_defaults($env{'user.domain'});
	if ($domdefs{'nocodemirror'}) {
	$nocodem = 'yes';
	}
	}
	if ($nocodem eq 'yes') {
	return 1;
	}
	return;
	}

	##############################################
	=pod

	=item * &permitted_editors()

	Input: $uri (optional)

	Returns: %editors hash in which keys are editors
	permitted in current Authoring Space,
	or in current course for web pages
	created in a course.

	Value for each key is 1. Possible keys
	are: edit, xml, and daxe.

	For a regular Authoring Space, if no specific
	set of editors has been set for the Author
	who owns the Authoring Space, then the
	domain default will be used. If no domain
	default has been set, then the keys will be
	edit and xml.

	For a course author, or for web pages created
	in a course, if no specific set of editors has
	been set for the course, then the domain
	course default will be used. If no domain
	course default has been set, then the keys
	will be edit and xml.

	=cut

	sub permitted_editors {
	my ($uri) = @_;
	my ($is_author,$is_coauthor,$is_course,$auname,$audom,%editors);
	if ($env{'request.role'} =~ m{^au\./}) {
	$is_author = 1;
	} elsif ($env{'request.role'} =~ m{^(?:ca\|aa)\./($match_domain)/($match_username)}) {
	($audom,$auname) = ($1,$2);
	if (($audom ne '') && ($auname ne '')) {
	if (($env{'user.domain'} eq $audom) &&
	($env{'user.name'} eq $auname)) {
	$is_author = 1;
	} else {
	$is_coauthor = 1;
	}
	}
	} elsif ($env{'request.course.id'}) {
	my ($cdom,$cnum);
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	if (($env{'request.editurl'} =~ m{^/priv/\Q$cdom/$cnum\E/}) \|\|
	($env{'request.editurl'} =~ m{^/uploaded/\Q$cdom/$cnum\E/(docs\|supplemental)/}) \|\|
	($uri =~ m{^/uploaded/\Q$cdom/$cnum\E/(docs\|supplemental)/})) {
	$is_course = 1;
	} elsif ($env{'request.editurl'} =~ m{^/priv/($match_domain)/($match_username)/}) {
	($audom,$auname) = ($1,$2);
	} elsif ($env{'request.uri'} =~ m{^/priv/($match_domain)/($match_username)/}) {
	($audom,$auname) = ($1,$2);
	} elsif (($uri eq '/daxesave') &&
	(($env{'form.path'} =~ m{^/daxeopen/priv/\Q$cdom/$cnum\E/}) \|\|
	($env{'form.path'} =~ m{^/daxeopen/uploaded/\Q$cdom/$cnum\E/(docs\|supplemental)/}))) {
	$is_course = 1;
	} elsif (($uri eq '/daxesave') &&
	($env{'form.path'} =~ m{^/daxeopen/priv/($match_domain)/($match_username)/})) {
	($audom,$auname) = ($1,$2);
	}
	unless ($is_course) {
	if (($audom ne '') && ($auname ne '')) {
	if (($env{'user.domain'} eq $audom) &&
	($env{'user.name'} eq $auname)) {
	$is_author = 1;
	} else {
	$is_coauthor = 1;
	}
	}
	}
	}
	if ($is_author) {
	if (exists($env{'environment.editors'})) {
	map { $editors{$_} = 1; } split(/,/,$env{'environment.editors'});
	} else {
	%editors = ( edit => 1,
	xml => 1,
	);
	}
	} elsif ($is_coauthor) {
	if (exists($env{"environment.internal.editors./$audom/$auname"})) {
	map { $editors{$_} = 1; } split(/,/,$env{"environment.internal.editors./$audom/$auname"});
	} else {
	%editors = ( edit => 1,
	xml => 1,
	);
	}
	} elsif ($is_course) {
	if (exists($env{'course.'.$env{'request.course.id'}.'.internal.crseditors'})) {
	map { $editors{$_} = 1; } split(/,/,$env{'course.'.$env{'request.course.id'}.'.internal.crseditors'});
	} else {
	my %domdefaults = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
	if (exists($domdefaults{'crseditors'})) {
	map { $editors{$_} = 1; } split(/,/,$domdefaults{'crseditors'});
	} else {
	%editors = ( edit => 1,
	xml => 1,
	);
	}
	}
	} else {
	%editors = ( edit => 1,
	xml => 1,
	);
	}
	return %editors;
	}

###############################################	###############################################
###############################################	###############################################

Line 6540 sub bodytag {	Line 6917 sub bodytag {
my $hostname = $args->{'hostname'};	my $hostname = $args->{'hostname'};

$function = &get_users_function() if (!$function);	$function = &get_users_function() if (!$function);
my $img = &designparm($function.'.img',$domain);
my $font = &designparm($function.'.font',$domain);	my $font = &designparm($function.'.font',$domain);
my $pgbg = $bgcolor \|\| &designparm($function.'.pgbg',$domain);	my $pgbg = $bgcolor \|\| &designparm($function.'.pgbg',$domain);

Line 6594 sub bodytag {	Line 6970 sub bodytag {
$role = &Apache::lonnet::plaintext($role);	$role = &Apache::lonnet::plaintext($role);
}	}

if (!$realm) { $realm=' '; }

my $extra_body_attr = &make_attr_string($forcereg,\%design);	my $extra_body_attr = &make_attr_string($forcereg,\%design);

# construct main body tag	# construct main body tag
Line 6619 sub bodytag {	Line 6993 sub bodytag {
undef($role);	undef($role);
}	}
unless ($ltimenu->{'coursetitle'}) {	unless ($ltimenu->{'coursetitle'}) {
$realm=' ';
$showcrstitle = 0;	$showcrstitle = 0;
}	}
}	}
Line 6629 sub bodytag {	Line 7002 sub bodytag {
undef($role);	undef($role);
}	}
unless ($menuref->{'crs'}) {	unless ($menuref->{'crs'}) {
$realm=' ';
$showcrstitle = 0;	$showcrstitle = 0;
}	}
}	}
Line 6663 sub bodytag {	Line 7035 sub bodytag {
# $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls	# $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
# }	# }

$bodytag .= Apache::lonhtmlcommon::scripttag(	my $need_endlcint;
Apache::lonmenu::utilityfunctions($httphost), 'start');	unless ($args->{'switchserver'}) {
	$bodytag .= Apache::lonhtmlcommon::scripttag(
	Apache::lonmenu::utilityfunctions($httphost), 'start');
	$need_endlcint = 1;
	}

	my $collapsible;
	if ($args->{'collapsible_header'} ne '') {
	$collapsible = 1;
	my ($menustate,$tiptext,$divclass);
	if ($args->{'start_collapsed'}) {
	$menustate = 'collapsed';
	$tiptext = 'display';
	$divclass = 'hidden';
	} else {
	$menustate = 'expanded';
	$tiptext = 'hide';
	$divclass = 'shown';
	}
	my $alttext = &mt('menu state: '.$menustate);
	my $tooltip = &mt($tiptext.' standard menus');
	$bodytag .= <<"END";
	<div id="LC_expandingContainer" style="display:inline;" role="navigation">
	<div id="LC_collapsible" class="LC_collapse_trigger" style="position: absolute;top: -5px;left: 0px; z-index:101; display:inline;">
	<a href="#" style="text-decoration:none;"><img class="LC_collapsible_indicator" alt="$alttext" title="$tooltip" src="/res/adm/pages/$menustate.png" style="border:0;margin:0;padding:0;max-width:100%;height:auto" /></a></div>
	<div class="LC_menus_content $divclass">
	END
	}
unless ($args->{'no_primary_menu'}) {	unless ($args->{'no_primary_menu'}) {
my ($left,$right) = Apache::lonmenu::primary_menu($crstype,$ltimenu,$menucoll,$menuref,	my ($left,$right) = Apache::lonmenu::primary_menu($crstype,$ltimenu,$menucoll,$menuref,
$args->{'links_disabled'},	$args->{'links_disabled'},
$args->{'links_target'});	$args->{'links_target'},
	$collapsible);
	my $labeltext = &HTML::Entities::encode(&mt('Primary links'));
if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {	if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
if ($dc_info) {	if ($dc_info) {
$dc_info = qq\|<span class="LC_cusr_subheading">$dc_info</span>\|;	$dc_info = qq\|<span class="LC_cusr_subheading">$dc_info</span>\|;
}	}
$bodytag .= qq\|<div id="LC_nav_bar">$left $role<br />	$bodytag .= qq\|<div id="LC_nav_bar" role="navigation" aria-label="$labeltext">$left $role</div>\|;
<em>$realm</em> $dc_info</div>\|;	unless (($realm eq '') && ($dc_info eq '')) {
	$bodytag .= qq\|<div id="LC_realm" role="complementary"><em>$realm</em> $dc_info</div>\|;
	}
	if ($need_endlcint) {
	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
	}
return $bodytag;	return $bodytag;
}	}

	$bodytag .= '<div class="LC_landmark" style="margin: 3px 0 0 0;" role="navigation" aria-label="'.$labeltext.'">';
unless ($env{'request.symb'} =~ m/\.page___\d+___/) {	unless ($env{'request.symb'} =~ m/\.page___\d+___/) {
$bodytag .= qq\|<div id="LC_nav_bar">$left $role</div>\|;	$bodytag .= qq\|<div id="LC_nav_bar">$left $role</div>\|;
}	}

$bodytag .= $right;	$bodytag .= $right.'</div>';

if ($dc_info) {	if ($dc_info) {
$dc_info = &dc_courseid_toggle($dc_info);	$dc_info = &dc_courseid_toggle($dc_info);
}	}
$bodytag .= qq\|<div id="LC_realm">$realm $dc_info</div>\|;	unless (($realm eq '') && ($dc_info eq '')) {
	$bodytag .= qq\|<div id="LC_realm" role="complementary">$realm $dc_info</div>\|;
	}
	$bodytag .= qq\|<div style="clear: both; margin: 5px 0 0 0;"></div>\|;
}	}

#if directed to not display the secondary menu, don't.	#if directed to not display the secondary menu, don't.
if ($args->{'no_secondary_menu'}) {	if ($args->{'no_secondary_menu'}) {
	if ($need_endlcint) {
	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
	}
return $bodytag;	return $bodytag;
}	}
#don't show menus for public users	#don't show menus for public users
if (!$public){	if (!$public){
unless ($args->{'no_inline_menu'}) {	unless ($args->{'no_inline_menu'}) {
$bodytag .= Apache::lonmenu::secondary_menu($httphost,$ltiscope,$ltimenu,	$bodytag .= '<div class="LC_landmark" role="navigation" aria-label="Secondary Links">'.
	Apache::lonmenu::secondary_menu($httphost,$ltiscope,$ltimenu,
$args->{'no_primary_menu'},	$args->{'no_primary_menu'},
$menucoll,$menuref,	$menucoll,$menuref,
$args->{'links_disabled'},	$args->{'links_disabled'},
$args->{'links_target'});	$args->{'links_target'}).
	'</div>';
}	}
$bodytag .= Apache::lonmenu::serverform();	$bodytag .= Apache::lonmenu::serverform();
$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');	if ($need_endlcint) {
	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
	}
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$bodytag .= &Apache::lonmenu::innerregister($forcereg,	$bodytag .= &Apache::lonmenu::innerregister($forcereg,
$args->{'bread_crumbs'},'','',$hostname,	$args->{'bread_crumbs'},'','',$hostname,
Line 6716 sub bodytag {	Line 7131 sub bodytag {
$args->{'group'},$args->{'hide_buttons'},	$args->{'group'},$args->{'hide_buttons'},
$hostname,$ltiscope,$ltiuri,$showncrumbsref);	$hostname,$ltiscope,$ltiuri,$showncrumbsref);
} else {	} else {
$bodytag .=	$bodytag .=
&Apache::lonmenu::prepare_functions($env{'request.noversionuri'},	&Apache::lonmenu::prepare_functions($env{'request.noversionuri'},
$forcereg,$args->{'group'},	$forcereg,$args->{'group'},
$args->{'bread_crumbs'},	$args->{'bread_crumbs'},
$advtoolsref,'',$hostname);	$advtoolsref,'',$hostname);
}	}
}else{	} else {
# this is to seperate menu from content when there's no secondary	# this is to separate menu from content when there's no secondary
# menu. Especially needed for public accessible ressources.	# menu. Especially needed for publicly accessible resources.
$bodytag .= '<hr style="clear:both" />';	$bodytag .= '<hr style="clear:both" role="complementary" />';
$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');	if ($need_endlcint) {
	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
	}
	}
	if ($args->{'collapsible_header'} ne '') {
	$bodytag .= $args->{'collapsible_header'}.
	'<div id="LC_collapsible_separator"></div>'.
	'</div></div>';
}	}

return $bodytag;	return $bodytag;
}	}

Line 6834 ENDJS	Line 7255 ENDJS
$endbodytag;	$endbodytag;
}	}
}	}
	if ((ref($args) eq 'HASH') && ($args->{'dashjs'})) {
	$endbodytag = &Apache::lonhtmlcommon::dash_to_minus_js().$endbodytag;
	}
return $endbodytag;	return $endbodytag;
}	}

Line 6854 Inputs: (all optional)	Line 7278 Inputs: (all optional)
sub standard_css {	sub standard_css {
my ($function,$domain,$bgcolor) = @_;	my ($function,$domain,$bgcolor) = @_;
$function = &get_users_function() if (!$function);	$function = &get_users_function() if (!$function);
my $img = &designparm($function.'.img', $domain);
my $tabbg = &designparm($function.'.tabbg', $domain);	my $tabbg = &designparm($function.'.tabbg', $domain);
my $font = &designparm($function.'.font', $domain);	my $font = &designparm($function.'.font', $domain);
my $fontmenu = &designparm($function.'.fontmenu', $domain);	my $fontmenu = &designparm($function.'.fontmenu', $domain);
Line 6907 body {	Line 7330 body {
line-height:130%;	line-height:130%;
font-size:0.83em;	font-size:0.83em;
color:$font;	color:$font;
	background-color: $pgbg_or_bgcolor;
}	}

a:focus,	a:focus,
Line 6918 form, .inline {	Line 7342 form, .inline {
display: inline;	display: inline;
}	}

	.LC_landmark {
	margin: 0;
	padding: 0;
	border: none;
	}

	.LC_visually_hidden:not(:focus):not(:active) {
	clip-path: inset(50%);
	height: 1px;
	overflow: hidden;
	position: absolute;
	white-space: nowrap;
	width: 1px;
	display: inline;
	}

	.LC_heading_2 {
	font-size: 1.17em;
	}

	.LC_heading_3 {
	font-size: 1.0em;
	}

	h1.LC_search_results {
	font-size: 1.0em;
	font-weight: normal;
	}

	.LC_menus_content.shown{
	display: block;
	}

	.LC_menus_content.hidden {
	display: none;
	}

.LC_right {	.LC_right {
text-align:right;	text-align:right;
}	}

	.LC_left {
	text-align:left;
	}

	.LC_center {
	text-align:center;
	}

.LC_middle {	.LC_middle {
vertical-align:middle;	vertical-align:middle;
}	}

	.LC_bottom {
	vertical-align:bottom;
	}

.LC_floatleft {	.LC_floatleft {
float: left;	float: left;
}	}
Line 6938 form, .inline {	Line 7411 form, .inline {
width:400px;	width:400px;
}	}

	#LC_collapsible_separator {
	border: 1px solid black;
	width: 99.9%;
	height: 0px;
	}

.LC_iframecontainer {	.LC_iframecontainer {
width: 98%;	width: 98%;
margin: 0;	margin: 0;
Line 7005 div.LC_confirm_box .LC_success img {	Line 7484 div.LC_confirm_box .LC_success img {
height: auto;	height: auto;
}	}

	div.LC_minheight {
	min-height: 24px;
	border: 0;
	margin: 4px 0 0 0;
	padding: 0;
	vertical-align: middle;
	}

.LC_textsize_mobile {	.LC_textsize_mobile {
\@media only screen and (max-device-width: 480px) {	\@media only screen and (max-device-width: 480px) {
-webkit-text-size-adjust:100%; -moz-text-size-adjust:100%; -ms-text-size-adjust:100%;	-webkit-text-size-adjust:100%; -moz-text-size-adjust:100%; -ms-text-size-adjust:100%;
Line 7059 div.LC_confirm_box .LC_success img {	Line 7546 div.LC_confirm_box .LC_success img {
padding: 4px;	padding: 4px;
}	}

table.LC_pastsubmission {	.LC_pastsubmission {
border: 1px solid black;	border: 1px solid black;
margin: 2px;	margin: 2px;
	padding: 2px;
}	}

table#LC_menubuttons {	table#LC_menubuttons {
Line 7197 li.LC_menubuttons_inline_text img {	Line 7685 li.LC_menubuttons_inline_text img {
text-decoration: none;	text-decoration: none;
}	}

	.LC_menubuttons_link img {
	vertical-align: middle;
	}

.LC_menubuttons_category {	.LC_menubuttons_category {
color: $font;	color: $font;
background: $pgbg;	background: $pgbg;
Line 7204 li.LC_menubuttons_inline_text img {	Line 7696 li.LC_menubuttons_inline_text img {
font-weight: bold;	font-weight: bold;
}	}

td.LC_menubuttons_text {	.LC_menu_text {
	clear: left;
	text-align: left;
color: $font;	color: $font;
}	}

Line 7296 table.LC_data_table tr td.LC_leftcol_hea	Line 7790 table.LC_data_table tr td.LC_leftcol_hea
}	}

table.LC_data_table tr.LC_empty_row td,	table.LC_data_table tr.LC_empty_row td,
table.LC_nested tr.LC_empty_row td {	table.LC_nested tr.LC_empty_row td,
	table.LC_nested tr.LC_empty_row th {
font-weight: bold;	font-weight: bold;
font-style: italic;	font-style: italic;
text-align: center;	text-align: center;
padding: 8px;	padding: 8px;
	border: 0;
}	}

table.LC_data_table tr.LC_empty_row td,	table.LC_data_table tr.LC_empty_row td,
Line 7308 table.LC_data_table tr.LC_footer_row td	Line 7804 table.LC_data_table tr.LC_footer_row td
background-color: $sidebg;	background-color: $sidebg;
}	}

	table.LC_nested tr.LC_empty_row th,
table.LC_nested tr.LC_empty_row td {	table.LC_nested tr.LC_empty_row td {
	padding: 4ex;
background-color: #FFFFFF;	background-color: #FFFFFF;
}	}

table.LC_caption {	table.LC_caption {
}	}

table.LC_nested tr.LC_empty_row td {	caption.LC_caption_prefs {
padding: 4ex	font-weight: normal;
	text-align: left;
	padding-bottom: 0.8em;
}	}

table.LC_nested_outer tr th {	table.LC_nested_outer tr th {
Line 7335 table.LC_nested_outer tr td.LC_subheader	Line 7835 table.LC_nested_outer tr td.LC_subheader
text-align: right;	text-align: right;
}	}

table.LC_nested tr.LC_info_row td {	table.LC_nested tr.LC_info_row td,
	table.LC_nested tr.LC_info_row th {
background-color: #CCCCCC;	background-color: #CCCCCC;
font-weight: bold;	font-weight: bold;
font-size: small;	font-size: small;
text-align: center;	text-align: center;
	border: 0;
}	}

table.LC_nested tr.LC_info_row td.LC_left_item,	table.LC_nested tr.LC_info_row td.LC_left_item,
	table.LC_nested tr.LC_info_row th.LC_left_item,
table.LC_nested_outer tr th.LC_left_item {	table.LC_nested_outer tr th.LC_left_item {
text-align: left;	text-align: left;
}	}
Line 7485 table.LC_data_table tr > td.LC_roles_sel	Line 7988 table.LC_data_table tr > td.LC_roles_sel
border-right: 8px solid #11CC55;	border-right: 8px solid #11CC55;
}	}

	table.LC_data_table tr.LC_prefs_row {
	line-height: 250%;
	}

	table.LC_manage_reservations tr th {
	font-weight: normal;
	font-style: italic;
	text-align: left;
	background: transparent;
	font-size: 100%;
	}

span.LC_current_location {	span.LC_current_location {
font-size:larger;	font-size:larger;
background: $pgbg;	background: $pgbg;
Line 7558 table.LC_parm_overview_restrictions th {	Line 8073 table.LC_parm_overview_restrictions th {
border-color: $pgbg;	border-color: $pgbg;
}	}

table#LC_helpmenu {	h1.LC_helpmenu {
border: none;	display: inline;
height: 55px;	font-size: 100%;
border-spacing: 0;	font-weight: normal;
	line-height: 1em;
	margin: 0;
	padding: 0;
	border: 0;
}	}

table#LC_helpmenu fieldset legend {	.LC_helpdesk_headbox {
font-size: larger;	border: 2px groove threedface;
	padding: 1em;
}	}

table#LC_helpmenu_links {	h1.LC_helpdesk_legend {
width: 100%;	float: left;
border: 1px solid black;	margin: -1.7em 0 0;
	padding: 0 .5em;
background: $pgbg;	background: $pgbg;
	font-size: 1em;
	font-weight: bold;
	}

	h1.LC_helpdesk_title {
	display: inline;
	font-size: 1em;
	line-height: 2.5em;
	margin: 0;
padding: 0;	padding: 0;
border-spacing: 1px;	vertical-align: bottom;
}	}

table#LC_helpmenu_links tr td {	.LC_helpdesk_links {
padding: 1px;	border: 1px solid black;
	padding: 3px;
background: $tabbg;	background: $tabbg;
text-align: center;	text-align: center;
font-weight: bold;	font-weight: bold;
	display: inline;
	margin-right: -6px;
	}

	.LC_helpdesk_img,
	.LC_helpdesk_text {
	padding: 0;
	margin: 0;
	border: 0;
	display: inline;
}	}

table#LC_helpmenu_links a:link,	.LC_helpdesk_img a:link,
table#LC_helpmenu_links a:visited,	.LC_helpdesk_img a:visited,
table#LC_helpmenu_links a:active {	.LC_helpdesk_img a:active,
	.LC_helpdesk_text a:link,
	.LC_helpdesk_text a:visited,
	.LC_helpdesk_text a:active {
text-decoration: none;	text-decoration: none;
color: $font;	color: $font;
}	}

table#LC_helpmenu_links a:hover {	div.LC_helpdesk_text a:hover {
text-decoration: underline;	text-decoration: underline;
color: $vlink;	color: $vlink;
}	}
Line 7617 table.LC_pick_box {	Line 8161 table.LC_pick_box {
border-spacing: 1px;	border-spacing: 1px;
}	}

table.LC_pick_box td.LC_pick_box_title {	table.LC_pick_box th.LC_pick_box_title {
background: $sidebg;	background: $sidebg;
font-weight: bold;	font-weight: bold;
text-align: left;	text-align: left;
Line 7658 table.LC_pick_box td.LC_oddrow_value {	Line 8202 table.LC_pick_box td.LC_oddrow_value {
background-color: $data_table_light;	background-color: $data_table_light;
}	}

	td.LC_log_filter,
	th.LC_log_filter {
	vertical-align: top;
	text-align: left;
	padding: 0 4px;
	}

span.LC_helpform_receipt_cat {	span.LC_helpform_receipt_cat {
font-weight: bold;	font-weight: bold;
}	}
Line 7820 table.LC_prior_tries td {	Line 8371 table.LC_prior_tries td {
padding: 6px;	padding: 6px;
}	}

	span.LC_prob_status {
	margin: 5px 0 0 0;
	padding: 0 5px 0 0;
	vertical-align: middle;
	}

	div.LC_prob_status_outer {
	display: inline-block;
	margin: -5px 0 0 0;
	padding: 0;
	}

	div.LC_prob_status_inner {
	display: inline-block;
	margin: 0 5px 0 0;
	padding: 5px;
	}

	caption.LC_filesub_status {
	text-align: left;
	font-weight: bold;
	}

	.LC_mail_actions {
	float: left;
	padding: 0;
	margin: 6px;
	}

	.LC_vertical_line {
	width: 1px;
	background-color: black;
	height: 4em;
	float: left;
	margin: 0;
	padding: 0;
	}

span.LC_prior_numerical,	span.LC_prior_numerical,
span.LC_prior_string,	span.LC_prior_string,
span.LC_prior_custom,	span.LC_prior_custom,
Line 7973 div.LC_grade_show_user div.LC_Box {	Line 8562 div.LC_grade_show_user div.LC_Box {
margin-right: 50px;	margin-right: 50px;
}	}

	div.LC_grade_show_user div.LC_Box table tr th {
	font-weight: normal;
	}

div.LC_grade_submissions,	div.LC_grade_submissions,
div.LC_grade_message_center,	div.LC_grade_message_center,
div.LC_grade_info_links {	div.LC_grade_info_links {
Line 8003 table.LC_scantron_action tr th {	Line 8596 table.LC_scantron_action tr th {
font-style:normal;	font-style:normal;
}	}

	div.LC_edit_problem_daxe_header {
	padding: 3px;
	background: $tabbg;
	z-index: 100;
	}

.LC_edit_problem_header,	.LC_edit_problem_header,
div.LC_edit_problem_footer {	div.LC_edit_problem_footer {
font-weight: normal;	font-weight: normal;
Line 8068 img.stift {	Line 8667 img.stift {
vertical-align: middle;	vertical-align: middle;
}	}

table td.LC_mainmenu_col_fieldset {	div.LC_mainmenu {
vertical-align: top;	margin: 3px 2px 2px 1px;
	float: left;
}	}

div.LC_createcourse {	div.LC_createcourse {
Line 8117 h6 {	Line 8717 h6 {
border-bottom:solid 1px $lg_border_color;	border-bottom:solid 1px $lg_border_color;
}	}

	.LC_MainMenu_Box > .LC_hcell,
.LC_Box > .LC_hcell {	.LC_Box > .LC_hcell {
margin: 0 -10px 10px -10px;	margin: 0 -10px 10px -10px;
}	}
Line 8150 fieldset {	Line 8751 fieldset {
/* overflow: hidden; */	/* overflow: hidden; */
}	}

	fieldset#LC_selectuser {
	margin: -1px 0 0 0;
	padding: 0;
	border: 0;
	}

	fieldset.LC_delete_slot {
	display:inline;
	margin: 0 4px 4px;
	padding: 4px;
	}

	fieldset.LC_delete_slot > legend {
	font-weight: normal;
	}

	p.LC_medium_line {
	line-height: 0.85em;
	}

article.geogebraweb div {	article.geogebraweb div {
margin: 0;	margin: 0;
}	}
Line 8549 ol#LC_PathBreadcrumbs li a {	Line 9170 ol#LC_PathBreadcrumbs li a {
padding: 0 0 10px 10px;	padding: 0 0 10px 10px;
}	}

	.LC_MainMenu_Box {
	border: solid 1px $lg_border_color;
	padding: 0 10px 0 10px;
	}

.LC_AboutMe_Image {	.LC_AboutMe_Image {
float:left;	float:left;
margin-right:10px;	margin-right:10px;
Line 8570 dl.LC_ListStyleClean dd {	Line 9196 dl.LC_ListStyleClean dd {
.LC_ListStyleClean,	.LC_ListStyleClean,
.LC_ListStyleSimple,	.LC_ListStyleSimple,
.LC_ListStyleNormal,	.LC_ListStyleNormal,
	.LC_ListStyleMainMenu,
.LC_ListStyleSpecial {	.LC_ListStyleSpecial {
/* display:block; */	/* display:block; */
list-style-position: inside;	list-style-position: inside;
Line 8607 dl.LC_ListStyleClean dd {	Line 9234 dl.LC_ListStyleClean dd {
margin-bottom: 4px;	margin-bottom: 4px;
}	}

	.LC_ListStyleMainMenu li {
	margin: 0;
	padding: 2px 5px 2px 10px;
	clear: both;
	}

table.LC_SimpleTable {	table.LC_SimpleTable {
margin:5px;	margin:5px;
border:solid 1px $lg_border_color;	border:solid 1px $lg_border_color;
Line 8705 ul#LC_toolbar {	Line 9338 ul#LC_toolbar {
padding: 0;	padding: 0;
margin: 2px;	margin: 2px;
list-style:none;	list-style:none;
position:relative;	display:inline;
background-color:white;	background-color:white;
overflow: auto;	overflow: auto;
}	}
Line 8733 a.LC_toolbarItem {	Line 9366 a.LC_toolbarItem {
background-color:transparent;	background-color:transparent;
}	}

	.LC_navtools {
	display: inline-block;
	padding: 0;
	margin: 2px;
	vertical-align: middle;
	}

ul.LC_funclist {	ul.LC_funclist {
margin: 0;	margin: 0;
padding: 0.5em 1em 0.5em 0;	padding: 0.5em 1em 0.5em 0;
Line 8837 pre.LC_wordwrap {	Line 9477 pre.LC_wordwrap {
/*	/*
styles used for response display	styles used for response display
*/	*/
div.LC_radiofoil, div.LC_rankfoil {	div.LC_radiofoil, div.LC_rankfoil, div.LC_optionfoil, div.LC_matchfoil, div.LC_login_links {
margin: .5em 0em .5em 0em;	margin: .5em 0em .5em 0em;
}	}
table.LC_itemgroup {	table.LC_itemgroup {
margin-top: 1em;	margin-top: 1em;
}	}

	table.LC_itemgroup tr th {
	font-weight: normal;
	}

	fieldset.LC_webbubbles {
	margin: 2px 0 0 0;
	padding: 0;
	border: 0;
	}

	ul.LC_webbubbles {
	list-style: none;
	padding: 0;
	margin: 0;
	text-align: left;
	float: left;
	}

	ul.LC_webbubbles li {
	line-height: 1.8em;
	border: 1px solid black;
	padding: 0 2px 0 5px;
	margin: 0 0 0 -1px;
	float: left;
	}

/*	/*
styles used by TTH when "Default set of options to pass to tth/m	styles used by TTH when "Default set of options to pass to tth/m
when converting TeX" in course settings has been set	when converting TeX" in course settings has been set
Line 9039 sub headtag {	Line 9705 sub headtag {
$inhibitprint = &print_suppression();	$inhibitprint = &print_suppression();
}	}

if (!$args->{'frameset'}) {	if (!$args->{'frameset'} && !$args->{'switchserver'}) {
$result .= &Apache::lonhtmlcommon::htmlareaheaders();	$result .= &Apache::lonhtmlcommon::htmlareaheaders();
}	}
if ($args->{'force_register'} && $env{'request.noversionuri'} !~ m{^/res/adm/pages/}) {	if ($args->{'force_register'} && $env{'request.noversionuri'} !~ m{^/res/adm/pages/}) {
Line 9047 sub headtag {	Line 9713 sub headtag {
}	}
if (!$args->{'no_nav_bar'}	if (!$args->{'no_nav_bar'}
&& !$args->{'only_body'}	&& !$args->{'only_body'}
&& !$args->{'frameset'}) {	&& !$args->{'frameset'}
	&& !$args->{'switchserver'}) {
$result .= &help_menu_js($httphost);	$result .= &help_menu_js($httphost);
$result.=&modal_window();	$result.=&modal_window();
$result.=&togglebox_script();	$result.=&togglebox_script();
Line 9243 OFFLOAD	Line 9910 OFFLOAD
$title = 'The LearningOnline Network with CAPA';	$title = 'The LearningOnline Network with CAPA';
}	}
if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }	if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }
$result .= '<title> LON-CAPA '.$title.'</title>'	if ($title =~ /^LON-CAPA\s+/) {
.'<link rel="stylesheet" type="text/css" href="'.$url.'"';	$result .= '<title> '.$title.'</title>';
	} else {
	$result .= '<title> LON-CAPA '.$title.'</title>';
	}
	$result .= "\n".'<link rel="stylesheet" type="text/css" href="'.$url.'"';
if (!$args->{'frameset'}) {	if (!$args->{'frameset'}) {
$result .= ' /';	$result .= ' /';
}	}
Line 9259 OFFLOAD	Line 9930 OFFLOAD
}	}
if ($clientmobile) {	if ($clientmobile) {
$result .= '	$result .= '
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=0, minimum-scale=1.0, maximum-scale=1.0">	<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta name="apple-mobile-web-app-capable" content="yes" />';	<meta name="apple-mobile-web-app-capable" content="yes" />';
}	}
$result .= '<meta name="google" content="notranslate" />'."\n";	$result .= '<meta name="google" content="notranslate"';
	if (!$args->{'frameset'}) {
	$result .= ' /';
	}
	$result .= '>'."\n";
return $result.'</head>';	return $result.'</head>';
}	}

Line 9393 sub xml_begin {	Line 10068 sub xml_begin {
.'xmlns="http://www.w3.org/1999/xhtml">';	.'xmlns="http://www.w3.org/1999/xhtml">';
} elsif ($is_frameset) {	} elsif ($is_frameset) {
$output='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'."\n".	$output='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'."\n".
'<html>'."\n";	'<html lang="en">'."\n";
} else {	} else {
$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'."\n".	$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'."\n".
'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">'."\n";	'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">'."\n";
Line 9443 $args - additional optional args support	Line 10118 $args - additional optional args support
no_auto_mt_title -> prevent &mt()ing the title arg	no_auto_mt_title -> prevent &mt()ing the title arg
bread_crumbs -> Array containing breadcrumbs	bread_crumbs -> Array containing breadcrumbs
bread_crumbs_component -> if exists show it as headline else show only the breadcrumbs	bread_crumbs_component -> if exists show it as headline else show only the breadcrumbs
	bread_crumbs_style -> breadcrumbs are contained within <div id="LC_breadcrumbs">,
	and &standard_css() contains CSS for #LC_breadcrumbs, if you want
	to override those values, or add to them, specify the value to
	include in the style attribute to include in the div tag by using
	bread_crumbs_style (e.g., overflow: visible)
bread_crumbs_nomenu -> if true will pass false as the value of $menulink	bread_crumbs_nomenu -> if true will pass false as the value of $menulink
to lonhtmlcommon::breadcrumbs	to lonhtmlcommon::breadcrumbs
group -> includes the current group, if page is for a	group -> includes the current group, if page is for a
Line 9611 sub start_page {	Line 10291 sub start_page {
}	}
#if bread_crumbs_component exists show it as headline else show only the breadcrumbs	#if bread_crumbs_component exists show it as headline else show only the breadcrumbs
if(exists($args->{'bread_crumbs_component'})){	if(exists($args->{'bread_crumbs_component'})){
$result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'},'',$menulink);	$result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'},
	'',$menulink,'',
	$args->{'bread_crumbs_style'});
} else {	} else {
$result .= &Apache::lonhtmlcommon::breadcrumbs('','',$menulink);	$result .= &Apache::lonhtmlcommon::breadcrumbs('','',$menulink,'',
	$args->{'bread_crumbs_style'});
}	}
}	}
}	}
Line 9749 sub symb_from_tinyurl {	Line 10432 sub symb_from_tinyurl {
}	}
}	}

	sub usable_exttools {
	my %tooltypes;
	if ($env{'request.course.id'}) {
	if ($env{'course.'.$env{'request.course.id'}.'.internal.exttool'}) {
	if ($env{'course.'.$env{'request.course.id'}.'.internal.exttool'} eq 'both') {
	%tooltypes = (
	crs => 1,
	dom => 1,
	);
	} elsif ($env{'course.'.$env{'request.course.id'}.'.internal.exttool'} eq 'crs') {
	$tooltypes{'crs'} = 1;
	} elsif ($env{'course.'.$env{'request.course.id'}.'.internal.exttool'} eq 'dom') {
	$tooltypes{'dom'} = 1;
	}
	} else {
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $crstype = lc($env{'course.'.$env{'request.course.id'}.'.type'});
	if ($crstype eq '') {
	$crstype = 'course';
	}
	if ($crstype eq 'course') {
	if ($env{'course.'.$env{'request.course.id'}.'internal.coursecode'}) {
	$crstype = 'official';
	} elsif ($env{'course.'.$env{'request.course.id'}.'.internal.textbook'}) {
	$crstype = 'textbook';
	} elsif ($env{'course.'.$env{'request.course.id'}.'.internal.lti'}) {
	$crstype = 'lti';
	} else {
	$crstype = 'unofficial';
	}
	}
	my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
	if ($domdefaults{$crstype.'domexttool'}) {
	$tooltypes{'dom'} = 1;
	}
	if ($domdefaults{$crstype.'exttool'}) {
	$tooltypes{'crs'} = 1;
	}
	}
	}
	return %tooltypes;
	}

sub wishlist_window {	sub wishlist_window {
return(<<'ENDWISHLIST');	return(<<'ENDWISHLIST');
<script type="text/javascript">	<script type="text/javascript">
Line 10254 sub simple_error_page {	Line 10981 sub simple_error_page {
}	}

my $page =	my $page =
&Apache::loncommon::start_page($title,'',\%displayargs).	&Apache::loncommon::start_page($title,'',\%displayargs)."\n".
	'<div class="LC_landmark" style="clear:both" role="main">'.
'<p class="LC_error">'.$msg.'</p>'.	'<p class="LC_error">'.$msg.'</p>'.
	'</div>'.
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
if (ref($r)) {	if (ref($r)) {
$r->print($page);	$r->print($page);
Line 10277 sub simple_error_page {	Line 11006 sub simple_error_page {
return;	return;
}	}

	sub set_data_table_count {
	my ($count) = @_;
	unshift(@row_count,$count);
	}

sub start_data_table {	sub start_data_table {
my ($add_class,$id) = @_;	my ($add_class,$id) = @_;
my $css_class = (join(' ','LC_data_table',$add_class));	my $css_class = (join(' ','LC_data_table',$add_class));
Line 10324 sub simple_error_page {	Line 11058 sub simple_error_page {
}	}

sub start_data_table_header_row {	sub start_data_table_header_row {
return '<tr class="LC_header_row">'."\n";;	my ($add_class,$id) = @_;
	my $css_class = 'LC_header_row';
	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
	$id = (' id="'.$id.'"') unless ($id eq '');
	return '<tr class="'.$css_class.'"'.$id.'>'."\n";
}	}

sub end_data_table_header_row {	sub end_data_table_header_row {
Line 10332 sub simple_error_page {	Line 11070 sub simple_error_page {
}	}

sub data_table_caption {	sub data_table_caption {
my $caption = shift;	my ($caption,$css_class) = @_;
return "<caption class=\"LC_caption\">$caption</caption>";	return "<caption class=\"LC_caption $css_class\">$caption</caption>";
}	}
}	}

Line 10437 Scalar: 1 if 'Course' to be used, 0 othe	Line 11175 Scalar: 1 if 'Course' to be used, 0 othe

###############################################	###############################################
sub show_course {	sub show_course {
	my ($udom,$uname) = @_;
	if (($udom ne '') && ($uname ne '')) {
	if (($udom ne $env{'user.domain'}) \|\| ($uname ne $env{'user.name'})) {
	if (&Apache::lonnet::is_advanced_user($udom,$uname)) {
	return 0;
	} else {
	return 1;
	}
	}
	}
my $course = !$env{'user.adv'};	my $course = !$env{'user.adv'};
if (!$env{'user.adv'}) {	if (!$env{'user.adv'}) {
foreach my $env (keys(%env)) {	foreach my $env (keys(%env)) {
Line 14993 sub upfile_select_html {	Line 15741 sub upfile_select_html {
tab => &mt('Tabulator separated'),	tab => &mt('Tabulator separated'),
# xml => &mt('HTML/XML'),	# xml => &mt('HTML/XML'),
);	);
my $Str = '<input type="file" name="upfile" size="50" />'.	my $Str = '<input type="file" name="upfile" id="upfile" size="50" />'.
'<br />'.&mt('Type').': <select name="upfiletype">';	'<br /><label>'.&mt('Type').': <select name="upfiletype">';
foreach my $type (sort(keys(%Types))) {	foreach my $type (sort(keys(%Types))) {
$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n";	$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n";
}	}
$Str .= "</select>\n";	$Str .= "</select></label>\n";
return $Str;	return $Str;
}	}

Line 15082 sub csv_print_select_table {	Line 15830 sub csv_print_select_table {
&end_data_table_header_row()."\n");	&end_data_table_header_row()."\n");
foreach my $array_ref (@$d) {	foreach my $array_ref (@$d) {
my ($value,$display,$defaultcol)=@{ $array_ref };	my ($value,$display,$defaultcol)=@{ $array_ref };
$r->print(&start_data_table_row().'<td>'.$display.'</td>');	$r->print(&start_data_table_row().'<td><label for="f'.$i.'">'.$display.'</label></td>');

$r->print('<td><select name="f'.$i.'"'.	$r->print('<td><select name="f'.$i.'" id="f'.$i.'"'.
' onchange="javascript:flip(this.form,'.$i.');">');	' onchange="javascript:flip(this.form,'.$i.');">');
$r->print('<option value="none"></option>');	$r->print('<option value="none"></option>');
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {	foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {
Line 15129 sub csv_samples_select_table {	Line 15877 sub csv_samples_select_table {
&end_data_table_header_row());	&end_data_table_header_row());

foreach my $key (sort(keys(%{ $samples->[0] }))) {	foreach my $key (sort(keys(%{ $samples->[0] }))) {
	my $num = $i+1;
	my $labeltext = &HTML::Entities::encode(&mt('Field for data in column [_1]',$num));
$r->print(&start_data_table_row().'<td><select name="f'.$i.'"'.	$r->print(&start_data_table_row().'<td><select name="f'.$i.'"'.
' onchange="javascript:flip(this.form,'.$i.');">');	' onchange="javascript:flip(this.form,'.$i.');" aria-label="'.$labeltext.'">');
foreach my $option (@$d) {	foreach my $option (@$d) {
my ($value,$display,$defaultcol)=@{ $option };	my ($value,$display,$defaultcol)=@{ $option };
$r->print('<option value="'.$value.'"'.	$r->print('<option value="'.$value.'"'.
Line 16468 sub assign_category_rows {	Line 17218 sub assign_category_rows {


sub commit_customrole {	sub commit_customrole {
my ($udom,$uname,$url,$three,$four,$five,$start,$end,$context) = @_;	my ($udom,$uname,$url,$three,$four,$five,$start,$end,$context,$othdomby,$requester) = @_;
my $result = &Apache::lonnet::assigncustomrole(	my $result = &Apache::lonnet::assigncustomrole(
$udom,$uname,$url,$three,$four,$five,$end,$start,undef,undef,$context);	$udom,$uname,$url,$three,$four,$five,$end,$start,undef,undef,
	$context,$othdomby,$requester);
my $output = &mt('Assigning custom role').' "'.$five.'" by '.$four.':'.$three.' in '.$url.	my $output = &mt('Assigning custom role').' "'.$five.'" by '.$four.':'.$three.' in '.$url.
($start?', '.&mt('starting').' '.localtime($start):'').	($start?', '.&mt('starting').' '.localtime($start):'').
($end?', ending '.localtime($end):'').': <b>'.$result.'</b><br />';	($end?', ending '.localtime($end):'').': <b>'.$result.'</b><br />';
Line 16482 sub commit_customrole {	Line 17233 sub commit_customrole {
}	}

sub commit_standardrole {	sub commit_standardrole {
my ($udom,$uname,$url,$three,$start,$end,$one,$two,$sec,$context,$credits) = @_;	my ($udom,$uname,$url,$three,$start,$end,$one,$two,$sec,$context,$credits,
	$othdomby,$requester) = @_;
my ($output,$logmsg,$linefeed,$result);	my ($output,$logmsg,$linefeed,$result);
if ($context eq 'auto') {	if ($context eq 'auto') {
$linefeed = "\n";	$linefeed = "\n";
Line 16491 sub commit_standardrole {	Line 17243 sub commit_standardrole {
}	}
if ($three eq 'st') {	if ($three eq 'st') {
$result = &commit_studentrole(\$logmsg,$udom,$uname,$url,$three,$start,$end,	$result = &commit_studentrole(\$logmsg,$udom,$uname,$url,$three,$start,$end,
$one,$two,$sec,$context,$credits);	$one,$two,$sec,$context,$credits,$othdomby,
	$requester);
if (($result =~ /^error/) \|\| ($result eq 'not_in_class') \|\|	if (($result =~ /^error/) \|\| ($result eq 'not_in_class') \|\|
($result eq 'unknown_course') \|\| ($result eq 'refused')) {	($result eq 'unknown_course') \|\| ($result eq 'refused')) {
$output = $logmsg.' '.&mt('Error: ').$result."\n";	$output = $logmsg.' '.&mt('Error: ').$result."\n";
Line 16511 sub commit_standardrole {	Line 17264 sub commit_standardrole {
$output = &mt('Assigning').' '.$three.' in '.$url.	$output = &mt('Assigning').' '.$three.' in '.$url.
($start?', '.&mt('starting').' '.localtime($start):'').	($start?', '.&mt('starting').' '.localtime($start):'').
($end?', '.&mt('ending').' '.localtime($end):'').': ';	($end?', '.&mt('ending').' '.localtime($end):'').': ';
$result = &Apache::lonnet::assignrole($udom,$uname,$url,$three,$end,$start,'','',$context);	$result = &Apache::lonnet::assignrole($udom,$uname,$url,$three,$end,$start,
	'','',$context,$othdomby,$requester);
if ($context eq 'auto') {	if ($context eq 'auto') {
$output .= $result.$linefeed;	$output .= $result.$linefeed;
} else {	} else {
Line 16527 sub commit_standardrole {	Line 17281 sub commit_standardrole {

sub commit_studentrole {	sub commit_studentrole {
my ($logmsg,$udom,$uname,$url,$three,$start,$end,$one,$two,$sec,$context,	my ($logmsg,$udom,$uname,$url,$three,$start,$end,$one,$two,$sec,$context,
$credits) = @_;	$credits,$othdomby,$requester) = @_;
my ($result,$linefeed,$oldsecurl,$newsecurl);	my ($result,$linefeed,$oldsecurl,$newsecurl);
if ($context eq 'auto') {	if ($context eq 'auto') {
$linefeed = "\n";	$linefeed = "\n";
Line 16551 sub commit_studentrole {	Line 17305 sub commit_studentrole {
}	}
$oldsecurl = $uurl;	$oldsecurl = $uurl;
$expire_role_result =	$expire_role_result =
&Apache::lonnet::assignrole($udom,$uname,$uurl,'st',$now,'','','',$context);	&Apache::lonnet::assignrole($udom,$uname,$uurl,'st',$now,
if ($env{'request.course.sec'} ne '') {	'','','',$context,$othdomby,$requester);
	if ($env{'request.course.sec'} ne '') {
if ($expire_role_result eq 'refused') {	if ($expire_role_result eq 'refused') {
my @roles = ('st');	my @roles = ('st');
my @statuses = ('previous');	my @statuses = ('previous');
Line 16578 sub commit_studentrole {	Line 17333 sub commit_studentrole {
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,	&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,
undef,undef,undef,$sec,	undef,undef,undef,$sec,
$end,$start,'','',$cid,	$end,$start,'','',$cid,
'',$context,$credits);	'',$context,$credits,'',
	$othdomby,$requester);
if ($modify_section_result =~ /^ok/) {	if ($modify_section_result =~ /^ok/) {
if ($secchange == 1) {	if ($secchange == 1) {
if ($sec eq '') {	if ($sec eq '') {
Line 16971 sub construct_course {	Line 17727 sub construct_course {
$cenv{'internal.defaultcredits'} = $args->{'defaultcredits'};	$cenv{'internal.defaultcredits'} = $args->{'defaultcredits'};
}	}
my @badclasses = (); # Used to accumulate sections/crosslistings that did not pass classlist access check for course owner.	my @badclasses = (); # Used to accumulate sections/crosslistings that did not pass classlist access check for course owner.
	my @oklcsecs = (); # Used to accumulate LON-CAPA sections for validated institutional sections.
if ($args->{'crssections'}) {	if ($args->{'crssections'}) {
$cenv{'internal.sectionnums'} = '';	$cenv{'internal.sectionnums'} = '';
if ($args->{'crssections'} =~ m/,/) {	if ($args->{'crssections'} =~ m/,/) {
Line 16984 sub construct_course {	Line 17741 sub construct_course {
my $class = $args->{'crscode'}.$sec;	my $class = $args->{'crscode'}.$sec;
my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$class,$cenv{'internal.courseowner'});	my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$class,$cenv{'internal.courseowner'});
$cenv{'internal.sectionnums'} .= $item.',';	$cenv{'internal.sectionnums'} .= $item.',';
unless ($addcheck eq 'ok') {	if ($addcheck eq 'ok') {
	unless (grep(/^\Q$gp\E$/,@oklcsecs)) {
	push(@oklcsecs,$gp);
	}
	} else {
push(@badclasses,$class);	push(@badclasses,$class);
}	}
}	}
Line 17012 sub construct_course {	Line 17773 sub construct_course {
my ($xl,$gp) = split/:/,$item;	my ($xl,$gp) = split/:/,$item;
my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$xl,$cenv{'internal.courseowner'});	my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$xl,$cenv{'internal.courseowner'});
$cenv{'internal.crosslistings'} .= $item.',';	$cenv{'internal.crosslistings'} .= $item.',';
unless ($addcheck eq 'ok') {	if ($addcheck eq 'ok') {
	unless (grep(/^\Q$gp\E$/,@oklcsecs)) {
	push(@oklcsecs,$gp);
	}
	} else {
push(@badclasses,$xl);	push(@badclasses,$xl);
}	}
}	}
Line 17075 sub construct_course {	Line 17840 sub construct_course {
if ($args->{'no_end_date'}) {	if ($args->{'no_end_date'}) {
$args->{'endaccess'} = 0;	$args->{'endaccess'} = 0;
}	}
	# If an official course with institutional sections is created by cloning
	# an existing course, section-specific hiding of course totals in student's
	# view of grades as copied from cloned course, will be checked for valid
	# sections.
	if (($can_clone && $cloneid) &&
	($cenv{'internal.coursecode'} ne '') &&
	($cenv{'grading'} eq 'standard') &&
	($cenv{'hidetotals'} ne '') &&
	($cenv{'hidetotals'} ne 'all')) {
	my @hidesecs;
	my $deletehidetotals;
	if (@oklcsecs) {
	foreach my $sec (split(/,/,$cenv{'hidetotals'})) {
	if (grep(/^\Q$sec$/,@oklcsecs)) {
	push(@hidesecs,$sec);
	}
	}
	if (@hidesecs) {
	$cenv{'hidetotals'} = join(',',@hidesecs);
	} else {
	$deletehidetotals = 1;
	}
	} else {
	$deletehidetotals = 1;
	}
	if ($deletehidetotals) {
	delete($cenv{'hidetotals'});
	&Apache::lonnet::del('environment',['hidetotals'],$$crsudom,$$crsunum);
	}
	}
$cenv{'internal.autostart'}=$args->{'enrollstart'};	$cenv{'internal.autostart'}=$args->{'enrollstart'};
$cenv{'internal.autoend'}=$args->{'enrollend'};	$cenv{'internal.autoend'}=$args->{'enrollend'};
$cenv{'default_enrollment_start_date'}=$args->{'startaccess'};	$cenv{'default_enrollment_start_date'}=$args->{'startaccess'};
Line 17435 sub init_user_environment {	Line 18230 sub init_user_environment {

my $public=($username eq 'public' && $domain eq 'public');	my $public=($username eq 'public' && $domain eq 'public');

my ($filename,$cookie,$userroles,$firstaccenv,$timerintenv);	my ($filename,$cookie,$userroles,$firstaccenv,$timerintenv,
	$coauthorenv);
my $now=time;	my $now=time;

if ($public) {	if ($public) {
Line 17501 sub init_user_environment {	Line 18297 sub init_user_environment {

# Initialize roles	# Initialize roles

($userroles,$firstaccenv,$timerintenv) =	($userroles,$firstaccenv,$timerintenv,$coauthorenv) =
&Apache::lonnet::rolesinit($domain,$username,$authhost);	&Apache::lonnet::rolesinit($domain,$username,$authhost);
}	}
# ------------------------------------ Check browser type and MathML capability	# ------------------------------------ Check browser type and MathML capability
Line 17579 sub init_user_environment {	Line 18375 sub init_user_environment {
my %is_adv = ( is_adv => $env{'user.adv'} );	my %is_adv = ( is_adv => $env{'user.adv'} );
my %domdef = &Apache::lonnet::get_domain_defaults($domain);	my %domdef = &Apache::lonnet::get_domain_defaults($domain);

foreach my $tool ('aboutme','blog','webdav','portfolio','timezone') {	foreach my $tool ('aboutme','blog','webdav','portfolio','portaccess','timezone') {
$userenv{'availabletools.'.$tool} =	$userenv{'availabletools.'.$tool} =
&Apache::lonnet::usertools_access($username,$domain,$tool,'reload',	&Apache::lonnet::usertools_access($username,$domain,$tool,'reload',
undef,\%userenv,\%domdef,\%is_adv);	undef,\%userenv,\%domdef,\%is_adv);
}	}
Line 17592 sub init_user_environment {	Line 18388 sub init_user_environment {
\%userenv,\%domdef,\%is_adv);	\%userenv,\%domdef,\%is_adv);
}	}

	if ((ref($userroles) eq 'HASH') && ($userroles->{'user.author'}) &&
	(exists($userroles->{"user.role.au./$domain/"}))) {
	if ($userenv{'authoreditors'}) {
	$userenv{'editors'} = $userenv{'authoreditors'};
	} elsif ($domdef{'editors'} ne '') {
	$userenv{'editors'} = $domdef{'editors'};
	} else {
	$userenv{'editors'} = 'edit,xml';
	}
	if ($userenv{'authorarchive'}) {
	$userenv{'canarchive'} = 1;
	} elsif (($userenv{'authorarchive'} eq '') &&
	($domdef{'archive'})) {
	$userenv{'canarchive'} = 1;
	}
	}

$userenv{'canrequest.author'} =	$userenv{'canrequest.author'} =
&Apache::lonnet::usertools_access($username,$domain,'requestauthor',	&Apache::lonnet::usertools_access($username,$domain,'requestauthor',
'reload','requestauthor',	'reload','requestauthor',
Line 17648 sub init_user_environment {	Line 18461 sub init_user_environment {
if (ref($timerintenv) eq 'HASH') {	if (ref($timerintenv) eq 'HASH') {
&_add_to_env(\%disk_env,$timerintenv);	&_add_to_env(\%disk_env,$timerintenv);
}	}
	if (ref($coauthorenv) eq 'HASH') {
	if (keys(%{$coauthorenv})) {
	&_add_to_env(\%disk_env,$coauthorenv);
	}
	}
if (ref($args->{'extra_env'})) {	if (ref($args->{'extra_env'})) {
&_add_to_env(\%disk_env,$args->{'extra_env'});	&_add_to_env(\%disk_env,$args->{'extra_env'});
}	}
Line 18373 Returns: HTML to display with informatio	Line 19191 Returns: HTML to display with informatio
sub check_release_result {	sub check_release_result {
my ($switchwarning,$switchserver) = @_;	my ($switchwarning,$switchserver) = @_;
my $output = &start_page('Selected course unavailable on this server').	my $output = &start_page('Selected course unavailable on this server').
'<p class="LC_warning">';	'<div class="LC_landmark" role="main"><p class="LC_warning">';
if ($switchwarning) {	if ($switchwarning) {
$output .= $switchwarning.'<br /><a href="/adm/roles">';	$output .= $switchwarning.'<br /><a href="/adm/roles">';
if (&show_course()) {	if (&show_course()) {
Line 18389 sub check_release_result {	Line 19207 sub check_release_result {
&mt('Switch Server').	&mt('Switch Server').
'</a>';	'</a>';
}	}
$output .= '</p>'.&end_page();	$output .= '</p></div>'.&end_page();
return $output;	return $output;
}	}

Line 18473 sub needs_coursereinit {	Line 19291 sub needs_coursereinit {
$update = 'supp';	$update = 'supp';
}	}
}	}
return ($update);
}	}
	return ($update);
}	}
return ();	return ();
}	}
Line 18599 sub parse_supplemental_title {	Line 19417 sub parse_supplemental_title {
my $name = &plainname($uname,$udom);	my $name = &plainname($uname,$udom);
$name = &HTML::Entities::encode($name,'"<>&\'');	$name = &HTML::Entities::encode($name,'"<>&\'');
$renametitle = &HTML::Entities::encode($renametitle,'"<>&\'');	$renametitle = &HTML::Entities::encode($renametitle,'"<>&\'');
$title='<i>'.&Apache::lonlocal::locallocaltime($time).'</i> '.	$title='<i>'.&Apache::lonlocal::locallocaltime($time).'</i> '.$name;
$name.': <br />'.$foldertitle;	if ($foldertitle ne '') {
	$title .= ': <br />'.$foldertitle;
	}
}	}
if (wantarray) {	if (wantarray) {
return ($title,$foldertitle,$renametitle);	return ($title,$foldertitle,$renametitle);
Line 19003 sub create_captcha {	Line 19823 sub create_captcha {
if (-e $Apache::lonnet::perlvar{'lonCaptchaDir'}.'/'.$md5sum.'.png') {	if (-e $Apache::lonnet::perlvar{'lonCaptchaDir'}.'/'.$md5sum.'.png') {
$output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".	$output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".
'<span class="LC_nobreak">'.	'<span class="LC_nobreak">'.
&mt('Type in the letters/numbers shown below').' '.	'<label>'.&mt('Type in the letters/numbers shown below').' '.
'<input type="text" size="5" name="code" value="" autocomplete="new-password" />'.	'<input type="text" size="5" name="code" value="" autocomplete="new-password" aria-required="true" />'.
'</span><br />'.	'</label></span><br />'.
'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" alt="captcha" />';	'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" alt="captcha" />';
last;	last;
}	}

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

Removed from v.1.1400
changed lines
	Added in v.1.1477