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.692.4.30 and 1.821

version 1.692.4.30, 2010/02/25 15:52:23	version 1.821, 2009/05/18 16:29:55
Line 271 BEGIN {	Line 271 BEGIN {
}	}
}	}
&Apache::lonnet::logthis(	&Apache::lonnet::logthis(
"<font color=yellow>INFO: Read file types</font>");	"<span style='color:yellow;'>INFO: Read file types</span>");
$readit=1;	$readit=1;
} # end of unless($readit)	} # end of unless($readit)

Line 407 sub studentbrowser_javascript {	Line 407 sub studentbrowser_javascript {
) { return ''; }	) { return ''; }
return (<<'ENDSTDBRW');	return (<<'ENDSTDBRW');
<script type="text/javascript" language="Javascript">	<script type="text/javascript" language="Javascript">
// <![CDATA[
var stdeditbrowser;	var stdeditbrowser;
function openstdbrowser(formname,uname,udom,roleflag,ignorefilter,courseadvonly) {	function openstdbrowser(formname,uname,udom,roleflag,ignorefilter,courseadvonly) {
var url = '/adm/pickstudent?';	var url = '/adm/pickstudent?';
Line 430 sub studentbrowser_javascript {	Line 429 sub studentbrowser_javascript {
stdeditbrowser = open(url,title,options,'1');	stdeditbrowser = open(url,title,options,'1');
stdeditbrowser.focus();	stdeditbrowser.focus();
}	}
// ]]>
</script>	</script>
ENDSTDBRW	ENDSTDBRW
}	}
Line 452 sub selectstudent_link {	Line 450 sub selectstudent_link {
&mt('Select User').'</a></span>';	&mt('Select User').'</a></span>';
}	}
if ($env{'request.role'}=~/^(au\|dc\|su)/) {	if ($env{'request.role'}=~/^(au\|dc\|su)/) {
$callargs .= ",1";	$callargs .= ",1";
return '<span class="LC_nobreak">'.	return '<span class="LC_nobreak">'.
'<a href="javascript:openstdbrowser('.$callargs.');">'.	'<a href="javascript:openstdbrowser('.$callargs.');">'.
&mt('Select User').'</a></span>';	&mt('Select User').'</a></span>';
Line 462 sub selectstudent_link {	Line 460 sub selectstudent_link {

sub authorbrowser_javascript {	sub authorbrowser_javascript {
return <<"ENDAUTHORBRW";	return <<"ENDAUTHORBRW";
<script type="text/javascript">	<script type="text/javascript" language="JavaScript">
// <![CDATA[
var stdeditbrowser;	var stdeditbrowser;

function openauthorbrowser(formname,udom) {	function openauthorbrowser(formname,udom) {
Line 475 function openauthorbrowser(formname,udom	Line 472 function openauthorbrowser(formname,udom
stdeditbrowser = open(url,title,options,'1');	stdeditbrowser = open(url,title,options,'1');
stdeditbrowser.focus();	stdeditbrowser.focus();
}	}
// ]]>
</script>	</script>
ENDAUTHORBRW	ENDAUTHORBRW
}	}

sub coursebrowser_javascript {	sub coursebrowser_javascript {
my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_;	my ($domainfilter,$sec_element,$formname)=@_;
my $wintitle = 'Course_Browser';	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');
if ($crstype eq 'Community') {	my $output = '
$wintitle = 'Community_Browser';
}
my $id_functions = &javascript_index_functions();
my $output = '
<script type="text/javascript" language="JavaScript">	<script type="text/javascript" language="JavaScript">
// <![CDATA[
var stdeditbrowser;'."\n";	var stdeditbrowser;'."\n";
	$output .= <<"ENDSTDBRW";
$output .= <<"ENDSTDBRW";	function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,crstype) {
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);
var domainfilter = getDomainFromSelectbox(formname,udom);	if (formid > -1) {
	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 517 sub coursebrowser_javascript {	Line 519 sub coursebrowser_javascript {
url += '&setroles='+extra_element;	url += '&setroles='+extra_element;
} else {	} else {
if (formname == 'rules') {	if (formname == 'rules') {
url += '&fixeddom='+extra_element;	url += '&fixeddom='+extra_element;
}	}
}	}
}	}
}	}
if (type != null && type != '') {
url += '&type='+type;
}
if (type_elem != null && type_elem != '') {
url += '&typeelement='+type_elem;
}
if (formname == 'ccrs') {
var ownername = document.forms[formid].ccuname.value;
var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value;
url += '&cloner='+ownername+':'+ownerdom;
}
if (multflag !=null && multflag != '') {	if (multflag !=null && multflag != '') {
url += '&multiple='+multflag;	url += '&multiple='+multflag;
}	}
var title = '$wintitle';	if (crstype == 'Course/Group') {
	if (formname == 'cu') {
	crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value;
	if (crstype == "") {
	alert("$crs_or_grp_alert");
	return;
	}
	}
	}
	if (crstype !=null && crstype != '') {
	url += '&type='+crstype;
	}
	var title = 'Course_Browser';
var options = 'scrollbars=1,resizable=1,menubar=0';	var options = 'scrollbars=1,resizable=1,menubar=0';
options += ',width=700,height=600';	options += ',width=700,height=600';
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;
}

sub javascript_index_functions {
return <<"ENDJS";

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

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

function getDomainFromSelectbox(formname,udom) {	function getFormIdByName(formname) {
var userdom;	for (var i=0;i<document.forms.length;i++) {
var formid = getFormIdByName(formname);	if (document.forms[i].name == formname) {
if (formid > -1) {	return i;
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;
}	}
return userdom;
}

ENDJS	function getIndexByName(formid,item) {
	for (var i=0;i<document.forms[formid].elements.length;i++) {
}	if (document.forms[formid].elements[i].name == item) {
	return i;
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+'&';
}
}
url += 'form=' + formname + '&unameelement='+uname+
'&udomelement='+udom+
'&ulastelement='+ulast+
'&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 -1;
}	}
return;	ENDSTDBRW
}	if ($sec_element ne '') {
	$output .= &setsec_javascript($sec_element,$formname);
$id_functions	}
ENDUSERBRW	$output .= '
	</script>';
	return $output;
}	}


sub setsec_javascript {	sub setsec_javascript {
my ($sec_element,$formname,$role_element) = @_;	my ($sec_element,$formname) = @_;
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 713 function setSect(sectionlist) {	Line 607 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.'","'.$type.'","'.$typeelement.'");'	.'","'.$multflag.'","'.$selecttype.'");'
."'>".$linktext.'</a>'	."'>".&mt('Select Course').'</a>'
.'</span>';	.'</span>';
}	}

Line 782 sub selectauthor_link {	Line 629 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 990 sub linked_select_forms {	Line 829 sub linked_select_forms {
# output the javascript to do the changing	# output the javascript to do the changing
my $result = '';	my $result = '';
$result.='<script type="text/javascript" language="JavaScript">'."\n";	$result.='<script type="text/javascript" language="JavaScript">'."\n";
$result.="// <![CDATA[\n";
$result.="var select2data = new Object();\n";	$result.="var select2data = new Object();\n";
$" = '","';	$" = '","';
my $debug = '';	my $debug = '';
Line 1036 function select1_changed() {	Line 874 function select1_changed() {
}	}
}	}
}	}
// ]]>
</script>	</script>
END	END
# output the initial values for the selection lists	# output the initial values for the selection lists
Line 1098 sub help_open_topic {	Line 935 sub help_open_topic {
my ($topic, $text, $stayOnPage, $width, $height) = @_;	my ($topic, $text, $stayOnPage, $width, $height) = @_;
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'browser.interface'} eq 'textual') {
$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);
my $filename = $topic;	my $filename = $topic;
Line 1118 sub help_open_topic {	Line 952 sub help_open_topic {
}	}

# Add the text	# Add the text
if ($text ne "") {	if ($text ne "") {
$template .=	$template.='<span class="LC_help_open_topic">'
"<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>".	.'<a target="_top" href="'.$link.'">'
"<td bgcolor='#5555FF'><span class=\"LC_nobreak\"><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";	.$text.'</a>';
}	}

# Add the graphic	# (Always) Add the graphic
my $title = &mt('Online Help');	my $title = &mt('Online Help');
my $helpicon=&lonhttpdurl("/adm/help/help.png");	my $helpicon=&lonhttpdurl("/adm/help/help.png");
$template .= '<a target="_top" href="'.$link.'" title="'.$title.'">'.	$template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'
'<img src="'.$helpicon.'" border="0" alt="'.&mt('Help: [_1]',$topic).	.'<img src="'.$helpicon.'" border="0"'
'" title="'.$title.'" /></a>';	.' alt="'.&mt('Help: [_1]',$topic).'"'
if ($text ne '') {	.' title="'.$title.'"'
$template.='</span></td></tr></table>';	.' /></a>';
	if ($text ne "") {
	$template.='</span>';
}	}
return $template;	return $template;

Line 1144 sub helpLatexCheatsheet {	Line 980 sub helpLatexCheatsheet {
my $out;	my $out;
my $addOther = '';	my $addOther = '';
if ($topic) {	if ($topic) {
$addOther = &Apache::loncommon::help_open_topic($topic,$text,	$addOther = '<span>'.&Apache::loncommon::help_open_topic($topic,&mt($text),
undef, undef, 600) .	undef, undef, 600).
'</td><td>';	'</span> ';
}	}
$out = '<table><tr><td>'.	$out = '<span>' # Start cheatsheet
$addOther .	.$addOther
&Apache::loncommon::help_open_topic("Greek_Symbols",&mt('Greek Symbols'),	.'<span>'
undef,undef,600).	.&Apache::loncommon::help_open_topic('Greek_Symbols',&mt('Greek Symbols'),
'</td><td>'.	undef,undef,600)
&Apache::loncommon::help_open_topic("Other_Symbols",&mt('Other Symbols'),	.'</span> <span>'
undef,undef,600).	.&Apache::loncommon::help_open_topic('Other_Symbols',&mt('Other Symbols'),
'</td>';	undef,undef,600)
	.'</span>';
unless ($not_author) {	unless ($not_author) {
$out .= '<td>'.	$out .= ' <span>'
&Apache::loncommon::help_open_topic("Authoring_Output_Tags",&mt('Output Tags'),	.&Apache::loncommon::help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),
undef,undef,600).	undef,undef,600)
'</td>';	.'</span>';
}	}
$out .= '</tr></table>';	$out .= '</span>'; # End cheatsheet
return $out;	return $out;
}	}

Line 1170 sub general_help {	Line 1007 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\|co)/) {	} elsif ($env{'request.role'}=~/^cc/) {
$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 1190 sub update_help_link {	Line 1027 sub update_help_link {
my $banner_link = "/adm/helpmenu?page=banner&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp&stayonpage=$stayOnPage";	my $banner_link = "/adm/helpmenu?page=banner&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp&stayonpage=$stayOnPage";
my $output .= <<"ENDOUTPUT";	my $output .= <<"ENDOUTPUT";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[
banner_link = '$banner_link';	banner_link = '$banner_link';
// ]]>
</script>	</script>
ENDOUTPUT	ENDOUTPUT
return $output;	return $output;
Line 1205 sub help_open_menu {	Line 1040 sub help_open_menu {
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 0 if (not defined $stayOnPage);
# only use pop-up help (stayOnPage == 0)	# only use pop-up help (stayOnPage == 0)
# if environment.remote is on (using remote control UI)	# if environment.remote is on (using remote control UI)
if ($env{'browser.interface'} eq 'textual' \|\|	if ($env{'environment.remote'} eq 'off' ) {
$env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}	}
my $output;	my $output;
Line 1230 sub top_nav_help {	Line 1064 sub top_nav_help {
my ($text) = @_;	my ($text) = @_;
$text = &mt($text);	$text = &mt($text);
my $stay_on_page =	my $stay_on_page =
($env{'browser.interface'} eq 'textual' \|\|	($env{'environment.remote'} eq 'off' );
$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 1248 sub help_menu_js {	Line 1081 sub help_menu_js {
my ($text) = @_;	my ($text) = @_;

my $stayOnPage =	my $stayOnPage =
($env{'browser.interface'} eq 'textual' \|\|	($env{'environment.remote'} eq 'off' );
$env{'environment.remote'} eq 'off' );

my $width = 620;	my $width = 620;
my $height = 600;	my $height = 600;
Line 1269 sub help_menu_js {	Line 1101 sub help_menu_js {

my $template .= <<"ENDTEMPLATE";	my $template .= <<"ENDTEMPLATE";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[
// <!-- BEGIN LON-CAPA Internal	// <!-- BEGIN LON-CAPA Internal
	// <![CDATA[
var banner_link = '';	var banner_link = '';
function helpMenu(target) {	function helpMenu(target) {
var caller = this;	var caller = this;
Line 1295 function writeHelp(caller) {	Line 1127 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 1308 sub help_open_bug {	Line 1140 sub help_open_bug {
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);	$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'browser.interface'} eq 'textual' \|\|	if ($env{'environment.remote'} eq 'off' ) {
$env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}	}
$width = 600 if (not defined $width);	$width = 600 if (not defined $width);
Line 1333 sub help_open_bug {	Line 1164 sub help_open_bug {
{	{
$template .=	$template .=
"<table bgcolor='#AA3333' cellspacing='1' cellpadding='1' border='0'><tr>".	"<table bgcolor='#AA3333' cellspacing='1' cellpadding='1' border='0'><tr>".
"<td bgcolor='#FF5555'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";	"<td bgcolor='#FF5555'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF;font-size:10pt;\">$text</span></a>";
}	}

# Add the graphic	# Add the graphic
Line 1353 sub help_open_faq {	Line 1184 sub help_open_faq {
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);	$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'browser.interface'} eq 'textual' \|\|	if ($env{'environment.remote'} eq 'off' ) {
$env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}	}
$width = 350 if (not defined $width);	$width = 350 if (not defined $width);
Line 1378 sub help_open_faq {	Line 1208 sub help_open_faq {
{	{
$template .=	$template .=
"<table bgcolor='#337733' cellspacing='1' cellpadding='1' border='0'><tr>".	"<table bgcolor='#337733' cellspacing='1' cellpadding='1' border='0'><tr>".
"<td bgcolor='#448844'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";	"<td bgcolor='#448844'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF; font-size:10pt;\">$text</span></a>";
}	}

# Add the graphic	# Add the graphic
Line 1564 sub resize_textarea_js {	Line 1394 sub resize_textarea_js {
my $geometry = &viewport_geometry_js();	my $geometry = &viewport_geometry_js();
return <<"RESIZE";	return <<"RESIZE";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[
$geometry	$geometry

function getX(element) {	function getX(element) {
Line 1603 function resize_textarea(textarea_id,bot	Line 1432 function resize_textarea(textarea_id,bot
}	}
textarea.style.height=new_height+'px';	textarea.style.height=new_height+'px';
}	}
// ]]>
</script>	</script>
RESIZE	RESIZE

Line 1882 sub select_form {	Line 1710 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" ' : '').
">".$hash{$key}."</option>\n";	">".&mt($hash{$key})."</option>\n";
}	}
$selectform.="</select>";	$selectform.="</select>";
return $selectform;	return $selectform;
Line 1947 sub select_level_form {	Line 1775 sub select_level_form {

=pod	=pod

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

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 1958 selected");	Line 1786 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.

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.	If the $autosubmit flag is set, the form containing the domain selector will be auto-submitted by an onchange action.

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,$onchange,$incdoms) = @_;	my ($defdom,$name,$includeempty,$showdomdesc,$autosubmit) = @_;
if ($onchange) {	my $onchange;
$onchange = ' onchange="'.$onchange.'"';	if ($autosubmit) {
}	$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 2477 sub authform_internal{	Line 2299 sub authform_internal{
$result = &mt	$result = &mt
('[_1] Internally authenticated (with initial password [_2])',	('[_1] Internally authenticated (with initial password [_2])',
'<label>'.$authtype,'</label>'.$autharg);	'<label>'.$authtype,'</label>'.$autharg);
$result.="<label><input type=\"checkbox\" name=\"visible\" onclick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';	$result.="<label><input type=\"checkbox\" name=\"visible\" onClick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';
return $result;	return $result;
}	}

Line 2991 sub screenname {	Line 2813 sub screenname {
return $names{'screenname'};	return $names{'screenname'};
}	}


# ------------------------------------------------------------- Confirm Wrapper	# ------------------------------------------------------------- Confirm Wrapper
=pod	=pod

Line 3021 sub messagewrapper {	Line 2844 sub messagewrapper {
'&subject='.&escape($subject).'&text='.&escape($text).'" '.	'&subject='.&escape($subject).'&text='.&escape($text).'" '.
'title="'.&mt('Send message').'">'.$link.'</a>';	'title="'.&mt('Send message').'">'.$link.'</a>';
}	}

# --------------------------------------------------------------- Notes Wrapper	# --------------------------------------------------------------- Notes Wrapper

sub noteswrapper {	sub noteswrapper {
Line 3028 sub noteswrapper {	Line 2852 sub noteswrapper {
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

sub aboutmewrapper {	sub aboutmewrapper {
Line 3041 sub aboutmewrapper {	Line 2866 sub aboutmewrapper {

# ------------------------------------------------------------ Syllabus Wrapper	# ------------------------------------------------------------ Syllabus Wrapper


sub syllabuswrapper {	sub syllabuswrapper {
my ($linktext,$coursedir,$domain,$fontcolor)=@_;	my ($linktext,$coursedir,$domain)=@_;
if ($fontcolor) {
$linktext='<font color="'.$fontcolor.'">'.$linktext.'</font>';
}
return qq{<a href="/public/$domain/$coursedir/syllabus">$linktext</a>};	return qq{<a href="/public/$domain/$coursedir/syllabus">$linktext</a>};
}	}

	# -----------------------------------------------------------------------------

sub track_student_link {	sub track_student_link {
my ($linktext,$sname,$sdom,$target,$start,$only_body) = @_;	my ($linktext,$sname,$sdom,$target,$start) = @_;
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 3065 sub track_student_link {	Line 2888 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 3352 sub user_lang {	Line 3174 sub user_lang {
return $user_lh;	return $user_lh;
}	}


###############################################################	###############################################################
## Student Answer Attempts ##	## Student Answer Attempts ##
###############################################################	###############################################################
Line 3741 sub findallcourses {	Line 3564 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 4068 sub blocking_status {	Line 3890 sub blocking_status {
&Apache::lonnet::coursedescription($course);	&Apache::lonnet::coursedescription($course);
$coursedesc = $courseinfo{'description'};	$coursedesc = $courseinfo{'description'};
}	}
$category = "Group portfolio files in the course '$coursedesc'";	$category = "Group portfolio in the course '$coursedesc'";
} else {	} else {
$category = 'Portfolio files belonging to ';	$category = 'Portfolio files belonging to ';
if ($env{'user.name'} eq 'public' &&	if ($env{'user.name'} eq 'public' &&
Line 4171 sub determinedomain {	Line 3993 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::default_login_domain();	$domain = $Apache::lonnet::perlvar{'lonDefDomain'};
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 4202 sub get_domainconf {	Line 4024 sub get_domainconf {
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}})) {	foreach my $img (keys(%{$domconfig{'login'}{$key}})) {
$designhash{$udom.'.login.'.$key.'_'.$img} =	$designhash{$udom.'.login.'.$key.'_'.$img} =
$domconfig{'login'}{$key}{$img};	$domconfig{'login'}{$key}{$img};
}	}
} else {	} else {
Line 4322 Returns: value of designparamter $which	Line 4144 Returns: value of designparamter $which
##############################################	##############################################
sub designparm {	sub designparm {
my ($which,$domain)=@_;	my ($which,$domain)=@_;
if ($env{'browser.blackwhite'} eq 'on') {
if ($which=~/\.(font\|alink\|vlink\|link\|textcol)$/) {
return '#000000';
}
if ($which=~/\.(pgbg\|sidebg\|bgcol)$/) {
return '#FFFFFF';
}
if ($which=~/\.tabbg$/) {
return '#CCCCCC';
}
}
if (exists($env{'environment.color.'.$which})) {	if (exists($env{'environment.color.'.$which})) {
return $env{'environment.color.'.$which};	return $env{'environment.color.'.$which};
}	}
$domain=&determinedomain($domain);	$domain=&determinedomain($domain);
my %domdesign = &get_domainconf($domain);	my %domdesign = &get_domainconf($domain);
my $output;	my $output;
if ($domdesign{$domain.'.'.$which} ne '') {	if ($domdesign{$domain.'.'.$which} ne '') {
$output = $domdesign{$domain.'.'.$which};	$output = $domdesign{$domain.'.'.$which};
} else {	} else {
$output = $defaultdesign{$which};	$output = $defaultdesign{$which};
}	}
if (($which =~ /^(student\|coordinator\|author\|admin)\.img$/) \|\|	if (($which =~ /^(student\|coordinator\|author\|admin)\.img$/) \|\|
($which =~ /login\.(img\|logo\|domlogo\|login)/)) {	($which =~ /login\.(img\|logo\|domlogo\|login)/)) {
if ($output =~ m{^/(adm\|res)/}) {	if ($output =~ m{^/(adm\|res)/}) {
if ($output =~ m{^/res/}) {	if ($output =~ m{^/res/}) {
my $local_name = &Apache::lonnet::filelocation('',$output);	my $local_name = &Apache::lonnet::filelocation('',$output);
&Apache::lonnet::repcopy($local_name);	&Apache::lonnet::repcopy($local_name);
}	}
$output = &lonhttpdurl($output);	$output = &lonhttpdurl($output);
}	}
}	}
Line 4393 Inputs:	Line 4204 Inputs:
in the title box that appears, this text	in the title box that appears, this text
is not auto translated like the $title is	is not auto translated like the $title is

=item * $notopbar, if true, keep the 'what is this' info but remove the	=item * $no_nav_bar, if true, keep the 'what is this' info but remove the
navigational links	navigational links

=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 * $notitle, if true keep the nav controls, but remove the title bar

=item * $no_inline_link, if true and in remote mode, don't show the	=item * $no_inline_link, if true and in remote mode, don't show the
'Switch To Inline Menu' link	'Switch To Inline Menu' link

Line 4420 other decorations will be returned.	Line 4229 other decorations will be returned.

sub bodytag {	sub bodytag {
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,	my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,
$notopbar,$bgcolor,$notitle,$no_inline_link,$args)=@_;	$no_nav_bar,$bgcolor,$no_inline_link,$args)=@_;

if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }	if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }

Line 4465 sub bodytag {	Line 4274 sub bodytag {

if ($bodyonly) {	if ($bodyonly) {
return $bodytag;	return $bodytag;
} elsif ($env{'browser.interface'} eq 'textual') {	}
# Accessibility

$bodytag.=&Apache::lonmenu::menubuttons($forcereg,$forcereg);
if (!$notitle) {
$bodytag.='<h1>LON-CAPA: '.$title.'</h1>';
}
return $bodytag;
}

my $name = &plainname($env{'user.name'},$env{'user.domain'});	my $name = &plainname($env{'user.name'},$env{'user.domain'});
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {	if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
Line 4497 $realm	Line 4298 $realm
</td>	</td>
ENDROLE	ENDROLE

my $titleinfo = '<span class="LC_title_bar_title">'.$title.'</span>';	my $titleinfo = '<h1>'.$title.'</h1>';
if ($customtitle) {	if ($customtitle) {
$titleinfo = $customtitle;	$titleinfo = $customtitle;
}	}
Line 4540 ENDROLE	Line 4341 ENDROLE
.'<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>'	.'" target="_top"><tt><b>'
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />"	.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<span class=\"LC_fontsize_big\">$lastitem</span></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();
}	}

my $titletable;	my $titletable = '<table id="LC_title_bar">'
if (!$notitle) {	."<tr><td> $titleinfo $dc_info</td>".$roleinfo
$titletable =	.'</tr></table>';
'<table id="LC_title_bar">'.
"<tr><td> $titleinfo $dc_info</td>".$roleinfo.	if ($no_nav_bar) {
'</tr></table>';
}
if ($notopbar) {
$bodytag .= $titletable;	$bodytag .= $titletable;
} else {	} else {
	$bodytag .= qq\|<div id="LC_nav_bar">$name ($role)<br />
	<em>$realm</em> $dc_info</div>\|;
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg,	$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg,
$titletable);	$titletable);
Line 4581 ENDROLE	Line 4381 ENDROLE
my $menu= ($no_inline_link?''	my $menu= ($no_inline_link?''
:'<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>');	:'<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>');
#	#
if ($notitle) {
return $bodytag;
}
return(<<ENDBODY);	return(<<ENDBODY);
$bodytag	$bodytag
<table id="LC_title_bar" class="LC_with_remote">	<table id="LC_title_bar" class="LC_with_remote">
<tr><td class="LC_title_bar_role_logo">$upperleft</td>	<tr><td>$upperleft</td>
<td class="LC_title_bar_domain_logo">$messages </td>	<td>$messages </td>
</tr>	</tr>
<tr><td>$titleinfo $dc_info $menu</td>	<tr><td>$titleinfo $dc_info $menu</td>
$roleinfo	$roleinfo
Line 4636 sub make_attr_string {	Line 4433 sub make_attr_string {
$attr_ref->{'style'}=$style.'; font-size: x-large;';	$attr_ref->{'style'}=$style.'; font-size: x-large;';
}	}

if ($env{'browser.blackwhite'} eq 'on') {
delete($attr_ref->{'font'});
delete($attr_ref->{'link'});
delete($attr_ref->{'alink'});
delete($attr_ref->{'vlink'});
delete($attr_ref->{'bgcolor'});
delete($attr_ref->{'background'});
}

my $attr_string;	my $attr_string;
foreach my $attr (keys(%$attr_ref)) {	foreach my $attr (keys(%$attr_ref)) {
$attr_string .= " $attr=\"".$attr_ref->{$attr}.'" ';	$attr_string .= " $attr=\"".$attr_ref->{$attr}.'" ';
Line 4705 sub standard_css {	Line 4493 sub standard_css {
my $img = &designparm($function.'.img', $domain);	my $img = &designparm($function.'.img', $domain);
my $tabbg = &designparm($function.'.tabbg', $domain);	my $tabbg = &designparm($function.'.tabbg', $domain);
my $font = &designparm($function.'.font', $domain);	my $font = &designparm($function.'.font', $domain);
	my $fontmenu = &designparm($function.'.fontmenu', $domain);
	#second colour for later usage
my $sidebg = &designparm($function.'.sidebg',$domain);	my $sidebg = &designparm($function.'.sidebg',$domain);
my $pgbg_or_bgcolor =	my $pgbg_or_bgcolor =
$bgcolor \|\|	$bgcolor \|\|
Line 4714 sub standard_css {	Line 4504 sub standard_css {
my $vlink = &designparm($function.'.vlink', $domain);	my $vlink = &designparm($function.'.vlink', $domain);
my $link = &designparm($function.'.link', $domain);	my $link = &designparm($function.'.link', $domain);

	my $loginbg = &designparm('login.sidebg',$domain);
	my $bgcol = &designparm('login.bgcol',$domain);
	my $textcol = &designparm('login.textcol',$domain);

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 = $tabbg;
my $data_table_light = '#FAFAFA';	my $data_table_light = '#EEEEEE';
my $data_table_dark = '#F0F0F0';	my $data_table_dark = '#DDDDDD';
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 4731 sub standard_css {	Line 4525 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'
Line 4739 sub standard_css {	Line 4533 sub standard_css {


return <<END;	return <<END;
h1, h2, h3, th { font-family: $sans }	body {
a:focus { color: red; background: yellow }	font-family: $sans;
	line-height:130%;
	font-size:0.83em;
	color:$font;
	}

hr {	a:link, a:visited {
clear: both;	font-size:100%;
color: $tabbg;
background-color: $tabbg;
height: 3px;
border: none;
}	}

table.thinborder,	a:focus {
	color: red;
	background: yellow
	}

table.thinborder tr th {	form, .inline {
border-style: solid;	display: inline;
border-width: 1px;
background: $tabbg;
}	}
table.thinborder tr td {
border-style: solid;	.LC_right {
border-width: 1px	text-align:right;
	}

	.LC_middle {
	vertical-align:middle;
	}

	/* just for tests */
	.LC_400Box {width:400px; }
	/* end */

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

	.LC_fileicon {
	border: none;
	height: 1.3em;
	vertical-align: text-bottom;
	margin-right: 0.3em;
	text-decoration:none;
}	}

form, .inline { display: inline; }
.center { text-align: center; }
.LC_filename {font-family: $mono; white-space:pre;}
.LC_error {	.LC_error {
color: red;	color: red;
font-size: larger;	font-size: larger;
}	}

.LC_warning,	.LC_warning,
.LC_diff_removed {	.LC_diff_removed {
color: red;	color: red;
Line 4794 div.LC_confirm_box .LC_success img {	Line 4608 div.LC_confirm_box .LC_success img {

.LC_icon {	.LC_icon {
border: none;	border: none;
	vertical-align: middle;
}	}
.LC_indexer_icon {
border: 0;
height: 22px;
}
.LC_docs_spacer {	.LC_docs_spacer {
width: 25px;	width: 25px;
height: 1px;	height: 1px;
Line 4817 div.LC_confirm_box .LC_success img {	Line 4629 div.LC_confirm_box .LC_success img {

.LC_disc_action_links_bar {	.LC_disc_action_links_bar {
background: $tabbg;	background: $tabbg;
	font-family: $sans;
border: none;	border: none;
margin: 4px;	margin: 4px;
}	}
Line 4846 table.LC_pastsubmission {	Line 4659 table.LC_pastsubmission {
margin: 2px;	margin: 2px;
}	}

table#LC_top_nav, table#LC_menubuttons,table#LC_nav_location {	table#LC_top_nav,
	table#LC_menubuttons,
	table#LC_nav_location {
width: 100%;	width: 100%;
background: $pgbg;	background: $pgbg;
border: 2px;	border: 2px;
Line 4854 table#LC_top_nav, table#LC_menubuttons,t	Line 4669 table#LC_top_nav, table#LC_menubuttons,t
padding: 0;	padding: 0;
}	}

table#LC_title_bar, table.LC_breadcrumbs,	table#LC_title_bar a {
	color: $fontmenu;
	}

	table#LC_title_bar {
	clear: both;
	/display: none;/
	}

	table#LC_title_bar,
	table.LC_breadcrumbs,
table#LC_title_bar.LC_with_remote {	table#LC_title_bar.LC_with_remote {
width: 100%;	width: 100%;
border-color: $pgbg;	border-color: $pgbg;
border-style: solid;	border-style: solid;
border-width: $border;	border-width: $border;

background: $pgbg;	background: $pgbg;
	color: $fontmenu;
font-family: $sans;	font-family: $sans;
border-collapse: collapse;	border-collapse: collapse;
padding: 0;	padding: 0;
	margin: 0;
}	}

table.LC_docs_path {	table.LC_docs_path {
Line 4879 table.LC_docs_path {	Line 4705 table.LC_docs_path {
table#LC_title_bar td {	table#LC_title_bar td {
background: $tabbg;	background: $tabbg;
}	}
table#LC_title_bar td.LC_title_bar_who {
	table#LC_title_bar .LC_title_bar_who {
background: $tabbg;	background: $tabbg;
color: $font;	color: $fontmenu;
font: small $sans;	font: small $sans;
text-align: right;	text-align: right;
	margin: 0;
}	}
span.LC_metadata {
font-family: $sans;	table#LC_title_bar div.LC_title_bar_name {
}	margin: 0;
span.LC_title_bar_title {
font: bold x-large $sans;
}
table#LC_title_bar td.LC_title_bar_domain_logo {
background: $sidebg;
text-align: right;
padding: 0;
}	}
table#LC_title_bar td.LC_title_bar_role_logo {
background: $sidebg;	table#LC_title_bar div.LC_title_bar_role {
padding: 0;	margin: 0;
}	}

table#LC_menubuttons_mainmenu {	table#LC_title_bar div.LC_title_bar_realm {
width: 100%;
border: 0;
border-spacing: 1px;
padding: 0 1px;
margin: 0;	margin: 0;
border-collapse: separate;
}	}
table#LC_menubuttons img, table#LC_menubuttons_mainmenu img {
	span.LC_metadata {
	font-family: $sans;
	}

	table#LC_menubuttons img{
border: none;	border: none;
}	}

table#LC_top_nav td {	table#LC_top_nav td {
background: $tabbg;	background: $tabbg;
border: none;	border: none;
font-size: small;	font-size: small;
	vertical-align:top;
	padding:2px 5px 2px 5px;
}	}
table#LC_top_nav td a, div#LC_top_nav a {
	table#LC_top_nav td a,
	div#LC_top_nav a {
color: $font;	color: $font;
font-family: $sans;	font-family: $sans;
}	}

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

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

table#LC_top_nav td.LC_top_nav_exit,	table#LC_top_nav td.LC_top_nav_exit,
table#LC_top_nav td.LC_top_nav_help {	table#LC_top_nav td.LC_top_nav_help {
width: 2.0em;	width: 2.0em;
}	}

table#LC_top_nav td.LC_top_nav_login {	table#LC_top_nav td.LC_top_nav_login {
width: 4.0em;	width: 4.0em;
text-align: center;	text-align: center;
}	}
table.LC_breadcrumbs td, table.LC_docs_path td {
	table.LC_breadcrumbs td,
	table.LC_docs_path td {
background: $tabbg;	background: $tabbg;
color: $font;	color: $fontmenu;
font-family: $sans;	font-family: $sans;
font-size: smaller;	font-size: smaller;
}	}

table.LC_breadcrumbs td.LC_breadcrumbs_component,	table.LC_breadcrumbs td.LC_breadcrumbs_component,
table.LC_docs_path td.LC_docs_path_component {	table.LC_docs_path td.LC_docs_path_component {
background: $tabbg;	background: $tabbg;
color: $font;	color: $fontmenu;
font-family: $sans;	font-family: $sans;
font-size: larger;	font-size: larger;
text-align: right;	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 {	table#LC_mainmenu td.LC_mainmenu_column {
vertical-align: top;	vertical-align: top;
}	}

	.LC_fontsize_small {
	font-size: 70%;
	}

	#LC_head_subbox {
	clear:both;
	background: $sidebg;
	border-bottom: 1px solid #999999;
	height: 32px;
	line-height: 32px;
	margin: 0 0 10px;
	padding: 0;
	}

	.LC_fontsize_medium {
	font-size: 85%;
	}

	.LC_fontsize_large {
	font-size: 120%;
	}

.LC_menubuttons_inline_text {	.LC_menubuttons_inline_text {
color: $font;	color: $font;
font-family: $sans;	font-family: $sans;
font-size: smaller;	font-size: 90%;
	padding-left:3px;
}	}

.LC_menubuttons_link {	.LC_menubuttons_link {
text-decoration: none;	text-decoration: none;
}	}
/2008--9-5: new menu style sheet.Changed category/
.LC_menubuttons_category {	.LC_menubuttons_category {
color: $font;	color: $font;
background: $pgbg;	background: $pgbg;
Line 4979 table#LC_mainmenu td.LC_mainmenu_column	Line 4837 table#LC_mainmenu td.LC_mainmenu_column
}	}

td.LC_menubuttons_text {	td.LC_menubuttons_text {
width: 90%;	color: $font;
color: $font;
font-family: $sans;
}

td.LC_menubuttons_img {
}	}

.LC_current_location {	.LC_current_location {
font-family: $sans;	font-family: $sans;
background: $tabbg;	background: $tabbg;
}	}

.LC_new_mail {	.LC_new_mail {
font-family: $sans;	font-family: $sans;
background: $tabbg;	background: $tabbg;
font-weight: bold;	font-weight: bold;
}	}

.LC_dropadd_labeltext {
font-family: $sans;
text-align: right;
}

.LC_preferences_labeltext {	.LC_preferences_labeltext {
font-family: $sans;	font-family: $sans;
text-align: right;	text-align: right;
}	}

.LC_roleslog_note {	.LC_roleslog_note {
font-size: smaller;	font-size: small;
}	}

.LC_mail_functions {	.LC_mail_functions {
font-weight: bold;	font-weight: bold;
}	}

table.LC_aboutme_port {	table.LC_data_table,
border: none;	table.LC_mail_list {
border-collapse: collapse;
border-spacing: 0;
}
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;
background: $pgbg;	background: $pgbg;
}	}

.LC_data_table_dense {	.LC_data_table_dense {
font-size: small;	font-size: small;
}	}

table.LC_nested_outer {	table.LC_nested_outer {
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: collapse;	border-collapse: collapse;
border-spacing: 0;	border-spacing: 0;
width: 100%;	width: 100%;
}	}
table.LC_innerpickbox,
table.LC_nested {	table.LC_nested {
border: none;	border: none;
border-collapse: collapse;	border-collapse: collapse;
border-spacing: 0;	border-spacing: 0;
width: 100%;	width: 100%;
}	}
table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th,
table.LC_prior_tries tr th,	table.LC_data_table tr th,
table.LC_innerpickbox tr th {	table.LC_calendar tr th,
	table.LC_mail_list tr th,
	table.LC_prior_tries tr th {
font-weight: bold;	font-weight: bold;
background-color: $data_table_head;	background-color: $data_table_head;
font-size: smaller;	color:$fontmenu;
}	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_pick_box tr > td.LC_odd_row,	table.LC_data_table tr.LC_odd_row > td,
table.LC_aboutme_port tr td {	table.LC_pick_box tr > td.LC_odd_row {
background-color: $data_table_light;	background-color: $data_table_light;
padding: 2px;	padding: 2px;
}	}

table.LC_data_table tr.LC_even_row > td,	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 {
table.LC_aboutme_port tr.LC_even_row td {
background-color: $data_table_dark;	background-color: $data_table_dark;
padding: 2px;	padding: 2px;
}	}

table.LC_data_table tr.LC_data_table_highlight td {	table.LC_data_table tr.LC_data_table_highlight td {
background-color: $data_table_darker;	background-color: $data_table_darker;
}	}

table.LC_data_table tr td.LC_leftcol_header {	table.LC_data_table tr td.LC_leftcol_header {
background-color: $data_table_head;	background-color: $data_table_head;
font-weight: bold;	font-weight: bold;
}	}

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;	background-color: #FFFFFF;
Line 5085 table.LC_nested tr.LC_empty_row td {	Line 4935 table.LC_nested tr.LC_empty_row td {
text-align: center;	text-align: center;
padding: 8px;	padding: 8px;
}	}

table.LC_nested tr.LC_empty_row td {	table.LC_nested tr.LC_empty_row td {
padding: 4ex	padding: 4ex
}	}

table.LC_nested_outer tr th {	table.LC_nested_outer tr th {
font-weight: bold;	font-weight: bold;
	color:$fontmenu;
background-color: $data_table_head;	background-color: $data_table_head;
font-size: smaller;	font-size: small;
border-bottom: 1px solid #000000;	border-bottom: 1px solid #000000;
}	}

table.LC_nested_outer tr td.LC_subheader {	table.LC_nested_outer tr td.LC_subheader {
background-color: $data_table_head;	background-color: $data_table_head;
font-weight: bold;	font-weight: bold;
Line 5101 table.LC_nested_outer tr td.LC_subheader	Line 4955 table.LC_nested_outer tr td.LC_subheader
border-bottom: 1px solid #000000;	border-bottom: 1px solid #000000;
text-align: right;	text-align: right;
}	}

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

table.LC_nested tr.LC_info_row td.LC_left_item,	table.LC_nested tr.LC_info_row td.LC_left_item,
table.LC_nested_outer tr th.LC_left_item {	table.LC_nested_outer tr th.LC_left_item {
text-align: left;	text-align: left;
}	}

table.LC_nested td {	table.LC_nested td {
background-color: #FFFFFF;	background-color: #FFFFFF;
font-size: small;	font-size: small;
}	}

table.LC_nested_outer tr th.LC_right_item,	table.LC_nested_outer tr th.LC_right_item,
table.LC_nested tr.LC_info_row td.LC_right_item,	table.LC_nested tr.LC_info_row td.LC_right_item,
table.LC_nested tr.LC_odd_row td.LC_right_item,	table.LC_nested tr.LC_odd_row td.LC_right_item,
Line 5130 table.LC_createuser {	Line 4988 table.LC_createuser {
}	}

table.LC_createuser tr.LC_section_row td {	table.LC_createuser tr.LC_section_row td {
font-size: smaller;	font-size: small;
}	}

table.LC_createuser tr.LC_info_row td {	table.LC_createuser tr.LC_info_row td {
Line 5143 table.LC_calendar {	Line 5001 table.LC_calendar {
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: collapse;	border-collapse: collapse;
}	}

table.LC_calendar_pickdate {	table.LC_calendar_pickdate {
font-size: xx-small;	font-size: xx-small;
}	}

table.LC_calendar tr td {	table.LC_calendar tr td {
border: 1px solid #000000;	border: 1px solid #000000;
vertical-align: top;	vertical-align: top;
}	}

table.LC_calendar tr td.LC_calendar_day_empty {	table.LC_calendar tr td.LC_calendar_day_empty {
background-color: $data_table_dark;	background-color: $data_table_dark;
}	}

table.LC_calendar tr td.LC_calendar_day_current {	table.LC_calendar tr td.LC_calendar_day_current {
background-color: $data_table_highlight;	background-color: $data_table_highlight;
}	}
Line 5160 table.LC_calendar tr td.LC_calendar_day_	Line 5022 table.LC_calendar tr td.LC_calendar_day_
table.LC_mail_list tr.LC_mail_new {	table.LC_mail_list tr.LC_mail_new {
background-color: $mail_new;	background-color: $mail_new;
}	}

table.LC_mail_list tr.LC_mail_new:hover {	table.LC_mail_list 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_mail_list tr.LC_mail_odd {
	}

table.LC_mail_list tr.LC_mail_read {	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_mail_list 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_mail_list tr.LC_mail_replied {
background-color: $mail_replied;	background-color: $mail_replied;
}	}

table.LC_mail_list tr.LC_mail_replied:hover {	table.LC_mail_list 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_mail_list tr.LC_mail_other {
background-color: $mail_other;	background-color: $mail_other;
}	}

table.LC_mail_list tr.LC_mail_other:hover {	table.LC_mail_list tr.LC_mail_other:hover {
background-color: $mail_other_hover;	background-color: $mail_other_hover;
}	}
table.LC_mail_list tr.LC_mail_even {
}
table.LC_mail_list tr.LC_mail_odd {
}


table#LC_portfolio_actions {
width: auto;
background: $pgbg;
border: none;
border-spacing: 2px 2px;
padding: 0;
margin: 0;
border-collapse: separate;
}
table#LC_portfolio_actions td.LC_label {
background: $tabbg;
text-align: right;
}
table#LC_portfolio_actions td.LC_value {
background: $tabbg;
}

table#LC_cstr_controls {
width: 100%;
border-collapse: collapse;
}
table#LC_cstr_controls tr td {
border: 4px solid $pgbg;
padding: 4px;
text-align: center;
background: $tabbg;
}
table#LC_cstr_controls tr th {
border: 4px solid $pgbg;
background: $table_header;
text-align: center;
font-family: $sans;
font-size: smaller;
}

table#LC_browser {

}
table#LC_browser tr th {
background: $table_header;
}
table#LC_browser tr td {
padding: 2px;
}
table#LC_browser tr.LC_browser_file,
table#LC_browser tr.LC_browser_file_published {
background: #CCFF88;
}
table#LC_browser tr.LC_browser_file_locked,
table#LC_browser tr.LC_browser_file_unpublished {
background: #FFAA99;
}
table#LC_browser tr.LC_browser_file_obsolete {
background: #AAAAAA;
}
table#LC_browser tr.LC_browser_file_modified,
table#LC_browser tr.LC_browser_file_metamodified {
background: #FFFF77;
}
table#LC_browser tr.LC_browser_folder {
background: #CCCCFF;
}

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: #AAEE77;	background: #CCFF88;
}	}

table.LC_data_table tr > td.LC_browser_file_locked,	table.LC_data_table tr > td.LC_browser_file_locked,
Line 5261 table.LC_data_table tr > td.LC_browser_f	Line 5068 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: #888888;	background: #AAAAAA;
}	}

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: #F8F866;	background: #FFFF77;
}	}

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

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;	background: #FFFF77;
}	}

table.LC_data_table tr > td.LC_roles_will {	table.LC_data_table tr > td.LC_roles_will {
background: #FFAA77;	background: #FFAA77;
}	}

table.LC_data_table tr > td.LC_roles_expired {	table.LC_data_table tr > td.LC_roles_expired {
background: #FF7777;	background: #FF7777;
}	}

table.LC_data_table tr > td.LC_roles_will_not {	table.LC_data_table tr > td.LC_roles_will_not {
background: #AAFF77;	background: #AAFF77;
}	}

table.LC_data_table tr > td.LC_roles_selected {	table.LC_data_table tr > td.LC_roles_selected {
background: #11CC55;	background: #11CC55;
}	}

span.LC_current_location {	span.LC_current_location {
font-size: x-large;	font-size:larger;
background: $pgbg;	background: $pgbg;
}	}

Line 5301 span.LC_parm_menu_item {	Line 5113 span.LC_parm_menu_item {
font-size: larger;	font-size: larger;
font-family: $sans;	font-family: $sans;
}	}

span.LC_parm_scope_all {	span.LC_parm_scope_all {
color: red;	color: red;
}	}

span.LC_parm_scope_folder {	span.LC_parm_scope_folder {
color: green;	color: green;
}	}

span.LC_parm_scope_resource {	span.LC_parm_scope_resource {
color: orange;	color: orange;
}	}

span.LC_parm_part {	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;
}	}

td.LC_parm_overview_level_menu, td.LC_parm_overview_map_menu,	td.LC_parm_overview_level_menu,
td.LC_parm_overview_parm_selectors, td.LC_parm_overview_parm_restrictions {	td.LC_parm_overview_map_menu,
	td.LC_parm_overview_parm_selectors,
	td.LC_parm_overview_restrictions {
border: 1px solid black;	border: 1px solid black;
border-collapse: collapse;	border-collapse: collapse;
}	}

table.LC_parm_overview_restrictions td {	table.LC_parm_overview_restrictions td {
border-width: 1px 4px 1px 4px;	border-width: 1px 4px 1px 4px;
border-style: solid;	border-style: solid;
border-color: $pgbg;	border-color: $pgbg;
text-align: center;	text-align: center;
}	}

table.LC_parm_overview_restrictions th {	table.LC_parm_overview_restrictions th {
background: $tabbg;	background: $tabbg;
border-width: 1px 4px 1px 4px;	border-width: 1px 4px 1px 4px;
border-style: solid;	border-style: solid;
border-color: $pgbg;	border-color: $pgbg;
}	}

table#LC_helpmenu {	table#LC_helpmenu {
border: none;	border: none;
height: 55px;	height: 55px;
Line 5346 table#LC_helpmenu fieldset legend {	Line 5168 table#LC_helpmenu fieldset legend {
font-size: larger;	font-size: larger;
font-weight: bold;	font-weight: bold;
}	}

table#LC_helpmenu_links {	table#LC_helpmenu_links {
width: 100%;	width: 100%;
border: 1px solid black;	border: 1px solid black;
Line 5353 table#LC_helpmenu_links {	Line 5176 table#LC_helpmenu_links {
padding: 0;	padding: 0;
border-spacing: 1px;	border-spacing: 1px;
}	}

table#LC_helpmenu_links tr td {	table#LC_helpmenu_links tr td {
padding: 1px;	padding: 1px;
background: $tabbg;	background: $tabbg;
Line 5360 table#LC_helpmenu_links tr td {	Line 5184 table#LC_helpmenu_links tr td {
font-weight: bold;	font-weight: bold;
}	}

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

table#LC_helpmenu_links a:hover {	table#LC_helpmenu_links a:hover {
text-decoration: underline;	text-decoration: underline;
color: $vlink;	color: $vlink;
Line 5374 table#LC_helpmenu_links a:hover {	Line 5200 table#LC_helpmenu_links a:hover {
border: 1px solid #339933;	border: 1px solid #339933;
margin: -1px;	margin: -1px;
}	}

.LC_chrt_popup_up {	.LC_chrt_popup_up {
border: 1px solid yellow;	border: 1px solid yellow;
margin: -1px;	margin: -1px;
}	}

.LC_chrt_popup {	.LC_chrt_popup {
border: 1px solid #8888FF;	border: 1px solid #8888FF;
background: #CCCCFF;	background: #CCCCFF;
}	}

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

table.LC_pick_box td.LC_pick_box_title {	table.LC_pick_box td.LC_pick_box_title {
background: $tabbg;	background: $tabbg;
font-weight: bold;	font-weight: bold;
Line 5396 table.LC_pick_box td.LC_pick_box_title {	Line 5226 table.LC_pick_box td.LC_pick_box_title {
width: 184px;	width: 184px;
padding: 8px;	padding: 8px;
}	}

table.LC_pick_box td.LC_selfenroll_pick_box_title {	table.LC_pick_box td.LC_selfenroll_pick_box_title {
background: $tabbg;	background: $tabbg;
font-weight: bold;	font-weight: bold;
Line 5408 table.LC_pick_box td.LC_pick_box_value {	Line 5239 table.LC_pick_box td.LC_pick_box_value {
text-align: left;	text-align: left;
padding: 8px;	padding: 8px;
}	}

table.LC_pick_box td.LC_pick_box_select {	table.LC_pick_box td.LC_pick_box_select {
text-align: left;	text-align: left;
padding: 8px;	padding: 8px;
}	}

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

table.LC_pick_box td.LC_pick_box_submit {	table.LC_pick_box td.LC_pick_box_submit {
text-align: right;	text-align: right;
}	}

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

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

table.LC_helpform_receipt {	table.LC_helpform_receipt {
width: 620px;	width: 620px;
border-collapse: separate;	border-collapse: separate;
Line 5437 table.LC_helpform_receipt {	Line 5274 table.LC_helpform_receipt {
border: 1px solid black;	border: 1px solid black;
border-spacing: 1px;	border-spacing: 1px;
}	}

table.LC_helpform_receipt td.LC_pick_box_title {	table.LC_helpform_receipt td.LC_pick_box_title {
background: $tabbg;	background: $tabbg;
font-weight: bold;	font-weight: bold;
Line 5444 table.LC_helpform_receipt td.LC_pick_box	Line 5282 table.LC_helpform_receipt td.LC_pick_box
width: 184px;	width: 184px;
padding: 8px;	padding: 8px;
}	}

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

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

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

span.LC_helpform_receipt_cat {	span.LC_helpform_receipt_cat {
font-weight: bold;	font-weight: bold;
}	}

table.LC_group_priv_box {	table.LC_group_priv_box {
background: white;	background: white;
border: 1px solid black;	border: 1px solid black;
border-spacing: 1px;	border-spacing: 1px;
}	}

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

table.LC_group_priv_box td.LC_groups_fixed {	table.LC_group_priv_box td.LC_groups_fixed {
background: $data_table_light;	background: $data_table_light;
text-align: center;	text-align: center;
}	}

table.LC_group_priv_box td.LC_groups_optional {	table.LC_group_priv_box td.LC_groups_optional {
background: $data_table_dark;	background: $data_table_dark;
text-align: center;	text-align: center;
}	}

table.LC_group_priv_box td.LC_groups_functionality {	table.LC_group_priv_box td.LC_groups_functionality {
background: $data_table_darker;	background: $data_table_darker;
text-align: center;	text-align: center;
font-weight: bold;	font-weight: bold;
}	}

table.LC_group_priv td {	table.LC_group_priv td {
text-align: left;	text-align: left;
padding: 0;	padding: 0;
Line 5496 table.LC_notify_front_page {	Line 5344 table.LC_notify_front_page {
border: 1px solid black;	border: 1px solid black;
padding: 8px;	padding: 8px;
}	}

table.LC_notify_front_page td {	table.LC_notify_front_page td {
padding: 8px;	padding: 8px;
}	}

.LC_navbuttons {	.LC_navbuttons {
margin: 2ex 0ex 2ex 0ex;	margin: 2ex 0ex 2ex 0ex;
}	}

.LC_topic_bar {	.LC_topic_bar {
font-family: $sans;	font-family: $sans;
font-weight: bold;	font-weight: bold;
Line 5511 table.LC_notify_front_page td {	Line 5362 table.LC_notify_front_page td {
margin: 2ex 0ex 2ex 0ex;	margin: 2ex 0ex 2ex 0ex;
padding: 3px;	padding: 3px;
}	}

.LC_topic_bar span {	.LC_topic_bar span {
vertical-align: middle;	vertical-align: middle;
}	}

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

table.LC_course_group_status {	table.LC_course_group_status {
margin: 20px;	margin: 20px;
}	}

table.LC_status_selector td {	table.LC_status_selector td {
vertical-align: top;	vertical-align: top;
text-align: center;	text-align: center;
padding: 4px;	padding: 4px;
}	}
table.LC_descriptive_input td.LC_description {
vertical-align: top;
text-align: right;
font-weight: bold;
}
div.LC_feedback_link {	div.LC_feedback_link {
clear: both;	clear: both;
background: white;	background: white;
width: 100%;	width: 100%;
}	}

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;
Line 5557 table.LC_prior_tries td {	Line 5410 table.LC_prior_tries td {
}	}

.LC_answer_correct {	.LC_answer_correct {
background: #AAFFAA;	background: lightgreen;
color: black;	font-family: $sans;
	color: darkgreen;
	padding: 6px;
}	}

.LC_answer_charged_try {	.LC_answer_charged_try {
background: #FFAAAA ! important;	background: #FFAAAA;
color: black;	font-family: $sans;
	color: darkred;
	padding: 6px;
}	}
.LC_answer_not_charged_try,
	.LC_answer_not_charged_try,
.LC_answer_no_grade,	.LC_answer_no_grade,
.LC_answer_late {	.LC_answer_late {
background: #FFFFAA;	background: lightyellow;
	font-family: $sans;
color: black;	color: black;
	padding: 6px;
}	}

.LC_answer_previous {	.LC_answer_previous {
background: #AAAAFF;	background: lightblue;
color: black;	font-family: $sans;
	color: darkblue;
	padding: 6px;
}	}

.LC_answer_no_message {	.LC_answer_no_message {
background: #FFFFFF;	background: #FFFFFF;
	font-family: $sans;
color: black;	color: black;
	padding: 6px;
}	}

.LC_answer_unknown {	.LC_answer_unknown {
background: orange;	background: orange;
	font-family: $sans;
color: black;	color: black;
	padding: 6px;
}	}


span.LC_prior_numerical,	span.LC_prior_numerical,
span.LC_prior_string,	span.LC_prior_string,
span.LC_prior_custom,	span.LC_prior_custom,
Line 5602 table.LC_prior_option {	Line 5471 table.LC_prior_option {
width: 100%;	width: 100%;
border-collapse: collapse;	border-collapse: collapse;
}	}
table.LC_prior_rank, table.LC_prior_match {
	table.LC_prior_rank,
	table.LC_prior_match {
border-collapse: collapse;	border-collapse: collapse;
}	}

table.LC_prior_option tr td,	table.LC_prior_option tr td,
table.LC_prior_rank tr td,	table.LC_prior_rank tr td,
table.LC_prior_match tr td {	table.LC_prior_match tr td {
border: 1px solid #000000;	border: 1px solid #000000;
}	}

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

Line 5635 table.LC_docs_documents td.LC_docs_docum	Line 5508 table.LC_docs_documents td.LC_docs_docum
padding: 4px;	padding: 4px;
}	}

.LC_docs_course_commands div {
float: left;
border: 4px solid #AAAAAA;
padding: 4px;
background: #DDDDCC;
}

.LC_docs_entry_move {	.LC_docs_entry_move {
border: none;	border: none;
border-collapse: collapse;	border-collapse: collapse;
Line 5656 table.LC_docs_documents td.LC_docs_docum	Line 5522 table.LC_docs_documents td.LC_docs_docum
background: #DDDDDD;	background: #DDDDDD;
font-size: x-small;	font-size: x-small;
}	}

.LC_docs_copy {	.LC_docs_copy {
color: #000099;	color: #000099;
}	}

.LC_docs_cut {	.LC_docs_cut {
color: #550044;	color: #550044;
}	}

.LC_docs_rename {	.LC_docs_rename {
color: #009900;	color: #009900;
}	}

.LC_docs_remove {	.LC_docs_remove {
color: #990000;	color: #990000;
}	}
Line 5678 table.LC_docs_documents td.LC_docs_docum	Line 5548 table.LC_docs_documents td.LC_docs_docum
.LC_docs_editor td.LC_docs_entry_icon {	.LC_docs_editor td.LC_docs_entry_icon {
background: #FFFFBB;	background: #FFFFBB;
}	}

.LC_docs_editor td.LC_docs_entry_parameter {	.LC_docs_editor td.LC_docs_entry_parameter {
background: #BBBBFF;	background: #BBBBFF;
font-size: x-small;	font-size: x-small;
Line 5694 table.LC_docs_adddocs th {	Line 5565 table.LC_docs_adddocs th {
table.LC_sty_begin {	table.LC_sty_begin {
background: #BBFFBB;	background: #BBFFBB;
}	}

table.LC_sty_end {	table.LC_sty_end {
background: #FFBBBB;	background: #FFBBBB;
}	}
Line 5714 table.LC_double_column tr td.LC_left_col	Line 5586 table.LC_double_column tr td.LC_left_col

table.LC_double_column tr td.LC_right_col {	table.LC_double_column tr td.LC_right_col {
top: 2px;	top: 2px;
right: 2px;	right: 2px;
width: 47%;	width: 47%;
vertical-align: top;	vertical-align: top;
}	}
Line 5738 div.LC_clear_float_footer {	Line 5610 div.LC_clear_float_footer {
clear: both;	clear: both;
}	}


div.LC_grade_select_mode {
font-family: $sans;
}
div.LC_grade_select_mode div div {
margin: 5px;
}
div.LC_grade_select_mode_selector {
margin: 5px;
float: left;
}
div.LC_grade_select_mode_selector_header {
font: bold medium $sans;
}
div.LC_grade_select_mode_type {
clear: left;
}

div.LC_grade_show_user {	div.LC_grade_show_user {
margin-top: 20px;	margin-top: 20px;
border: 1px solid black;	border: 1px solid black;
}	}

div.LC_grade_user_name {	div.LC_grade_user_name {
background: #DDDDEE;	background: #DDDDEE;
border-bottom: 1px solid black;	border-bottom: 1px solid black;
font: bold large $sans;	font-weight: bold;
	font-size: large;
}	}

div.LC_grade_show_user_odd_row div.LC_grade_user_name {	div.LC_grade_show_user_odd_row div.LC_grade_user_name {
background: #DDEEDD;	background: #DDEEDD;
}	}
Line 5778 div.LC_grade_assign {	Line 5635 div.LC_grade_assign {
width: 99%;	width: 99%;
background: #FFFFFF;	background: #FFFFFF;
}	}

div.LC_grade_show_problem_header,	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 {	div.LC_grade_assign_header {
font: bold large $sans;	font-weight: bold;
	font-size: large;
}	}

div.LC_grade_show_problem_problem,	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,
Line 5792 div.LC_grade_assign_body {	Line 5652 div.LC_grade_assign_body {
width: 99%;	width: 99%;
background: #FFFFFF;	background: #FFFFFF;
}	}

span.LC_grade_check_note {	span.LC_grade_check_note {
font: normal medium $sans;	font-weight: normal;
	font-size: medium;
display: inline;	display: inline;
position: absolute;	position: absolute;
right: 1em;	right: 1em;
Line 5802 span.LC_grade_check_note {	Line 5664 span.LC_grade_check_note {
table.LC_scantron_action {	table.LC_scantron_action {
width: 100%;	width: 100%;
}	}

table.LC_scantron_action tr th {	table.LC_scantron_action tr th {
font: normal bold $sans;	font-weight:bold;
	font-style:normal;
}	}

div.LC_edit_problem_header,	.LC_edit_problem_header,
div.LC_edit_problem_footer {	div.LC_edit_problem_footer {
font: normal medium $sans;	font-weight: normal;
	font-size: medium;
margin: 2px;	margin: 2px;
}	}

div.LC_edit_problem_header,	div.LC_edit_problem_header,
div.LC_edit_problem_header div,	div.LC_edit_problem_header div,
div.LC_edit_problem_footer,	div.LC_edit_problem_footer,
Line 5819 div.LC_edit_problem_editxml_header,	Line 5685 div.LC_edit_problem_editxml_header,
div.LC_edit_problem_editxml_header div {	div.LC_edit_problem_editxml_header div {
margin-top: 5px;	margin-top: 5px;
}	}

div.LC_edit_problem_header_edit_row {	div.LC_edit_problem_header_edit_row {
background: $tabbg;	background: $tabbg;
padding: 3px;	padding: 3px;
margin-bottom: 5px;	margin-bottom: 5px;
}	}

div.LC_edit_problem_header_title {	div.LC_edit_problem_header_title {
font: larger bold $sans;	font-weight: bold;
	font-size: larger;
background: $tabbg;	background: $tabbg;
padding: 3px;	padding: 3px;
}	}

table.LC_edit_problem_header_title {	table.LC_edit_problem_header_title {
font: larger bold $sans;	font-size: larger;
	font-weight: bold;
width: 100%;	width: 100%;
border-color: $pgbg;	border-color: $pgbg;
border-style: solid;	border-style: solid;
border-width: $border;	border-width: $border;

background: $tabbg;	background: $tabbg;
border-collapse: collapse;	border-collapse: collapse;
padding: 0;	padding: 0;
Line 5845 div.LC_edit_problem_discards {	Line 5715 div.LC_edit_problem_discards {
float: left;	float: left;
padding-bottom: 5px;	padding-bottom: 5px;
}	}

div.LC_edit_problem_saves {	div.LC_edit_problem_saves {
float: right;	float: right;
padding-bottom: 5px;	padding-bottom: 5px;
}	}

hr.LC_edit_problem_divide {	hr.LC_edit_problem_divide {
clear: both;	clear: both;
color: $tabbg;	color: $tabbg;
Line 5856 hr.LC_edit_problem_divide {	Line 5728 hr.LC_edit_problem_divide {
height: 3px;	height: 3px;
border: none;	border: none;
}	}

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

table#LC_mainmenu{	table#LC_mainmenu{
margin-top:10px;	margin-top:10px;
width:80%;	width:80%;

}	}

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

.LC_mainmenu_fieldset_category {	.LC_mainmenu_fieldset_category {
color: $font;	color: $font;
background: $pgbg;	background: $pgbg;
Line 5878 table#LC_mainmenu td.LC_mainmenu_col_fie	Line 5751 table#LC_mainmenu td.LC_mainmenu_col_fie
font-size: small;	font-size: small;
font-weight: bold;	font-weight: bold;
}	}
fieldset#LC_mainmenu_fieldset {
margin:0 10px 10px 0;

}

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

	/* ---- Remove when done ----
	# The following styles is part of the redesign of LON-CAPA and are
	# subject to change during this project.
	# Don't rely on their current functionality as they might be
	# changed or removed.
	# --------------------------*/

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

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

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

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

	.LC_noBorder {
	border: 0;
	}


	/* Main Header with discription of Person, Course, etc. */

	.LC_Right {
	float: right;
	margin: 0;
	padding: 0;
	}

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

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

	dl,ul,div,fieldset {
	margin: 10px 10px 10px 0;
	/* overflow: hidden; */
	}

	#LC_nav_bar {
	float: left;
	margin: 0;
	}

	#LC_nav_bar em{
	font-weight: bold;
	font-style: normal;
	}

	ol.LC_smallMenu {
	float: right;
	}

	ol.LC_smallMenu, ol#LC_PathBreadcrumbs {
	margin: 0;
	}

	ol.LC_smallMenu li {
	display: inline;
	padding: 5px 5px 0 10px;
	vertical-align: top;
	}

	ol.LC_smallMenu li img {
	vertical-align: bottom;
	}

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

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

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

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

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

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

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

	ul.LC_TabContent li {
	vertical-align:middle;
	padding: 0 10px 0 10px;
	background-color:$tabbg;
	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 {
	vertical-align:bottom;
	border-top:solid 1px $lg_border_color;
	border-left:solid 1px $lg_border_color;
	padding:5px 10px 5px 10px;
	margin-left:2px;
	background:url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
	}

	ul.LC_TabContentBigger li:hover,
	ul.LC_TabContentBigger li.active {
	background:url(/adm/lonIcons/lightGreyBG.png) repeat-x right bottom;
	}

	ul.LC_TabContentBigger li,
	ul.LC_TabContentBigger li a {
	font-size:110%;
	font-weight:bold;
	}

	ol#LC_MenuBreadcrumbs,
	ol#LC_PathBreadcrumbs,
	ul.LC_CourseBreadcrumbs {
	padding-left: 10px;
	margin: 0;
	list-style-position: inside;
	}

	ol#LC_MenuBreadcrumbs li,
	ol#LC_PathBreadcrumbs li,
	ul.LC_CourseBreadcrumbs li {
	display: inline;
	padding: 0 0 0 10px;
	overflow:hidden;
	}

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

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

	.LC_BoxPadding {
	padding: 10px;
	}

	.LC_ContentBoxSpecial {
	border: solid 1px $lg_border_color;
	}

	.LC_ContentBoxSpecialContactInfo {
	border: solid 1px $lg_border_color;
	max-width:25%;
	min-width:25%;
	}

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

	.LC_Clear_AboutMe_Image {
	clear:left;
	}

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

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

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

	.LC_ListStyleSimple li,
	.LC_ListStyleSimple dd,
	.LC_ListStyleNormal li,
	.LC_ListStyleNormal dd,
	.LC_ListStyleSpecial li,
	.LC_ListStyleSpecial dd {
	margin: 0;
	padding: 5px 5px 5px 10px;
	clear: both;
	}

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

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

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

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

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

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

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

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

	.ContentBoxSpecialTemplate {
	border: solid 1px $lg_border_color;
	}

	.ContentBoxTemplate {
	padding:10px;
	}

	div.LC_columnSection > .ContentBoxTemplate,
	div.LC_columnSection > .ContentBoxSpecialTemplate {
	width: 600px;
	}

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

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


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

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

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

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

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

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

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

	table.LC_tableOfContent{
	border-collapse: collapse;
	}

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

	ul.LC_functionslist li {
	float: left;
	white-space: nowrap;
	height: 35px; /* at least as high as heighest list item */
	margin: 0 15px 15px 10px;
	}


END	END
}	}

Line 6014 sub xml_begin {	Line 6380 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">'.	$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>';
'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">';
}	}
return $output;	return $output;
}	}
Line 6077 $args - additional optional args support	Line 6442 $args - additional optional args support

only_body -> is true will set &bodytag() onlybodytag	only_body -> is true will set &bodytag() onlybodytag
arg on	arg on
no_nav_bar -> is true will set &bodytag() notopbar arg on	no_nav_bar -> is true will set &bodytag() no_nav_bar arg on
add_entries -> additional attributes to add to the <body>	add_entries -> additional attributes to add to the <body>
domain -> force to color decorate a page for a	domain -> force to color decorate a page for a
specific domain	specific domain
Line 6096 $args - additional optional args support	Line 6461 $args - additional optional args support
is not auto translated like the $title is	is not auto translated like the $title is
frameset -> if true will start with a <frameset>	frameset -> if true will start with a <frameset>
rather than <body>	rather than <body>
no_title -> if true the title bar won't be shown
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
Line 6145 sub start_page {	Line 6509 sub start_page {
$args->{'only_body'}, $args->{'domain'},	$args->{'only_body'}, $args->{'domain'},
$args->{'force_register'}, $args->{'body_title'},	$args->{'force_register'}, $args->{'body_title'},
$args->{'no_nav_bar'}, $args->{'bgcolor'},	$args->{'no_nav_bar'}, $args->{'bgcolor'},
$args->{'no_title'}, $args->{'no_inline_link'},	$args->{'no_inline_link'},
$args);	$args);
}	}
}	}

if ($args->{'js_ready'}) {	if ($args->{'js_ready'}) {
$result = &js_ready($result);	$result = &js_ready($result);
}	}
if ($args->{'html_encode'}) {	if ($args->{'html_encode'}) {
$result = &html_encode($result);	$result = &html_encode($result);
}	}

	# Preparation for new and consistent functionlist at top of screen
	# if ($args->{'functionlist'}) {
	# $result .= &build_functionlist();
	#}

	# Don't add anything more if only_body wanted
	return $result if $args->{'only_body'};

#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();
#if any br links exists, add them to the breadcrumbs	#if any br links exists, add them to the breadcrumbs
if (exists($args->{'bread_crumbs'}) and ref($args->{'bread_crumbs'}) eq 'ARRAY') {	if (exists($args->{'bread_crumbs'}) and ref($args->{'bread_crumbs'}) eq 'ARRAY') {
foreach my $crumb (@{$args->{'bread_crumbs'}}){	foreach my $crumb (@{$args->{'bread_crumbs'}}){
&Apache::lonhtmlcommon::add_breadcrumb($crumb);	&Apache::lonhtmlcommon::add_breadcrumb($crumb);
}	}
}	}

#if bread_crumbs_component exists show it as headline else show only the breadcrumbs	#if bread_crumbs_component exists show it as headline else show only the breadcrumbs
if (exists($args->{'bread_crumbs_component'})){	if(exists($args->{'bread_crumbs_component'})){
$result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});	$result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});
} else {	}else{
$result .= &Apache::lonhtmlcommon::breadcrumbs();	$result .= &Apache::lonhtmlcommon::breadcrumbs();
}	}
}	}
return $result;	return $result;
}	}


=pod	=pod

=item * &head()	=item * &head()
Line 6318 sub simple_error_page {	Line 6692 sub simple_error_page {
}	}

sub start_data_table_empty_row {	sub start_data_table_empty_row {
$row_count[0]++;	# $row_count[0]++;
return '<tr class="LC_empty_row" >'."\n";;	return '<tr class="LC_empty_row" >'."\n";;
}	}

Line 6399 Returns either 'student','coordinator','	Line 6773 Returns either 'student','coordinator','

###############################################	###############################################
sub get_users_function {	sub get_users_function {
my $function = 'student';	my $function = 'norole';
if ($env{'request.role'}=~/^(cc\|co\|in\|ta\|ep)/) {	if ($env{'request.role'}=~/^(st)/) {
	$function='student';
	}
	if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {
$function='coordinator';	$function='coordinator';
}	}
if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {	if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {
$function='admin';	$function='admin';
}	}
if (($env{'request.role'}=~/^(au\|ca\|aa)/) \|\|	if (($env{'request.role'}=~/^(au\|ca)/) \|\|
($ENV{'REQUEST_URI'}=~/^(\/priv\|\~)/)) {	($ENV{'REQUEST_URI'}=~/^(\/priv\|\~)/)) {
$function='author';	$function='author';
}	}
Line 6421 sub get_users_function {	Line 6798 sub get_users_function {

Used by lonmenu.pm and lonroles.pm to determine whether to use the word	Used by lonmenu.pm and lonroles.pm to determine whether to use the word
'Courses' or 'Roles' in inline navigation and on screen displaying user's roles.	'Courses' or 'Roles' in inline navigation and on screen displaying user's roles.

Inputs:	Inputs:
None	None

Line 6470 sub check_user_status {	Line 6848 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') \|\| ($role eq 'co') \|\| ($sec eq '') \|\| (!defined($sec))) {	if (($role eq 'cc') \|\| ($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 7101 sub user_picker {	Line 7479 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 7150 sub user_picker {	Line 7527 sub user_picker {
official => 'institutional',	official => 'institutional',
unofficial => 'non-institutional',	unofficial => 'non-institutional',
);	);
$new_user_create = '<p class="LC_warning">'.	$new_user_create = '<p class="LC_warning">'
&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.").' '.	.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.")
&mt('Please contact the [_1]helpdesk[_2] for assistance.','<a href="'.$helplink.'">','</a>').'</p><br />';	.' '
	.&mt('Please contact the [_1]helpdesk[_2] for assistance.'
	,'<a href="'.$helplink.'">','</a>')
	.'</p><br />';
}	}
}	}
}	}
Line 7189 ENDSCRIPT	Line 7569 ENDSCRIPT

my $output = <<"END_BLOCK";	my $output = <<"END_BLOCK";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[
function validateEntry(callingForm) {	function validateEntry(callingForm) {

var checkok = 1;	var checkok = 1;
Line 7258 function validateEntry(callingForm) {	Line 7637 function validateEntry(callingForm) {

$newuserscript	$newuserscript

// ]]>
</script>	</script>

$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 7508 sub get_institutional_codes {	Line 7890 sub get_institutional_codes {

=item * sorted_slots()	=item * sorted_slots()

Sorts an array of slot names in order of slot start time (earliest first).	Sorts an array of slot names in order of slot start time (earliest first).

Inputs:	Inputs:

Line 7550 sub sorted_slots {	Line 7932 sub sorted_slots {
return @sorted;	return @sorted;
}	}


=pod	=pod

=head1 HTTP Helpers	=head1 HTTP Helpers
Line 7841 sub upload_embedded {	Line 8224 sub upload_embedded {
' <a href="'.$url.'">'.	' <a href="'.$url.'">'.
$orig_uploaded_filename.'</a><br />';	$orig_uploaded_filename.'</a><br />';
} else {	} else {
$output .= '<font size="+2">'.	$output .= '<span class=\"LC_fontsize_large\">'.
&mt('View embedded file: [_1]','<a href="'.$url.'">'.	&mt('View embedded file: [_1]','<a href="'.$url.'">'.
$orig_uploaded_filename.'</a>').'</font><br />';	$orig_uploaded_filename.'</a>').'</span><br />';
}	}
}	}
close($fh);	close($fh);
Line 8148 sub csv_print_samples {	Line 8531 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 8193 sub csv_print_select_table {	Line 8575 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 8847 sub restore_settings {	Line 9229 sub restore_settings {

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

Build recipient lists for five types of e-mail:	Build recipient lists for four 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, (e) Course requests needing approval, generated by	(d) Help requests, generated by
lonerrorhandler.pm, CHECKRPMS, loncron, lonsupportreq.pm and	lonerrorhandler.pm, CHECKRPMS, loncron, and lonsupportreq.pm respectively.
loncoursequeueadmin.pm respectively.

Inputs:	Inputs:
defmail (scalar - email address of default recipient),	defmail (scalar - email address of default recipient),
Line 8880 sub build_recipient_list {	Line 9261 sub build_recipient_list {
my @contacts = ('adminemail','supportemail');	my @contacts = ('adminemail','supportemail');
foreach my $item (@contacts) {	foreach my $item (@contacts) {
if ($domconfig{'contacts'}{$mailing}{$item}) {	if ($domconfig{'contacts'}{$mailing}{$item}) {
my $addr = $domconfig{'contacts'}{$item};	my $addr = $domconfig{'contacts'}{$item};
if (!grep(/^\Q$addr\E$/,@recipients)) {	if (!grep(/^\Q$addr\E$/,@recipients)) {
push(@recipients,$addr);	push(@recipients,$addr);
}	}
Line 9021 sub extract_categories {	Line 9402 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 9133 Inputs:	Line 9512 Inputs:
cathash - reference to hash of categories defined for the domain (from	cathash - reference to hash of categories defined for the domain (from
configuration.db)	configuration.db)

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,$type) = @_;	my ($cathash,$currcat) = @_;
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 9151 sub assign_categories_table {	Line 9528 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];
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 $css_class = $itemcount%2?' class="LC_odd_row"':'';
	next if ($parent eq 'instcode');
my $item = &escape($parent).'::0';	my $item = &escape($parent).'::0';
my $checked = '';	my $checked = '';
if (@currcategories > 0) {	if (@currcategories > 0) {
if (grep(/^\Q$item\E$/,@currcategories)) {	if (grep(/^\Q$item\E$/,@currcategories)) {
$checked = ' checked="checked" ';	$checked = ' checked="checked"';
}	}
}	}
my $parent_title = $parent;	$output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.
if ($parent eq 'communities') {	'<input type="checkbox" name="usecategory" value="'.
$parent_title = &mt('Communities');	$item.'"'.$checked.' />'.$parent.'</span>'.
}	'<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);
$table .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);	$output .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);
pop(@path);	pop(@path);
$table .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';	$output .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';
$itemcount ++;	$itemcount ++;
}	}
if ($itemcount) {	$output .= &Apache::loncommon::end_data_table();
$output = &Apache::loncommon::start_data_table().
$table.
&Apache::loncommon::end_data_table();
}
}	}
}	}
}	}
Line 9243 sub assign_category_rows {	Line 9607 sub assign_category_rows {
if (ref($currcategories) eq 'ARRAY') {	if (ref($currcategories) eq 'ARRAY') {
if (@{$currcategories} > 0) {	if (@{$currcategories} > 0) {
if (grep(/^\Q$item\E$/,@{$currcategories})) {	if (grep(/^\Q$item\E$/,@{$currcategories})) {
$checked = ' checked="checked" ';	$checked = ' checked="checked"';
}	}
}	}
}	}
Line 9436 sub check_clone {	Line 9800 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') {
if ($args->{'crstype'} eq 'Community') {	$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'});
$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 ($args->{'crstype'} eq 'Community') {	if ($env{'request.role.domain'} eq $args->{'clonedomain'}) {
if ($clonedesc{'type'} ne 'Community') {	$can_clone = 1;
$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'});	} else {
return ($can_clone, $clonemsg, $cloneid, $clonehome);	my %clonehash = &Apache::lonnet::get('environment',['cloners'],
}	$args->{'clonedomain'},$args->{'clonecourse'});
}	my @cloners = split(/,/,$clonehash{'cloners'});
if (($env{'request.role.domain'} eq $args->{'clonedomain'}) &&
(&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) {
$can_clone = 1;
} else {
my %clonehash = &Apache::lonnet::get('environment',['cloners'],
$args->{'clonedomain'},$args->{'clonecourse'});
my @cloners = split(/,/,$clonehash{'cloners'});
if (grep(/^\*$/,@cloners)) {	if (grep(/^\*$/,@cloners)) {
$can_clone = 1;	$can_clone = 1;
} 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';	my %roleshash =
if ($args->{'crstype'} eq 'Community') {	&Apache::lonnet::get_my_roles($args->{'ccuname'},
$ccrole = 'co';	$args->{'ccdomain'},
}	'userroles',['active'],['cc'],
my %roleshash =	[$args->{'clonedomain'}]);
&Apache::lonnet::get_my_roles($args->{'ccuname'},	if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':cc'}) \|\| (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {
$args->{'ccdomain'},	$can_clone = 1;
'userroles',['active'],[$ccrole],	} else {
[$args->{'clonedomain'}]);	$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'});
if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) \|\| (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {	}
$can_clone = 1;	}
} elsif (&Apache::lonnet::is_course_owner($args->{'clonedomain'},$args->{'clonecourse'},$args->{'ccuname'},$args->{'ccdomain'})) {
$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'});
}
}
}
}	}
}	}
return ($can_clone, $clonemsg, $cloneid, $clonehome);	return ($can_clone, $clonemsg, $cloneid, $clonehome);
}	}

sub construct_course {	sub construct_course {
my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context,$cnum,$category) = @_;	my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context) = @_;
my $outcome;	my $outcome;
my $linefeed = '<br />'."\n";	my $linefeed = '<br />'."\n";
if ($context eq 'auto') {	if ($context eq 'auto') {
Line 9531 sub construct_course {	Line 9871 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
Line 9841 sub course_type {	Line 10179 sub course_type {
sub group_term {	sub group_term {
my $crstype = &course_type();	my $crstype = &course_type();
my %names = (	my %names = (
'Course' => 'group',	'Course' => 'group',
'Community' => 'group',	'Group' => 'team',
);	);
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 9932 sub compare_arrays {	Line 10260 sub compare_arrays {
return @difference;	return @difference;
}	}

# -------------------------------------------------------- Initliaze user login	# -------------------------------------------------------- Initialize user login
sub init_user_environment {	sub init_user_environment {
my ($r, $username, $domain, $authhost, $form, $args) = @_;	my ($r, $username, $domain, $authhost, $form, $args) = @_;
my $lonids=$Apache::lonnet::perlvar{'lonIDsDir'};	my $lonids=$Apache::lonnet::perlvar{'lonIDsDir'};
Line 9986 sub init_user_environment {	Line 10314 sub init_user_environment {
my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,	my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
$clientunicode,$clientos) = &decode_user_agent($r);	$clientunicode,$clientos) = &decode_user_agent($r);

# -------------------------------------- Any accessibility options to remember?
if (($form->{'interface'}) && ($form->{'remember'} eq 'true')) {
foreach my $option ('imagesuppress','appletsuppress',
'embedsuppress','fontenhance','blackwhite') {
if ($form->{$option} eq 'true') {
&Apache::lonnet::put('environment',{$option => 'on'},
$domain,$username);
} else {
&Apache::lonnet::del('environment',[$option],
$domain,$username);
}
}
}
# ------------------------------------------------------------- Get environment	# ------------------------------------------------------------- Get environment

my %userenv = &Apache::lonnet::dump('environment',$domain,$username);	my %userenv = &Apache::lonnet::dump('environment',$domain,$username);
Line 10016 sub init_user_environment {	Line 10331 sub init_user_environment {
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
foreach my $option ('imagesuppress','appletsuppress',	foreach my $option ('interface','localpath','localres') {
'embedsuppress','fontenhance','blackwhite',	$form->{$option}=~s/[\n\r\=]//gs;
'interface','localpath','localres') {
$form->{$option}=~s/[\n\r\=]//gs;
}	}
# --------------------------------------------------------- Write first profile	# --------------------------------------------------------- Write first profile

Line 10053 sub init_user_environment {	Line 10366 sub init_user_environment {
$form->{'interface'}=~s/\W//gs;	$form->{'interface'}=~s/\W//gs;
$initial_env{"browser.interface"} = $form->{'interface'};	$initial_env{"browser.interface"} = $form->{'interface'};
$env{'browser.interface'}=$form->{'interface'};	$env{'browser.interface'}=$form->{'interface'};
foreach my $option ('imagesuppress','appletsuppress',
'embedsuppress','fontenhance','blackwhite') {
if (($form->{$option} eq 'true') \|\|
($userenv{$option} eq 'on')) {
$initial_env{"browser.$option"} = "on";
}
}
}	}

foreach my $tool ('aboutme','blog','portfolio') {	foreach my $tool ('aboutme','blog','portfolio') {
$userenv{'availabletools.'.$tool} =	$userenv{'availabletools.'.$tool} =
&Apache::lonnet::usertools_access($username,$domain,$tool,'reload');	&Apache::lonnet::usertools_access($username,$domain,$tool,'reload');
}	}

foreach my $crstype ('official','unofficial','community') {	foreach my $crstype ('official','unofficial') {
$userenv{'canrequest.'.$crstype} =	$userenv{'canrequest.'.$crstype} =
&Apache::lonnet::usertools_access($username,$domain,$crstype,	&Apache::lonnet::usertools_access($username,$domain,$crstype,
'reload','requestcourses');	'reload','requestcourses');
Line 10085 sub init_user_environment {	Line 10391 sub init_user_environment {
}	}
untie(%disk_env);	untie(%disk_env);
} else {	} else {
&Apache::lonnet::logthis("<font color=\"blue\">WARNING: ".	&Apache::lonnet::logthis("<span style=\"color:blue;\">WARNING: ".
'Could not create environment storage in lonauth: '.$!.'</font>');	'Could not create environment storage in lonauth: '.$!.'</span>');
return 'error: '.$!;	return 'error: '.$!;
}	}
}	}

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

Removed from v.1.692.4.30
changed lines
	Added in v.1.821