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.836 and 1.950

version 1.836, 2009/06/03 14:35:19	version 1.950, 2010/03/16 13:04:54
Line 482 ENDAUTHORBRW	Line 482 ENDAUTHORBRW
}	}

sub coursebrowser_javascript {	sub coursebrowser_javascript {
my ($domainfilter,$sec_element,$formname)=@_;	my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_;
my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Group - for which you wish to add/modify a user role');	my $wintitle = 'Course_Browser';
my $output = '	if ($crstype eq 'Community') {
	$wintitle = 'Community_Browser';
	}
	my $id_functions = &javascript_index_functions();
	my $output = '
<script type="text/javascript" language="JavaScript">	<script type="text/javascript" language="JavaScript">
// <![CDATA[	// <![CDATA[
var stdeditbrowser;'."\n";	var stdeditbrowser;'."\n";
$output .= <<"ENDSTDBRW";
function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,crstype) {	$output .= <<"ENDSTDBRW";
	function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,type,type_elem) {
var url = '/adm/pickcourse?';	var url = '/adm/pickcourse?';
var domainfilter = '';
var formid = getFormIdByName(formname);	var formid = getFormIdByName(formname);
if (formid > -1) {	var domainfilter = getDomainFromSelectbox(formname,udom);
var domid = getIndexByName(formid,udom);
if (domid > -1) {
if (document.forms[formid].elements[domid].type == 'select-one') {
domainfilter=document.forms[formid].elements[domid].options[document.forms[formid].elements[domid].selectedIndex].value;
}
if (document.forms[formid].elements[domid].type == 'hidden') {
domainfilter=document.forms[formid].elements[domid].value;
}
}
}
if (domainfilter != null) {	if (domainfilter != null) {
if (domainfilter != '') {	if (domainfilter != '') {
url += 'domainfilter='+domainfilter+'&';	url += 'domainfilter='+domainfilter+'&';
Line 529 sub coursebrowser_javascript {	Line 523 sub coursebrowser_javascript {
}	}
}	}
}	}
if (multflag !=null && multflag != '') {	if (type != null && type != '') {
url += '&multiple='+multflag;	url += '&type='+type;
}	}
if (crstype == 'Course/Group') {	if (type_elem != null && type_elem != '') {
if (formname == 'cu') {	url += '&typeelement='+type_elem;
crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value;
if (crstype == "") {
alert("$crs_or_grp_alert");
return;
}
}
}	}
if (crstype !=null && crstype != '') {	if (formname == 'ccrs') {
url += '&type='+crstype;	var ownername = document.forms[formid].ccuname.value;
	var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value;
	url += '&cloner='+ownername+':'+ownerdom;
}	}
var title = 'Course_Browser';	if (multflag !=null && multflag != '') {
	url += '&multiple='+multflag;
	}
	var title = '$wintitle';
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';
stdeditbrowser = open(url,title,options,'1');	stdeditbrowser = open(url,title,options,'1');
stdeditbrowser.focus();	stdeditbrowser.focus();
}	}
	$id_functions
	ENDSTDBRW
	if (($sec_element ne '') \|\| ($role_element ne '')) {
	$output .= &setsec_javascript($sec_element,$formname,$role_element);
	}
	$output .= '
	// ]]>
	</script>';
	return $output;
	}

function getFormIdByName(formname) {	sub javascript_index_functions {
for (var i=0;i<document.forms.length;i++) {	return <<"ENDJS";
if (document.forms[i].name == formname) {
return i;	function getFormIdByName(formname) {
}	for (var i=0;i<document.forms.length;i++) {
	if (document.forms[i].name == formname) {
	return i;
}	}
return -1;
}	}
	return -1;
	}

function getIndexByName(formid,item) {	function getIndexByName(formid,item) {
for (var i=0;i<document.forms[formid].elements.length;i++) {	for (var i=0;i<document.forms[formid].elements.length;i++) {
if (document.forms[formid].elements[i].name == item) {	if (document.forms[formid].elements[i].name == item) {
return i;	return i;
	}
	}
	return -1;
	}

	function getDomainFromSelectbox(formname,udom) {
	var userdom;
	var formid = getFormIdByName(formname);
	if (formid > -1) {
	var domid = getIndexByName(formid,udom);
	if (domid > -1) {
	if (document.forms[formid].elements[domid].type == 'select-one') {
	userdom=document.forms[formid].elements[domid].options[document.forms[formid].elements[domid].selectedIndex].value;
	}
	if (document.forms[formid].elements[domid].type == 'hidden') {
	userdom=document.forms[formid].elements[domid].value;
}	}
}	}
return -1;
}	}
ENDSTDBRW	return userdom;
if ($sec_element ne '') {	}
$output .= &setsec_javascript($sec_element,$formname);
	ENDJS

	}

	sub userbrowser_javascript {
	my $id_functions = &javascript_index_functions();
	return <<"ENDUSERBRW";

	function openuserbrowser(formname,uname,udom,ulast,ufirst,uemail,hideudom,crsdom,caller) {
	var url = '/adm/pickuser?';
	var userdom = getDomainFromSelectbox(formname,udom);
	if (userdom != null) {
	if (userdom != '') {
	url += 'srchdom='+userdom+'&';
	}
}	}
$output .= '	url += 'form=' + formname + '&unameelement='+uname+
// ]]>	'&udomelement='+udom+
</script>';	'&ulastelement='+ulast+
return $output;	'&ufirstelement='+ufirst+
	'&uemailelement='+uemail+
	'&hideudomelement='+hideudom+
	'&coursedom='+crsdom;
	if ((caller != null) && (caller != undefined)) {
	url += '&caller='+caller;
	}
	var title = 'User_Browser';
	var options = 'scrollbars=1,resizable=1,menubar=0';
	options += ',width=700,height=600';
	var stdeditbrowser = open(url,title,options,'1');
	stdeditbrowser.focus();
	}

	function fix_domain (formname,udom,origdom,uname) {
	var formid = getFormIdByName(formname);
	if (formid > -1) {
	var unameid = getIndexByName(formid,uname);
	var domid = getIndexByName(formid,udom);
	var hidedomid = getIndexByName(formid,origdom);
	if (hidedomid > -1) {
	var fixeddom = document.forms[formid].elements[hidedomid].value;
	var unameval = document.forms[formid].elements[unameid].value;
	if ((fixeddom != '') && (fixeddom != undefined) && (fixeddom != null) && (unameval != '') && (unameval != undefined) && (unameval != null)) {
	if (domid > -1) {
	var slct = document.forms[formid].elements[domid];
	if (slct.type == 'select-one') {
	var i;
	for (i=0;i<slct.length;i++) {
	if (slct.options[i].value==fixeddom) { slct.selectedIndex=i; }
	}
	}
	if (slct.type == 'hidden') {
	slct.value = fixeddom;
	}
	}
	}
	}
	}
	return;
	}

	$id_functions
	ENDUSERBRW
}	}

sub setsec_javascript {	sub setsec_javascript {
my ($sec_element,$formname) = @_;	my ($sec_element,$formname,$role_element) = @_;
	my (@courserolenames,@communityrolenames,$rolestr,$courserolestr,
	$communityrolestr);
	if ($role_element ne '') {
	my @allroles = ('st','ta','ep','in','ad');
	foreach my $crstype ('Course','Community') {
	if ($crstype eq 'Community') {
	foreach my $role (@allroles) {
	push(@communityrolenames,&Apache::lonnet::plaintext($role,$crstype));
	}
	push(@communityrolenames,&Apache::lonnet::plaintext('co'));
	} else {
	foreach my $role (@allroles) {
	push(@courserolenames,&Apache::lonnet::plaintext($role,$crstype));
	}
	push(@courserolenames,&Apache::lonnet::plaintext('cc'));
	}
	}
	$rolestr = '"'.join('","',@allroles).'"';
	$courserolestr = '"'.join('","',@courserolenames).'"';
	$communityrolestr = '"'.join('","',@communityrolenames).'"';
	}
my $setsections = qq\|	my $setsections = qq\|
function setSect(sectionlist) {	function setSect(sectionlist) {
var sectionsArray = new Array();	var sectionsArray = new Array();
Line 613 function setSect(sectionlist) {	Line 713 function setSect(sectionlist) {
}	}
}	}
}	}

	function setRole(crstype) {
	\|;
	if ($role_element eq '') {
	$setsections .= ' return;
	}
	';
	} else {
	$setsections .= qq\|
	var elementLength = document.$formname.$role_element.length;
	var allroles = Array($rolestr);
	var courserolenames = Array($courserolestr);
	var communityrolenames = Array($communityrolestr);
	if (elementLength != undefined) {
	if (document.$formname.$role_element.options[5].value == 'cc') {
	if (crstype == 'Course') {
	return;
	} else {
	allroles[5] = 'co';
	for (var i=0; i<6; i++) {
	document.$formname.$role_element.options[i].value = allroles[i];
	document.$formname.$role_element.options[i].text = communityrolenames[i];
	}
	}
	} else {
	if (crstype == 'Community') {
	return;
	} else {
	allroles[5] = 'cc';
	for (var i=0; i<6; i++) {
	document.$formname.$role_element.options[i].value = allroles[i];
	document.$formname.$role_element.options[i].text = courserolenames[i];
	}
	}
	}
	}
	return;
	}
\|;	\|;
	}
return $setsections;	return $setsections;
}	}


sub selectcourse_link {	sub selectcourse_link {
my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_;	my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype,
	$typeelement) = @_;
	my $type = $selecttype;
	my $linktext = &mt('Select Course');
	if ($selecttype eq 'Community') {
	$linktext = &mt('Select Community');
	} elsif ($selecttype eq 'Course/Community') {
	$linktext = &mt('Select Course/Community');
	$type = '';
	}
return '<span class="LC_nobreak">'	return '<span class="LC_nobreak">'
."<a href='"	."<a href='"
.'javascript:opencrsbrowser("'.$form.'","'.$unameele	.'javascript:opencrsbrowser("'.$form.'","'.$unameele
.'","'.$udomele.'","'.$desc.'","'.$extra_element	.'","'.$udomele.'","'.$desc.'","'.$extra_element
.'","'.$multflag.'","'.$selecttype.'");'	.'","'.$multflag.'","'.$type.'","'.$typeelement.'");'
."'>".&mt('Select Course').'</a>'	."'>".$linktext.'</a>'
.'</span>';	.'</span>';
}	}

Line 635 sub selectauthor_link {	Line 782 sub selectauthor_link {
&mt('Select Author').'</a>';	&mt('Select Author').'</a>';
}	}

	sub selectuser_link {
	my ($form,$unameelem,$domelem,$lastelem,$firstelem,$emailelem,$hdomelem,
	$coursedom,$linktext,$caller) = @_;
	return '<a href="javascript:openuserbrowser('."'$form','$unameelem','$domelem',".
	"'$lastelem','$firstelem','$emailelem','$hdomelem','$coursedom','$caller'".
	');">'.$linktext.'</a>';
	}

sub check_uncheck_jscript {	sub check_uncheck_jscript {
my $jscript = <<"ENDSCRT";	my $jscript = <<"ENDSCRT";
function checkAll(field) {	function checkAll(field) {
Line 972 sub help_open_topic {	Line 1127 sub help_open_topic {
$template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'	$template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'
.'<img src="'.$helpicon.'" border="0"'	.'<img src="'.$helpicon.'" border="0"'
.' alt="'.&mt('Help: [_1]',$topic).'"'	.' alt="'.&mt('Help: [_1]',$topic).'"'
.' title="'.$title.'"'	.' title="'.$title.'" style="vertical-align:middle;"'
.' /></a>';	.' /></a>';
if ($text ne "") {	if ($text ne "") {
$template.='</span>';	$template.='</span>';
Line 1015 sub general_help {	Line 1170 sub general_help {
my $helptopic='Student_Intro';	my $helptopic='Student_Intro';
if ($env{'request.role'}=~/^(ca\|au)/) {	if ($env{'request.role'}=~/^(ca\|au)/) {
$helptopic='Authoring_Intro';	$helptopic='Authoring_Intro';
} elsif ($env{'request.role'}=~/^cc/) {	} elsif ($env{'request.role'}=~/^(cc\|co)/) {
$helptopic='Course_Coordination_Intro';	$helptopic='Course_Coordination_Intro';
} elsif ($env{'request.role'}=~/^dc/) {	} elsif ($env{'request.role'}=~/^dc/) {
$helptopic='Domain_Coordination_Intro';	$helptopic='Domain_Coordination_Intro';
Line 1047 ENDOUTPUT	Line 1202 ENDOUTPUT
sub help_open_menu {	sub help_open_menu {
my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text)	my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text)
= @_;	= @_;
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 1;
# only use pop-up help (stayOnPage == 0)
# if environment.remote is on (using remote control UI)
if ($env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;
}
my $output;	my $output;
if ($component_help) {	if ($component_help) {
if (!$text) {	if (!$text) {
Line 1073 sub help_open_menu {	Line 1223 sub help_open_menu {
sub top_nav_help {	sub top_nav_help {
my ($text) = @_;	my ($text) = @_;
$text = &mt($text);	$text = &mt($text);
my $stay_on_page =	my $stay_on_page = 1;
($env{'environment.remote'} eq 'off' );
my $link = ($stay_on_page) ? "javascript:helpMenu('display')"	my $link = ($stay_on_page) ? "javascript:helpMenu('display')"
: "javascript:helpMenu('open')";	: "javascript:helpMenu('open')";
my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);	my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);
Line 1089 END	Line 1239 END

sub help_menu_js {	sub help_menu_js {
my ($text) = @_;	my ($text) = @_;
	my $stayOnPage = 1;
my $stayOnPage =
($env{'environment.remote'} eq 'off' );

my $width = 620;	my $width = 620;
my $height = 600;	my $height = 600;
my $helptopic=&general_help();	my $helptopic=&general_help();
Line 1111 sub help_menu_js {	Line 1258 sub help_menu_js {

my $template .= <<"ENDTEMPLATE";	my $template .= <<"ENDTEMPLATE";
<script type="text/javascript">	<script type="text/javascript">
// <!-- BEGIN LON-CAPA Internal
// <![CDATA[	// <![CDATA[
	// <!-- BEGIN LON-CAPA Internal
var banner_link = '';	var banner_link = '';
function helpMenu(target) {	function helpMenu(target) {
var caller = this;	var caller = this;
Line 1137 function writeHelp(caller) {	Line 1284 function writeHelp(caller) {
caller.document.close()	caller.document.close()
caller.focus()	caller.focus()
}	}
// ]]>
// END LON-CAPA Internal -->	// END LON-CAPA Internal -->
	// ]]>
</script>	</script>
ENDTEMPLATE	ENDTEMPLATE
return $template;	return $template;
Line 1149 sub help_open_bug {	Line 1296 sub help_open_bug {
unless ($env{'user.adv'}) { return ''; }	unless ($env{'user.adv'}) { return ''; }
unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }	unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}
$width = 600 if (not defined $width);	$width = 600 if (not defined $width);
$height = 600 if (not defined $height);	$height = 600 if (not defined $height);

Line 1193 sub help_open_faq {	Line 1337 sub help_open_faq {
unless ($env{'user.adv'}) { return ''; }	unless ($env{'user.adv'}) { return ''; }
unless ($Apache::lonnet::perlvar{'FAQHost'}) { return ''; }	unless ($Apache::lonnet::perlvar{'FAQHost'}) { return ''; }
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}
$width = 350 if (not defined $width);	$width = 350 if (not defined $width);
$height = 400 if (not defined $height);	$height = 400 if (not defined $height);

Line 1564 sub create_workbook {	Line 1705 sub create_workbook {
my $workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);	my $workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
if (! defined($workbook)) {	if (! defined($workbook)) {
$r->log_error("Error creating excel spreadsheet $filename: $!");	$r->log_error("Error creating excel spreadsheet $filename: $!");
$r->print('<p>'.&mt("Unable to create new Excel file. ".	$r->print(
"This error has been logged. ".	'<p class="LC_error">'
"Please alert your LON-CAPA administrator").	.&mt('Problems occurred in creating the new Excel file.')
'</p>');	.' '.&mt('This error has been logged.')
	.' '.&mt('Please alert your LON-CAPA administrator.')
	.'</p>'
	);
return (undef);	return (undef);
}	}
#	#
Line 1607 sub create_text_file {	Line 1751 sub create_text_file {
$fh = Apache::File->new('>/home/httpd'.$filename);	$fh = Apache::File->new('>/home/httpd'.$filename);
if (! defined($fh)) {	if (! defined($fh)) {
$r->log_error("Couldn't open $filename for output $!");	$r->log_error("Couldn't open $filename for output $!");
$r->print(&mt('Problems occurred in creating the output file. '	$r->print(
.'This error has been logged. '	'<p class="LC_error">'
.'Please alert your LON-CAPA administrator.'));	.&mt('Problems occurred in creating the output file.')
	.' '.&mt('This error has been logged.')
	.' '.&mt('Please alert your LON-CAPA administrator.')
	.'</p>'
	);
}	}
return ($fh,$filename)	return ($fh,$filename)
}	}
Line 1722 sub select_form {	Line 1870 sub select_form {
$selectform.=	$selectform.=
'<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.	'<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.
($key eq $def ? 'selected="selected" ' : '').	($key eq $def ? 'selected="selected" ' : '').
">".&mt($hash{$key})."</option>\n";	">".$hash{$key}."</option>\n";
}	}
$selectform.="</select>";	$selectform.="</select>";
return $selectform;	return $selectform;
Line 1787 sub select_level_form {	Line 1935 sub select_level_form {

=pod	=pod

=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$autosubmit)	=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms)

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 1798 selected");	Line 1946 selected");

If the $showdomdesc flag is set, the domain name is followed by the domain description.	If the $showdomdesc flag is set, the domain name is followed by the domain description.

If the $autosubmit flag is set, the form containing the domain selector will be auto-submitted by an onchange action.	The optional $onchange argument specifies what should occur if the domain selector is changed, e.g., 'this.form.submit()' if the form is to be automatically submitted.

	The optional $incdoms is a reference to an array of domains which will be the only available options.

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub select_dom_form {	sub select_dom_form {
my ($defdom,$name,$includeempty,$showdomdesc,$autosubmit) = @_;	my ($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms) = @_;
my $onchange;	if ($onchange) {
if ($autosubmit) {	$onchange = ' onchange="'.$onchange.'"';
$onchange = ' onchange="this.form.submit()"';	}
	my @domains;
	if (ref($incdoms) eq 'ARRAY') {
	@domains = sort {lc($a) cmp lc($b)} (@{$incdoms});
	} else {
	@domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains());
}	}
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains());
if ($includeempty) { @domains=('',@domains); }	if ($includeempty) { @domains=('',@domains); }
my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n";	my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n";
foreach my $dom (@domains) {	foreach my $dom (@domains) {
Line 2862 sub messagewrapper {	Line 3016 sub messagewrapper {
sub noteswrapper {	sub noteswrapper {
my ($link,$un,$do)=@_;	my ($link,$un,$do)=@_;
return	return
"<a href='/adm/email?recordftf=retrieve&recname=$un&recdom=$do'>$link</a>";	"<a href='/adm/email?recordftf=retrieve&recname=$un&recdom=$do'>$link</a>";
}	}

# ------------------------------------------------------------- Aboutme Wrapper	# ------------------------------------------------------------- Aboutme Wrapper
Line 2872 sub aboutmewrapper {	Line 3026 sub aboutmewrapper {
if (!defined($username) && !defined($domain)) {	if (!defined($username) && !defined($domain)) {
return;	return;
}	}
return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.	return '<a href="/adm/'.$domain.'/'.$username.'/aboutme?forcestudent=1"'.
($target?' target="$target"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';	($target?' target="$target"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';
}	}

Line 2886 sub syllabuswrapper {	Line 3040 sub syllabuswrapper {
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------

sub track_student_link {	sub track_student_link {
my ($linktext,$sname,$sdom,$target,$start) = @_;	my ($linktext,$sname,$sdom,$target,$start,$only_body) = @_;
my $link ="/adm/trackstudent?";	my $link ="/adm/trackstudent?";
my $title = 'View recent activity';	my $title = 'View recent activity';
if (defined($sname) && $sname !~ /^\s*$/ &&	if (defined($sname) && $sname !~ /^\s*$/ &&
Line 2900 sub track_student_link {	Line 3054 sub track_student_link {
$target = '';	$target = '';
}	}
if ($start) { $link.='&start='.$start; }	if ($start) { $link.='&start='.$start; }
	if ($only_body) { $link .= '&only_body=1'; }
$title = &mt($title);	$title = &mt($title);
$linktext = &mt($linktext);	$linktext = &mt($linktext);
return qq{<a href="$link" title="$title" $target>$linktext</a>}.	return qq{<a href="$link" title="$title" $target>$linktext</a>}.
Line 3243 sub get_previous_attempt {	Line 3398 sub get_previous_attempt {
}	}
$prevattempts=&start_data_table().&start_data_table_header_row();	$prevattempts=&start_data_table().&start_data_table_header_row();
$prevattempts.='<th>'.&mt('History').'</th>';	$prevattempts.='<th>'.&mt('History').'</th>';
	my %typeparts;
	my $showsurv=&Apache::lonnet::allowed('vas',$env{'request.course.id'});
foreach my $key (sort(keys(%lasthash))) {	foreach my $key (sort(keys(%lasthash))) {
my ($ign,@parts) = split(/\./,$key);	my ($ign,@parts) = split(/\./,$key);
if ($#parts > 0) {	if ($#parts > 0) {
my $data=$parts[-1];	my $data=$parts[-1];
pop(@parts);	pop(@parts);
$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>';	if ($data eq 'type') {
	unless ($showsurv) {
	my $id = join(',',@parts);
	$typeparts{$ign.'.'.$id} = $lasthash{$key};
	}
	delete($lasthash{$key});
	} else {
	$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>';
	}
} else {	} else {
if ($#parts == 0) {	if ($#parts == 0) {
$prevattempts.='<th>'.$parts[0].'</th>';	$prevattempts.='<th>'.$parts[0].'</th>';
Line 3258 sub get_previous_attempt {	Line 3423 sub get_previous_attempt {
}	}
}	}
$prevattempts.=&end_data_table_header_row();	$prevattempts.=&end_data_table_header_row();
	my %lasthidden;
if ($getattempt eq '') {	if ($getattempt eq '') {
for ($version=1;$version<=$returnhash{'version'};$version++) {	for ($version=1;$version<=$returnhash{'version'};$version++) {
$prevattempts.=&start_data_table_row().	my @hidden;
'<td>'.&mt('Transaction [_1]',$version).'</td>';	if (%typeparts) {
foreach my $key (sort(keys(%lasthash))) {	foreach my $id (keys(%typeparts)) {
my $value = &format_previous_attempt_value($key,	if (($returnhash{$version.':'.$id.'.type'} eq 'anonsurvey') \|\| ($returnhash{$version.':'.$id.'.type'} eq 'anonsurveycred')) {
$returnhash{$version.':'.$key});	push(@hidden,$id);
$prevattempts.='<td>'.$value.' </td>';	$lasthidden{$id} = 1;
}	} elsif ($lasthidden{$id}) {
$prevattempts.=&end_data_table_row();	if (exists($returnhash{$version.':'.$id.'.award'})) {
	delete($lasthidden{$id});
	}
	}
	}
	}
	$prevattempts.=&start_data_table_row().
	'<td>'.&mt('Transaction [_1]',$version).'</td>';
	if (@hidden) {
	foreach my $key (sort(keys(%lasthash))) {
	my $hide;
	foreach my $id (@hidden) {
	if ($key =~ /^\Q$id\E/) {
	$hide = 1;
	last;
	}
	}
	if ($hide) {
	my ($id,$data) = ($key =~ /^(.+)\.([^.]+)$/);
	if (($data eq 'award') \|\| ($data eq 'awarddetail')) {
	my $value = &format_previous_attempt_value($key,
	$returnhash{$version.':'.$key});
	$prevattempts.='<td>'.$value.' </td>';
	} else {
	$prevattempts.='<td> </td>';
	}
	} else {
	if ($key =~ /\./) {
	my $value = &format_previous_attempt_value($key,
	$returnhash{$version.':'.$key});
	$prevattempts.='<td>'.$value.' </td>';
	} else {
	$prevattempts.='<td> </td>';
	}
	}
	}
	} else {
	foreach my $key (sort(keys(%lasthash))) {
	my $value = &format_previous_attempt_value($key,
	$returnhash{$version.':'.$key});
	$prevattempts.='<td>'.$value.' </td>';
	}
	}
	$prevattempts.=&end_data_table_row();
}	}
}	}
	my @currhidden = keys(%lasthidden);
$prevattempts.=&start_data_table_row().'<td>'.&mt('Current').'</td>';	$prevattempts.=&start_data_table_row().'<td>'.&mt('Current').'</td>';
foreach my $key (sort(keys(%lasthash))) {	foreach my $key (sort(keys(%lasthash))) {
my $value = &format_previous_attempt_value($key,$lasthash{$key});	if (%typeparts) {
if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}	my $hidden;
$prevattempts.='<td>'.$value.' </td>';	foreach my $id (@currhidden) {
	if ($key =~ /^\Q$id\E/) {
	$hidden = 1;
	last;
	}
	}
	if ($hidden) {
	my ($id,$data) = ($key =~ /^(.+)\.([^.]+)$/);
	if (($data eq 'award') \|\| ($data eq 'awarddetail')) {
	my $value = &format_previous_attempt_value($key,$lasthash{$key});
	if ($key =~/$regexp$/ && (defined &$gradesub)) {
	$value = &$gradesub($value);
	}
	$prevattempts.='<td>'.$value.' </td>';
	} else {
	$prevattempts.='<td> </td>';
	}
	} else {
	my $value = &format_previous_attempt_value($key,$lasthash{$key});
	if ($key =~/$regexp$/ && (defined &$gradesub)) {
	$value = &$gradesub($value);
	}
	$prevattempts.='<td>'.$value.' </td>';
	}
	} else {
	my $value = &format_previous_attempt_value($key,$lasthash{$key});
	if ($key =~/$regexp$/ && (defined &$gradesub)) {
	$value = &$gradesub($value);
	}
	$prevattempts.='<td>'.$value.' </td>';
	}
}	}
$prevattempts.= &end_data_table_row().&end_data_table();	$prevattempts.= &end_data_table_row().&end_data_table();
} else {	} else {
Line 3576 sub findallcourses {	Line 3816 sub findallcourses {
if (!%roles) {	if (!%roles) {
%roles = (	%roles = (
cc => 1,	cc => 1,
	co => 1,
in => 1,	in => 1,
ep => 1,	ep => 1,
ta => 1,	ta => 1,
Line 3766 sub blockcheck {	Line 4007 sub blockcheck {
($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));	($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));
next if ($no_userblock);	next if ($no_userblock);

# Retrieve blocking times and identity of blocker for course	# Retrieve blocking times and identity of locker for course
# of specified user, unless user has 'evb' privilege.	# of specified user, unless user has 'evb' privilege.

my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);	my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);
Line 3831 sub parse_block_record {	Line 4072 sub parse_block_record {
return ($setuname,$setudom,$title,$blocks);	return ($setuname,$setudom,$title,$blocks);
}	}

sub build_block_table {
my ($startblock,$endblock,$setters) = @_;
my %lt = &Apache::lonlocal::texthash(
'cacb' => 'Currently active communication blocks',
'cour' => 'Course',
'dura' => 'Duration',
'blse' => 'Block set by'
);
my $output;
$output = '<br />'.$lt{'cacb'}.':<br />';
$output .= &start_data_table();
$output .= '
<tr>
<th>'.$lt{'cour'}.'</th>
<th>'.$lt{'dura'}.'</th>
<th>'.$lt{'blse'}.'</th>
</tr>
';
foreach my $course (keys(%{$setters})) {
my %courseinfo=&Apache::lonnet::coursedescription($course);
for (my $i=0; $i<@{$$setters{$course}{staff}}; $i++) {
my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};
my $fullname = &plainname($uname,$udom);
if (defined($env{'user.name'}) && defined($env{'user.domain'})
&& $env{'user.name'} ne 'public'
&& $env{'user.domain'} ne 'public') {
$fullname = &aboutmewrapper($fullname,$uname,$udom);
}
my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};
$openblock = &Apache::lonlocal::locallocaltime($openblock);
$closeblock= &Apache::lonlocal::locallocaltime($closeblock);
$output .= &Apache::loncommon::start_data_table_row().
'<td>'.$courseinfo{'description'}.'</td>'.
'<td>'.$openblock.' to '.$closeblock.'</td>'.
'<td>'.$fullname.'</td>'.
&Apache::loncommon::end_data_table_row();
}
}
$output .= &end_data_table();
}

sub blocking_status {	sub blocking_status {
my ($activity,$uname,$udom) = @_;	my ($activity,$uname,$udom) = @_;
my %setters;	my %setters;
my ($blocked,$output,$ownitem,$is_course);
my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);	# check for active blocking
if ($startblock && $endblock) {	my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);
$blocked = 1;
if (wantarray) {	my $blocked = $startblock && $endblock ? 1 : 0;
my $category;
if ($activity eq 'boards') {	# caller just wants to know whether a block is active
$category = 'Discussion posts in this course';	if (!wantarray) { return $blocked; }
} elsif ($activity eq 'blogs') {
$category = 'Blogs';	# build a link to a popup window containing the details
} elsif ($activity eq 'port') {	my $querystring = "?activity=$activity";
if (defined($uname) && defined($udom)) {	# $uname and $udom decide whose portfolio the user is trying to look at
if ($uname eq $env{'user.name'} &&	$querystring .= "&udom=$udom" if $udom;
$udom eq $env{'user.domain'}) {	$querystring .= "&uname=$uname" if $uname;
$ownitem = 1;
}	my $output .= <<'END_MYBLOCK';
}	function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
$is_course = &Apache::lonnet::is_course($udom,$uname);	var options = "width=" + w + ",height=" + h + ",";
if ($ownitem) {	options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
$category = 'Your portfolio files';	options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
} elsif ($is_course) {	var newWin = window.open(url, wdwName, options);
my $coursedesc;	newWin.focus();
foreach my $course (keys(%setters)) {	}
my %courseinfo =	END_MYBLOCK
&Apache::lonnet::coursedescription($course);
$coursedesc = $courseinfo{'description'};	$output = Apache::lonhtmlcommon::scripttag($output);
}
$category = "Group portfolio in the course '$coursedesc'";	my $popupUrl = "/adm/blockingstatus/$querystring";
} else {	my $text = mt('Communication Blocked');
$category = 'Portfolio files belonging to ';
if ($env{'user.name'} eq 'public' &&	$output .= <<"END_BLOCK";
$env{'user.domain'} eq 'public') {	<div class='LC_comblock'>
$category .= &plainname($uname,$udom);	<a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'
} else {	title='$text'>
$category .= &aboutmewrapper(&plainname($uname,$udom),$uname,$udom);	<img class='LC_noBorder LC_middle' title='$text' src='/res/adm/pages/comblock.png' alt='$text'/></a>
}	<a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'
}	title='$text'>$text</a>
} elsif ($activity eq 'groups') {	</div>
$category = 'Groups in this course';
}	END_BLOCK
my $showstart = &Apache::lonlocal::locallocaltime($startblock);
my $showend = &Apache::lonlocal::locallocaltime($endblock);	return ($blocked, $output);
$output = '<br />'.&mt('[_1] will be inaccessible between [_2] and [_3] because communication is being blocked.',$category,$showstart,$showend).'<br />';
if (!($activity eq 'port' && !($ownitem) && !($is_course))) {
$output .= &build_block_table($startblock,$endblock,\%setters);
}
}
}
if (wantarray) {
return ($blocked,$output);
} else {
return $blocked;
}
}	}

###############################################	###############################################
Line 4005 sub determinedomain {	Line 4194 sub determinedomain {
my $domain=shift;	my $domain=shift;
if (! $domain) {	if (! $domain) {
# Determine domain if we have not been given one	# Determine domain if we have not been given one
$domain = $Apache::lonnet::perlvar{'lonDefDomain'};	$domain = &Apache::lonnet::default_login_domain();
if ($env{'user.domain'}) { $domain=$env{'user.domain'}; }	if ($env{'user.domain'}) { $domain=$env{'user.domain'}; }
if ($env{'request.role.domain'}) {	if ($env{'request.role.domain'}) {
$domain=$env{'request.role.domain'};	$domain=$env{'request.role.domain'};
Line 4028 sub get_domainconf {	Line 4217 sub get_domainconf {
if (defined($cached)) { return %{$result}; }	if (defined($cached)) { return %{$result}; }

my %domconfig = &Apache::lonnet::get_dom('configuration',	my %domconfig = &Apache::lonnet::get_dom('configuration',
['login','rolecolors'],$udom);	['login','rolecolors','autoenroll'],$udom);
my (%designhash,%legacy);	my (%designhash,%legacy);
if (keys(%domconfig) > 0) {	if (keys(%domconfig) > 0) {
if (ref($domconfig{'login'}) eq 'HASH') {	if (ref($domconfig{'login'}) eq 'HASH') {
if (keys(%{$domconfig{'login'}})) {	if (keys(%{$domconfig{'login'}})) {
foreach my $key (keys(%{$domconfig{'login'}})) {	foreach my $key (keys(%{$domconfig{'login'}})) {
if (ref($domconfig{'login'}{$key}) eq 'HASH') {	if (ref($domconfig{'login'}{$key}) eq 'HASH') {
foreach my $img (keys(%{$domconfig{'login'}{$key}})) {	if ($key eq 'loginvia') {
$designhash{$udom.'.login.'.$key.'_'.$img} =	if (ref($domconfig{'login'}{'loginvia'}) eq 'HASH') {
$domconfig{'login'}{$key}{$img};	my @ids = &Apache::lonnet::current_machine_ids();
	foreach my $hostname (@ids) {
	if (ref($domconfig{'login'}{'loginvia'}{$hostname}) eq 'HASH') {
	if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) {
	my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'};
	$designhash{$udom.'.login.loginvia'} = $server;
	if ($domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'} eq 'custom') {

	$designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'custompath'};
	} else {
	$designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'};
	}
	if ($domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}) {
	$designhash{$udom.'.login.loginvia_exempt_'.$hostname} = $domconfig{'login'}{'loginvia'}{$hostname}{'exempt'};
	}
	}
	}
	}
	}
	} else {
	foreach my $img (keys(%{$domconfig{'login'}{$key}})) {
	$designhash{$udom.'.login.'.$key.'_'.$img} =
	$domconfig{'login'}{$key}{$img};
	}
}	}
} else {	} else {
$designhash{$udom.'.login.'.$key}=$domconfig{'login'}{$key};	$designhash{$udom.'.login.'.$key}=$domconfig{'login'}{$key};
Line 4064 sub get_domainconf {	Line 4276 sub get_domainconf {
} else {	} else {
$legacy{'rolecolors'} = 1;	$legacy{'rolecolors'} = 1;
}	}
	if (ref($domconfig{'autoenroll'}) eq 'HASH') {
	if ($domconfig{'autoenroll'}{'co-owners'}) {
	$designhash{$udom.'.autoassign.co-owners'}=$domconfig{'autoenroll'}{'co-owners'};
	}
	}
if (keys(%legacy) > 0) {	if (keys(%legacy) > 0) {
my %legacyhash = &get_legacy_domconf($udom);	my %legacyhash = &get_legacy_domconf($udom);
foreach my $item (keys(%legacyhash)) {	foreach my $item (keys(%legacyhash)) {
Line 4223 Returns: HTML div with $content	Line 4440 Returns: HTML div with $content
sub head_subbox {	sub head_subbox {
my ($content)=@_;	my ($content)=@_;
my $output =	my $output =
'<div id="LC_head_subbox2">' #FIXME: solve conflicts with lonhtmlcommon:breadcrumbs LC_head_subbox	'<div id="LC_head_subbox">'
.$content	.$content
.'</div>'	.'</div>'
}	}
Line 4256 sub CSTR_pageheader {	Line 4473 sub CSTR_pageheader {
} else {	} else {
$lastitem = $thisdisfn;	$lastitem = $thisdisfn;
}	}
return
	my $output =
'<div>'	'<div>'
.&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it?	.&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it?
.'<b>'.&mt('Construction Space:').'</b> '	.'<b>'.&mt('Construction Space:').'</b> '
.'<form name="dirs" method="post" action="'.$formaction	.'<form name="dirs" method="post" action="'.$formaction
.'" target="_top"><tt><b>' #FIXME lonpubdir: target="_parent"	.'" target="_top">' #FIXME lonpubdir: target="_parent"
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."$lastitem</b></tt><br />"	.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv',undef,undef);

	if ($lastitem) {
	$output .=
	'<span class="LC_filename">'
	.$lastitem
	.'</span>';
	}
	$output .=
	'<br />'
#FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />"	#FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />"
.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')	.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
.'</form>'	.'</form>'
.&Apache::lonmenu::constspaceform()	.&Apache::lonmenu::constspaceform()
.'</div>';	.'</div>';

	return $output;
}	}

###############################################	###############################################
Line 4307 Inputs:	Line 4536 Inputs:

=item * $bgcolor, used to override the bgcolor on a webpage to a specific value	=item * $bgcolor, used to override the bgcolor on a webpage to a specific value

=item * $no_inline_link, if true and in remote mode, don't show the	#RC =item * $no_inline_link, if true and in remote mode, don't show the
'Switch To Inline Menu' link	#RC 'Switch To Inline Menu' link
	#RC
=item * $args, optional argument valid values are	=item * $args, optional argument valid values are
no_auto_mt_title -> prevents &mt()ing the title arg	no_auto_mt_title -> prevents &mt()ing the title arg
inherit_jsmath -> when creating popup window in a page,	inherit_jsmath -> when creating popup window in a page,
Line 4355 sub bodytag {	Line 4584 sub bodytag {
if ($env{'request.role'} !~ /^cr/) {	if ($env{'request.role'} !~ /^cr/) {
$role = &Apache::lonnet::plaintext($role,&course_type());	$role = &Apache::lonnet::plaintext($role,&course_type());
}	}
	if ($env{'request.course.sec'}) {
	$role .= (' 'x2).'- '.&mt('section:').' '.$env{'request.course.sec'};
	}
$realm = $env{'course.'.$env{'request.course.id'}.'.description'};	$realm = $env{'course.'.$env{'request.course.id'}.'.description'};
} else {	} else {
$role = &Apache::lonnet::plaintext($role);	$role = &Apache::lonnet::plaintext($role);
Line 4389 sub bodytag {	Line 4621 sub bodytag {
$env{'course.'.$env{'request.course.id'}.	$env{'course.'.$env{'request.course.id'}.
'.domain'}.'/'})) {	'.domain'}.'/'})) {
my $cid = $env{'request.course.id'};	my $cid = $env{'request.course.id'};
$dc_info.= $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};	$dc_info = $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};
$dc_info =~ s/\s+$//;	$dc_info =~ s/\s+$//;
$dc_info = '('.$dc_info.')';
}	}

if (($env{'environment.remote'} eq 'off') \|\| ($args->{'suppress_header_logos'})) {	$role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
	&get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);

# No Remote	# No Remote
if ($env{'request.state'} eq 'construct') {	if ($no_nav_bar \|\| $env{'form.inhibitmenu'} eq 'yes') {
$forcereg=1;	return $bodytag;
}	}

# if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') { $forcereg=1; }
# $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
# }

my $titletable = '<table id="LC_title_bar">'
."<tr><td> $titleinfo $dc_info</td>"
.'</tr></table>';

if ($no_nav_bar) {	# if ($env{'request.state'} eq 'construct') {
$bodytag .= $titletable;	# $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
} else {	# }
$bodytag .= qq\|<div id="LC_nav_bar">$name ($role)<br />
<em>$realm</em> $dc_info</div>\|;
if ($env{'request.state'} eq 'construct') {
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg,	if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
$titletable);	if ($dc_info) {
} else {	$dc_info = qq\|<span class="LC_cusr_subheading">$dc_info</span>\|;
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg).	}
$titletable;	$bodytag .= qq\|<div id="LC_nav_bar">$name $role<br />
	<em>$realm</em> $dc_info</div>\|;
	return $bodytag;
	}

	unless ($env{'request.symb'} =~ m/\.page___\d+___/) {
	$bodytag .= qq\|<div id="LC_nav_bar">$name $role</div>\|;
	}

	$bodytag .= Apache::lonhtmlcommon::scripttag(
	Apache::lonmenu::utilityfunctions(), 'start');

	$bodytag .= Apache::lonmenu::primary_menu();

	if ($dc_info) {
	$dc_info = &dc_courseid_toggle($dc_info);
	}
	$bodytag .= qq\|<div id="LC_realm">$realm $dc_info</div>\|;

	#don't show menus for public users
	if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){
	$bodytag .= Apache::lonmenu::secondary_menu();
	$bodytag .= Apache::lonmenu::serverform();
	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
	if ($env{'request.state'} eq 'construct') {
	$bodytag .= &Apache::lonmenu::innerregister($forcereg,'',
	$args->{'bread_crumbs'});
	} elsif ($forcereg) {
	$bodytag .= &Apache::lonmenu::innerregister($forcereg);
}	}
	}else{
	# this is to seperate menu from content when there's no secondary
	# menu. Especially needed for public accessible ressources.
	$bodytag .= '<hr style="clear:both" />';
	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
}	}
return $bodytag;
}

#	return $bodytag;
# Top frame rendering, Remote is up	}
#

my $imgsrc = $img;	sub dc_courseid_toggle {
if ($img =~ /^\/adm/) {	my ($dc_info) = @_;
$imgsrc = &lonhttpdurl($img);	return ' <span id="dccidtext" class="LC_cusr_subheading">'.
}	'<a href="javascript:showCourseID();">'.
my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';	&mt('(More ...)').'</a></span>'.
	'<div id="dccid" class="LC_dccid">'.$dc_info.'</div>';
# Explicit link to get inline menu
my $menu= ($no_inline_link?''
:'<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>');
#
return(<<ENDBODY);
$bodytag
<table id="LC_title_bar" class="LC_with_remote">
<tr><td>$upperleft</td>
<td>$messages </td>
</tr>
<tr><td>$titleinfo $dc_info $menu</td>
</tr>
</table>
ENDBODY
}	}

sub make_attr_string {	sub make_attr_string {
Line 4566 sub standard_css {	Line 4809 sub standard_css {

my $sans = 'Verdana,Arial,Helvetica,sans-serif';	my $sans = 'Verdana,Arial,Helvetica,sans-serif';
my $mono = 'monospace';	my $mono = 'monospace';
my $data_table_head = $tabbg;	my $data_table_head = $sidebg;
my $data_table_light = '#EEEEEE';	my $data_table_light = '#FAFAFA';
my $data_table_dark = '#DDDDDD';	my $data_table_dark = '#F0F0F0';
my $data_table_darker = '#CCCCCC';	my $data_table_darker = '#CCCCCC';
my $data_table_highlight = '#FFFF00';	my $data_table_highlight = '#FFFF00';
my $mail_new = '#FFBB77';	my $mail_new = '#FFBB77';
Line 4581 sub standard_css {	Line 4824 sub standard_css {
my $mail_other_hover = '#669999';	my $mail_other_hover = '#669999';
my $table_header = '#DDDDDD';	my $table_header = '#DDDDDD';
my $feedback_link_bg = '#BBBBBB';	my $feedback_link_bg = '#BBBBBB';
my $lg_border_color = '#C8C8C8';	my $lg_border_color = '#C8C8C8';

my $border = ($env{'browser.type'} eq 'explorer' \|\|	my $border = ($env{'browser.type'} eq 'explorer' \|\|
$env{'browser.type'} eq 'safari' ) ? '0 2px 0 2px'	$env{'browser.type'} eq 'safari' ) ? '0 2px 0 2px'
: '0 3px 0 4px';	: '0 3px 0 4px';


return <<END;	return <<END;
body {
font-family: $sans;	/* needed for iframe to allow 100% height in FF */
line-height:130%;	body, html {
font-size:0.83em;	margin: 0;
color:$font;	padding: 0 0.5%;
	height: 99%; /* to avoid scrollbars */
}	}

a:link, a:visited {	body {
font-size:100%;	font-family: $sans;
	line-height:130%;
	font-size:0.83em;
	color:$font;
}	}

a:focus {	a:focus {
color: red;	color: red;
background: yellow	background: yellow;
}	}

form, .inline {	form, .inline {
display: inline;	display: inline;
}	}

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

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

	.LC_400Box {
	width:400px;
	}

	.LC_iframecontainer {
	width: 98%;
	margin: 0;
	position: fixed;
	top: 8.5em;
	bottom: 0;
}	}

/* just for tests */	.LC_iframecontainer iframe{
.LC_400Box {width:400px; }	border: none;
/* end */	width: 100%;
	height: 100%;
	}

.LC_filename {	.LC_filename {
font-family: $mono;	font-family: $mono;
white-space:pre;	white-space:pre;
	font-size: 120%;
}	}

.LC_fileicon {	.LC_fileicon {
Line 4678 div.LC_confirm_box .LC_success img {	Line 4940 div.LC_confirm_box .LC_success img {
}	}

.LC_discussion {	.LC_discussion {
background: $tabbg;	background: $tabbg;
border: 1px solid black;	border: 1px solid black;
margin: 2px;	margin: 2px;
}	}

.LC_disc_action_links_bar {	.LC_disc_action_links_bar {
background: $tabbg;	background: $tabbg;
border: none;	border: none;
margin: 4px;	margin: 4px;
}	}

.LC_disc_action_left {	.LC_disc_action_left {
text-align: left;	text-align: left;
}	}

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

.LC_disc_new_item {	.LC_disc_new_item {
background: white;	background: white;
border: 2px solid red;	border: 2px solid red;
margin: 2px;	margin: 2px;
}	}

.LC_disc_old_item {	.LC_disc_old_item {
background: white;	background: white;
border: 1px solid black;	border: 1px solid black;
margin: 2px;	margin: 2px;
}	}

table.LC_pastsubmission {	table.LC_pastsubmission {
Line 4714 table.LC_pastsubmission {	Line 4976 table.LC_pastsubmission {
margin: 2px;	margin: 2px;
}	}

table#LC_top_nav,	table#LC_menubuttons {
table#LC_menubuttons,
table#LC_nav_location {
width: 100%;	width: 100%;
background: $pgbg;	background: $pgbg;
border: 2px;	border: 2px;
Line 4734 table#LC_title_bar {	Line 4994 table#LC_title_bar {
}	}

table#LC_title_bar,	table#LC_title_bar,
table.LC_breadcrumbs,	table.LC_breadcrumbs, /* obsolete? */
table#LC_title_bar.LC_with_remote {	table#LC_title_bar.LC_with_remote {
width: 100%;	width: 100%;
border-color: $pgbg;	border-color: $pgbg;
Line 4747 table#LC_title_bar.LC_with_remote {	Line 5007 table#LC_title_bar.LC_with_remote {
margin: 0;	margin: 0;
}	}

table.LC_docs_path {	ul.LC_breadcrumb_tools_outerlist {
width: 100%;	margin: 0;
border: 0;	padding: 0;
background: $pgbg;	position: relative;
border-collapse: collapse;	list-style: none;
padding: 0;
}

table#LC_title_bar td {
background: $tabbg;
}	}
	ul.LC_breadcrumb_tools_outerlist li {
table#LC_menubuttons img{	display: inline;
border: none;
}	}

table#LC_top_nav td {	.LC_breadcrumb_tools_navigation {
background: $tabbg;	padding: 0;
border: none;	margin: 0;
font-size: small;	float: left;
vertical-align:top;
padding:2px 5px 2px 5px;
}	}
	.LC_breadcrumb_tools_tools {
table#LC_top_nav td a,	padding: 0;
div#LC_top_nav a {	margin: 0;
color: $font;	float: right;
}	}

table#LC_top_nav td.LC_top_nav_logo {	table#LC_title_bar td {
background: $tabbg;	background: $tabbg;
text-align: left;
white-space: nowrap;
width: 31px;
}	}

table#LC_top_nav td.LC_top_nav_logo img {	table#LC_menubuttons img {
border: none;	border: none;
vertical-align: bottom;
}	}

table#LC_top_nav td.LC_top_nav_exit,	.LC_breadcrumbs_component {
table#LC_top_nav td.LC_top_nav_help {	float: right;
width: 2.0em;	margin: 0 1em;
}

table#LC_top_nav td.LC_top_nav_login {
width: 4.0em;
text-align: center;
}

table.LC_breadcrumbs td,
table.LC_docs_path td {
background: $tabbg;
color: $fontmenu;
font-size: smaller;
}	}
	.LC_breadcrumbs_component img {
table.LC_breadcrumbs td.LC_breadcrumbs_component,	vertical-align: middle;
table.LC_docs_path td.LC_docs_path_component {
background: $tabbg;
color: $fontmenu;
font-size: larger;
text-align: right;
}	}

td.LC_table_cell_checkbox {	td.LC_table_cell_checkbox {
text-align: center;	text-align: center;
}	}

table#LC_mainmenu td.LC_mainmenu_column {
vertical-align: top;
}

.LC_fontsize_small {	.LC_fontsize_small {
font-size: 70%;	font-size: 70%;
}	}

#LC_head_subbox {	#LC_breadcrumbs {
clear:both;	clear:both;
background: $sidebg;	background: $sidebg;
border-bottom: 1px solid $lg_border_color;	border-bottom: 1px solid $lg_border_color;
height: 32px;	line-height: 2.5em;
line-height: 32px;	overflow: hidden;
margin: 0;	margin: 0;
padding: 0;	padding: 0;
}	}

#LC_head_subbox2 { /* FIXME: replace by LC_head_subbox once lonhtmlcommon::breadcrumbs has been fixed */	#LC_head_subbox {
clear:both;	clear:both;
background: #F8F8F8; /* $sidebg; */	background: #F8F8F8; /* $sidebg; */
border-bottom: 1px solid $lg_border_color;	border: 1px solid $sidebg;
margin: 0 0 10px 0;	margin: 0 0 10px 0;
padding: 5px;
}	}

.LC_fontsize_medium {	.LC_fontsize_medium {
font-size: 85%;	font-size: 85%;
}	}

.LC_fontsize_large {	.LC_fontsize_large {
font-size: 120%;	font-size: 120%;
}	}

.LC_menubuttons_inline_text {	.LC_menubuttons_inline_text {
Line 4857 table#LC_mainmenu td.LC_mainmenu_column	Line 5083 table#LC_mainmenu td.LC_mainmenu_column
padding-left:3px;	padding-left:3px;
}	}

	.LC_menubuttons_inline_text img{
	vertical-align: middle;
	}

.LC_menubuttons_link {	.LC_menubuttons_link {
text-decoration: none;	text-decoration: none;
}	}
Line 4869 table#LC_mainmenu td.LC_mainmenu_column	Line 5099 table#LC_mainmenu td.LC_mainmenu_column
}	}

td.LC_menubuttons_text {	td.LC_menubuttons_text {
color: $font;	color: $font;
}	}

.LC_current_location {	.LC_current_location {
background: $tabbg;	background: $tabbg;
}	}

.LC_new_mail {	table.LC_data_table {
background: $tabbg;
font-weight: bold;
}

.LC_roleslog_note {
font-size: small;
}

.LC_mail_functions {
font-weight: bold;
}

table.LC_data_table,
table.LC_mail_list {
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: separate;	border-collapse: separate;
border-spacing: 1px;	border-spacing: 1px;
Line 4908 table.LC_nested_outer {	Line 5124 table.LC_nested_outer {
width: 100%;	width: 100%;
}	}

	table.LC_innerpickbox,
table.LC_nested {	table.LC_nested {
border: none;	border: none;
border-collapse: collapse;	border-collapse: collapse;
Line 4915 table.LC_nested {	Line 5132 table.LC_nested {
width: 100%;	width: 100%;
}	}

table.LC_data_table tr th,	.ui-accordion,
table.LC_calendar tr th,	.ui-accordion table.LC_data_table,
table.LC_mail_list tr th,	.ui-accordion table.LC_nested_outer{
table.LC_prior_tries tr th {	border: 0px;
	border-spacing: 0px;
	margin: 3px;
	}

	table.LC_data_table tr th,
	table.LC_calendar tr th,
	table.LC_prior_tries tr th,
	table.LC_innerpickbox tr th {
font-weight: bold;	font-weight: bold;
background-color: $data_table_head;	background-color: $data_table_head;
color:$fontmenu;	color:$fontmenu;
font-size:90%;	font-size:90%;
}	}

	table.LC_innerpickbox tr th,
	table.LC_innerpickbox tr td {
	vertical-align: top;
	}

table.LC_data_table tr.LC_info_row > td {	table.LC_data_table tr.LC_info_row > td {
background-color: #CCCCCC;	background-color: #CCCCCC;
font-weight: bold;	font-weight: bold;
text-align: left;	text-align: left;
}	}

table.LC_data_table tr.LC_odd_row > td,	table.LC_data_table tr.LC_odd_row > td {
	background-color: $data_table_light;
	padding: 2px;
	vertical-align: top;
	}

table.LC_pick_box tr > td.LC_odd_row {	table.LC_pick_box tr > td.LC_odd_row {
background-color: $data_table_light;	background-color: $data_table_light;
	vertical-align: top;
	}

	table.LC_data_table tr.LC_even_row > td {
	background-color: $data_table_dark;
padding: 2px;	padding: 2px;
	vertical-align: top;
}	}

table.LC_data_table tr.LC_even_row > td,
table.LC_pick_box tr > td.LC_even_row {	table.LC_pick_box tr > td.LC_even_row {
background-color: $data_table_dark;	background-color: $data_table_dark;
padding: 2px;	vertical-align: top;
}	}

table.LC_data_table tr.LC_data_table_highlight td {	table.LC_data_table tr.LC_data_table_highlight td {
Line 4954 table.LC_data_table tr td.LC_leftcol_hea	Line 5194 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 {
background-color: #FFFFFF;
font-weight: bold;	font-weight: bold;
font-style: italic;	font-style: italic;
text-align: center;	text-align: center;
padding: 8px;	padding: 8px;
}	}

	table.LC_data_table tr.LC_empty_row td {
	background-color: $sidebg;
	}

	table.LC_nested tr.LC_empty_row td {
	background-color: #FFFFFF;
	}

	table.LC_caption {
	}

table.LC_nested tr.LC_empty_row td {	table.LC_nested tr.LC_empty_row td {
padding: 4ex	padding: 4ex
}	}
Line 5005 table.LC_nested tr td.LC_right_item {	Line 5255 table.LC_nested tr td.LC_right_item {
text-align: right;	text-align: right;
}	}

	.ui-accordion table.LC_nested tr.LC_odd_row td.LC_left_item,
	.ui-accordion table.LC_nested tr.LC_even_row td.LC_left_item {
	text-align: right;
	width: 40%;
	padding-right:10px;
	vertical-align: top;
	padding: 5px;
	}

	.ui-accordion table.LC_nested tr.LC_odd_row td.LC_right_item,
	.ui-accordion table.LC_nested tr.LC_even_row td.LC_right_item {
	text-align: left;
	width: 60%;
	padding: 2px 4px;
	}

table.LC_nested tr.LC_odd_row td {	table.LC_nested tr.LC_odd_row td {
background-color: #EEEEEE;	background-color: #EEEEEE;
}	}
Line 5025 table.LC_createuser tr.LC_info_row td {	Line 5291 table.LC_createuser tr.LC_info_row td {
table.LC_calendar {	table.LC_calendar {
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: collapse;	border-collapse: collapse;
	width: 98%;
}	}

table.LC_calendar_pickdate {	table.LC_calendar_pickdate {
Line 5034 table.LC_calendar_pickdate {	Line 5301 table.LC_calendar_pickdate {
table.LC_calendar tr td {	table.LC_calendar tr td {
border: 1px solid #000000;	border: 1px solid #000000;
vertical-align: top;	vertical-align: top;
	width: 14%;
}	}

table.LC_calendar tr td.LC_calendar_day_empty {	table.LC_calendar tr td.LC_calendar_day_empty {
Line 5044 table.LC_calendar tr td.LC_calendar_day_	Line 5312 table.LC_calendar tr td.LC_calendar_day_
background-color: $data_table_highlight;	background-color: $data_table_highlight;
}	}

table.LC_mail_list tr.LC_mail_new {	table.LC_data_table tr td.LC_mail_new {
background-color: $mail_new;	background-color: $mail_new;
}	}

table.LC_mail_list tr.LC_mail_new:hover {	table.LC_data_table tr.LC_mail_new:hover {
background-color: $mail_new_hover;	background-color: $mail_new_hover;
}	}

table.LC_mail_list tr.LC_mail_even {	table.LC_data_table tr td.LC_mail_read {
}

table.LC_mail_list tr.LC_mail_odd {
}

table.LC_mail_list tr.LC_mail_read {
background-color: $mail_read;	background-color: $mail_read;
}	}

table.LC_mail_list tr.LC_mail_read:hover {	/*
	table.LC_data_table tr.LC_mail_read:hover {
background-color: $mail_read_hover;	background-color: $mail_read_hover;
}	}
	*/

table.LC_mail_list tr.LC_mail_replied {	table.LC_data_table tr td.LC_mail_replied {
background-color: $mail_replied;	background-color: $mail_replied;
}	}

table.LC_mail_list tr.LC_mail_replied:hover {	/*
	table.LC_data_table tr.LC_mail_replied:hover {
background-color: $mail_replied_hover;	background-color: $mail_replied_hover;
}	}
	*/

table.LC_mail_list tr.LC_mail_other {	table.LC_data_table tr td.LC_mail_other {
background-color: $mail_other;	background-color: $mail_other;
}	}

table.LC_mail_list tr.LC_mail_other:hover {	/*
	table.LC_data_table tr.LC_mail_other:hover {
background-color: $mail_other_hover;	background-color: $mail_other_hover;
}	}
	*/

table.LC_data_table tr > td.LC_browser_file,	table.LC_data_table tr > td.LC_browser_file,
table.LC_data_table tr > td.LC_browser_file_published {	table.LC_data_table tr > td.LC_browser_file_published {
background: #CCFF88;	background: #AAEE77;
}	}

table.LC_data_table tr > td.LC_browser_file_locked,	table.LC_data_table tr > td.LC_browser_file_locked,
Line 5093 table.LC_data_table tr > td.LC_browser_f	Line 5361 table.LC_data_table tr > td.LC_browser_f
}	}

table.LC_data_table tr > td.LC_browser_file_obsolete {	table.LC_data_table tr > td.LC_browser_file_obsolete {
background: #AAAAAA;	background: #888888;
}	}

table.LC_data_table tr > td.LC_browser_file_modified,	table.LC_data_table tr > td.LC_browser_file_modified,
table.LC_data_table tr > td.LC_browser_file_metamodified {	table.LC_data_table tr > td.LC_browser_file_metamodified {
background: #FFFF77;	background: #F8F866;
}	}

table.LC_data_table tr.LC_browser_folder > td {	table.LC_data_table tr.LC_browser_folder > td {
background: #CCCCFF;	background: #E0E8FF;
}	}

table.LC_data_table tr > td.LC_roles_is {	table.LC_data_table tr > td.LC_roles_is {
/* background: #77FF77; */	/* background: #77FF77; */
}	}

table.LC_data_table tr > td.LC_roles_future {	table.LC_data_table tr > td.LC_roles_future {
background: #FFFF77;	border-right: 8px solid #FFFF77;
}	}

table.LC_data_table tr > td.LC_roles_will {	table.LC_data_table tr > td.LC_roles_will {
background: #FFAA77;	border-right: 8px solid #FFAA77;
}	}

table.LC_data_table tr > td.LC_roles_expired {	table.LC_data_table tr > td.LC_roles_expired {
background: #FF7777;	border-right: 8px solid #FF7777;
}	}

table.LC_data_table tr > td.LC_roles_will_not {	table.LC_data_table tr > td.LC_roles_will_not {
background: #AAFF77;	border-right: 8px solid #AAFF77;
}	}

table.LC_data_table tr > td.LC_roles_selected {	table.LC_data_table tr > td.LC_roles_selected {
background: #11CC55;	border-right: 8px solid #11CC55;
}	}

span.LC_current_location {	span.LC_current_location {
Line 5154 span.LC_parm_part {	Line 5422 span.LC_parm_part {
color: blue;	color: blue;
}	}

span.LC_parm_folder, span.LC_parm_symb {	span.LC_parm_folder,
	span.LC_parm_symb {
font-size: x-small;	font-size: x-small;
font-family: $mono;	font-family: $mono;
color: #AAAAAA;	color: #AAAAAA;
Line 5190 table#LC_helpmenu {	Line 5459 table#LC_helpmenu {

table#LC_helpmenu fieldset legend {	table#LC_helpmenu fieldset legend {
font-size: larger;	font-size: larger;
font-weight: bold;
}	}

table#LC_helpmenu_links {	table#LC_helpmenu_links {
Line 5243 table.LC_pick_box {	Line 5511 table.LC_pick_box {
}	}

table.LC_pick_box td.LC_pick_box_title {	table.LC_pick_box td.LC_pick_box_title {
background: $tabbg;	background: $sidebg;
font-weight: bold;	font-weight: bold;
text-align: right;	text-align: left;
vertical-align: top;	vertical-align: top;
width: 184px;	width: 184px;
padding: 8px;	padding: 8px;
}	}

table.LC_pick_box td.LC_selfenroll_pick_box_title {
background: $tabbg;
font-weight: bold;
text-align: right;
width: 350px;
padding: 8px;
}

table.LC_pick_box td.LC_pick_box_value {	table.LC_pick_box td.LC_pick_box_value {
text-align: left;	text-align: left;
padding: 8px;	padding: 8px;
Line 5291 table.LC_pick_box td.LC_oddrow_value {	Line 5551 table.LC_pick_box td.LC_oddrow_value {
background-color: $data_table_light;	background-color: $data_table_light;
}	}

table.LC_helpform_receipt {
width: 620px;
border-collapse: separate;
background: white;
border: 1px solid black;
border-spacing: 1px;
}

table.LC_helpform_receipt td.LC_pick_box_title {
background: $tabbg;
font-weight: bold;
text-align: right;
width: 184px;
padding: 8px;
}

table.LC_helpform_receipt td.LC_evenrow_value {
text-align: left;
padding: 8px;
background-color: $data_table_light;
}

table.LC_helpform_receipt td.LC_oddrow_value {
text-align: left;
padding: 8px;
background-color: $data_table_light;
}

table.LC_helpform_receipt td.LC_pick_box_separator {
padding: 0;
height: 1px;
background: black;
}

span.LC_helpform_receipt_cat {	span.LC_helpform_receipt_cat {
font-weight: bold;	font-weight: bold;
}	}
Line 5379 table.LC_notify_front_page td {	Line 5605 table.LC_notify_front_page td {

.LC_topic_bar {	.LC_topic_bar {
font-weight: bold;	font-weight: bold;
width: 100%;
background: $tabbg;	background: $tabbg;
vertical-align: middle;	margin: 1em 0em 1em 2em;
margin: 2ex 0ex 2ex 0ex;
padding: 3px;	padding: 3px;
	font-size: 1.2em;
}	}

.LC_topic_bar span {	.LC_topic_bar span {
	left: 0.5em;
	position: absolute;
vertical-align: middle;	vertical-align: middle;
}	font-size: 1.2em;

.LC_topic_bar img {
vertical-align: bottom;
}	}

table.LC_course_group_status {	table.LC_course_group_status {
Line 5417 div.LC_feedback_link {	Line 5641 div.LC_feedback_link {

div.LC_feedback_link img {	div.LC_feedback_link img {
height: 22px;	height: 22px;
	vertical-align:middle;
}	}

div.LC_feedback_link a{	div.LC_feedback_link a {
text-decoration: none;	text-decoration: none;
}	}

	div.LC_comblock {
	display:inline;
	color:$font;
	font-size:90%;
	}

	div.LC_feedback_link div.LC_comblock {
	padding-left:5px;
	}

	div.LC_feedback_link div.LC_comblock a {
	color:$font;
	}

span.LC_feedback_link {	span.LC_feedback_link {
//background: $feedback_link_bg;	/* background: $feedback_link_bg; */
font-size: larger;	font-size: larger;
}	}

span.LC_message_link {	span.LC_message_link {
//background: $feedback_link_bg;	/* background: $feedback_link_bg; */
font-size: larger;	font-size: larger;
position: absolute;	position: absolute;
right: 1em;	right: 1em;
Line 5488 span.LC_prior_string,	Line 5727 span.LC_prior_string,
span.LC_prior_custom,	span.LC_prior_custom,
span.LC_prior_reaction,	span.LC_prior_reaction,
span.LC_prior_math {	span.LC_prior_math {
font-family: monospace;	font-family: $mono;
white-space: pre;	white-space: pre;
}	}

span.LC_prior_string {	span.LC_prior_string {
font-family: monospace;	font-family: $mono;
white-space: pre;	white-space: pre;
}	}

Line 5502 table.LC_prior_option {	Line 5741 table.LC_prior_option {
border-collapse: collapse;	border-collapse: collapse;
}	}

table.LC_prior_rank,	table.LC_prior_rank,
table.LC_prior_match {	table.LC_prior_match {
border-collapse: collapse;	border-collapse: collapse;
}	}
Line 5513 table.LC_prior_match tr td {	Line 5752 table.LC_prior_match tr td {
border: 1px solid #000000;	border: 1px solid #000000;
}	}

td.LC_nobreak,	.LC_nobreak {
span.LC_nobreak {
white-space: nowrap;	white-space: nowrap;
}	}

Line 5527 span.LC_cusr_subheading {	Line 5765 span.LC_cusr_subheading {
font-size: 85%;	font-size: 85%;
}	}

table.LC_docs_documents {	div.LC_docs_entry_move {
background: #BBBBBB;	border: 1px solid #BBBBBB;
border-width: 0;
border-collapse: collapse;
}

table.LC_docs_documents td.LC_docs_document {
border: 2px solid black;
padding: 4px;
}

.LC_docs_entry_move {
border: none;
border-collapse: collapse;
}

.LC_docs_entry_move td {
border: 2px solid #BBBBBB;
background: #DDDDDD;	background: #DDDDDD;
	width: 22px;
	padding: 1px;
	margin: 0;
}	}

.LC_docs_editor td.LC_docs_entry_commands {	table.LC_data_table tr > td.LC_docs_entry_commands,
	table.LC_data_table tr > td.LC_docs_entry_parameter {
background: #DDDDDD;	background: #DDDDDD;
font-size: x-small;	font-size: x-small;
}	}

	.LC_docs_entry_parameter {
	white-space: nowrap;
	}

.LC_docs_copy {	.LC_docs_copy {
color: #000099;	color: #000099;
}	}
Line 5574 table.LC_docs_documents td.LC_docs_docum	Line 5804 table.LC_docs_documents td.LC_docs_docum
font-size: x-small;	font-size: x-small;
}	}

.LC_docs_editor td.LC_docs_entry_title,
.LC_docs_editor td.LC_docs_entry_icon {
background: #FFFFBB;
}

.LC_docs_editor td.LC_docs_entry_parameter {
background: #BBBBFF;
font-size: x-small;
white-space: nowrap;
}

table.LC_docs_adddocs td,	table.LC_docs_adddocs td,
table.LC_docs_adddocs th {	table.LC_docs_adddocs th {
border: 1px solid #BBBBBB;	border: 1px solid #BBBBBB;
Line 5621 table.LC_double_column tr td.LC_right_co	Line 5840 table.LC_double_column tr td.LC_right_co
vertical-align: top;	vertical-align: top;
}	}

span.LC_role_level {
font-weight: bold;
}

div.LC_left_float {	div.LC_left_float {
float: left;	float: left;
padding-right: 5%;	padding-right: 5%;
Line 5641 div.LC_clear_float_footer {	Line 5856 div.LC_clear_float_footer {
}	}

div.LC_grade_show_user {	div.LC_grade_show_user {
margin-top: 20px;	/* border-left: 5px solid $sidebg; */
border: 1px solid black;	border-top: 5px solid #000000;
	margin: 50px 0 0 0;
	padding: 15px 0 5px 10px;
}	}

div.LC_grade_user_name {	div.LC_grade_show_user_odd_row {
background: #DDDDEE;	/* border-left: 5px solid #000000; */
border-bottom: 1px solid black;
font-weight: bold;
font-size: large;
}	}

div.LC_grade_show_user_odd_row div.LC_grade_user_name {	div.LC_grade_show_user div.LC_Box {
background: #DDEEDD;	margin-right: 50px;
}	}

div.LC_grade_show_problem,
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 {
div.LC_grade_assign {
margin: 5px;	margin: 5px;
width: 99%;	width: 99%;
background: #FFFFFF;	background: #FFFFFF;
}	}

div.LC_grade_show_problem_header,
div.LC_grade_submissions_header,	div.LC_grade_submissions_header,
div.LC_grade_message_center_header,	div.LC_grade_message_center_header {
div.LC_grade_assign_header {
font-weight: bold;	font-weight: bold;
font-size: large;	font-size: large;
}	}

div.LC_grade_show_problem_problem,
div.LC_grade_submissions_body,	div.LC_grade_submissions_body,
div.LC_grade_message_center_body,	div.LC_grade_message_center_body {
div.LC_grade_assign_body {
border: 1px solid black;	border: 1px solid black;
width: 99%;	width: 99%;
background: #FFFFFF;	background: #FFFFFF;
}	}

span.LC_grade_check_note {
font-weight: normal;
font-size: medium;
display: inline;
position: absolute;
right: 1em;
}

table.LC_scantron_action {	table.LC_scantron_action {
width: 100%;	width: 100%;
}	}
Line 5724 div.LC_edit_problem_header_title {	Line 5924 div.LC_edit_problem_header_title {
}	}

table.LC_edit_problem_header_title {	table.LC_edit_problem_header_title {
font-size: larger;
font-weight: bold;
width: 100%;	width: 100%;
border-color: $pgbg;
border-style: solid;
border-width: $border;
background: $tabbg;	background: $tabbg;
border-collapse: collapse;
padding: 0;
}	}

div.LC_edit_problem_discards {	div.LC_edit_problem_discards {
Line 5745 div.LC_edit_problem_saves {	Line 5938 div.LC_edit_problem_saves {
padding-bottom: 5px;	padding-bottom: 5px;
}	}

hr.LC_edit_problem_divide {	img.stift {
clear: both;
color: $tabbg;
background-color: $tabbg;
height: 3px;
border: none;
}

img.stift{
border-width: 0;	border-width: 0;
vertical-align: middle;	vertical-align: middle;
}	}

table#LC_mainmenu{	table td.LC_mainmenu_col_fieldset {
margin-top:10px;
width:80%;
}

table#LC_mainmenu td.LC_mainmenu_col_fieldset{
vertical-align: top;	vertical-align: top;
width: 45%;
}

.LC_mainmenu_fieldset_category {
color: $font;
background: $pgbg;
font-size: small;
font-weight: bold;
}	}

div.LC_createcourse {	div.LC_createcourse {
margin: 10px 10px 10px 10px;	margin: 10px 10px 10px 10px;
}	}

/* ---- Remove when done ----	.LC_dccid {
# The following styles is part of the redesign of LON-CAPA and are	margin: 0.2em 0 0 0;
# subject to change during this project.	padding: 0;
# Don't rely on their current functionality as they might be	font-size: 90%;
# changed or removed.	display:none;
# --------------------------*/	}

a:hover,	a:hover,
ol.LC_smallMenu a:hover,	ol.LC_primary_menu a:hover,
ol#LC_MenuBreadcrumbs a:hover,	ol#LC_MenuBreadcrumbs a:hover,
ol#LC_PathBreadcrumbs a:hover,	ol#LC_PathBreadcrumbs a:hover,
ul#LC_TabMainMenuContent a:hover,	ul#LC_secondary_menu a:hover,
.LC_FormSectionClearButton input:hover	.LC_FormSectionClearButton input:hover
ul.LC_TabContent li:hover a {	ul.LC_TabContent li:hover a {
color:#BF2317;	color:#BF2317;
text-decoration:none;	text-decoration:none;
}	}

h1 {	h1 {
padding: 0;	padding: 0;
line-height:130%;	line-height:130%;
}	}

h2,h3,h4,h5,h6 {	h2,
margin: 5px 0 5px 0;	h3,
padding: 0;	h4,
line-height:130%;	h5,
	h6 {
	margin: 5px 0 5px 0;
	padding: 0;
	line-height:130%;
}	}

.LC_hcell {	.LC_hcell {
padding:3px 15px 3px 15px;	padding:3px 15px 3px 15px;
margin: 0;	margin: 0;
background-color:$tabbg;	background-color:$tabbg;
color:$fontmenu;	color:$fontmenu;
border-bottom:solid 1px $lg_border_color;	border-bottom:solid 1px $lg_border_color;
}	}

.LC_ContentBoxSpecial > .LC_hcell {	.LC_Box > .LC_hcell {
margin: 0 -10px 10px -10px;	margin: 0 -10px 10px -10px;
}	}

.LC_noBorder {	.LC_noBorder {
border: 0;	border: 0;
}	}

	.LC_FormSectionClearButton input {
	background-color:transparent;
	border: none;
	cursor:pointer;
	text-decoration:underline;
	}

/* Main Header with discription of Person, Course, etc. */	.LC_help_open_topic {
	color: #FFFFFF;
	background-color: #EEEEFF;
	margin: 1px;
	padding: 4px;
	border: 1px solid #000033;
	white-space: nowrap;
	/* vertical-align: middle; */
	}

.LC_Right {	dl,
float: right;	ul,
margin: 0;	div,
padding: 0;	fieldset {
	margin: 10px 10px 10px 0;
	/* overflow: hidden; */
}	}

.LC_FormSectionClearButton input {	fieldset > legend {
background-color:transparent;	font-weight: bold;
border: none;	padding: 0 5px 0 5px;
cursor:pointer;
text-decoration:underline;
}	}

.LC_help_open_topic {	#LC_nav_bar {
color: #FFFFFF;	float: left;
background-color: #EEEEFF;	margin: 0;
margin: 1px;
padding: 4px;
border: 1px solid #000033;
white-space: nowrap;
/* vertical-align: middle; */
}	}

dl,ul,div,fieldset {	#LC_realm {
margin: 10px 10px 10px 0;	margin: 0.2em 0 0 0;
/* overflow: hidden; */	padding: 0;
	font-weight: bold;
	text-align: center;
}	}

#LC_nav_bar {	#LC_nav_bar em {
float: left;	font-weight: bold;
margin: 0;	font-style: normal;
}	}

#LC_nav_bar em{	ol.LC_primary_menu {
font-weight: bold;	float: right;
font-style: normal;	margin: 0;
}	}

ol.LC_smallMenu {	ol#LC_PathBreadcrumbs {
float: right;	margin: 0;
}	}

ol.LC_smallMenu, ol#LC_PathBreadcrumbs {	ol.LC_primary_menu li {
margin: 0;	display: inline;
	padding: 5px 5px 0 10px;
	vertical-align: top;
}	}

ol.LC_smallMenu li {	ol.LC_primary_menu li img {
display: inline;	vertical-align: bottom;
padding: 5px 5px 0 10px;	height: 1.1em;
vertical-align: top;
}	}

ol.LC_smallMenu li img {	ol.LC_primary_menu a {
vertical-align: bottom;	color: RGB(80, 80, 80);
	text-decoration: none;
}	}

ol.LC_smallMenu a {	ol.LC_primary_menu a.LC_new_message {
font-size: 90%;	font-weight:bold;
color: RGB(80, 80, 80);	color: darkred;
text-decoration: none;
}	}

ul#LC_TabMainMenuContent {	ul#LC_secondary_menu {
clear: both;	clear: both;
color: $fontmenu;	color: $fontmenu;
background: $tabbg;	background: $tabbg;
list-style: none;	list-style: none;
padding: 0;	padding: 0;
margin: 0;	margin: 0;
float:left;	width: 100%;
width: 100%;
}	}

ul#LC_TabMainMenuContent li {	ul#LC_secondary_menu li {
float: left;	font-weight: bold;
font-weight: bold;	line-height: 1.8em;
line-height: 1.8em;	padding: 0 0.8em;
padding: 0 0.8em;	border-right: 1px solid black;
border-right: 1px solid black;	display: inline;
display: inline;	vertical-align: middle;
vertical-align: middle;
}	}

ul.LC_TabContent ,	ul.LC_TabContent {
ul.LC_TabContentBigger {	display:block;
display:block;	background: $sidebg;
list-style:none;	border-bottom: solid 1px $lg_border_color;
margin: 0;	list-style:none;
padding: 0;	margin: 0 -10px;
	padding: 0;
}	}

ul.LC_TabContent li,	ul.LC_TabContent li,
ul.LC_TabContentBigger li {	ul.LC_TabContentBigger li {
display: inline;	float:left;
border-right: solid 1px $lg_border_color;
float:left;
line-height:140%;
white-space:nowrap;
}	}

ul#LC_TabMainMenuContent li a {	ul#LC_secondary_menu li a {
color: $fontmenu;	color: $fontmenu;
text-decoration: none;	text-decoration: none;
}	}

ul.LC_TabContent {	ul.LC_TabContent {
min-height:1.6em;	min-height:1.5em;
}	}

ul.LC_TabContent li {	ul.LC_TabContent li {
vertical-align:middle;	vertical-align:middle;
padding: 0 10px 0 10px;	padding: 0 10px 0 10px;
background-color:$tabbg;	background-color:$tabbg;
border-bottom:solid 1px $lg_border_color;	border-bottom:solid 1px $lg_border_color;
}

ul.LC_TabContent li a, ul.LC_TabContent li {
color:rgb(47,47,47);
text-decoration:none;
font-size:95%;
font-weight:bold;
padding-right: 16px;
}

ul.LC_TabContent li:hover, ul.LC_TabContent li.active {
background:#FFFFFF url(/adm/lonIcons/open.gif) no-repeat scroll right center;
border-bottom:solid 1px #FFFFFF;
padding-right: 16px;
}	}

ul.LC_TabContentBigger li {	ul.LC_TabContent .right {
vertical-align:bottom;	float:right;
border-top:solid 1px $lg_border_color;	}
border-left:solid 1px $lg_border_color;
padding:5px 10px 5px 10px;	ul.LC_TabContent li a,
margin-left:2px;	ul.LC_TabContent li {
background:url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;	color:rgb(47,47,47);
	text-decoration:none;
	font-size:95%;
	font-weight:bold;
	padding-right: 16px;
}	}

ul.LC_TabContentBigger li:hover,	ul.LC_TabContent li:hover,
ul.LC_TabContentBigger li.active {	ul.LC_TabContent li.active {
background:url(/adm/lonIcons/lightGreyBG.png) repeat-x right bottom;	background:#FFFFFF url(/adm/lonIcons/open.gif) no-repeat scroll right center;
	border-bottom:solid 2px #FFFFFF;
	padding-right: 16px;
	cursor:pointer;
}	}

ul.LC_TabContentBigger li,	#maincoursedoc {
	clear:both;
	}

	ul.LC_TabContentBigger {
	display:block;
	list-style:none;
	padding: 0;
	}

	ul.LC_TabContentBigger li {
	vertical-align:bottom;
	height: 30px;
	font-size:110%;
	font-weight:bold;
	color: #737373;
	}


ul.LC_TabContentBigger li a {	ul.LC_TabContentBigger li a {
font-size:110%;	background:url('/adm/lonIcons/tabbgleft.gif') left bottom no-repeat;
font-weight:bold;	height: 30px;
	line-height: 30px;
	text-align: center;
	display: block;
	text-decoration: none;
}	}

ol#LC_MenuBreadcrumbs,	ul.LC_TabContentBigger li:hover a,
ol#LC_PathBreadcrumbs,	ul.LC_TabContentBigger li.active a {
ul#LC_CourseBreadcrumbs {	background:url('/adm/lonIcons/tabbgleft.gif') left top no-repeat;
padding-left: 10px;	color:$font;
margin: 0;	text-decoration: underline;
list-style-position: inside;	}
}

ol#LC_MenuBreadcrumbs li,	ul.LC_TabContentBigger li b {
ol#LC_PathBreadcrumbs li,	background: url('/adm/lonIcons/tabbgright.gif') no-repeat right bottom;
ul#LC_CourseBreadcrumbs li {	display: block;
display: inline;	float: left;
padding: 0 0 0 10px;	padding: 0 30px;
overflow:hidden;	}

	ul.LC_TabContentBigger li:hover b,
	ul.LC_TabContentBigger li.active b {
	background:url('/adm/lonIcons/tabbgright.gif') right top no-repeat;
	color:$font;
	border-bottom: 1px solid #FFFFFF;
	}


	ul.LC_CourseBreadcrumbs {
	background: $sidebg;
	line-height: 32px;
	padding-left: 10px;
	margin: 0 0 10px 0;
	list-style-position: inside;

	}

	ol#LC_MenuBreadcrumbs,
	ol#LC_PathBreadcrumbs {
	padding-left: 10px;
	margin: 0;
	height: 2.5em; /* equal to #LC_breadcrumbs line-height */
	}

	ol#LC_MenuBreadcrumbs li,
	ol#LC_PathBreadcrumbs li,
	ul.LC_CourseBreadcrumbs li {
	display: inline;
	white-space: normal;
}	}

ol#LC_MenuBreadcrumbs li a,	ol#LC_MenuBreadcrumbs li a,
ul#LC_CourseBreadcrumbs li a {	ul.LC_CourseBreadcrumbs li a {
text-decoration: none;	text-decoration: none;
font-size:90%;	font-size:90%;
}	}

ol#LC_PathBreadcrumbs li a {	ol#LC_PathBreadcrumbs li a {
text-decoration:none;	text-decoration:none;
font-size:100%;	font-size:100%;
font-weight:bold;	font-weight:bold;
}	}

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

.LC_AboutMe_Image {	.LC_AboutMe_Image {
float:left;	float:left;
margin-right:10px;	margin-right:10px;
}	}

.LC_Clear_AboutMe_Image {	.LC_Clear_AboutMe_Image {
clear:left;	clear:left;
}	}

dl.LC_ListStyleClean dt {	dl.LC_ListStyleClean dt {
padding-right: 5px;	padding-right: 5px;
display: table-header-group;	display: table-header-group;
}	}

dl.LC_ListStyleClean dd {	dl.LC_ListStyleClean dd {
display: table-row;	display: table-row;
}	}

.LC_ListStyleClean,	.LC_ListStyleClean,
.LC_ListStyleSimple,	.LC_ListStyleSimple,
.LC_ListStyleNormal,	.LC_ListStyleNormal,
.LC_ListStyle_Border,
.LC_ListStyleSpecial {	.LC_ListStyleSpecial {
/display:block; /	/* display:block; */
list-style-position: inside;	list-style-position: inside;
list-style-type: none;	list-style-type: none;
overflow: hidden;	overflow: hidden;
padding: 0;	padding: 0;
}	}

.LC_ListStyleSimple li,	.LC_ListStyleSimple li,
Line 6046 dl.LC_ListStyleClean dd {	Line 6273 dl.LC_ListStyleClean dd {
.LC_ListStyleNormal dd,	.LC_ListStyleNormal dd,
.LC_ListStyleSpecial li,	.LC_ListStyleSpecial li,
.LC_ListStyleSpecial dd {	.LC_ListStyleSpecial dd {
margin: 0;	margin: 0;
padding: 5px 5px 5px 10px;	padding: 5px 5px 5px 10px;
clear: both;	clear: both;
}	}

.LC_ListStyleClean li,	.LC_ListStyleClean li,
.LC_ListStyleClean dd {	.LC_ListStyleClean dd {
padding-top: 0;	padding-top: 0;
padding-bottom: 0;	padding-bottom: 0;
}	}

.LC_ListStyleSimple dd,	.LC_ListStyleSimple dd,
.LC_ListStyleSimple li {	.LC_ListStyleSimple li {
border-bottom: solid 1px $lg_border_color;	border-bottom: solid 1px $lg_border_color;
}	}

.LC_ListStyleSpecial li,	.LC_ListStyleSpecial li,
.LC_ListStyleSpecial dd {	.LC_ListStyleSpecial dd {
list-style-type: none;	list-style-type: none;
background-color: RGB(220, 220, 220);	background-color: RGB(220, 220, 220);
margin-bottom: 4px;	margin-bottom: 4px;
}	}

table.LC_SimpleTable {	table.LC_SimpleTable {
margin:5px;	margin:5px;
border:solid 1px $lg_border_color;	border:solid 1px $lg_border_color;
}	}

table.LC_SimpleTable tr {	table.LC_SimpleTable tr {
padding: 0;	padding: 0;
border:solid 1px $lg_border_color;	border:solid 1px $lg_border_color;
}	}

table.LC_SimpleTable thead {	table.LC_SimpleTable thead {
background:rgb(220,220,220);	background:rgb(220,220,220);
}	}

div.LC_columnSection {	div.LC_columnSection {
display: block;	display: block;
clear: both;	clear: both;
overflow: hidden;	overflow: hidden;
margin: 0;	margin: 0;
}	}

div.LC_columnSection>* {	div.LC_columnSection>* {
float: left;	float: left;
margin: 10px 20px 10px 0;	margin: 10px 20px 10px 0;
overflow:hidden;	overflow:hidden;
}

.clear {
clear: both;
line-height: 0;
font-size: 0;
height: 0;
}	}

.LC_loginpage_container {	.LC_loginpage_container {
text-align:left;	text-align:left;
margin : 0 auto;	margin : 0 auto;
width:90%;	width:90%;
padding: 10px;	padding: 10px;
height: auto;	height: auto;
background-color:#FFFFFF;	background-color:#FFFFFF;
border:1px solid #CCCCCC;	border:1px solid #CCCCCC;
}	}


.LC_loginpage_loginContainer {	.LC_loginpage_loginContainer {
float:left;	float:left;
width: 182px;	width: 182px;
padding: 2px;	padding: 2px;
border:1px solid #CCCCCC;	border:1px solid #CCCCCC;
background-color:$loginbg;	background-color:$loginbg;
}	}

.LC_loginpage_loginContainer h2 {	.LC_loginpage_loginContainer h2 {
margin-top: 0;	margin-top: 0;
display:block;	display:block;
background:$bgcol;	background:$bgcol;
color:$textcol;	color:$textcol;
padding-left:5px;	padding-left:5px;
}	}

.LC_loginpage_loginInfo {	.LC_loginpage_loginInfo {
float:left;	float:left;
width:182px;	width:182px;
border:1px solid #CCCCCC;	border:1px solid #CCCCCC;
padding:2px;	padding:2px;
}	}

.LC_loginpage_space {	.LC_loginpage_space {
clear: both;	clear: both;
margin-bottom: 20px;	margin-bottom: 20px;
border-bottom: 1px solid #CCCCCC;	border-bottom: 1px solid #CCCCCC;
}	}

.LC_loginpage_floatLeft {	.LC_loginpage_floatLeft {
float: left;	float: left;
width: 200px;	width: 200px;
margin: 0;	margin: 0;
}	}

table em {	table em {
font-weight: bold;	font-weight: bold;
font-style: normal;	font-style: normal;
}	}

table.LC_tableBrowseRes,	table.LC_tableBrowseRes,
table.LC_tableOfContent {	table.LC_tableOfContent {
border:none;	border:none;
border-spacing: 1;	border-spacing: 1px;
padding: 3px;	padding: 3px;
background-color: #FFFFFF;	background-color: #FFFFFF;
font-size: 90%;	font-size: 90%;
}	}

table.LC_tableOfContent{	table.LC_tableOfContent {
border-collapse: collapse;	border-collapse: collapse;
}	}

table.LC_tableBrowseRes a,	table.LC_tableBrowseRes a,
table.LC_tableOfContent a {	table.LC_tableOfContent a {
background-color: transparent;	background-color: transparent;
text-decoration: none;	text-decoration: none;
}

table.LC_tableBrowseRes tr.LC_trOdd,
table.LC_tableOfContent tr.LC_trOdd{
background-color: #EEEEEE;
}	}

table.LC_tableOfContent img {	table.LC_tableOfContent img {
border: none;	border: none;
height: 1.3em;	height: 1.3em;
vertical-align: text-bottom;	vertical-align: text-bottom;
margin-right: 0.3em;	margin-right: 0.3em;
}	}

a#LC_content_toolbar_firsthomework {	a#LC_content_toolbar_firsthomework {
background-image:url(/res/adm/pages/open-first-problem.gif);	background-image:url(/res/adm/pages/open-first-problem.gif);
}	}

a#LC_content_toolbar_launchnav {	a#LC_content_toolbar_launchnav {
background-image:url(/res/adm/pages/start-navigation.gif);	background-image:url(/res/adm/pages/start-navigation.gif);
}	}

a#LC_content_toolbar_closenav {	a#LC_content_toolbar_closenav {
background-image:url(/res/adm/pages/close-navigation.gif);	background-image:url(/res/adm/pages/close-navigation.gif);
}	}

a#LC_content_toolbar_everything {	a#LC_content_toolbar_everything {
background-image:url(/res/adm/pages/show-all.gif);	background-image:url(/res/adm/pages/show-all.gif);
}	}

a#LC_content_toolbar_uncompleted {	a#LC_content_toolbar_uncompleted {
background-image:url(/res/adm/pages/show-incomplete-problems.gif);	background-image:url(/res/adm/pages/show-incomplete-problems.gif);
}	}

#LC_content_toolbar_clearbubbles {	#LC_content_toolbar_clearbubbles {
background-image:url(/res/adm/pages/mark-discussionentries-read.gif);	background-image:url(/res/adm/pages/mark-discussionentries-read.gif);
}	}

a#LC_content_toolbar_changefolder {	a#LC_content_toolbar_changefolder {
background : url(/res/adm/pages/close-all-folders.gif) top center ;	background : url(/res/adm/pages/close-all-folders.gif) top center ;
}	}

a#LC_content_toolbar_changefolder_toggled {	a#LC_content_toolbar_changefolder_toggled {
background-image:url(/res/adm/pages/open-all-folders.gif);	background-image:url(/res/adm/pages/open-all-folders.gif);
}	}

ul#LC_toolbar li a:hover {	ul#LC_toolbar li a:hover {
background-position: bottom center;	background-position: bottom center;
}	}

ul#LC_toolbar {	ul#LC_toolbar {
padding: 0;	padding: 0;
margin: 2px;	margin: 2px;
list-style:none;	list-style:none;
position:relative;	position:relative;
background-color:white;	background-color:white;
}	}

ul#LC_toolbar li {	ul#LC_toolbar li {
border:1px solid white;	border:1px solid white;
padding: 0;	padding: 0;
margin: 0;	margin: 0;
float: left;	float: left;
display:inline;	display:inline;
vertical-align:middle;	vertical-align:middle;
}	}


a.LC_toolbarItem {	a.LC_toolbarItem {
display:block;	display:block;
padding: 0;	padding: 0;
margin: 0;	margin: 0;
height: 32px;	height: 32px;
width: 32px;	width: 32px;
color:white;	color:white;
border: none;	border: none;
background-repeat:no-repeat;	background-repeat:no-repeat;
background-color:transparent;	background-color:transparent;
}	}

ul.LC_functionslist li {	ul.LC_funclist {
float: left;	margin: 0;
	padding: 0.5em 1em 0.5em 0;
	}

	ul.LC_funclist > li:first-child {
	font-weight:bold;
	margin-left:0.8em;
	}

	ul.LC_funclist + ul.LC_funclist {
	/*
	left border as a seperator if we have more than
	one list
	*/
	border-left: 1px solid $sidebg;
	/*
	this hides the left border behind the border of the
	outer box if element is wrapped to the next 'line'
	*/
	margin-left: -1px;
	}

	ul.LC_funclist li {
	display: inline;
white-space: nowrap;	white-space: nowrap;
height: 35px; /* at least as high as heighest list item */	margin: 0 0 0 25px;
margin: 0 15px 15px 10px;	line-height: 150%;
}	}

	.ui-accordion .LC_advanced_toggle {
	float: right;
	font-size: 90%;
	padding: 0px 4px
	}

END	END
}	}
Line 6386 sub xml_begin {	Line 6629 sub xml_begin {
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" '	.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" '
.'xmlns="http://www.w3.org/1999/xhtml">';	.'xmlns="http://www.w3.org/1999/xhtml">';
} else {	} else {
$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>';	$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
	.'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">';
}	}
return $output;	return $output;
}	}
Line 6467 $args - additional optional args support	Line 6711 $args - additional optional args support
skip_phases -> hash ref of	skip_phases -> hash ref of
head -> skip the <html><head> generation	head -> skip the <html><head> generation
body -> skip all <body> generation	body -> skip all <body> generation
no_inline_link -> if true and in remote mode, don't show the	#RC no_inline_link -> if true and in remote mode, don't show the
'Switch To Inline Menu' link	#RC 'Switch To Inline Menu' link
no_auto_mt_title -> prevent &mt()ing the title arg	no_auto_mt_title -> prevent &mt()ing the title arg
inherit_jsmath -> when creating popup window in a page,	inherit_jsmath -> when creating popup window in a page,
should it have jsmath forced on by the	should it have jsmath forced on by the
current page	current page
	bread_crumbs -> Array containing breadcrumbs
	bread_crumbs_components -> if exists show it as headline else show only the breadcrumbs

=back	=back

Line 6531 sub start_page {	Line 6777 sub start_page {
# Don't add anything more if only_body wanted	# Don't add anything more if only_body wanted
return $result if $args->{'only_body'};	return $result if $args->{'only_body'};

	#Breadcrumbs for Construction Space provided by &bodytag.
	if (
	$env{'request.state'} eq 'construct') {
	return $result;
	}

#Breadcrumbs	#Breadcrumbs
if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {	if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
Line 6678 sub simple_error_page {	Line 6930 sub simple_error_page {
my ($add_class) = @_;	my ($add_class) = @_;
$row_count[0]++;	$row_count[0]++;
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
$css_class = (join(' ',$css_class,$add_class));	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
return '<tr class="'.$css_class.'">'."\n";;	return '<tr class="'.$css_class.'">'."\n";;
}	}

sub continue_data_table_row {	sub continue_data_table_row {
my ($add_class) = @_;	my ($add_class) = @_;
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
$css_class = (join(' ',$css_class,$add_class));	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');;
return '<tr class="'.$css_class.'">'."\n";;	return '<tr class="'.$css_class.'">'."\n";;
}	}

Line 6709 sub simple_error_page {	Line 6961 sub simple_error_page {
sub end_data_table_header_row {	sub end_data_table_header_row {
return '</tr>'."\n";;	return '</tr>'."\n";;
}	}

	sub data_table_caption {
	my $caption = shift;
	return "<caption class=\"LC_caption\">$caption</caption>";
	}
}	}

=pod	=pod
Line 6779 sub get_users_function {	Line 7036 sub get_users_function {
if ($env{'request.role'}=~/^(st)/) {	if ($env{'request.role'}=~/^(st)/) {
$function='student';	$function='student';
}	}
if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {	if ($env{'request.role'}=~/^(cc\|co\|in\|ta\|ep)/) {
$function='coordinator';	$function='coordinator';
}	}
if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {	if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {
Line 6850 sub check_user_status {	Line 7107 sub check_user_status {
my $active_chk = 'none';	my $active_chk = 'none';
my $now = time;	my $now = time;
if (@uroles > 0) {	if (@uroles > 0) {
if (($role eq 'cc') \|\| ($sec eq '') \|\| (!defined($sec))) {	if (($role eq 'cc') \|\| ($role eq 'co') \|\| ($sec eq '') \|\| (!defined($sec))) {
$srchstr = '/'.$cdom.'/'.$crs.'_'.$role;	$srchstr = '/'.$cdom.'/'.$crs.'_'.$role;
} else {	} else {
$srchstr = '/'.$cdom.'/'.$crs.'/'.$sec.'_'.$role;	$srchstr = '/'.$cdom.'/'.$crs.'/'.$sec.'_'.$role;
Line 7481 sub user_picker {	Line 7738 sub user_picker {
# loncreateuser::print_user_query_page()	# loncreateuser::print_user_query_page()
# has been completed.	# has been completed.
next if ($option eq 'alc');	next if ($option eq 'alc');
	next if (($option eq 'crs') && ($env{'form.form'} eq 'requestcrs'));
next if ($option eq 'crs' && !$env{'request.course.id'});	next if ($option eq 'crs' && !$env{'request.course.id'});
if ($curr_selected{'srchin'} eq $option) {	if ($curr_selected{'srchin'} eq $option) {
$srchinsel .= '	$srchinsel .= '
Line 7645 $newuserscript	Line 7903 $newuserscript

$new_user_create	$new_user_create

<table>
<tr>
<td>$lt{'doma'}:</td>
<td>$domform</td>
</td>
</tr>
<tr>
<td>$lt{'usr'}:</td>
<td>$srchbysel
$srchtypesel
<input type="text" size="15" name="srchterm" value="$srchterm" />
$srchinsel
</td>
</tr>
</table>
<br />
END_BLOCK	END_BLOCK

	$output .= &Apache::lonhtmlcommon::start_pick_box().
	&Apache::lonhtmlcommon::row_title($lt{'doma'}).
	$domform.
	&Apache::lonhtmlcommon::row_closure().
	&Apache::lonhtmlcommon::row_title($lt{'usr'}).
	$srchbysel.
	$srchtypesel.
	'<input type="text" size="15" name="srchterm" value="'.$srchterm.'" />'.
	$srchinsel.
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::end_pick_box().
	'<br />';
return $output;	return $output;
}	}

Line 8535 sub csv_print_samples {	Line 8789 sub csv_print_samples {
$r->print(&mt('Samples').'<br />'.&start_data_table().	$r->print(&mt('Samples').'<br />'.&start_data_table().
&start_data_table_header_row());	&start_data_table_header_row());
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {	foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {
$r->print('<th>'.&mt('Column [_1]',($sample+1)).'</th>'); }	$r->print('<th>'.&mt('Column [_1]',($sample+1)).'</th>'); }
$r->print(&end_data_table_header_row());	$r->print(&end_data_table_header_row());
foreach my $hash (@$samples) {	foreach my $hash (@$samples) {
$r->print(&start_data_table_row());	$r->print(&start_data_table_row());
Line 8579 sub csv_print_select_table {	Line 8833 sub csv_print_select_table {
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>'.$display.'</td>');

$r->print('<td><select name=f'.$i.	$r->print('<td><select name="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 9233 sub restore_settings {	Line 9487 sub restore_settings {

=item * &build_recipient_list()	=item * &build_recipient_list()

Build recipient lists for four types of e-mail:	Build recipient lists for five types of e-mail:
(a) Error Reports, (b) Package Updates, (c) lonstatus warnings/errors	(a) Error Reports, (b) Package Updates, (c) lonstatus warnings/errors
(d) Help requests, generated by	(d) Help requests, (e) Course requests needing approval, generated by
lonerrorhandler.pm, CHECKRPMS, loncron, and lonsupportreq.pm respectively.	lonerrorhandler.pm, CHECKRPMS, loncron, lonsupportreq.pm and
	loncoursequeueadmin.pm respectively.

Inputs:	Inputs:
defmail (scalar - email address of default recipient),	defmail (scalar - email address of default recipient),
Line 9406 sub extract_categories {	Line 9661 sub extract_categories {
my $trailstr;	my $trailstr;
if ($name eq 'instcode') {	if ($name eq 'instcode') {
$trailstr = &mt('Official courses (with institutional codes)');	$trailstr = &mt('Official courses (with institutional codes)');
	} elsif ($name eq 'communities') {
	$trailstr = &mt('Communities');
} else {	} else {
$trailstr = $name;	$trailstr = $name;
}	}
Line 9518 cathash - reference to hash of categorie	Line 9775 cathash - reference to hash of categorie

currcat - scalar with an & separated list of categories assigned to a course.	currcat - scalar with an & separated list of categories assigned to a course.

	type - scalar contains course type (Course or Community).

Returns: $output (markup to be displayed)	Returns: $output (markup to be displayed)

=cut	=cut

sub assign_categories_table {	sub assign_categories_table {
my ($cathash,$currcat) = @_;	my ($cathash,$currcat,$type) = @_;
my $output;	my $output;
if (ref($cathash) eq 'HASH') {	if (ref($cathash) eq 'HASH') {
my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth);	my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth);
Line 9532 sub assign_categories_table {	Line 9791 sub assign_categories_table {
if (@cats > 0) {	if (@cats > 0) {
my $itemcount = 0;	my $itemcount = 0;
if (ref($cats[0]) eq 'ARRAY') {	if (ref($cats[0]) eq 'ARRAY') {
$output = &Apache::loncommon::start_data_table();
my @currcategories;	my @currcategories;
if ($currcat ne '') {	if ($currcat ne '') {
@currcategories = split('&',$currcat);	@currcategories = split('&',$currcat);
}	}
	my $table;
for (my $i=0; $i<@{$cats[0]}; $i++) {	for (my $i=0; $i<@{$cats[0]}; $i++) {
my $parent = $cats[0][$i];	my $parent = $cats[0][$i];
my $css_class = $itemcount%2?' class="LC_odd_row"':'';
next if ($parent eq 'instcode');	next if ($parent eq 'instcode');
	if ($type eq 'Community') {
	next unless ($parent eq 'communities');
	} else {
	next if ($parent eq 'communities');
	}
	my $css_class = $itemcount%2?' class="LC_odd_row"':'';
my $item = &escape($parent).'::0';	my $item = &escape($parent).'::0';
my $checked = '';	my $checked = '';
if (@currcategories > 0) {	if (@currcategories > 0) {
Line 9548 sub assign_categories_table {	Line 9812 sub assign_categories_table {
$checked = ' checked="checked"';	$checked = ' checked="checked"';
}	}
}	}
$output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.	my $parent_title = $parent;
'<input type="checkbox" name="usecategory" value="'.	if ($parent eq 'communities') {
$item.'"'.$checked.' />'.$parent.'</span>'.	$parent_title = &mt('Communities');
'<input type="hidden" name="catname" value="'.$parent.'" /></td>';	}
	$table .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.
	'<input type="checkbox" name="usecategory" value="'.
	$item.'"'.$checked.' />'.$parent_title.'</span>'.
	'<input type="hidden" name="catname" value="'.$parent.'" /></td>';
my $depth = 1;	my $depth = 1;
push(@path,$parent);	push(@path,$parent);
$output .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);	$table .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);
pop(@path);	pop(@path);
$output .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';	$table .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';
$itemcount ++;	$itemcount ++;
}	}
$output .= &Apache::loncommon::end_data_table();	if ($itemcount) {
	$output = &Apache::loncommon::start_data_table().
	$table.
	&Apache::loncommon::end_data_table();
	}
}	}
}	}
}	}
Line 9804 sub check_clone {	Line 10076 sub check_clone {
my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);	my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);
my $clonemsg;	my $clonemsg;
my $can_clone = 0;	my $can_clone = 0;
	my $lctype = lc($args->{'crstype'});
	if ($lctype ne 'community') {
	$lctype = 'course';
	}
if ($clonehome eq 'no_host') {	if ($clonehome eq 'no_host') {
$clonemsg = &mt('No new course created.').$linefeed.&mt('A new course could not be cloned from the specified original - [_1] - because it is a non-existent course.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});	if ($args->{'crstype'} eq 'Community') {
	$clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a non-existent community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
	} else {
	$clonemsg = &mt('No new course created.').$linefeed.&mt('A new course could not be cloned from the specified original - [_1] - because it is a non-existent course.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
	}
} else {	} else {
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});	my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});
if ($env{'request.role.domain'} eq $args->{'clonedomain'}) {	if ($args->{'crstype'} eq 'Community') {
	if ($clonedesc{'type'} ne 'Community') {
	$clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a course not a community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
	return ($can_clone, $clonemsg, $cloneid, $clonehome);
	}
	}
	if (($env{'request.role.domain'} eq $args->{'clonedomain'}) &&
	(&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) {
$can_clone = 1;	$can_clone = 1;
} else {	} else {
my %clonehash = &Apache::lonnet::get('environment',['cloners'],	my %clonehash = &Apache::lonnet::get('environment',['cloners'],
Line 9820 sub check_clone {	Line 10106 sub check_clone {
} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) {	} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) {
$can_clone = 1;	$can_clone = 1;
} else {	} else {
	my $ccrole = 'cc';
	if ($args->{'crstype'} eq 'Community') {
	$ccrole = 'co';
	}
my %roleshash =	my %roleshash =
&Apache::lonnet::get_my_roles($args->{'ccuname'},	&Apache::lonnet::get_my_roles($args->{'ccuname'},
$args->{'ccdomain'},	$args->{'ccdomain'},
'userroles',['active'],['cc'],	'userroles',['active'],[$ccrole],
[$args->{'clonedomain'}]);	[$args->{'clonedomain'}]);
if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':cc'}) \|\| (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {	if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) \|\| (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {
$can_clone = 1;	$can_clone = 1;
} else {	} elsif (&Apache::lonnet::is_course_owner($args->{'clonedomain'},$args->{'clonecourse'},$args->{'ccuname'},$args->{'ccdomain'})) {
$clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});	$can_clone = 1;
	} else {
	if ($args->{'crstype'} eq 'Community') {
	$clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});
	} else {
	$clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});
	}
}	}
}	}
}	}
Line 9837 sub check_clone {	Line 10133 sub check_clone {
}	}

sub construct_course {	sub construct_course {
my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context) = @_;	my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context,$cnum,$category) = @_;
my $outcome;	my $outcome;
my $linefeed = '<br />'."\n";	my $linefeed = '<br />'."\n";
if ($context eq 'auto') {	if ($context eq 'auto') {
Line 9875 sub construct_course {	Line 10171 sub construct_course {
$args->{'crscode'},	$args->{'crscode'},
$args->{'ccuname'}.':'.	$args->{'ccuname'}.':'.
$args->{'ccdomain'},	$args->{'ccdomain'},
$args->{'crstype'});	$args->{'crstype'},
	$cnum,$context,$category);

# Note: The testing routines depend on this being output; see	# Note: The testing routines depend on this being output; see
# Utils::Course. This needs to at least be output as a comment	# Utils::Course. This needs to at least be output as a comment
# if anyone ever decides to not show this, and Utils::Course::new	# if anyone ever decides to not show this, and Utils::Course::new
# will need to be suitably modified.	# will need to be suitably modified.
$outcome .= &mt('New LON-CAPA [_1] ID: [_2]',$crstype,$$courseid).$linefeed;	$outcome .= &mt('New LON-CAPA [_1] ID: [_2]',$crstype,$$courseid).$linefeed;
	if ($$courseid =~ /^error:/) {
	return (0,$outcome);
	}

#	#
# Check if created correctly	# Check if created correctly
#	#
($$crsudom,$$crsunum)= &LONCAPA::split_courseid($$courseid);	($$crsudom,$$crsunum)= &LONCAPA::split_courseid($$courseid);
my $crsuhome=&Apache::lonnet::homeserver($$crsunum,$$crsudom);	my $crsuhome=&Apache::lonnet::homeserver($$crsunum,$$crsudom);
	if ($crsuhome eq 'no_host') {
	$outcome .= &mt('Course creation failed, unrecognized course home server.').$linefeed;
	return (0,$outcome);
	}
$outcome .= &mt('Created on').': '.$crsuhome.$linefeed;	$outcome .= &mt('Created on').': '.$crsuhome.$linefeed;

#	#
Line 10184 sub group_term {	Line 10489 sub group_term {
my $crstype = &course_type();	my $crstype = &course_type();
my %names = (	my %names = (
'Course' => 'group',	'Course' => 'group',
'Group' => 'team',	'Community' => 'group',
);	);
return $names{$crstype};	return $names{$crstype};
}	}

	sub course_types {
	my @types = ('official','unofficial','community');
	my %typename = (
	official => 'Official course',
	unofficial => 'Unofficial course',
	community => 'Community',
	);
	return (\@types,\%typename);
	}

sub icon {	sub icon {
my ($file)=@_;	my ($file)=@_;
my $curfext = lc((split(/\./,$file))[-1]);	my $curfext = lc((split(/\./,$file))[-1]);
Line 10323 sub init_user_environment {	Line 10638 sub init_user_environment {
my %userenv = &Apache::lonnet::dump('environment',$domain,$username);	my %userenv = &Apache::lonnet::dump('environment',$domain,$username);
my ($tmp) = keys(%userenv);	my ($tmp) = keys(%userenv);
if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {	if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {
# default remote control to off
if ($userenv{'remote'} ne 'on') { $userenv{'remote'} = 'off'; }
} else {	} else {
undef(%userenv);	undef(%userenv);
}	}
if (($userenv{'interface'}) && (!$form->{'interface'})) {	if (($userenv{'interface'}) && (!$form->{'interface'})) {
$form->{'interface'}=$userenv{'interface'};	$form->{'interface'}=$userenv{'interface'};
}	}
$env{'environment.remote'}=$userenv{'remote'};
if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }	if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }

# --------------- Do not trust query string to be put directly into environment	# --------------- Do not trust query string to be put directly into environment
Line 10363 sub init_user_environment {	Line 10675 sub init_user_environment {
$initial_env{"browser.localres"} = $form->{'localres'};	$initial_env{"browser.localres"} = $form->{'localres'};
}	}

if ($public) {
$initial_env{"environment.remote"} = "off";
}
if ($form->{'interface'}) {	if ($form->{'interface'}) {
$form->{'interface'}=~s/\W//gs;	$form->{'interface'}=~s/\W//gs;
$initial_env{"browser.interface"} = $form->{'interface'};	$initial_env{"browser.interface"} = $form->{'interface'};
Line 10377 sub init_user_environment {	Line 10686 sub init_user_environment {
&Apache::lonnet::usertools_access($username,$domain,$tool,'reload');	&Apache::lonnet::usertools_access($username,$domain,$tool,'reload');
}	}

foreach my $crstype ('official','unofficial') {	foreach my $crstype ('official','unofficial','community') {
$userenv{'canrequest.'.$crstype} =	$userenv{'canrequest.'.$crstype} =
&Apache::lonnet::usertools_access($username,$domain,$crstype,	&Apache::lonnet::usertools_access($username,$domain,$crstype,
'reload','requestcourses');	'reload','requestcourses');

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

Removed from v.1.836
changed lines
	Added in v.1.950