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.739 and 1.867

version 1.739, 2009/01/30 12:47:54	version 1.867, 2009/07/27 11:30:05
Line 406 sub studentbrowser_javascript {	Line 406 sub studentbrowser_javascript {
\|\| ($env{'request.role'}=~/^(au\|dc\|su)/)	\|\| ($env{'request.role'}=~/^(au\|dc\|su)/)
) { 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) {	function openstdbrowser(formname,uname,udom,roleflag,ignorefilter,courseadvonly) {
var url = '/adm/pickstudent?';	var url = '/adm/pickstudent?';
var filter;	var filter;
if (!ignorefilter) {	if (!ignorefilter) {
Line 422 sub studentbrowser_javascript {	Line 423 sub studentbrowser_javascript {
url += 'form=' + formname + '&unameelement='+uname+	url += 'form=' + formname + '&unameelement='+uname+
'&udomelement='+udom;	'&udomelement='+udom;
if (roleflag) { url+="&roles=1"; }	if (roleflag) { url+="&roles=1"; }
	if (courseadvonly) { url+="&courseadvonly=1"; }
var title = 'Student_Browser';	var title = 'Student_Browser';
var options = 'scrollbars=1,resizable=1,menubar=0';	var options = 'scrollbars=1,resizable=1,menubar=0';
options += ',width=700,height=600';	options += ',width=700,height=600';
stdeditbrowser = open(url,title,options,'1');	stdeditbrowser = open(url,title,options,'1');
stdeditbrowser.focus();	stdeditbrowser.focus();
}	}
	// ]]>
</script>	</script>
ENDSTDBRW	ENDSTDBRW
}	}

sub selectstudent_link {	sub selectstudent_link {
my ($form,$unameele,$udomele)=@_;	my ($form,$unameele,$udomele,$courseadvonly)=@_;
	my $callargs = "'".$form."','".$unameele."','".$udomele."'";
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
if (!&Apache::lonnet::allowed('srm',$env{'request.course.id'})	if (!&Apache::lonnet::allowed('srm',$env{'request.course.id'})
&& !&Apache::lonnet::allowed('srm',$env{'request.course.id'}.	&& !&Apache::lonnet::allowed('srm',$env{'request.course.id'}.
'/'.$env{'request.course.sec'})) {	'/'.$env{'request.course.sec'})) {
return '';	return '';
}	}
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.	if ($courseadvonly) {
'","'.$udomele.'");'."'>".&mt('Select User')."</a>";	$callargs .= ",'',1,1";
	}
	return '<span class="LC_nobreak">'.
	'<a href="javascript:openstdbrowser('.$callargs.');">'.
	&mt('Select User').'</a></span>';
}	}
if ($env{'request.role'}=~/^(au\|dc\|su)/) {	if ($env{'request.role'}=~/^(au\|dc\|su)/) {
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.	$callargs .= ",1";
'","'.$udomele.'",1);'."'>".&mt('Select User')."</a>";	return '<span class="LC_nobreak">'.
	'<a href="javascript:openstdbrowser('.$callargs.');">'.
	&mt('Select User').'</a></span>';
}	}
return '';	return '';
}	}

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 465 function openauthorbrowser(formname,udom	Line 476 function openauthorbrowser(formname,udom
stdeditbrowser.focus();	stdeditbrowser.focus();
}	}

	// ]]>
</script>	</script>
ENDAUTHORBRW	ENDAUTHORBRW
}	}

sub coursebrowser_javascript {	sub coursebrowser_javascript {
my ($domainfilter,$sec_element,$formname)=@_;	my ($domainfilter,$sec_element,$formname)=@_;
my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Group - for which you wish to add/modify a user role');	my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Community - for which you wish to add/modify a user role');
my $output = '	my $output = '
<script type="text/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,crstype) {
Line 509 sub coursebrowser_javascript {	Line 522 sub coursebrowser_javascript {
else {	else {
if (formname == 'portform') {	if (formname == 'portform') {
url += '&setroles='+extra_element;	url += '&setroles='+extra_element;
	} else {
	if (formname == 'rules') {
	url += '&fixeddom='+extra_element;
	}
}	}
}	}
}	}
if (multflag !=null && multflag != '') {	if (multflag !=null && multflag != '') {
url += '&multiple='+multflag;	url += '&multiple='+multflag;
}	}
if (crstype == 'Course/Group') {	if (crstype == 'Course/Community') {
if (formname == 'cu') {	if (formname == 'cu') {
crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value;	crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value;
if (crstype == "") {	if (crstype == "") {
Line 556 ENDSTDBRW	Line 573 ENDSTDBRW
$output .= &setsec_javascript($sec_element,$formname);	$output .= &setsec_javascript($sec_element,$formname);
}	}
$output .= '	$output .= '
	// ]]>
</script>';	</script>';
return $output;	return $output;
}	}
Line 602 function setSect(sectionlist) {	Line 620 function setSect(sectionlist) {

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

sub selectauthor_link {	sub selectauthor_link {
Line 710 sub select_datelocale {	Line 733 sub select_datelocale {
return $output;	return $output;
}	}

	sub select_language {
	my ($name,$selected,$includeempty) = @_;
	my %langchoices;
	if ($includeempty) {
	%langchoices = ('' => 'No language preference');
	}
	foreach my $id (&languageids()) {
	my $code = &supportedlanguagecode($id);
	if ($code) {
	$langchoices{$code} = &plainlanguagedescription($id);
	}
	}
	return &select_form($selected,$name,%langchoices);
	}

=pod	=pod

=item * &linked_select_forms(...)	=item * &linked_select_forms(...)
Line 796 sub linked_select_forms {	Line 834 sub linked_select_forms {
my $first = "document.$formname.$firstselectname";	my $first = "document.$formname.$firstselectname";
# output the javascript to do the changing	# output the javascript to do the changing
my $result = '';	my $result = '';
$result.="<script type=\"text/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 842 function select1_changed() {	Line 881 function select1_changed() {
}	}
}	}
}	}
	// ]]>
</script>	</script>
END	END
# output the initial values for the selection lists	# output the initial values for the selection lists
Line 903 sub help_open_topic {	Line 943 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 923 sub help_open_topic {	Line 960 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'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF;font-size:10pt;\">$text</span></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 .= <<"ENDTEMPLATE";	$template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'
<a target="_top" href="$link" title="$title"><img src="$helpicon" border="0" alt="(Help: $topic)" /></a>	.'<img src="'.$helpicon.'" border="0"'
ENDTEMPLATE	.' alt="'.&mt('Help: [_1]',$topic).'"'
if ($text ne '') { $template.='</td></tr></table>' };	.' title="'.$title.'"'
	.' /></a>';
	if ($text ne "") {
	$template.='</span>';
	}
return $template;	return $template;

}	}
Line 947 sub helpLatexCheatsheet {	Line 988 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 993 sub update_help_link {	Line 1035 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 1006 sub help_open_menu {	Line 1050 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 1031 sub top_nav_help {	Line 1074 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 1049 sub help_menu_js {	Line 1091 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 1109 sub help_open_bug {	Line 1150 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 1154 sub help_open_faq {	Line 1194 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 1365 sub resize_textarea_js {	Line 1404 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 1403 function resize_textarea(textarea_id,bot	Line 1443 function resize_textarea(textarea_id,bot
}	}
textarea.style.height=new_height+'px';	textarea.style.height=new_height+'px';
}	}
	// ]]>
</script>	</script>
RESIZE	RESIZE

Line 1746 sub select_level_form {	Line 1787 sub select_level_form {

=pod	=pod

=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc)	=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 1755 See loncreateuser.pm for an example invo	Line 1796 See loncreateuser.pm for an example invo
If the $includeempty flag is set, it also includes an empty choice ("no domain	If the $includeempty flag is set, it also includes an empty choice ("no domain
selected");	selected");

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

	If the $autosubmit flag is set, the form containing the domain selector will be auto-submitted by an onchange action.

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub select_dom_form {	sub select_dom_form {
my ($defdom,$name,$includeempty,$showdomdesc) = @_;	my ($defdom,$name,$includeempty,$showdomdesc,$autosubmit) = @_;
	my $onchange;
	if ($autosubmit) {
	$onchange = ' onchange="this.form.submit()"';
	}
my @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\">\n";	my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n";
foreach my $dom (@domains) {	foreach my $dom (@domains) {
$selectdomain.="<option value=\"$dom\" ".	$selectdomain.="<option value=\"$dom\" ".
($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;	($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;
Line 1820 sub home_server_form_item {	Line 1867 sub home_server_form_item {
if ($numlib > 1) {	if ($numlib > 1) {
$result .= '<select name="'.$name.'" />'."\n";	$result .= '<select name="'.$name.'" />'."\n";
if ($default) {	if ($default) {
$result .= '<option value="default" selected>'.&mt('default').	$result .= '<option value="default" selected="selected">'.&mt('default').
'</option>'."\n";	'</option>'."\n";
}	}
foreach my $hostid (sort(keys(%servers))) {	foreach my $hostid (sort(keys(%servers))) {
Line 2115 sub authform_kerberos {	Line 2162 sub authform_kerberos {
$autharg,$jscall);	$autharg,$jscall);
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});	my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
if ($in{'kerb_def_auth'} eq 'krb5') {	if ($in{'kerb_def_auth'} eq 'krb5') {
$check5 = ' checked="on"';	$check5 = ' checked="checked"';
} else {	} else {
$check4 = ' checked="on"';	$check4 = ' checked="checked"';
}	}
$krbarg = $in{'kerb_def_dom'};	$krbarg = $in{'kerb_def_dom'};
if (defined($in{'curr_authtype'})) {	if (defined($in{'curr_authtype'})) {
if ($in{'curr_authtype'} eq 'krb') {	if ($in{'curr_authtype'} eq 'krb') {
$krbcheck = ' checked="on"';	$krbcheck = ' checked="checked"';
if (defined($in{'mode'})) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifyuser') {	if ($in{'mode'} eq 'modifyuser') {
$krbcheck = '';	$krbcheck = '';
Line 2130 sub authform_kerberos {	Line 2177 sub authform_kerberos {
}	}
if (defined($in{'curr_kerb_ver'})) {	if (defined($in{'curr_kerb_ver'})) {
if ($in{'curr_krb_ver'} eq '5') {	if ($in{'curr_krb_ver'} eq '5') {
$check5 = ' checked="on"';	$check5 = ' checked="checked"';
$check4 = '';	$check4 = '';
} else {	} else {
$check4 = ' checked="on"';	$check4 = ' checked="checked"';
$check5 = '';	$check5 = '';
}	}
}	}
Line 2154 sub authform_kerberos {	Line 2201 sub authform_kerberos {
}	}
} else {	} else {
if ($authnum == 1) {	if ($authnum == 1) {
$authtype = '<input type="hidden" name="login" value="krb">';	$authtype = '<input type="hidden" name="login" value="krb" />';
}	}
}	}
if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {	if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {
Line 2163 sub authform_kerberos {	Line 2210 sub authform_kerberos {
if (defined($in{'mode'})) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifycourse') {	if ($in{'mode'} eq 'modifycourse') {
if ($authnum == 1) {	if ($authnum == 1) {
$authtype = '<input type="hidden" name="login" value="krb">';	$authtype = '<input type="hidden" name="login" value="krb" />';
}	}
}	}
}	}
Line 2224 sub authform_internal{	Line 2271 sub authform_internal{
if (defined($in{'curr_authtype'})) {	if (defined($in{'curr_authtype'})) {
if ($in{'curr_authtype'} eq 'int') {	if ($in{'curr_authtype'} eq 'int') {
if ($can_assign{'int'}) {	if ($can_assign{'int'}) {
$intcheck = 'checked="on" ';	$intcheck = 'checked="checked" ';
if (defined($in{'mode'})) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifyuser') {	if ($in{'mode'} eq 'modifyuser') {
$intcheck = '';	$intcheck = '';
Line 2240 sub authform_internal{	Line 2287 sub authform_internal{
}	}
} else {	} else {
if ($authnum == 1) {	if ($authnum == 1) {
$authtype = '<input type="hidden" name="login" value="int">';	$authtype = '<input type="hidden" name="login" value="int" />';
}	}
}	}
if (!$can_assign{'int'}) {	if (!$can_assign{'int'}) {
Line 2249 sub authform_internal{	Line 2296 sub authform_internal{
if (defined($in{'mode'})) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifycourse') {	if ($in{'mode'} eq 'modifycourse') {
if ($authnum == 1) {	if ($authnum == 1) {
$authtype = '<input type="hidden" name="login" value="int">';	$authtype = '<input type="hidden" name="login" value="int" />';
}	}
}	}
}	}
Line 2264 sub authform_internal{	Line 2311 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 2279 sub authform_local{	Line 2326 sub authform_local{
if (defined($in{'curr_authtype'})) {	if (defined($in{'curr_authtype'})) {
if ($in{'curr_authtype'} eq 'loc') {	if ($in{'curr_authtype'} eq 'loc') {
if ($can_assign{'loc'}) {	if ($can_assign{'loc'}) {
$loccheck = 'checked="on" ';	$loccheck = 'checked="checked" ';
if (defined($in{'mode'})) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifyuser') {	if ($in{'mode'} eq 'modifyuser') {
$loccheck = '';	$loccheck = '';
Line 2295 sub authform_local{	Line 2342 sub authform_local{
}	}
} else {	} else {
if ($authnum == 1) {	if ($authnum == 1) {
$authtype = '<input type="hidden" name="login" value="loc">';	$authtype = '<input type="hidden" name="login" value="loc" />';
}	}
}	}
if (!$can_assign{'loc'}) {	if (!$can_assign{'loc'}) {
Line 2304 sub authform_local{	Line 2351 sub authform_local{
if (defined($in{'mode'})) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifycourse') {	if ($in{'mode'} eq 'modifycourse') {
if ($authnum == 1) {	if ($authnum == 1) {
$authtype = '<input type="hidden" name="login" value="loc">';	$authtype = '<input type="hidden" name="login" value="loc" />';
}	}
}	}
}	}
Line 2333 sub authform_filesystem{	Line 2380 sub authform_filesystem{
if (defined($in{'curr_authtype'})) {	if (defined($in{'curr_authtype'})) {
if ($in{'curr_authtype'} eq 'fsys') {	if ($in{'curr_authtype'} eq 'fsys') {
if ($can_assign{'fsys'}) {	if ($can_assign{'fsys'}) {
$fsyscheck = 'checked="on" ';	$fsyscheck = 'checked="checked" ';
if (defined($in{'mode'})) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifyuser') {	if ($in{'mode'} eq 'modifyuser') {
$fsyscheck = '';	$fsyscheck = '';
Line 2346 sub authform_filesystem{	Line 2393 sub authform_filesystem{
}	}
} else {	} else {
if ($authnum == 1) {	if ($authnum == 1) {
$authtype = '<input type="hidden" name="login" value="fsys">';	$authtype = '<input type="hidden" name="login" value="fsys" />';
}	}
}	}
if (!$can_assign{'fsys'}) {	if (!$can_assign{'fsys'}) {
Line 2355 sub authform_filesystem{	Line 2402 sub authform_filesystem{
if (defined($in{'mode'})) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifycourse') {	if ($in{'mode'} eq 'modifycourse') {
if ($authnum == 1) {	if ($authnum == 1) {
$authtype = '<input type="hidden" name="login" value="fsys">';	$authtype = '<input type="hidden" name="login" value="fsys" />';
}	}
}	}
}	}
Line 2779 sub screenname {	Line 2826 sub screenname {
}	}


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

	=item confirmwrapper

	Wrap messages about completion of operation in box

	=cut

	sub confirmwrapper {
	my ($message)=@_;
	if ($message) {
	return "\n".'<div class="LC_confirm_box">'."\n"
	.$message."\n"
	.'</div>'."\n";
	} else {
	return $message;
	}
	}

# ------------------------------------------------------------- Message Wrapper	# ------------------------------------------------------------- Message Wrapper

sub messagewrapper {	sub messagewrapper {
Line 2789 sub messagewrapper {	Line 2856 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 2796 sub noteswrapper {	Line 2864 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 2804 sub aboutmewrapper {	Line 2873 sub aboutmewrapper {
return;	return;
}	}
return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.	return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.
($target?' target="$target"':'').' title="'.&mt("View this user's personal page").'">'.$link.'</a>';	($target?' target="$target"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';
}	}

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


sub syllabuswrapper {	sub syllabuswrapper {
my ($linktext,$coursedir,$domain)=@_;	my ($linktext,$coursedir,$domain)=@_;
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) = @_;	my ($linktext,$sname,$sdom,$target,$start) = @_;
my $link ="/adm/trackstudent?";	my $link ="/adm/trackstudent?";
Line 2836 sub track_student_link {	Line 2906 sub track_student_link {
&help_open_topic('View_recent_activity');	&help_open_topic('View_recent_activity');
}	}

	sub slot_reservations_link {
	my ($linktext,$sname,$sdom,$target) = @_;
	my $link ="/adm/slotrequest?command=showresv&origin=aboutme";
	my $title = 'View slot reservation history';
	if (defined($sname) && $sname !~ /^\s*$/ &&
	defined($sdom) && $sdom !~ /^\s*$/) {
	$link .= "&uname=$sname&udom=$sdom";
	$title .= ' of this student';
	}
	if (defined($target) && $target !~ /^\s*$/) {
	$target = qq{target="$target"};
	} else {
	$target = '';
	}
	$title = &mt($title);
	$linktext = &mt($linktext);
	return qq{<a href="$link" title="$title" $target>$linktext</a>};
	# FIXME uncomment when help item created: &help_open_topic('Slot_Reservation_History');

	}

# ===================================================== Display a student photo	# ===================================================== Display a student photo


Line 3073 sub languages {	Line 3164 sub languages {
return $preferred_possibilities[0];	return $preferred_possibilities[0];
}	}

	sub user_lang {
	my ($touname,$toudom,$fromcid) = @_;
	my @userlangs;
	if (($fromcid ne '') && ($env{'course.'.$fromcid.'.languages'} ne '')) {
	@userlangs=(@userlangs,split(/\s(\,\|\;\|\:)\s/,
	$env{'course.'.$fromcid.'.languages'}));
	} else {
	my %langhash = &getlangs($touname,$toudom);
	if ($langhash{'languages'} ne '') {
	@userlangs = split(/\s(\,\|\;\|\:)\s/,$langhash{'languages'});
	} else {
	my %domdefs = &Apache::lonnet::get_domain_defaults($toudom);
	if ($domdefs{'lang_def'} ne '') {
	@userlangs = ($domdefs{'lang_def'});
	}
	}
	}
	my @languages=&Apache::lonlocal::get_genlanguages(@userlangs);
	my $user_lh = Apache::localize->get_handle(@languages);
	return $user_lh;
	}


###############################################################	###############################################################
## Student Answer Attempts ##	## Student Answer Attempts ##
###############################################################	###############################################################
Line 3652 sub blockcheck {	Line 3766 sub blockcheck {
($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));	($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));
next if ($no_userblock);	next if ($no_userblock);

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

my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);	my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);
Line 3757 sub build_block_table {	Line 3871 sub build_block_table {
}	}
$output .= &end_data_table();	$output .= &end_data_table();
}	}

sub blocking_status {	sub blocking_status {
my ($activity,$uname,$udom) = @_;	my $blocked;
my %setters;	my ($activity,$uname,$udom) = @_;
my ($blocked,$output,$ownitem,$is_course);	my %setters;
my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);	my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);
if ($startblock && $endblock) {	if ($startblock && $endblock) {
$blocked = 1;	$blocked = 1;
if (wantarray) {	}
my $category;	if(!wantarray) {
if ($activity eq 'boards') {	return $blocked;
$category = 'Discussion posts in this course';	}
} elsif ($activity eq 'blogs') {	my $output;
$category = 'Blogs';	my $querystring;
} elsif ($activity eq 'port') {	$querystring = "?activity=$activity";
if (defined($uname) && defined($udom)) {
if ($uname eq $env{'user.name'} &&	$output .= <<"END_MYBLOCK";
$udom eq $env{'user.domain'}) {	<script type="text/javascript">
$ownitem = 1;	// <![CDATA[
}	function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
}	var options = "width=" + w + ",height=" + h + ",";
$is_course = &Apache::lonnet::is_course($udom,$uname);	options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
if ($ownitem) {	options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
$category = 'Your portfolio files';	var newWin = window.open(url, wdwName, options);
} elsif ($is_course) {	newWin.focus();
my $coursedesc;
foreach my $course (keys(%setters)) {
my %courseinfo =
&Apache::lonnet::coursedescription($course);
$coursedesc = $courseinfo{'description'};
}
$category = "Group files in the course '$coursedesc'";
} else {
$category = 'Portfolio files belonging to ';
if ($env{'user.name'} eq 'public' &&
$env{'user.domain'} eq 'public') {
$category .= &plainname($uname,$udom);
} else {
$category .= &aboutmewrapper(&plainname($uname,$udom),$uname,$udom);
}
}
} elsif ($activity eq 'groups') {
$category = 'Groups in this course';
}
my $showstart = &Apache::lonlocal::locallocaltime($startblock);
my $showend = &Apache::lonlocal::locallocaltime($endblock);
$output = '<br />'.&mt('[_1] will be inaccessible between [_2] and [_3] because communication is being blocked.',$category,$showstart,$showend).'<br />';
if (!($activity eq 'port' && !($ownitem) && !($is_course))) {
$output .= &build_block_table($startblock,$endblock,\%setters);
}
}
}
if (wantarray) {
return ($blocked,$output);
} else {
return $blocked;
}	}

	// ]]>
	</script>
	END_MYBLOCK
	my $popupUrl = "/adm/blockingstatus/$querystring";
	$output .= <<"END_BLOCK";
	<div class='LC_comblock'>
	<a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'>
	<img class='LC_noBorder LC_middle' src='/res/adm/pages/comblock.png' alt='Communication Blocking'/></a>
	<a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'>Communication Blocking</a>
	</div>

	END_BLOCK

	return ($blocked, $output);
}	}

###############################################	###############################################
Line 4042 Returns: value of designparamter $which	Line 4139 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);
}	}
}	}
return $output;	return $output;
}	}

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

	=item * &authorspace()

	Inputs: ./.

	Returns: Path to the Construction Space of the current user's
	accessed author space
	The author space will be that of the current user
	when accessing the own author space
	and that of the co-author/assistent co-author
	when accessing the co-author's/assistent co-author's
	space

	=cut

	sub authorspace {
	my $caname = '';
	if ($env{'request.role'} =~ /^ca\|^aa/) {
	(undef,$caname) =
	($env{'request.role'}=~/($match_domain)\/($match_username)$/);
	} else {
	$caname = $env{'user.name'};
	}
	return '/priv/'.$caname.'/';
	}

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

	=item * &head_subbox()

	Inputs: $content (contains HTML code with page functions, etc.)

	Returns: HTML div with $content
	To be included in page header

	=cut

	sub head_subbox {
	my ($content)=@_;
	my $output =
	'<div id="LC_head_subbox">'
	.$content
	.'</div>'
	}

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

	=item * &CSTR_pageheader()

	Inputs: ./.

	Returns: HTML div with CSTR path and recent box
	To be included on Construction Space pages

	=cut

	sub CSTR_pageheader {
	# this is for resources; directories have customtitle, and crumbs
	# and select recent are created in lonpubdir.pm
	my ($uname,$thisdisfn)=
	($env{'request.filename'} =~ m\|^/home/([^/]+)/public_html/(.*)\|);
	my $formaction='/priv/'.$uname.'/'.$thisdisfn;
	$formaction=~s/\/+/\//g;

	my $parentpath = '';
	my $lastitem = '';
	if ($thisdisfn =~ m-(.+/)([^/]*)$-) {
	$parentpath = $1;
	$lastitem = $2;
	} else {
	$lastitem = $thisdisfn;
	}
	return
	'<div>'
	.&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it?
	.'<b>'.&mt('Construction Space:').'</b> '
	.'<form name="dirs" method="post" action="'.$formaction
	.'" target="_top"><tt><b>' #FIXME lonpubdir: target="_parent"
	.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."$lastitem</b></tt><br />"
	#FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />"
	.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
	.'</form>'
	.&Apache::lonmenu::constspaceform()
	.'</div>';
	}

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

Line 4109 Inputs:	Line 4285 Inputs:
=item * $forcereg, if page should register as content page (relevant for	=item * $forcereg, if page should register as content page (relevant for
text interface only)	text interface only)

=item * $customtitle, alternate text to use instead of $title	=item * $no_nav_bar, if true, keep the 'what is this' info but remove the
in the title box that appears, this text	navigational links
is not auto translated like the $title is

=item * $notopbar, if true, keep the 'what is this' info but remove the
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 4139 other decorations will be returned.	Line 4309 other decorations will be returned.
=cut	=cut

sub bodytag {	sub bodytag {
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,	my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,
$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 4149 sub bodytag {	Line 4319 sub bodytag {
my $font = &designparm($function.'.font',$domain);	my $font = &designparm($function.'.font',$domain);
my $pgbg = $bgcolor \|\| &designparm($function.'.pgbg',$domain);	my $pgbg = $bgcolor \|\| &designparm($function.'.pgbg',$domain);

my %design = ( 'style' => 'margin-top: 0px',	my %design = ( 'style' => 'margin-top: 0',
'bgcolor' => $pgbg,	'bgcolor' => $pgbg,
'text' => $font,	'text' => $font,
'alink' => &designparm($function.'.alink',$domain),	'alink' => &designparm($function.'.alink',$domain),
Line 4185 sub bodytag {	Line 4355 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 4202 sub bodytag {	Line 4364 sub bodytag {
$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'});	$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'});
}	}

my $roleinfo=(<<ENDROLE);	my $titleinfo = '<h1>'.$title.'</h1>';
<td class="LC_title_bar_who">
<div class="LC_title_bar_name">
$name

</div>
<div class="LC_title_bar_role">
$role
</div>
<div class="LC_title_bar_realm">
$realm
</div>
</td>
ENDROLE

my $titleinfo = '<span class="LC_title_bar_title">'.$title.'</span>';
if ($customtitle) {
$titleinfo = $customtitle;
}
#	#
# Extra info if you are the DC	# Extra info if you are the DC
my $dc_info = '';	my $dc_info = '';
Line 4233 ENDROLE	Line 4377 ENDROLE
$dc_info = '('.$dc_info.')';	$dc_info = '('.$dc_info.')';
}	}

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

	if ($env{'environment.remote'} eq 'off') {
# No Remote	# No Remote
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$forcereg=1;	$forcereg=1;
}	}

if (!$customtitle && $env{'request.state'} eq 'construct') {	# if ($env{'request.state'} eq 'construct') {
# this is for resources; directories have customtitle, and crumbs	# $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
# and select recent are created in lonpubdir.pm	# }
my ($uname,$thisdisfn)=
($env{'request.filename'} =~ m\|^/home/([^/]+)/public_html/(.*)\|);	my $titletable = '<table id="LC_title_bar">'
my $formaction='/priv/'.$uname.'/'.$thisdisfn;	."<tr><td> $titleinfo $dc_info</td>"
$formaction=~s/\/+/\//g;	.'</tr></table>';

my $parentpath = '';	if ($no_nav_bar) {
my $lastitem = '';
if ($thisdisfn =~ m-(.+/)([^/]*)$-) {
$parentpath = $1;
$lastitem = $2;
} else {
$lastitem = $thisdisfn;
}
$titleinfo =
&Apache::loncommon::help_open_menu('','',3,'Authoring')
.'<b>'.&mt('Construction Space').'</b>: '
.'<form name="dirs" method="post" action="'.$formaction
.'" target="_top"><tt><b>'
.&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()')
.'</form>'
.&Apache::lonmenu::constspaceform();
}

my $titletable;
if (!$notitle) {
$titletable =
'<table id="LC_title_bar">'.
"<tr><td> $titleinfo $dc_info</td>".$roleinfo.
'</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>\| unless $env{'form.inhibitmenu'};

if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg,	$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$titletable);
$titletable);
} else {	} else {
$bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg).	$bodytag .= &Apache::lonmenu::menubuttons($forcereg).$titletable;
$titletable;
}	}
}	}
return $bodytag;	return $bodytag;
Line 4299 ENDROLE	Line 4421 ENDROLE

# Explicit link to get inline menu	# Explicit link to get inline menu
my $menu= ($no_inline_link?''	my $menu= ($no_inline_link?''
:'<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>');	:'<a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>');
	$bodytag .= qq\|<div id="LC_nav_bar">$name $role
	<em>$realm</em> $dc_info </div>
	<ol class="LC_smallMenu LC_right">
	<li>$menu</li>
	</ol>\| unless $env{'form.inhibitmenu'};
#	#
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
</tr>	</tr>
</table>	</table>
ENDBODY	ENDBODY
Line 4356 sub make_attr_string {	Line 4479 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 4425 sub standard_css {	Line 4539 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 4440 sub standard_css {	Line 4556 sub standard_css {

my $sans = 'Verdana,Arial,Helvetica,sans-serif';	my $sans = 'Verdana,Arial,Helvetica,sans-serif';
my $mono = 'monospace';	my $mono = 'monospace';
my $data_table_head = $tabbg;	my $data_table_head = $sidebg;
my $data_table_light = '#EEEEEE';	my $data_table_light = '#FAFAFA';
my $data_table_dark = '#DDDDDD';	my $data_table_dark = '#F0F0F0';
my $data_table_darker = '#CCCCCC';	my $data_table_darker = '#CCCCCC';
my $data_table_highlight = '#FFFF00';	my $data_table_highlight = '#FFFF00';
my $mail_new = '#FFBB77';	my $mail_new = '#FFBB77';
Line 4458 sub standard_css {	Line 4574 sub standard_css {
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' ) ? '0px 2px 0px 2px'	$env{'browser.type'} eq 'safari' ) ? '0 2px 0 2px'
: '0px 3px 0px 4px';	: '0 3px 0 4px';


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

a:focus { color: red; background: yellow }	a:link, a:visited {
table.thinborder,	font-size:100%;
table.thinborder tr th {
border-style: solid;
border-width: 1px;
border-color: $lg_border_color;
background: $tabbg;
}	}
table.thinborder tr td {
border-style: solid;	a:focus {
border-width: 1px;	color: red;
border-color: $lg_border_color;	background: yellow
}	}

form, .inline { display: inline; }	hr {
	clear: both;
	color: $tabbg;
	background-color: $tabbg;
	height: 3px;
	border: none;
	}

.LC_center { text-align: center; }	form, .inline {
.LC_left { text-align:left; }	display: inline;
.LC_right {text-align:right;}	}
.LC_middle {vertical-align:middle;}
.LC_top {vertical-align:top;}	.LC_right {
.LC_bottom {vertical-align:bottom;}	text-align:right;
	}

	.LC_middle {
	vertical-align:middle;
	}

/* just for tests */	/* just for tests */
.LC_300Box { width:300px; }	.LC_400Box {width:400px; }
.LC_200Box {width:200px; }
.LC_500Box {width:500px; }
.LC_600Box {width:600px; }
/* end */	/* end */

.LC_filename {font-family: $mono; white-space:pre;}	.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;
	}

.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 4516 form, .inline { display: inline; }	Line 4647 form, .inline { display: inline; }
.LC_diff_added {	.LC_diff_added {
color: green;	color: green;
}	}
.LC_unknown {
color: yellow;	div.LC_confirm_box {
	background-color: #FAFAFA;
	border: 1px solid $lg_border_color;
	margin-right: 0;
	padding: 5px;
}	}

.LC_icon {	div.LC_confirm_box .LC_error img,
border: 0px;	div.LC_confirm_box .LC_success img {
	vertical-align: middle;
}	}
.LC_indexer_icon {
border: 0px;	.LC_icon {
height: 22px;	border: none;
	vertical-align: middle;
}	}

.LC_docs_spacer {	.LC_docs_spacer {
width: 25px;	width: 25px;
height: 1px;	height: 1px;
border: 0px;	border: none;
}	}

.LC_internal_info {	.LC_internal_info {
color: #999999;	color: #999999;
}	}

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

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

	.LC_disc_action_left {
	text-align: left;
	}

	.LC_disc_action_right {
	text-align: right;
	}

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

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

table.LC_pastsubmission {	table.LC_pastsubmission {
border: 1px solid black;	border: 1px solid black;
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;
border-collapse: separate;	border-collapse: separate;
padding: 0px;	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;
font-family: $sans;
border-collapse: collapse;
padding: 0px;
}
table.LC_docs_path {
width: 100%;
border: 0;
background: $pgbg;	background: $pgbg;
font-family: $sans;	color: $fontmenu;
border-collapse: collapse;	border-collapse: collapse;
padding: 0px;	padding: 0;
	margin: 0;
}	}

table#LC_title_bar td {	table#LC_title_bar td {
background: $tabbg;	background: $tabbg;
}	}
table#LC_title_bar td.LC_title_bar_who {
background: $tabbg;
color: $font;
font: small $sans;
text-align: right;
}
span.LC_metadata {
font-family: $sans;
}
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: 0px;
}
table#LC_title_bar td.LC_title_bar_role_logo {
background: $sidebg;
padding: 0px;
}

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

table#LC_top_nav td {	table#LC_top_nav td {
background: $tabbg;	background: $tabbg;
border: 0px;	border: none;
font-size: small;	font-size: small;
vertical-align:top;	vertical-align:top;
padding:2px 5px 2px 5px;	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;
}	}

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: 0px;	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 {
background: $tabbg;	.LC_breadcrumbs_component {
color: $font;	float: right;
font-family: $sans;	margin: 0 1em;
font-size: smaller;
}	}
table.LC_breadcrumbs td.LC_breadcrumbs_component,	.LC_breadcrumbs_component img {
table.LC_docs_path td.LC_docs_path_component {	vertical-align: middle;
background: $tabbg;
color: $font;
font-family: $sans;
font-size: larger;
text-align: right;
}	}

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

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

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

.LC_fontsize_medium	#LC_breadcrumbs {
{	clear:both;
font-size: 85%;	background: $sidebg;
	border-bottom: 1px solid $lg_border_color;
	line-height: 32px;
	margin: 0;
	padding: 0;
}	}

.LC_fontsize_large	/* Preliminary fix to hide breadcrumbs inside remote control window */
{	#LC_remote #LC_breadcrumbs {
font-size: 120%;	display:none;
}	}

.LC_fontcolor_red	#LC_head_subbox {
{	clear:both;
color: #FF0000;	background: #F8F8F8; /* $sidebg; */
	border-bottom: 1px solid $lg_border_color;
	margin: 0 0 10px 0;
	padding: 5px;
	}

	.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-size: 90%;	font-size: 90%;
padding-left:3px;	padding-left:3px;
}	}
Line 4679 table#LC_mainmenu td.LC_mainmenu_column	Line 4847 table#LC_mainmenu td.LC_mainmenu_column
.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;
font-family: $sans;
font-size: larger;	font-size: larger;
font-weight: bold;	font-weight: bold;
}	}

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



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

.LC_new_mail {	.LC_new_mail {
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 {
font-family: $sans;
text-align: right;
}

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

.LC_mail_functions {	table.LC_data_table,
font-weight: bold;	table.LC_mail_list {
}

table.LC_aboutme_port {
border: 0px;
border-collapse: collapse;
border-spacing: 0px;
}
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: 0px;	border-spacing: 0;
width: 100%;	width: 100%;
}	}

table.LC_nested {	table.LC_nested {
border: 0px;	border: none;
border-collapse: collapse;	border-collapse: collapse;
border-spacing: 0px;	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_data_table tr th,
	table.LC_calendar tr th,
	table.LC_mail_list tr th,
table.LC_prior_tries tr th {	table.LC_prior_tries tr th {
font-weight: bold;	font-weight: bold;
background-color: $data_table_head;	background-color: $data_table_head;
	color:$fontmenu;
font-size:90%;	font-size:90%;
}	}

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 4787 table.LC_nested tr.LC_empty_row td {	Line 4943 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: small;	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 4803 table.LC_nested_outer tr td.LC_subheader	Line 4963 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 4845 table.LC_calendar {	Line 5009 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 4862 table.LC_calendar tr td.LC_calendar_day_	Line 5030 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_data_table tr > td.LC_browser_file,	table.LC_data_table tr > td.LC_browser_file,
table.LC_data_table tr > td.LC_browser_file_published {	table.LC_data_table tr > td.LC_browser_file_published {
background: #CCFF88;	background: #CCFF88;
}	}

table.LC_data_table tr > td.LC_browser_file_locked,	table.LC_data_table tr > td.LC_browser_file_locked,
table.LC_data_table tr > td.LC_browser_file_unpublished {	table.LC_data_table tr > td.LC_browser_file_unpublished {
background: #FFAA99;	background: #FFAA99;
}	}

table.LC_data_table tr > td.LC_browser_file_obsolete {	table.LC_data_table tr > td.LC_browser_file_obsolete {
background: #AAAAAA;	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: #FFFF77;	background: #FFFF77;
}	}

table.LC_data_table tr.LC_browser_folder > td {	table.LC_data_table tr.LC_browser_folder > td {
background: #CCCCFF;	background: #CCCCFF;
}	}
Line 4910 table.LC_data_table tr.LC_browser_folder	Line 5091 table.LC_data_table tr.LC_browser_folder
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;
}	}
Line 4933 span.LC_current_location {	Line 5119 span.LC_current_location {

span.LC_parm_menu_item {	span.LC_parm_menu_item {
font-size: larger;	font-size: larger;
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: 0px;	border: none;
height: 55px;	height: 55px;
border-spacing: 0px;	border-spacing: 0;
}	}

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

table#LC_helpmenu_links {	table#LC_helpmenu_links {
width: 100%;	width: 100%;
border: 1px solid black;	border: 1px solid black;
background: $pgbg;	background: $pgbg;
padding: 0px;	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 4994 table#LC_helpmenu_links tr td {	Line 5190 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 5008 table#LC_helpmenu_links a:hover {	Line 5206 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: $sidebg;
font-weight: bold;	font-weight: bold;
text-align: right;	text-align: right;
	vertical-align: top;
width: 184px;	width: 184px;
padding: 8px;	padding: 8px;
}	}
table.LC_pick_box td.LC_selfenroll_pick_box_title {
background: $tabbg;
font-weight: bold;
text-align: right;
width: 350px;
padding: 8px;
}

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

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: 0px;	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 5070 table.LC_helpform_receipt {	Line 5272 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 5077 table.LC_helpform_receipt td.LC_pick_box	Line 5280 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: 0px;	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: 0px;	padding: 0;
}	}

table.LC_notify_front_page {	table.LC_notify_front_page {
Line 5129 table.LC_notify_front_page {	Line 5342 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-weight: bold;	font-weight: bold;
width: 100%;	width: 100%;
background: $tabbg;	background: $tabbg;
vertical-align: middle;	vertical-align: middle;
margin: 2ex 0ex 2ex 0ex;	margin: 2ex 0ex 2ex 0ex;
	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: $sidebg;
width: 100%;	width: 100%;
	padding-bottom: 10px;
	border: 1px $tabbg solid;
	height: 22px;
	line-height: 22px;
	padding-top: 5px;
	}

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

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

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

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

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

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

span.LC_message_link {	span.LC_message_link {
background: $feedback_link_bg;	/* background: $feedback_link_bg; */
font-size: larger;	font-size: larger;
position: absolute;	position: absolute;
right: 1em;	right: 1em;
Line 5189 table.LC_prior_tries td {	Line 5435 table.LC_prior_tries td {
}	}

.LC_answer_correct {	.LC_answer_correct {
background: #AAFFAA;	background: lightgreen;
color: black;	color: darkgreen;
	padding: 6px;
}	}

.LC_answer_charged_try {	.LC_answer_charged_try {
background: #FFAAAA ! important;	background: #FFAAAA;
color: black;	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;
color: black;	color: black;
	padding: 6px;
}	}

.LC_answer_previous {	.LC_answer_previous {
background: #AAAAFF;	background: lightblue;
color: black;	color: darkblue;
	padding: 6px;
}	}

.LC_answer_no_message {	.LC_answer_no_message {
background: #FFFFFF;	background: #FFFFFF;
color: black;	color: black;
	padding: 6px;
}	}

.LC_answer_unknown {	.LC_answer_unknown {
background: orange;	background: orange;
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 5234 table.LC_prior_option {	Line 5490 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;
}	}

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

Line 5258 span.LC_cusr_subheading {	Line 5517 span.LC_cusr_subheading {

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

Line 5267 table.LC_docs_documents td.LC_docs_docum	Line 5526 table.LC_docs_documents td.LC_docs_docum
padding: 4px;	padding: 4px;
}	}

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

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

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

	.LC_docs_entry_parameter {
	white-space: nowrap;
	}

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

.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 5299 table.LC_docs_documents td.LC_docs_docum	Line 5565 table.LC_docs_documents td.LC_docs_docum
font-size: x-small;	font-size: x-small;
}	}

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

table.LC_docs_adddocs td,	table.LC_docs_adddocs td,
table.LC_docs_adddocs th {	table.LC_docs_adddocs th {
border: 1px solid #BBBBBB;	border: 1px solid #BBBBBB;
Line 5319 table.LC_docs_adddocs th {	Line 5575 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;
}	}

table.LC_double_column {	table.LC_double_column {
border-width: 0px;	border-width: 0;
border-collapse: collapse;	border-collapse: collapse;
width: 100%;	width: 100%;
padding: 2px;	padding: 2px;
Line 5339 table.LC_double_column tr td.LC_left_col	Line 5596 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 5363 div.LC_clear_float_footer {	Line 5620 div.LC_clear_float_footer {
clear: both;	clear: both;
}	}


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-weight: bold;	font-weight: bold;
font-size: large;	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 5387 div.LC_grade_assign {	Line 5645 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,
Line 5394 div.LC_grade_assign_header {	Line 5653 div.LC_grade_assign_header {
font-weight: bold;	font-weight: bold;
font-size: large;	font-size: large;
}	}

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

span.LC_grade_check_note {	span.LC_grade_check_note {
font-weight: normal;	font-weight: normal;
font-size: medium;	font-size: medium;
Line 5413 span.LC_grade_check_note {	Line 5674 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-weight:bold;	font-weight:bold;
font-style:normal;	font-style:normal;
}	}
.LC_edit_problem_header,
	.LC_edit_problem_header,
div.LC_edit_problem_footer {	div.LC_edit_problem_footer {
font-weight: normal;	font-weight: normal;
font-size: medium;	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 5431 div.LC_edit_problem_editxml_header,	Line 5695 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 {
background: $tabbg;
padding: 3px;
margin-bottom: 5px;
}
div.LC_edit_problem_header_title {	div.LC_edit_problem_header_title {
font-weight: bold;	font-weight: bold;
font-size: larger;	font-size: larger;
background: $tabbg;	background: $tabbg;
padding: 3px;	padding: 3px;
}	}

table.LC_edit_problem_header_title {	table.LC_edit_problem_header_title {
font-size: larger;	font-size: larger;
font-weight: bold;	font-weight: bold;
Line 5449 table.LC_edit_problem_header_title {	Line 5710 table.LC_edit_problem_header_title {
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: 0px	padding: 0;
}	}

div.LC_edit_problem_discards {	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 {
clear: both;
color: $tabbg;
background-color: $tabbg;
height: 3px;
border: 0px;
}
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;
font-family: $sans;
font-size: small;	font-size: small;
font-weight: bold;	font-weight: bold;
}	}
Line 5510 ol#LC_MenuBreadcrumbs a:hover,	Line 5764 ol#LC_MenuBreadcrumbs a:hover,
ol#LC_PathBreadcrumbs a:hover,	ol#LC_PathBreadcrumbs a:hover,
ul#LC_TabMainMenuContent a:hover,	ul#LC_TabMainMenuContent a:hover,
.LC_FormSectionClearButton input:hover	.LC_FormSectionClearButton input:hover
ul.LC_TabContent li:hover a{	ul.LC_TabContent li:hover a {
color:#BF2317;	color:#BF2317;
text-decoration:none;	text-decoration:none;
}	}

h1 {	h1 {
padding:5px 10px 5px 20px;	padding: 0;
line-height:130%;	line-height:130%;
}	}

h2,h3,h4,h5,h6	h2,h3,h4,h5,h6 {
{	margin: 5px 0 5px 0;
margin:5px 0px 5px 0px;	padding: 0;
padding:0px;
line-height:130%;	line-height:130%;
}	}
.LC_hcell{
	.LC_hcell {
padding:3px 15px 3px 15px;	padding:3px 15px 3px 15px;
margin:0px;	margin: 0;
background-color:$tabbg;	background-color:$tabbg;
border-bottom:solid 1px $lg_border_color;	color:$fontmenu;
}	border-bottom:solid 1px $lg_border_color;
.LC_noBorder {
border:0px;
}	}

.LC_bgLightGrey{	.LC_Box > .LC_hcell {
background:URL(/adm/lonIcons/lightGreyBG.png) repeat-x left top;	margin: 0 -10px 10px -10px;
}
.LC_bgLightGreyYellow {
background-color:#EFECE0;
}	}

/* Main Header with discription of Person, Course, etc. */	.LC_noBorder {
.LC_HeadRight {	border: 0;
text-align: right;
float: right;
margin: 0px;
padding: 0px;
right:0;
position:absolute;
overflow:hidden;
}	}

p, .LC_ContentBox {	.LC_Right {
padding: 10px;	float: right;
	margin: 0;
	padding: 0;
}	}

.LC_FormSectionClearButton input {	.LC_FormSectionClearButton input {
	background-color:transparent;
border:0px;	border: none;
cursor:pointer;	cursor:pointer;
text-decoration:underline;	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 {	dl,ul,div,fieldset {
margin: 10px 10px 10px 0px;	margin: 10px 10px 10px 0;
overflow:hidden;	/* overflow: hidden; */
	}

	fieldset > legend {
	font-weight: bold;
	padding: 0 5px 0 5px;
	}

	#LC_nav_bar {
	float: left;
	margin: 0.2em 0 0 0;
}	}
ol.LC_smallMenu, ol#LC_PathBreadcrumbs {
margin: 0px;	#LC_nav_bar em{
	font-weight: bold;
	font-style: normal;
	}

	ol.LC_smallMenu {
	float: right;
	margin: 0.2em 0 0 0;
	}

	ol#LC_PathBreadcrumbs {
	margin: 0;
}	}

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

Line 5590 ol.LC_smallMenu a {	Line 5864 ol.LC_smallMenu a {
text-decoration: none;	text-decoration: none;
}	}

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

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

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

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

ol#LC_TabMainMenuContent li {
	ul.LC_TabContent li,
	ul.LC_TabContentBigger li {
display: inline;	display: inline;
vertical-align: bottom;	border-right: solid 1px $lg_border_color;
border-bottom: solid 1px RGB(175, 175, 175);	float:left;
border-right: solid 1px RGB(175, 175, 175);	line-height:140%;
padding: 5px 10px 5px 10px;
margin-right:3px;
line-height: 140%;
font-weight: bold;
white-space:nowrap;	white-space:nowrap;
background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
}	}

ol#LC_TabMainMenuContent li a{	ul#LC_TabMainMenuContent li a {
color: RGB(47, 47, 47);	color: $fontmenu;
text-decoration: none;	text-decoration: none;
}	}

ul.LC_TabContent {	ul.LC_TabContent {
margin:0px;
padding:0px;
display:block;
list-style:none;
min-height:1.5em;	min-height:1.5em;
}	}
ul.LC_TabContent li{
display:inline;	ul.LC_TabContent li {
vertical-align:top;	vertical-align:middle;
	padding: 0 10px 0 10px;
	background-color:$tabbg;
border-bottom:solid 1px $lg_border_color;	border-bottom:solid 1px $lg_border_color;
border-right:solid 1px $lg_border_color;
padding:5px 10px 5px 10px;
margin-right:2px;
background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
}	}
ul.LC_TabContent li a, ul.LC_TabContent li{
	ul.LC_TabContent .right {
	float:right;
	}

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

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

.LC_hideThis	ul.LC_TabContentBigger li {
{	vertical-align:bottom;
display:none;	border-top:solid 1px $lg_border_color;
visibility:hidden;	border-left:solid 1px $lg_border_color;
	padding:5px 10px 5px 10px;
	margin-left:2px;
	background: #d9d9d9;
}	}

ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcrumbs {	#maincoursedoc {
border-top: solid 1px RGB(255, 255, 255);	clear:both;
height: 20px;	}
line-height: 20px;
vertical-align: bottom;	ul.LC_TabContentBigger li:hover,
margin: 0px 0px 30px 0px;	ul.LC_TabContentBigger li.active {
	background: #ffffff;
	color:$font;
	}

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

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

	}

	ol#LC_MenuBreadcrumbs,
	ol#LC_PathBreadcrumbs {
padding-left: 10px;	padding-left: 10px;
	margin: 0;
list-style-position: inside;	list-style-position: inside;
background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
}	}

ol#LC_MenuBreadcrumbs li, ol#LC_PathBreadcrumbs li {	ol#LC_MenuBreadcrumbs li,
background: url(/adm/lonIcons/arrow_white.png) no-repeat left center;	ol#LC_PathBreadcrumbs li,
display: inline;	ul.LC_CourseBreadcrumbs li {
padding: 0px 0px 0px 10px;	display: inline;
vertical-align: bottom;	white-space: nowrap;
overflow:hidden;
}	}

ol#LC_MenuBreadcrumbs li a {	ol#LC_MenuBreadcrumbs li a,
	ul.LC_CourseBreadcrumbs li a {
text-decoration: none;	text-decoration: none;
font-size:90%;	font-size:90%;
}	}
ol#LC_PathBreadcrumbs li a{
	ol#LC_PathBreadcrumbs li a {
text-decoration:none;	text-decoration:none;
font-size:100%;	font-size:100%;
font-weight:bold;	font-weight:bold;
}	}
.LC_ContentBoxSpecial
{	.LC_Box {
border: solid 1px $lg_border_color;	border: solid 1px $lg_border_color;
	padding: 0 10px 10px 10px;
}	}
.LC_PopUp
{	.LC_AboutMe_Image {
padding:10px;	float:left;
border-left:solid 1px $lg_border_color;	margin-right:10px;
border-top:solid 1px $lg_border_color;	}
border-bottom:outset 1px $lg_border_color;
border-right:outset 1px $lg_border_color;	.LC_Clear_AboutMe_Image {
display:none;	clear:left;
position:absolute;
right:0;
background-color:white;
z-index:5;
}	}

dl.LC_ListStyleClean dt {	dl.LC_ListStyleClean dt {
Line 5708 dl.LC_ListStyleClean dd {	Line 6029 dl.LC_ListStyleClean dd {
.LC_ListStyleClean,	.LC_ListStyleClean,
.LC_ListStyleSimple,	.LC_ListStyleSimple,
.LC_ListStyleNormal,	.LC_ListStyleNormal,
.LC_ListStyleNormal_Border,	.LC_ListStyle_Border,
.LC_ListStyleSpecial	.LC_ListStyleSpecial {
{
/display:block; /	/display:block; /
list-style-position: inside;	list-style-position: inside;
list-style-type: none;	list-style-type: none;
overflow: hidden;	overflow: hidden;
padding: 0px;	padding: 0;
}	}

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

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

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

Line 5751 dl.LC_ListStyleClean dd {	Line 6070 dl.LC_ListStyleClean dd {
table.LC_SimpleTable {	table.LC_SimpleTable {
margin:5px;	margin:5px;
border:solid 1px $lg_border_color;	border:solid 1px $lg_border_color;
}	}

table.LC_SimpleTable tr {	table.LC_SimpleTable tr {
padding:0px;	padding: 0;
border:solid 1px $lg_border_color;	border:solid 1px $lg_border_color;
}	}
table.LC_SimpleTable thead{
	table.LC_SimpleTable thead {
background:rgb(220,220,220);	background:rgb(220,220,220);
}	}

Line 5765 div.LC_columnSection {	Line 6085 div.LC_columnSection {
display: block;	display: block;
clear: both;	clear: both;
overflow: hidden;	overflow: hidden;
margin:0px;	margin: 0;
}	}

div.LC_columnSection>* {	div.LC_columnSection>* {
float: left;	float: left;
margin: 10px 20px 10px 0px;	margin: 10px 20px 10px 0;
overflow:hidden;	overflow:hidden;
}
div.LC_columnSection > .LC_ContentBox,
div.LC_columnSection > .LC_ContentBoxSpecial
{
width: 400px;
}

.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: 0px;
font-size: 0px;
height: 0px;
}	}

.LC_loginpage_container {	.LC_loginpage_container {
text-align:left;	text-align:left;
margin : 0 auto;	margin : 0 auto;
width:65%;	width:90%;
padding: 10px;	padding: 10px;
height: auto;	height: auto;
background-color:#FFFFFF;	background-color:#FFFFFF;
Line 5815 div.LC_columnSection > .ContentBoxSpecia	Line 6108 div.LC_columnSection > .ContentBoxSpecia
.LC_loginpage_loginContainer {	.LC_loginpage_loginContainer {
float:left;	float:left;
width: 182px;	width: 182px;
	padding: 2px;
border:1px solid #CCCCCC;	border:1px solid #CCCCCC;
background-color:$loginbg;	background-color:$loginbg;
}	}

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

.LC_loginpage_loginInfo {	.LC_loginpage_loginInfo {
margin-left:20px;
float:left;	float:left;
width:30%;	width:182px;
border:1px solid #CCCCCC;	border:1px solid #CCCCCC;
padding:10px;	padding:2px;
}

.LC_loginpage_loginDomain {
margin-right:20px;
width:20%;
float:left;
padding:10px;
}	}

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

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

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

	table.LC_tableBrowseRes,
	table.LC_tableOfContent {
	border:none;
	border-spacing: 1px;
	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_funclist li {
	float: left;
	white-space: nowrap;
	height: 35px; /* at least as high as heighest list item */
	margin: 0 15px 15px 10px;
	}


END	END
}	}

Line 5974 sub xml_begin {	Line 6377 sub xml_begin {
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" '	.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" '
.'xmlns="http://www.w3.org/1999/xhtml">';	.'xmlns="http://www.w3.org/1999/xhtml">';
} else {	} else {
$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>';	$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
	.'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">';
}	}
return $output;	return $output;
}	}
Line 6036 $args - additional optional args support	Line 6440 $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 6050 $args - additional optional args support	Line 6454 $args - additional optional args support
a html attribute	a html attribute
force_register -> if is true will turn on the &bodytag()	force_register -> if is true will turn on the &bodytag()
$forcereg arg	$forcereg arg
body_title -> alternate text to use instead of $title
in the title box that appears, this text
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 6065 $args - additional optional args support	Line 6465 $args - additional optional args support
inherit_jsmath -> when creating popup window in a page,	inherit_jsmath -> when creating popup window in a page,
should it have jsmath forced on by the	should it have jsmath forced on by the
current page	current page
	bread_crumbs -> Array containing breadcrumbs
	bread_crumbs_components -> if exists show it as headline else show only the breadcrumbs

=back	=back

Line 6097 sub start_page {	Line 6499 sub start_page {
my $attr_string = &make_attr_string($args->{'force_register'},	my $attr_string = &make_attr_string($args->{'force_register'},
$args->{'add_entries'});	$args->{'add_entries'});
$result .= "\n<frameset $attr_string>\n";	$result .= "\n<frameset $attr_string>\n";
} else {	} else {
$result .=	$result .=
&bodytag($title,	&bodytag($title,
$args->{'function'}, $args->{'add_entries'},	$args->{'function'}, $args->{'add_entries'},
$args->{'only_body'}, $args->{'domain'},	$args->{'only_body'}, $args->{'domain'},
$args->{'force_register'}, $args->{'body_title'},	$args->{'force_register'}, $args->{'no_nav_bar'},
$args->{'no_nav_bar'}, $args->{'bgcolor'},	$args->{'bgcolor'}, $args->{'no_inline_link'},
$args->{'no_title'}, $args->{'no_inline_link'},	$args);
$args);	}
}
}	}

if ($args->{'js_ready'}) {	if ($args->{'js_ready'}) {
Line 6116 sub start_page {	Line 6517 sub start_page {
$result = &html_encode($result);	$result = &html_encode($result);
}	}

if (exists($args->{'bread_crumbs'})) {	# Preparation for new and consistent functionlist at top of screen
&Apache::lonhtmlcommon::clear_breadcrumbs();	# if ($args->{'functionlist'}) {
if (ref($args->{'bread_crumbs'}) eq 'ARRAY') {	# $result .= &build_functionlist();
foreach my $crumb (@{$args->{'bread_crumbs'}}){	#}
&Apache::lonhtmlcommon::add_breadcrumb($crumb);
}	# Don't add anything more if only_body wanted
}	return $result if $args->{'only_body'};
$result .= &Apache::lonhtmlcommon::breadcrumbs();
}	#Breadcrumbs
	if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	#if any br links exists, add them to the breadcrumbs
	if (exists($args->{'bread_crumbs'}) and ref($args->{'bread_crumbs'}) eq 'ARRAY') {
	foreach my $crumb (@{$args->{'bread_crumbs'}}){
	&Apache::lonhtmlcommon::add_breadcrumb($crumb);
	}
	}

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

Line 6353 Returns either 'student','coordinator','	Line 6769 Returns either 'student','coordinator','

###############################################	###############################################
sub get_users_function {	sub get_users_function {
my $function = 'student';	my $function = 'norole';
	if ($env{'request.role'}=~/^(st)/) {
	$function='student';
	}
if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {	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)/) \|\|	if (($env{'request.role'}=~/^(au\|ca\|aa)/) \|\|
($ENV{'REQUEST_URI'}=~/^(\/priv\|\~)/)) {	($ENV{'REQUEST_URI'}=~/^(\/priv\|\~)/)) {
$function='author';	$function='author';
}	}
Line 6371 sub get_users_function {	Line 6790 sub get_users_function {

=pod	=pod

	=item * &show_course()

	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.

	Inputs:
	None

	Outputs:
	Scalar: 1 if 'Course' to be used, 0 otherwise.

	=cut

	###############################################
	sub show_course {
	my $course = !$env{'user.adv'};
	if (!$env{'user.adv'}) {
	foreach my $env (keys(%env)) {
	next if ($env !~ m/^user\.priv\./);
	if ($env !~ m/^user\.priv\.(?:st\|cm)/) {
	$course = 0;
	last;
	}
	}
	}
	return $course;
	}

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

	=pod

=item * &check_user_status()	=item * &check_user_status()

Determines current status of supplied role for a	Determines current status of supplied role for a
Line 6874 If the user's status includes multiple t	Line 7325 If the user's status includes multiple t
the largest default quota which applies to the user determines the	the largest default quota which applies to the user determines the
default quota returned.	default quota returned.

	=back

=cut	=cut

###############################################	###############################################
Line 6886 sub default_quota {	Line 7339 sub default_quota {
['quotas'],$udom);	['quotas'],$udom);
if (ref($quotahash{'quotas'}) eq 'HASH') {	if (ref($quotahash{'quotas'}) eq 'HASH') {
if ($inststatus ne '') {	if ($inststatus ne '') {
my @statuses = split(/:/,$inststatus);	my @statuses = map { &unescape($_); } split(/:/,$inststatus);
foreach my $item (@statuses) {	foreach my $item (@statuses) {
if (ref($quotahash{'quotas'}{'defaultquota'}) eq 'HASH') {	if (ref($quotahash{'quotas'}{'defaultquota'}) eq 'HASH') {
if ($quotahash{'quotas'}{'defaultquota'}{$item} ne '') {	if ($quotahash{'quotas'}{'defaultquota'}{$item} ne '') {
Line 7065 sub user_picker {	Line 7518 sub user_picker {
if ($cancreate) {	if ($cancreate) {
$new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';	$new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';
} else {	} else {
my $helplink = ' href="javascript:helpMenu('."'display'".')"';	my $helplink = 'javascript:helpMenu('."'display'".')';
my %usertypetext = (	my %usertypetext = (
official => 'institutional',	official => 'institutional',
unofficial => 'non-institutional',	unofficial => 'non-institutional',
);	);
$new_user_create = '<br /><span class="LC_warning">'.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.").' '.&mt('Contact the <a[_1]>helpdesk</a> for assistance.',$helplink).'</span><br /><br />';	$new_user_create = '<p class="LC_warning">'
	.&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 />';
}	}
}	}
}	}
Line 7107 ENDSCRIPT	Line 7565 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 7175 function validateEntry(callingForm) {	Line 7634 function validateEntry(callingForm) {

$newuserscript	$newuserscript

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

$new_user_create	$new_user_create
Line 7352 sub personal_data_fieldtitles {	Line 7812 sub personal_data_fieldtitles {
middlename => 'Middle Name',	middlename => 'Middle Name',
generation => 'Generation',	generation => 'Generation',
gen => 'Generation',	gen => 'Generation',
	inststatus => 'Affiliation',
);	);
return %fieldtitles;	return %fieldtitles;
}	}
Line 7421 sub get_institutional_codes {	Line 7882 sub get_institutional_codes {

=pod	=pod

	=head1 Slot Helpers

	=over 4

	=item * sorted_slots()

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

	Inputs:

	=over 4

	slotsarr - Reference to array of unsorted slot names.

	slots - Reference to hash of hash, where outer hash keys are slot names.

=back	=back

	Returns:

	=over 4

	sorted - An array of slot names sorted by the start time of the slot.

	=back

	=back

	=cut


	sub sorted_slots {
	my ($slotsarr,$slots) = @_;
	my @sorted;
	if ((ref($slotsarr) eq 'ARRAY') && (ref($slots) eq 'HASH')) {
	@sorted =
	sort {
	if (ref($slots->{$a}) && ref($slots->{$b})) {
	return $slots->{$a}{'starttime'} <=> $slots->{$b}{'starttime'}
	}
	if (ref($slots->{$a})) { return -1;}
	if (ref($slots->{$b})) { return 1;}
	return 0;
	} @{$slotsarr};
	}
	return @sorted;
	}


	=pod

=head1 HTTP Helpers	=head1 HTTP Helpers

=over 4	=over 4
Line 8019 sub csv_print_samples {	Line 8529 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 8717 sub restore_settings {	Line 9227 sub restore_settings {

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

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

Inputs:	Inputs:
defmail (scalar - email address of default recipient),	defmail (scalar - email address of default recipient),
Line 8743 sub build_recipient_list {	Line 9254 sub build_recipient_list {
my %domconfig =	my %domconfig =
&Apache::lonnet::get_dom('configuration',['contacts'],$defdom);	&Apache::lonnet::get_dom('configuration',['contacts'],$defdom);
if (ref($domconfig{'contacts'}) eq 'HASH') {	if (ref($domconfig{'contacts'}) eq 'HASH') {
if (ref($domconfig{'contacts'}{$mailing}) eq 'HASH') {	if (exists($domconfig{'contacts'}{$mailing})) {
my @contacts = ('adminemail','supportemail');	if (ref($domconfig{'contacts'}{$mailing}) eq 'HASH') {
foreach my $item (@contacts) {	my @contacts = ('adminemail','supportemail');
if ($domconfig{'contacts'}{$mailing}{$item}) {	foreach my $item (@contacts) {
my $addr = $domconfig{'contacts'}{$item};	if ($domconfig{'contacts'}{$mailing}{$item}) {
if (!grep(/^\Q$addr\E$/,@recipients)) {	my $addr = $domconfig{'contacts'}{$item};
push(@recipients,$addr);	if (!grep(/^\Q$addr\E$/,@recipients)) {
	push(@recipients,$addr);
	}
}	}
	$otheremails = $domconfig{'contacts'}{$mailing}{'others'};
}	}
$otheremails = $domconfig{'contacts'}{$mailing}{'others'};
}	}
	} elsif ($origmail ne '') {
	push(@recipients,$origmail);
}	}
} elsif ($origmail ne '') {	} elsif ($origmail ne '') {
push(@recipients,$origmail);	push(@recipients,$origmail);
Line 9024 sub assign_categories_table {	Line 9539 sub assign_categories_table {
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"';
}	}
}	}
$output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.	$output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.
Line 9090 sub assign_category_rows {	Line 9605 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 9663 sub group_term {	Line 10178 sub group_term {
my $crstype = &course_type();	my $crstype = &course_type();
my %names = (	my %names = (
'Course' => 'group',	'Course' => 'group',
'Group' => 'team',	'Community' => 'group',
);	);
return $names{$crstype};	return $names{$crstype};
}	}
Line 9727 sub escape_url {	Line 10242 sub escape_url {
return join('/',@urlslices).'/'.$lastitem;	return join('/',@urlslices).'/'.$lastitem;
}	}

# -------------------------------------------------------- Initliaze user login	sub compare_arrays {
	my ($arrayref1,$arrayref2) = @_;
	my (@difference,%count);
	@difference = ();
	%count = ();
	if ((ref($arrayref1) eq 'ARRAY') && (ref($arrayref2) eq 'ARRAY')) {
	foreach my $element (@{$arrayref1}, @{$arrayref2}) { $count{$element}++; }
	foreach my $element (keys(%count)) {
	if ($count{$element} == 1) {
	push(@difference,$element);
	}
	}
	}
	return @difference;
	}

	# -------------------------------------------------------- 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 9781 sub init_user_environment {	Line 10312 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 9811 sub init_user_environment {	Line 10329 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 9848 sub init_user_environment {	Line 10364 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') {
Line 9862 sub init_user_environment {	Line 10371 sub init_user_environment {
&Apache::lonnet::usertools_access($username,$domain,$tool,'reload');	&Apache::lonnet::usertools_access($username,$domain,$tool,'reload');
}	}

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

$env{'user.environment'} = "$lonids/$cookie.id";	$env{'user.environment'} = "$lonids/$cookie.id";

if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",	if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",

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

Removed from v.1.739
changed lines
	Added in v.1.867