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

version 1.647, 2008/03/20 19:46:44	version 1.821, 2009/05/18 16:29:55
Line 61 use POSIX qw(strftime mktime);	Line 61 use POSIX qw(strftime mktime);
use Apache::lonmenu();	use Apache::lonmenu();
use Apache::lonenc();	use Apache::lonenc();
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonnet();
use HTML::Entities;	use HTML::Entities;
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::loncoursedata();	use Apache::loncoursedata();
use Apache::lontexconvert();	use Apache::lontexconvert();
use Apache::lonclonecourse();	use Apache::lonclonecourse();
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
	use DateTime::TimeZone;
	use DateTime::Locale::Catalog;

# ---------------------------------------------- Designs	# ---------------------------------------------- Designs
use vars qw(%defaultdesign);	use vars qw(%defaultdesign);
Line 84 my $readit;	Line 87 my $readit;

=pod	=pod

=head1 Server Side incliude with retries:	=head1 Server Side include with retries:

=over 4	=over 4

=item * ssi_with_retries(resource, retries form)	=item * &ssi_with_retries(resource,retries form)

Performs an ssi with some number of retries. Retries continue either	Performs an ssi with some number of retries. Retries continue either
until the result is ok or until the retry count supplied by the	until the result is ok or until the retry count supplied by the
caller is exhausted.	caller is exhausted.

Inputs:	Inputs:

	=over 4

resource - Identifies the resource to insert.	resource - Identifies the resource to insert.

retries - Count of the number of retries allowed.	retries - Count of the number of retries allowed.

form - Hash that identifies the rendering options.	form - Hash that identifies the rendering options.

Returns:	=back

	Returns:

	=over 4

content - The content of the response. If retries were exhausted this is empty.	content - The content of the response. If retries were exhausted this is empty.

response - The response from the last attempt (which may or may not have been successful.	response - The response from the last attempt (which may or may not have been successful.

	=back

	=back

=cut	=cut

sub ssi_with_retries {	sub ssi_with_retries {
Line 118 sub ssi_with_retries {	Line 136 sub ssi_with_retries {
do {	do {
($content, $response) = &Apache::lonnet::ssi($resource, %form);	($content, $response) = &Apache::lonnet::ssi($resource, %form);
$ok = $response->is_success;	$ok = $response->is_success;
	if (!$ok) {
	&Apache::lonnet::logthis("Failed ssi_with_retries on $resource: ".$response->is_success.', '.$response->code.', '.$response->message);
	}
$retries--;	$retries--;
} while (!$ok && ($retries > 0));	} while (!$ok && ($retries > 0));

Line 250 BEGIN {	Line 271 BEGIN {
}	}
}	}
&Apache::lonnet::logthis(	&Apache::lonnet::logthis(
"<font color=yellow>INFO: Read file types</font>");	"<span style='color:yellow;'>INFO: Read file types</span>");
$readit=1;	$readit=1;
} # end of unless($readit)	} # end of unless($readit)

Line 266 BEGIN {	Line 287 BEGIN {

=over 4	=over 4

=item * browser_and_searcher_javascript ()	=item * &browser_and_searcher_javascript()

X<browsing, javascript>X<searching, javascript>Returns a string	X<browsing, javascript>X<searching, javascript>Returns a string
containing javascript with two functions, C<openbrowser> and	containing javascript with two functions, C<openbrowser> and
C<opensearcher>. Returned string does not contain E<lt>scriptE<gt>	C<opensearcher>. Returned string does not contain E<lt>scriptE<gt>
tags.	tags.

=item * openbrowser(formname,elementname,only,omit) [javascript]	=item * &openbrowser(formname,elementname,only,omit) [javascript]

inputs: formname, elementname, only, omit	inputs: formname, elementname, only, omit

Line 286 with the given extension. Can be a comm	Line 307 with the given extension. Can be a comm
Specifying 'omit' will restrict the browser to NOT displaying files	Specifying 'omit' will restrict the browser to NOT displaying files
with the given extension. Can be a comma separated list.	with the given extension. Can be a comma separated list.

=item * opensearcher(formname, elementname) [javascript]	=item * &opensearcher(formname,elementname) [javascript]

Inputs: formname, elementname	Inputs: formname, elementname

Line 385 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">
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 401 sub studentbrowser_javascript {	Line 422 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';
Line 412 ENDSTDBRW	Line 434 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 {
	return <<"ENDAUTHORBRW";
	<script type="text/javascript" language="JavaScript">
	var stdeditbrowser;

	function openauthorbrowser(formname,udom) {
	var url = '/adm/pickauthor?';
	url += 'form='+formname+'&roledom='+udom;
	var title = 'Author_Browser';
	var options = 'scrollbars=1,resizable=1,menubar=0';
	options += ',width=700,height=600';
	stdeditbrowser = open(url,title,options,'1');
	stdeditbrowser.focus();
	}

	</script>
	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 Group - for which you wish to add/modify a user role');
my $output = '	my $output = '
<script type="text/javascript">	<script type="text/javascript" language="JavaScript">
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 469 sub coursebrowser_javascript {	Line 517 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;
	}
}	}
}	}
}	}
Line 562 function setSect(sectionlist) {	Line 614 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 {
	my ($form,$udom)=@_;
	return '<a href="javascript:openauthorbrowser('."'$form','$udom'".');">'.
	&mt('Select Author').'</a>';
}	}

sub check_uncheck_jscript {	sub check_uncheck_jscript {
Line 591 ENDSCRT	Line 654 ENDSCRT
return $jscript;	return $jscript;
}	}

	sub select_timezone {
	my ($name,$selected,$onchange,$includeempty)=@_;
	my $output='<select name="'.$name.'" '.$onchange.'>'."\n";
	if ($includeempty) {
	$output .= '<option value=""';
	if (($selected eq '') \|\| ($selected eq 'local')) {
	$output .= ' selected="selected" ';
	}
	$output .= '> </option>';
	}
	my @timezones = DateTime::TimeZone->all_names;
	foreach my $tzone (@timezones) {
	$output.= '<option value="'.$tzone.'"';
	if ($tzone eq $selected) {
	$output.=' selected="selected"';
	}
	$output.=">$tzone</option>\n";
	}
	$output.="</select>";
	return $output;
	}

	sub select_datelocale {
	my ($name,$selected,$onchange,$includeempty)=@_;
	my $output='<select name="'.$name.'" '.$onchange.'>'."\n";
	if ($includeempty) {
	$output .= '<option value=""';
	if ($selected eq '') {
	$output .= ' selected="selected" ';
	}
	$output .= '> </option>';
	}
	my (@possibles,%locale_names);
	my @locales = DateTime::Locale::Catalog::Locales;
	foreach my $locale (@locales) {
	if (ref($locale) eq 'HASH') {
	my $id = $locale->{'id'};
	if ($id ne '') {
	my $en_terr = $locale->{'en_territory'};
	my $native_terr = $locale->{'native_territory'};
	my @languages = &Apache::lonlocal::preferred_languages();
	if (grep(/^en$/,@languages) \|\| !@languages) {
	if ($en_terr ne '') {
	$locale_names{$id} = '('.$en_terr.')';
	} elsif ($native_terr ne '') {
	$locale_names{$id} = $native_terr;
	}
	} else {
	if ($native_terr ne '') {
	$locale_names{$id} = $native_terr.' ';
	} elsif ($en_terr ne '') {
	$locale_names{$id} = '('.$en_terr.')';
	}
	}
	push (@possibles,$id);
	}
	}
	}
	foreach my $item (sort(@possibles)) {
	$output.= '<option value="'.$item.'"';
	if ($item eq $selected) {
	$output.=' selected="selected"';
	}
	$output.=">$item";
	if ($locale_names{$item} ne '') {
	$output.=" $locale_names{$item}</option>\n";
	}
	$output.="</option>\n";
	}
	$output.="</select>";
	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(...)

linked_select_forms returns a string containing a <script></script> block	linked_select_forms returns a string containing a <script></script> block
and html for two <select> menus. The select menus will be linked in that	and html for two <select> menus. The select menus will be linked in that
Line 678 sub linked_select_forms {	Line 828 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.="var select2data = new Object();\n";	$result.="var select2data = new Object();\n";
$" = '","';	$" = '","';
my $debug = '';	my $debug = '';
Line 759 END	Line 909 END

=pod	=pod

=item * help_open_topic($topic, $text, $stayOnPage, $width, $height)	=item * &help_open_topic($topic,$text,$stayOnPage,$width,$height)

Returns a string corresponding to an HTML link to the given help	Returns a string corresponding to an HTML link to the given help
$topic, where $topic corresponds to the name of a .tex file in	$topic, where $topic corresponds to the name of a .tex file in
Line 785 sub help_open_topic {	Line 935 sub help_open_topic {
my ($topic, $text, $stayOnPage, $width, $height) = @_;	my ($topic, $text, $stayOnPage, $width, $height) = @_;
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'browser.interface'} eq 'textual') {
$stayOnPage=1;
}
$width = 350 if (not defined $width);	$width = 350 if (not defined $width);
$height = 400 if (not defined $height);	$height = 400 if (not defined $height);
my $filename = $topic;	my $filename = $topic;
Line 805 sub help_open_topic {	Line 952 sub help_open_topic {
}	}

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

# Add the graphic	# (Always) Add the graphic
my $title = &mt('Online Help');	my $title = &mt('Online Help');
my $helpicon=&lonhttpdurl("/adm/help/gif/smallHelp.gif");	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 825 ENDTEMPLATE	Line 976 ENDTEMPLATE
# This is a quicky function for Latex cheatsheet editing, since it	# This is a quicky function for Latex cheatsheet editing, since it
# appears in at least four places	# appears in at least four places
sub helpLatexCheatsheet {	sub helpLatexCheatsheet {
my $other = shift;	my ($topic,$text,$not_author) = @_;
	my $out;
my $addOther = '';	my $addOther = '';
if ($other) {	if ($topic) {
$addOther = Apache::loncommon::help_open_topic($other, shift,	$addOther = '<span>'.&Apache::loncommon::help_open_topic($topic,&mt($text),
undef, undef, 600) .	undef, undef, 600).
'</td><td>';	'</span> ';
}	}
return '<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></tr></table>';	undef,undef,600)
	.'</span>';
	unless ($not_author) {
	$out .= ' <span>'
	.&Apache::loncommon::help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),
	undef,undef,600)
	.'</span>';
	}
	$out .= '</span>'; # End cheatsheet
	return $out;
}	}

sub general_help {	sub general_help {
Line 848 sub general_help {	Line 1009 sub general_help {
$helptopic='Authoring_Intro';	$helptopic='Authoring_Intro';
} elsif ($env{'request.role'}=~/^cc/) {	} elsif ($env{'request.role'}=~/^cc/) {
$helptopic='Course_Coordination_Intro';	$helptopic='Course_Coordination_Intro';
	} elsif ($env{'request.role'}=~/^dc/) {
	$helptopic='Domain_Coordination_Intro';
}	}
return $helptopic;	return $helptopic;
}	}
Line 877 sub help_open_menu {	Line 1040 sub help_open_menu {
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 0 if (not defined $stayOnPage);
# only use pop-up help (stayOnPage == 0)	# only use pop-up help (stayOnPage == 0)
# if environment.remote is on (using remote control UI)	# if environment.remote is on (using remote control UI)
if ($env{'browser.interface'} eq 'textual' \|\|	if ($env{'environment.remote'} eq 'off' ) {
$env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}	}
my $output;	my $output;
Line 902 sub top_nav_help {	Line 1064 sub top_nav_help {
my ($text) = @_;	my ($text) = @_;
$text = &mt($text);	$text = &mt($text);
my $stay_on_page =	my $stay_on_page =
($env{'browser.interface'} eq 'textual' \|\|	($env{'environment.remote'} eq 'off' );
$env{'environment.remote'} eq 'off' );
my $link = ($stay_on_page) ? "javascript:helpMenu('display')"	my $link = ($stay_on_page) ? "javascript:helpMenu('display')"
: "javascript:helpMenu('open')";	: "javascript:helpMenu('open')";
my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);	my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);
Line 920 sub help_menu_js {	Line 1081 sub help_menu_js {
my ($text) = @_;	my ($text) = @_;

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

my $width = 620;	my $width = 620;
my $height = 600;	my $height = 600;
Line 980 sub help_open_bug {	Line 1140 sub help_open_bug {
unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }	unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'browser.interface'} eq 'textual' \|\|	if ($env{'environment.remote'} eq 'off' ) {
$env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}	}
$width = 600 if (not defined $width);	$width = 600 if (not defined $width);
Line 1005 sub help_open_bug {	Line 1164 sub help_open_bug {
{	{
$template .=	$template .=
"<table bgcolor='#AA3333' cellspacing='1' cellpadding='1' border='0'><tr>".	"<table bgcolor='#AA3333' cellspacing='1' cellpadding='1' border='0'><tr>".
"<td bgcolor='#FF5555'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";	"<td bgcolor='#FF5555'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF;font-size:10pt;\">$text</span></a>";
}	}

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

# Add the graphic	# Add the graphic
Line 1069 ENDTEMPLATE	Line 1227 ENDTEMPLATE

=pod	=pod

=item * change_content_javascript():	=item * &change_content_javascript():

This and the next function allow you to create small sections of an	This and the next function allow you to create small sections of an
otherwise static HTML page that you can update on the fly with	otherwise static HTML page that you can update on the fly with
Line 1124 DOMBASED	Line 1282 DOMBASED

=pod	=pod

=item * changable_area($name, $origContent):	=item * &changable_area($name,$origContent):

This provides a "changable area" that can be modified on the fly via	This provides a "changable area" that can be modified on the fly via
the Javascript code provided in C<change_content_javascript>. $name is	the Javascript code provided in C<change_content_javascript>. $name is
Line 1148 sub changable_area {	Line 1306 sub changable_area {

=pod	=pod

=item * viewport_geometry_js {	=item * &viewport_geometry_js

Provides javascript object (Geometry) which can provide information about the viewport geometry for the client browser.	Provides javascript object (Geometry) which can provide information about the viewport geometry for the client browser.

Line 1195 GEOMETRY	Line 1353 GEOMETRY

=pod	=pod

=item * viewport_size_js {	=item * &viewport_size_js()

Provides a javascript function to set values of two form elements - width and height (elements are passed in as arguments to the javascript function) to the dimensions of the user's browser window.	Provides a javascript function to set values of two form elements - width and height (elements are passed in as arguments to the javascript function) to the dimensions of the user's browser window.

Line 1219 DIMS	Line 1377 DIMS

=pod	=pod

=item * resize_textarea_js	=item * &resize_textarea_js()

emits the needed javascript to resize a textarea to be as big as possible	emits the needed javascript to resize a textarea to be as big as possible

Line 1228 the id of the element to resize, second	Line 1386 the id of the element to resize, second
surrounds everything that comes after the textarea, this routine needs	surrounds everything that comes after the textarea, this routine needs
to be attached to the <body> for the onload and onresize events.	to be attached to the <body> for the onload and onresize events.

	=back

=cut	=cut

Line 1280 RESIZE	Line 1439 RESIZE

=pod	=pod

=back

=head1 Excel and CSV file utility routines	=head1 Excel and CSV file utility routines

=over 4	=over 4
Line 1293 RESIZE	Line 1450 RESIZE

=pod	=pod

=item * csv_translate($text)	=item * &csv_translate($text)

Translate $text to allow it to be output as a 'comma separated values'	Translate $text to allow it to be output as a 'comma separated values'
format.	format.
Line 1314 sub csv_translate {	Line 1471 sub csv_translate {

=pod	=pod

=item * define_excel_formats	=item * &define_excel_formats()

Define some commonly used Excel cell formats.	Define some commonly used Excel cell formats.

Line 1370 sub define_excel_formats {	Line 1527 sub define_excel_formats {

=pod	=pod

=item * create_workbook	=item * &create_workbook()

Create an Excel worksheet. If it fails, output message on the	Create an Excel worksheet. If it fails, output message on the
request object and return undefs.	request object and return undefs.
Line 1413 sub create_workbook {	Line 1570 sub create_workbook {

=pod	=pod

=item * create_text_file	=item * &create_text_file()

Create a file to write to and eventually make available to the user.	Create a file to write to and eventually make available to the user.
If file creation fails, outputs an error message on the request object and	If file creation fails, outputs an error message on the request object and
Line 1438 sub create_text_file {	Line 1595 sub create_text_file {
$fh = Apache::File->new('>/home/httpd'.$filename);	$fh = Apache::File->new('>/home/httpd'.$filename);
if (! defined($fh)) {	if (! defined($fh)) {
$r->log_error("Couldn't open $filename for output $!");	$r->log_error("Couldn't open $filename for output $!");
$r->print("Problems occured in creating the output file. ".	$r->print(&mt('Problems occurred in creating the output file. '
"This error has been logged. ".	.'This error has been logged. '
"Please alert your LON-CAPA administrator.");	.'Please alert your LON-CAPA administrator.'));
}	}
return ($fh,$filename)	return ($fh,$filename)
}	}
Line 1481 sub domain_select {	Line 1638 sub domain_select {

=over 4	=over 4

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

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

Line 1507 sub multiple_select_form {	Line 1664 sub multiple_select_form {
$size = scalar(keys(%$hash));	$size = scalar(keys(%$hash));
}	}
}	}
$output.="\n<select name='$name' size='$size' multiple='1'>";	$output.="\n".'<select name="'.$name.'" size="'.$size.'" multiple="multiple">';
my @order;	my @order;
if (ref($order) eq 'ARRAY') {	if (ref($order) eq 'ARRAY') {
@order = @{$order};	@order = @{$order};
Line 1531 sub multiple_select_form {	Line 1688 sub multiple_select_form {

=pod	=pod

=item * select_form($defdom,$name,%hash)	=item * &select_form($defdom,$name,%hash)

Returns a string containing a <select name='$name' size='1'> form to	Returns a string containing a <select name='$name' size='1'> form to
allow a user to select options from a hash option_name => displayed text.	allow a user to select options from a hash option_name => displayed text.
Line 1564 sub select_form {	Line 1721 sub select_form {
sub display_filter {	sub display_filter {
if (!$env{'form.show'}) { $env{'form.show'}=10; }	if (!$env{'form.show'}) { $env{'form.show'}=10; }
if (!$env{'form.displayfilter'}) { $env{'form.displayfilter'}='currentfolder'; }	if (!$env{'form.displayfilter'}) { $env{'form.displayfilter'}='currentfolder'; }
return '<nobr><label>'.&mt('Records [_1]',	return '<span class="LC_nobreak"><label>'.&mt('Records [_1]',
&Apache::lonmeta::selectbox('show',$env{'form.show'},undef,	&Apache::lonmeta::selectbox('show',$env{'form.show'},undef,
(&mt('all'),10,20,50,100,1000,10000))).	(&mt('all'),10,20,50,100,1000,10000))).
'</label></nobr> <nobr>'.	'</label></span> <span class="LC_nobreak">'.
&mt('Filter [_1]',	&mt('Filter [_1]',
&select_form($env{'form.displayfilter'},	&select_form($env{'form.displayfilter'},
'displayfilter',	'displayfilter',
('currentfolder' => 'Current folder/page',	('currentfolder' => 'Current folder/page',
'containing' => 'Containing phrase',	'containing' => 'Containing phrase',
'none' => 'None'))).	'none' => 'None'))).
'<input type="text" name="containingphrase" size="30" value="'.&HTML::Entities::encode($env{'form.containingphrase'}).'" /></nobr>';	'<input type="text" name="containingphrase" size="30" value="'.&HTML::Entities::encode($env{'form.containingphrase'}).'" /></span>';
}	}

sub gradeleveldescription {	sub gradeleveldescription {
Line 1618 sub select_level_form {	Line 1775 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 1627 See loncreateuser.pm for an example invo	Line 1784 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 1658 sub select_dom_form {	Line 1821 sub select_dom_form {

=pod	=pod

=item * home_server_form_item($domain,$name,$defaultflag)	=item * &home_server_form_item($domain,$name,$defaultflag)

input: 4 arguments (two required, two optional) -	input: 4 arguments (two required, two optional) -
$domain - domain of new user	$domain - domain of new user
Line 1692 sub home_server_form_item {	Line 1855 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 1818 sub decode_user_agent {	Line 1981 sub decode_user_agent {

=over 4	=over 4

=item * authform_xxxxxx	=item * &authform_xxxxxx()

The authform_xxxxxx subroutines provide javascript and html forms which	The authform_xxxxxx subroutines provide javascript and html forms which
handle some of the conveniences required for authentication forms.	handle some of the conveniences required for authentication forms.
This is not an optimal method, but it works.	This is not an optimal method, but it works.

See loncreateuser.pm for invocation and use examples.

=over 4	=over 4

=item * authform_header	=item * authform_header
Line 1842 See loncreateuser.pm for invocation and	Line 2003 See loncreateuser.pm for invocation and

=back	=back

=back	See loncreateuser.pm for invocation and use examples.

=cut	=cut

Line 1989 sub authform_kerberos {	Line 2150 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 2004 sub authform_kerberos {	Line 2165 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 2028 sub authform_kerberos {	Line 2189 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 2037 sub authform_kerberos {	Line 2198 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 2098 sub authform_internal{	Line 2259 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 2114 sub authform_internal{	Line 2275 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 2123 sub authform_internal{	Line 2284 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 2153 sub authform_local{	Line 2314 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 2169 sub authform_local{	Line 2330 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 2178 sub authform_local{	Line 2339 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 2207 sub authform_filesystem{	Line 2368 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 2220 sub authform_filesystem{	Line 2381 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 2229 sub authform_filesystem{	Line 2390 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 2305 sub get_assignable_auth {	Line 2466 sub get_assignable_auth {

=pod	=pod

=item * get_kerberos_defaults	=item * &get_kerberos_defaults()

get_kerberos_defaults($target_domain) returns the default kerberos	get_kerberos_defaults($target_domain) returns the default kerberos
version and domain. If not found, it defaults to version 4 and the	version and domain. If not found, it defaults to version 4 and the
domain of the server.	domain of the server.

	=over 4

($def_version, $def_krb_domain) = &get_kerberos_defaults($target_domain);	($def_version, $def_krb_domain) = &get_kerberos_defaults($target_domain);

	=back

	=back

=cut	=cut

#-------------------------------------------	#-------------------------------------------
Line 2332 sub get_kerberos_defaults {	Line 2499 sub get_kerberos_defaults {
return ($krbdef,$krbdefdom);	return ($krbdef,$krbdefdom);
}	}

=pod

=back

=cut

###############################################################	###############################################################
## Thesaurus Functions ##	## Thesaurus Functions ##
Line 2348 sub get_kerberos_defaults {	Line 2510 sub get_kerberos_defaults {

=over 4	=over 4

=item * initialize_keywords	=item * &initialize_keywords()

Initializes the package variable %Keywords if it is empty. Uses the	Initializes the package variable %Keywords if it is empty. Uses the
package variable $thesaurus_db_file.	package variable $thesaurus_db_file.
Line 2393 sub initialize_keywords {	Line 2555 sub initialize_keywords {

=pod	=pod

=item * keyword($word)	=item * &keyword($word)

Returns true if $word is a keyword. A keyword is a word that appears more	Returns true if $word is a keyword. A keyword is a word that appears more
than the average number of times in the thesaurus database. Calls	than the average number of times in the thesaurus database. Calls
Line 2414 sub keyword {	Line 2576 sub keyword {

=pod	=pod

=item * get_related_words	=item * &get_related_words()

Look up a word in the thesaurus. Takes a scalar argument and returns	Look up a word in the thesaurus. Takes a scalar argument and returns
an array of words. If the keyword is not in the thesaurus, an empty array	an array of words. If the keyword is not in the thesaurus, an empty array
Line 2472 sub get_related_words {	Line 2634 sub get_related_words {

=over 4	=over 4

=item * plainname($uname,$udom,$first)	=item * &plainname($uname,$udom,$first)

Takes a users logon name and returns it as a string in	Takes a users logon name and returns it as a string in
"first middle last generation" form	"first middle last generation" form
Line 2501 sub plainname {	Line 2663 sub plainname {
# -------------------------------------------------------------------- Nickname	# -------------------------------------------------------------------- Nickname
=pod	=pod

=item * nickname($uname,$udom)	=item * &nickname($uname,$udom)

Gets a users name and returns it as a string as	Gets a users name and returns it as a string as

Line 2551 sub getnames {	Line 2713 sub getnames {
}	}

# -------------------------------------------------------------------- getemails	# -------------------------------------------------------------------- getemails

=pod	=pod

=item * getemails($uname,$udom)	=item * &getemails($uname,$udom)

Gets a user's email information and returns it as a hash with keys:	Gets a user's email information and returns it as a hash with keys:
notification, critnotification, permanentemail	notification, critnotification, permanentemail

For notification and critnotification, values are comma-separated lists	For notification and critnotification, values are comma-separated lists
of e-mail address(es); for permanentemail, value is a single e-mail address.	of e-mail addresses; for permanentemail, value is a single e-mail address.


=cut	=cut


sub getemails {	sub getemails {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
if ($udom eq 'public' && $uname eq 'public') {	if ($udom eq 'public' && $uname eq 'public') {
Line 2593 sub flush_email_cache {	Line 2758 sub flush_email_cache {
&Apache::lonnet::devalidate_cache_new('emailscache',$id);	&Apache::lonnet::devalidate_cache_new('emailscache',$id);
}	}

	# -------------------------------------------------------------------- getlangs

	=pod

	=item * &getlangs($uname,$udom)

	Gets a user's language preference and returns it as a hash with key:
	language.

	=cut


	sub getlangs {
	my ($uname,$udom) = @_;
	if (!$udom) { $udom =$env{'user.domain'}; }
	if (!$uname) { $uname=$env{'user.name'}; }
	my $id=$uname.':'.$udom;
	my ($langs,$cached)=&Apache::lonnet::is_cached_new('userlangs',$id);
	if ($cached) {
	return %{$langs};
	} else {
	my %loadlangs=&Apache::lonnet::get('environment',['languages'],
	$udom,$uname);
	&Apache::lonnet::do_cache_new('userlangs',$id,\%loadlangs);
	return %loadlangs;
	}
	}

	sub flush_langs_cache {
	my ($uname,$udom)=@_;
	if (!$udom) { $udom =$env{'user.domain'}; }
	if (!$uname) { $uname=$env{'user.name'}; }
	return if ($udom eq 'public' && $uname eq 'public');
	my $id=$uname.':'.$udom;
	&Apache::lonnet::devalidate_cache_new('userlangs',$id);
	}

# ------------------------------------------------------------------ Screenname	# ------------------------------------------------------------------ Screenname

=pod	=pod

=item * screenname($uname,$udom)	=item * &screenname($uname,$udom)

Gets a users screenname and returns it as a string	Gets a users screenname and returns it as a string

Line 2612 sub screenname {	Line 2814 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 2622 sub messagewrapper {	Line 2844 sub messagewrapper {
'&subject='.&escape($subject).'&text='.&escape($text).'" '.	'&subject='.&escape($subject).'&text='.&escape($text).'" '.
'title="'.&mt('Send message').'">'.$link.'</a>';	'title="'.&mt('Send message').'">'.$link.'</a>';
}	}

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

sub noteswrapper {	sub noteswrapper {
Line 2629 sub noteswrapper {	Line 2852 sub noteswrapper {
return	return
"<a href='/adm/email?recordftf=retrieve&recname=$un&recdom=$do'>$link</a>";	"<a href='/adm/email?recordftf=retrieve&recname=$un&recdom=$do'>$link</a>";
}	}

# ------------------------------------------------------------- Aboutme Wrapper	# ------------------------------------------------------------- Aboutme Wrapper

sub aboutmewrapper {	sub aboutmewrapper {
Line 2637 sub aboutmewrapper {	Line 2861 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,$fontcolor)=@_;	my ($linktext,$coursedir,$domain)=@_;
if ($fontcolor) {
$linktext='<font color="'.$fontcolor.'">'.$linktext.'</font>';
}
return qq{<a href="/public/$domain/$coursedir/syllabus">$linktext</a>};	return qq{<a href="/public/$domain/$coursedir/syllabus">$linktext</a>};
}	}

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

sub track_student_link {	sub track_student_link {
my ($linktext,$sname,$sdom,$target,$start) = @_;	my ($linktext,$sname,$sdom,$target,$start) = @_;
my $link ="/adm/trackstudent?";	my $link ="/adm/trackstudent?";
Line 2672 sub track_student_link {	Line 2894 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 2693 sub student_image_tag {	Line 2936 sub student_image_tag {

=over 4	=over 4

=item * languageids()	=item * &languageids()

returns list of all language ids	returns list of all language ids

Line 2705 sub languageids {	Line 2948 sub languageids {

=pod	=pod

=item * languagedescription()	=item * &languagedescription()

returns description of a specified language id	returns description of a specified language id

Line 2730 sub supportedlanguagecode {	Line 2973 sub supportedlanguagecode {

=pod	=pod

=item * copyrightids()	=item * &copyrightids()

returns list of all copyrights	returns list of all copyrights

Line 2742 sub copyrightids {	Line 2985 sub copyrightids {

=pod	=pod

=item * copyrightdescription()	=item * &copyrightdescription()

returns description of a specified copyright id	returns description of a specified copyright id

Line 2754 sub copyrightdescription {	Line 2997 sub copyrightdescription {

=pod	=pod

=item * source_copyrightids()	=item * &source_copyrightids()

returns list of all source copyrights	returns list of all source copyrights

Line 2766 sub source_copyrightids {	Line 3009 sub source_copyrightids {

=pod	=pod

=item * source_copyrightdescription()	=item * &source_copyrightdescription()

returns description of a specified source copyright id	returns description of a specified source copyright id

Line 2778 sub source_copyrightdescription {	Line 3021 sub source_copyrightdescription {

=pod	=pod

=item * filecategories()	=item * &filecategories()

returns list of all file categories	returns list of all file categories

Line 2790 sub filecategories {	Line 3033 sub filecategories {

=pod	=pod

=item * filecategorytypes()	=item * &filecategorytypes()

returns list of file types belonging to a given file	returns list of file types belonging to a given file
category	category
Line 2804 sub filecategorytypes {	Line 3047 sub filecategorytypes {

=pod	=pod

=item * fileembstyle()	=item * &fileembstyle()

returns embedding style for a specified file type	returns embedding style for a specified file type

Line 2828 sub filecategoryselect {	Line 3071 sub filecategoryselect {

=pod	=pod

=item * filedescription()	=item * &filedescription()

returns description for a specified file type	returns description for a specified file type

Line 2842 sub filedescription {	Line 3085 sub filedescription {

=pod	=pod

=item * filedescriptionex()	=item * &filedescriptionex()

returns description for a specified file type with	returns description for a specified file type with
extra formatting	extra formatting
Line 2874 sub fileextensions {	Line 3117 sub fileextensions {

sub display_languages {	sub display_languages {
my %languages=();	my %languages=();
foreach my $lang (&preferred_languages()) {	foreach my $lang (&Apache::lonlocal::preferred_languages()) {
$languages{$lang}=1;	$languages{$lang}=1;
}	}
&get_unprocessed_cgi($ENV{'QUERY_STRING'},['displaylanguage']);	&get_unprocessed_cgi($ENV{'QUERY_STRING'},['displaylanguage']);
Line 2886 sub display_languages {	Line 3129 sub display_languages {
return %languages;	return %languages;
}	}

sub preferred_languages {
my @languages=();
if ($env{'course.'.$env{'request.course.id'}.'.languages'}) {
@languages=(@languages,split(/\s(\,\|\;\|\:)\s/,
$env{'course.'.$env{'request.course.id'}.'.languages'}));
}
if ($env{'environment.languages'}) {
@languages=(@languages,
split(/\s(\,\|\;\|\:)\s/,$env{'environment.languages'}));
}
my $browser=$ENV{'HTTP_ACCEPT_LANGUAGE'};
if ($browser) {
my @browser =
map { (split(/\s;\s/,$_))[0] } (split(/\s,\s/,$browser));
push(@languages,@browser);
}

foreach my $domtype ($env{'user.domain'},$env{'request.role.domain'},
$Apache::lonnet::perlvar{'lonDefDomain'}) {
if ($domtype ne '') {
my %domdefs = &Apache::lonnet::get_domain_defaults($domtype);
if ($domdefs{'lang_def'} ne '') {
push(@languages,$domdefs{'lang_def'});
}
}
}
# turn "en-ca" into "en-ca,en"
my @genlanguages;
foreach my $lang (@languages) {
unless ($lang=~/\w/) { next; }
push(@genlanguages,$lang);
if ($lang=~/(\-\|\_)/) {
push(@genlanguages,(split(/(\-\|\_)/,$lang))[0]);
}
}
#uniqueify the languages list
my %count;
@genlanguages = map { $count{$_}++ == 0 ? $_ : () } @genlanguages;
return @genlanguages;
}

sub languages {	sub languages {
my ($possible_langs) = @_;	my ($possible_langs) = @_;
my @preferred_langs = &preferred_languages();	my @preferred_langs = &Apache::lonlocal::preferred_languages();
if (!ref($possible_langs)) {	if (!ref($possible_langs)) {
if( wantarray ) {	if( wantarray ) {
return @preferred_langs;	return @preferred_langs;
Line 2950 sub languages {	Line 3152 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 2960 sub languages {	Line 3185 sub languages {

=over 4	=over 4

=item * get_previous_attempt($symb, $username, $domain, $course,	=item * &get_previous_attempt($symb, $username, $domain, $course,
$getattempt, $regexp, $gradesub)	$getattempt, $regexp, $gradesub)

Return string with previous attempt on problem. Arguments:	Return string with previous attempt on problem. Arguments:
Line 3088 sub relative_to_absolute {	Line 3313 sub relative_to_absolute {
}	}
$thisdir=~s-/[^/]*$--;	$thisdir=~s-/[^/]*$--;
foreach my $link (@rlinks) {	foreach my $link (@rlinks) {
unless (($link=~/^http:\/\//i) \|\|	unless (($link=~/^https?\:\/\//i) \|\|
($link=~/^\//) \|\|	($link=~/^\//) \|\|
($link=~/^javascript:/i) \|\|	($link=~/^javascript:/i) \|\|
($link=~/^mailto:/i) \|\|	($link=~/^mailto:/i) \|\|
Line 3104 sub relative_to_absolute {	Line 3329 sub relative_to_absolute {

=pod	=pod

=item * get_student_view	=item * &get_student_view()

show a snapshot of what student was looking at	show a snapshot of what student was looking at

Line 3123 sub get_student_view {	Line 3348 sub get_student_view {
}	}
if (defined($target)) { $form{'grade_target'} = $target; }	if (defined($target)) { $form{'grade_target'} = $target; }
$feedurl=&Apache::lonnet::clutter($feedurl);	$feedurl=&Apache::lonnet::clutter($feedurl);
my $userview=&Apache::lonnet::ssi_body($feedurl,%form);	my ($userview,$response)=&Apache::lonnet::ssi_body($feedurl,%form);
$userview=~s/\<body[^\>]*\>//gi;	$userview=~s/\<body[^\>]*\>//gi;
$userview=~s/\<\/body\>//gi;	$userview=~s/\<\/body\>//gi;
$userview=~s/\<html\>//gi;	$userview=~s/\<html\>//gi;
Line 3132 sub get_student_view {	Line 3357 sub get_student_view {
$userview=~s/\<\/head\>//gi;	$userview=~s/\<\/head\>//gi;
$userview=~s/action\s*\=/would_be_action\=/gi;	$userview=~s/action\s*\=/would_be_action\=/gi;
$userview=&relative_to_absolute($feedurl,$userview);	$userview=&relative_to_absolute($feedurl,$userview);
return $userview;	if (wantarray) {
	return ($userview,$response);
	} else {
	return $userview;
	}
	}

	sub get_student_view_with_retries {
	my ($symb,$retries,$username,$domain,$courseid,$target,$moreenv) = @_;

	my $ok = 0; # True if we got a good response.
	my $content;
	my $response;

	# Try to get the student_view done. within the retries count:

	do {
	($content, $response) = &get_student_view($symb,$username,$domain,$courseid,$target,$moreenv);
	$ok = $response->is_success;
	if (!$ok) {
	&Apache::lonnet::logthis("Failed get_student_view_with_retries on $symb: ".$response->is_success.', '.$response->code.', '.$response->message);
	}
	$retries--;
	} while (!$ok && ($retries > 0));

	if (!$ok) {
	$content = ''; # On error return an empty content.
	}
	if (wantarray) {
	return ($content, $response);
	} else {
	return $content;
	}
}	}

=pod	=pod

=item * get_student_answers()	=item * &get_student_answers()

show a snapshot of how student was answering problem	show a snapshot of how student was answering problem

Line 3241 sub pprmlink {	Line 3498 sub pprmlink {


sub timehash {	sub timehash {
my @ltime=localtime(shift);	my ($thistime) = @_;
return ( 'seconds' => $ltime[0],	my $timezone = &Apache::lonlocal::gettimezone();
'minutes' => $ltime[1],	my $dt = DateTime->from_epoch(epoch => $thistime)
'hours' => $ltime[2],	->set_time_zone($timezone);
'day' => $ltime[3],	my $wday = $dt->day_of_week();
'month' => $ltime[4]+1,	if ($wday == 7) { $wday = 0; }
'year' => $ltime[5]+1900,	return ( 'second' => $dt->second(),
'weekday' => $ltime[6],	'minute' => $dt->minute(),
'dayyear' => $ltime[7]+1,	'hour' => $dt->hour(),
'dlsav' => $ltime[8] );	'day' => $dt->day_of_month(),
	'month' => $dt->month(),
	'year' => $dt->year(),
	'weekday' => $wday,
	'dayyear' => $dt->day_of_year(),
	'dlsav' => $dt->is_dst() );
}	}

sub utc_string {	sub utc_string {
Line 3260 sub utc_string {	Line 3522 sub utc_string {

sub maketime {	sub maketime {
my %th=@_;	my %th=@_;
	my ($epoch_time,$timezone,$dt);
	$timezone = &Apache::lonlocal::gettimezone();
	eval {
	$dt = DateTime->new( year => $th{'year'},
	month => $th{'month'},
	day => $th{'day'},
	hour => $th{'hour'},
	minute => $th{'minute'},
	second => $th{'second'},
	time_zone => $timezone,
	);
	};
	if (!$@) {
	$epoch_time = $dt->epoch;
	if ($epoch_time) {
	return $epoch_time;
	}
	}
return POSIX::mktime(	return POSIX::mktime(
($th{'seconds'},$th{'minutes'},$th{'hours'},	($th{'seconds'},$th{'minutes'},$th{'hours'},
$th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,-1));	$th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,-1));
Line 3610 sub blocking_status {	Line 3890 sub blocking_status {
&Apache::lonnet::coursedescription($course);	&Apache::lonnet::coursedescription($course);
$coursedesc = $courseinfo{'description'};	$coursedesc = $courseinfo{'description'};
}	}
$category = "Group files in the course '$coursedesc'";	$category = "Group portfolio in the course '$coursedesc'";
} else {	} else {
$category = 'Portfolio files belonging to ';	$category = 'Portfolio files belonging to ';
if ($env{'user.name'} eq 'public' &&	if ($env{'user.name'} eq 'public' &&
Line 3640 sub blocking_status {	Line 3920 sub blocking_status {

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

	sub check_ip_acc {
	my ($acc)=@_;
	&Apache::lonxml::debug("acc is $acc");
	if (!defined($acc) \|\| $acc =~ /^\s$/ \|\| $acc =~/^\sno\s*$/i) {
	return 1;
	}
	my $allowed=0;
	my $ip=$env{'request.host'} \|\| $ENV{'REMOTE_ADDR'};

	my $name;
	foreach my $pattern (split(',',$acc)) {
	$pattern =~ s/^\s*//;
	$pattern =~ s/\s*$//;
	if ($pattern =~ /\*$/) {
	#35.8.*
	$pattern=~s/\*//;
	if ($ip =~ /^\Q$pattern\E/) { $allowed=1; }
	} elsif ($pattern =~ /(\d+\.\d+\.\d+)\.\[(\d+)-(\d+)\]$/) {
	#35.8.3.[34-56]
	my $low=$2;
	my $high=$3;
	$pattern=$1;
	if ($ip =~ /^\Q$pattern\E/) {
	my $last=(split(/\./,$ip))[3];
	if ($last <=$high && $last >=$low) { $allowed=1; }
	}
	} elsif ($pattern =~ /^\*/) {
	#*.msu.edu
	$pattern=~s/\*//;
	if (!defined($name)) {
	use Socket;
	my $netaddr=inet_aton($ip);
	($name)=gethostbyaddr($netaddr,AF_INET);
	}
	if ($name =~ /\Q$pattern\E$/i) { $allowed=1; }
	} elsif ($pattern =~ /\d+\.\d+\.\d+\.\d+/) {
	#127.0.0.1
	if ($ip =~ /^\Q$pattern\E/) { $allowed=1; }
	} else {
	#some.name.com
	if (!defined($name)) {
	use Socket;
	my $netaddr=inet_aton($ip);
	($name)=gethostbyaddr($netaddr,AF_INET);
	}
	if ($name =~ /\Q$pattern\E$/i) { $allowed=1; }
	}
	if ($allowed) { last; }
	}
	return $allowed;
	}

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

=pod	=pod

=head1 Domain Template Functions	=head1 Domain Template Functions
Line 3688 sub get_domainconf {	Line 4022 sub get_domainconf {
if (ref($domconfig{'login'}) eq 'HASH') {	if (ref($domconfig{'login'}) eq 'HASH') {
if (keys(%{$domconfig{'login'}})) {	if (keys(%{$domconfig{'login'}})) {
foreach my $key (keys(%{$domconfig{'login'}})) {	foreach my $key (keys(%{$domconfig{'login'}})) {
$designhash{$udom.'.login.'.$key}=$domconfig{'login'}{$key};	if (ref($domconfig{'login'}{$key}) eq 'HASH') {
	foreach my $img (keys(%{$domconfig{'login'}{$key}})) {
	$designhash{$udom.'.login.'.$key.'_'.$img} =
	$domconfig{'login'}{$key}{$img};
	}
	} else {
	$designhash{$udom.'.login.'.$key}=$domconfig{'login'}{$key};
	}
}	}
} else {	} else {
$legacy{'login'} = 1;	$legacy{'login'} = 1;
Line 3803 Returns: value of designparamter $which	Line 4144 Returns: value of designparamter $which
##############################################	##############################################
sub designparm {	sub designparm {
my ($which,$domain)=@_;	my ($which,$domain)=@_;
if ($env{'browser.blackwhite'} eq 'on') {
if ($which=~/\.(font\|alink\|vlink\|link\|textcol)$/) {
return '#000000';
}
if ($which=~/\.(pgbg\|sidebg\|bgcol)$/) {
return '#FFFFFF';
}
if ($which=~/\.tabbg$/) {
return '#CCCCCC';
}
}
if (exists($env{'environment.color.'.$which})) {	if (exists($env{'environment.color.'.$which})) {
return $env{'environment.color.'.$which};	return $env{'environment.color.'.$which};
}	}
$domain=&determinedomain($domain);	$domain=&determinedomain($domain);
my %domdesign = &get_domainconf($domain);	my %domdesign = &get_domainconf($domain);
my $output;	my $output;
if ($domdesign{$domain.'.'.$which} ne '') {	if ($domdesign{$domain.'.'.$which} ne '') {
$output = $domdesign{$domain.'.'.$which};	$output = $domdesign{$domain.'.'.$which};
} else {	} else {
$output = $defaultdesign{$which};	$output = $defaultdesign{$which};
}	}
if (($which =~ /^(student\|coordinator\|author\|admin)\.img$/) \|\|	if (($which =~ /^(student\|coordinator\|author\|admin)\.img$/) \|\|
($which =~ /login\.(img\|logo\|domlogo\|login)/)) {	($which =~ /login\.(img\|logo\|domlogo\|login)/)) {
if ($output =~ m{^/(adm\|res)/}) {	if ($output =~ m{^/(adm\|res)/}) {
if ($output =~ m{^/res/}) {	if ($output =~ m{^/res/}) {
my $local_name = &Apache::lonnet::filelocation('',$output);	my $local_name = &Apache::lonnet::filelocation('',$output);
&Apache::lonnet::repcopy($local_name);	&Apache::lonnet::repcopy($local_name);
}	}
$output = &lonhttpdurl($output);	$output = &lonhttpdurl($output);
}	}
}	}
Line 3874 Inputs:	Line 4204 Inputs:
in the title box that appears, this text	in the title box that appears, this text
is not auto translated like the $title is	is not auto translated like the $title is

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

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

=item * $notitle, if true keep the nav controls, but remove the title bar

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

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

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

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

Line 3910 sub bodytag {	Line 4238 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 3946 sub bodytag {	Line 4274 sub bodytag {

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

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

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

my $titleinfo = '<span class="LC_title_bar_title">'.$title.'</span>';	my $titleinfo = '<h1>'.$title.'</h1>';
if ($customtitle) {	if ($customtitle) {
$titleinfo = $customtitle;	$titleinfo = $customtitle;
}	}
Line 4021 ENDROLE	Line 4341 ENDROLE
.'<b>'.&mt('Construction Space').'</b>: '	.'<b>'.&mt('Construction Space').'</b>: '
.'<form name="dirs" method="post" action="'.$formaction	.'<form name="dirs" method="post" action="'.$formaction
.'" target="_top"><tt><b>'	.'" target="_top"><tt><b>'
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />"	.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<span class=\"LC_fontsize_big\">$lastitem</span></b></tt><br />"
.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')	.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
.'</form>'	.'</form>'
.&Apache::lonmenu::constspaceform();	.&Apache::lonmenu::constspaceform();
}	}

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

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

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

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

my $sans = 'Verdana,Arial,Helvetica,sans-serif';	my $sans = 'Verdana,Arial,Helvetica,sans-serif';
my $mono = 'monospace';	my $mono = 'monospace';
my $data_table_head = $tabbg;	my $data_table_head = $tabbg;
Line 4212 sub standard_css {	Line 4525 sub standard_css {
my $mail_other_hover = '#669999';	my $mail_other_hover = '#669999';
my $table_header = '#DDDDDD';	my $table_header = '#DDDDDD';
my $feedback_link_bg = '#BBBBBB';	my $feedback_link_bg = '#BBBBBB';
	my $lg_border_color = '#C8C8C8';

my $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;
h1, h2, h3, th { font-family: $sans }	body {
a:focus { color: red; background: yellow }	font-family: $sans;
table.thinborder,	line-height:130%;
	font-size:0.83em;
	color:$font;
	}

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

	form, .inline {
	display: inline;
	}

	.LC_right {
	text-align:right;
	}

	.LC_middle {
	vertical-align:middle;
	}

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

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

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

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

.LC_warning,	.LC_warning,
.LC_diff_removed {	.LC_diff_removed {
color: red;	color: red;
Line 4250 form, .inline { display: inline; }	Line 4593 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;
	}

	div.LC_confirm_box .LC_error img,
	div.LC_confirm_box .LC_success img {
	vertical-align: middle;
}	}

.LC_icon {	.LC_icon {
border: 0px;	border: none;
}	vertical-align: middle;
.LC_indexer_icon {
border: 0px;
height: 22px;
}	}

.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: #999;	color: #999999;
	}

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

	.LC_disc_action_links_bar {
	background: $tabbg;
	font-family: $sans;
	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 {
Line 4276 table.LC_pastsubmission {	Line 4659 table.LC_pastsubmission {
margin: 2px;	margin: 2px;
}	}

table#LC_top_nav, table#LC_menubuttons,table#LC_nav_location {	table#LC_top_nav,
	table#LC_menubuttons,
	table#LC_nav_location {
width: 100%;	width: 100%;
background: $pgbg;	background: $pgbg;
border: 2px;	border: 2px;
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;	background: $pgbg;
	color: $fontmenu;
font-family: $sans;	font-family: $sans;
border-collapse: collapse;	border-collapse: collapse;
padding: 0px;	padding: 0;
	margin: 0;
}	}

table.LC_docs_path {	table.LC_docs_path {
Line 4303 table.LC_docs_path {	Line 4699 table.LC_docs_path {
background: $pgbg;	background: $pgbg;
font-family: $sans;	font-family: $sans;
border-collapse: collapse;	border-collapse: collapse;
padding: 0px;	padding: 0;
}	}

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

table#LC_menubuttons_mainmenu {	span.LC_metadata {
width: 100%;	font-family: $sans;
border: 0px;
border-spacing: 1px;
padding: 0px 1px;
margin: 0px;
border-collapse: separate;
}	}
table#LC_menubuttons img, table#LC_menubuttons_mainmenu img {
border: 0px;	table#LC_menubuttons img{
	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;
	padding:2px 5px 2px 5px;
}	}
table#LC_top_nav td a, div#LC_top_nav a {
	table#LC_top_nav td a,
	div#LC_top_nav a {
color: $font;	color: $font;
font-family: $sans;	font-family: $sans;
}	}

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

table#LC_top_nav td.LC_top_nav_logo img {	table#LC_top_nav td.LC_top_nav_logo img {
border: 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 {
	table.LC_breadcrumbs td,
	table.LC_docs_path td {
background: $tabbg;	background: $tabbg;
color: $font;	color: $fontmenu;
font-family: $sans;	font-family: $sans;
font-size: smaller;	font-size: smaller;
}	}

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

td.LC_table_cell_checkbox {	td.LC_table_cell_checkbox {
text-align: center;	text-align: center;
}	}
Line 4391 table#LC_mainmenu td.LC_mainmenu_column	Line 4795 table#LC_mainmenu td.LC_mainmenu_column
vertical-align: top;	vertical-align: top;
}	}

	.LC_fontsize_small {
	font-size: 70%;
	}

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

	.LC_fontsize_medium {
	font-size: 85%;
	}

	.LC_fontsize_large {
	font-size: 120%;
	}

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

.LC_menubuttons_link {	.LC_menubuttons_link {
Line 4410 table#LC_mainmenu td.LC_mainmenu_column	Line 4837 table#LC_mainmenu td.LC_mainmenu_column
}	}

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

td.LC_menubuttons_img {
}	}

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

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

.LC_rolesmenu_is {	.LC_preferences_labeltext {
font-family: $sans;
}

.LC_rolesmenu_selected {
font-family: $sans;
}

.LC_rolesmenu_future {
font-family: $sans;
}


.LC_rolesmenu_will {
font-family: $sans;
}

.LC_rolesmenu_will_not {
font-family: $sans;
}

.LC_rolesmenu_expired {
font-family: $sans;
}

.LC_rolesinfo {
font-family: $sans;
}

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

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

table.LC_aboutme_port {	.LC_mail_functions {
border: 0px;	font-weight: bold;
border-collapse: collapse;
border-spacing: 0px;
}	}
table.LC_data_table, table.LC_mail_list {
	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;
font-size: smaller;	color:$fontmenu;
	font-size:90%;
	}

	table.LC_data_table tr.LC_info_row > td {
	background-color: #CCCCCC;
	font-weight: bold;
	text-align: left;
}	}
table.LC_data_table tr.LC_odd_row > td,
table.LC_aboutme_port tr td {	table.LC_data_table tr.LC_odd_row > 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_aboutme_port tr.LC_even_row td {	table.LC_pick_box tr > td.LC_even_row {
background-color: $data_table_dark;	background-color: $data_table_dark;
	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 4523 table.LC_nested tr.LC_empty_row td {	Line 4935 table.LC_nested tr.LC_empty_row td {
text-align: center;	text-align: center;
padding: 8px;	padding: 8px;
}	}

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

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

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

table.LC_nested tr.LC_info_row td {	table.LC_nested tr.LC_info_row td {
background-color: #CCC;	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: #FFF;	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 4561 table.LC_nested tr td.LC_right_item {	Line 4981 table.LC_nested tr td.LC_right_item {
}	}

table.LC_nested tr.LC_odd_row td {	table.LC_nested tr.LC_odd_row td {
background-color: #EEE;	background-color: #EEEEEE;
}	}

table.LC_createuser {	table.LC_createuser {
}	}

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

table.LC_createuser tr.LC_info_row td {	table.LC_createuser tr.LC_info_row td {
background-color: #CCC;	background-color: #CCCCCC;
font-weight: bold;	font-weight: bold;
text-align: center;	text-align: center;
}	}
Line 4581 table.LC_calendar {	Line 5001 table.LC_calendar {
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: collapse;	border-collapse: collapse;
}	}

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

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

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

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

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

	table.LC_mail_list tr.LC_mail_even {
	}

	table.LC_mail_list tr.LC_mail_odd {
	}

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

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

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

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

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

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

	table.LC_data_table tr > td.LC_browser_file,
table#LC_portfolio_actions {	table.LC_data_table tr > td.LC_browser_file_published {
width: auto;	background: #CCFF88;
background: $pgbg;
border: 0px;
border-spacing: 2px 2px;
padding: 0px;
margin: 0px;
border-collapse: separate;
}
table#LC_portfolio_actions td.LC_label {
background: $tabbg;
text-align: right;
}
table#LC_portfolio_actions td.LC_value {
background: $tabbg;
}	}

table#LC_cstr_controls {	table.LC_data_table tr > td.LC_browser_file_locked,
width: 100%;	table.LC_data_table tr > td.LC_browser_file_unpublished {
border-collapse: collapse;	background: #FFAA99;
}
table#LC_cstr_controls tr td {
border: 4px solid $pgbg;
padding: 4px;
text-align: center;
background: $tabbg;
}	}
table#LC_cstr_controls tr th {
border: 4px solid $pgbg;	table.LC_data_table tr > td.LC_browser_file_obsolete {
background: $table_header;	background: #AAAAAA;
text-align: center;
font-family: $sans;
font-size: smaller;
}	}

table#LC_browser {	table.LC_data_table tr > td.LC_browser_file_modified,
	table.LC_data_table tr > td.LC_browser_file_metamodified {
	background: #FFFF77;
}	}
table#LC_browser tr th {
background: $table_header;	table.LC_data_table tr.LC_browser_folder > td {
	background: #CCCCFF;
}	}
table#LC_browser tr td {
padding: 2px;	table.LC_data_table tr > td.LC_roles_is {
	/* background: #77FF77; */
}	}
table#LC_browser tr.LC_browser_file,
table#LC_browser tr.LC_browser_file_published {	table.LC_data_table tr > td.LC_roles_future {
background: #CCFF88;	background: #FFFF77;
}	}
table#LC_browser tr.LC_browser_file_locked,
table#LC_browser tr.LC_browser_file_unpublished {	table.LC_data_table tr > td.LC_roles_will {
background: #FFAA99;	background: #FFAA77;
}	}
table#LC_browser tr.LC_browser_file_obsolete {
background: #AAAAAA;	table.LC_data_table tr > td.LC_roles_expired {
	background: #FF7777;
}	}
table#LC_browser tr.LC_browser_file_modified,
table#LC_browser tr.LC_browser_file_metamodified {	table.LC_data_table tr > td.LC_roles_will_not {
background: #FFFF77;	background: #AAFF77;
}	}
table#LC_browser tr.LC_browser_folder {
background: #CCCCFF;	table.LC_data_table tr > td.LC_roles_selected {
	background: #11CC55;
}	}

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

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

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

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

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

span.LC_parm_part {	span.LC_parm_part {
color: blue;	color: blue;
}	}

span.LC_parm_folder, span.LC_parm_symb {	span.LC_parm_folder, span.LC_parm_symb {
font-size: x-small;	font-size: x-small;
font-family: $mono;	font-family: $mono;
color: #AAAAAA;	color: #AAAAAA;
}	}

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

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

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

table#LC_helpmenu {	table#LC_helpmenu {
border: 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;	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 4755 table#LC_helpmenu_links tr td {	Line 5184 table#LC_helpmenu_links tr td {
font-weight: bold;	font-weight: bold;
}	}

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

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

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

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

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

table.LC_pick_box td.LC_pick_box_title {	table.LC_pick_box td.LC_pick_box_title {
background: $tabbg;	background: $tabbg;
font-weight: bold;	font-weight: bold;
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 {	table.LC_pick_box td.LC_selfenroll_pick_box_title {
background: $tabbg;	background: $tabbg;
font-weight: bold;	font-weight: bold;
Line 4802 table.LC_pick_box td.LC_pick_box_value {	Line 5239 table.LC_pick_box td.LC_pick_box_value {
text-align: left;	text-align: left;
padding: 8px;	padding: 8px;
}	}

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

table.LC_pick_box td.LC_pick_box_separator {	table.LC_pick_box td.LC_pick_box_separator {
padding: 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 4831 table.LC_helpform_receipt {	Line 5274 table.LC_helpform_receipt {
border: 1px solid black;	border: 1px solid black;
border-spacing: 1px;	border-spacing: 1px;
}	}

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

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

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

table.LC_helpform_receipt td.LC_pick_box_separator {	table.LC_helpform_receipt td.LC_pick_box_separator {
padding: 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 4890 table.LC_notify_front_page {	Line 5344 table.LC_notify_front_page {
border: 1px solid black;	border: 1px solid black;
padding: 8px;	padding: 8px;
}	}

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

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

.LC_topic_bar {	.LC_topic_bar {
font-family: $sans;	font-family: $sans;
font-weight: bold;	font-weight: bold;
Line 4903 table.LC_notify_front_page td {	Line 5360 table.LC_notify_front_page td {
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: white;
width: 100%;	width: 100%;
}	}

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

span.LC_message_link {	span.LC_message_link {
background: $feedback_link_bg;	background: $feedback_link_bg;
font-size: larger;	font-size: larger;
Line 4950 table.LC_prior_tries td {	Line 5410 table.LC_prior_tries td {
}	}

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

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

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

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

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


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

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

	td.LC_nobreak,
span.LC_nobreak {	span.LC_nobreak {
white-space: nowrap;	white-space: nowrap;
}	}
Line 5019 span.LC_cusr_subheading {	Line 5499 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 5028 table.LC_docs_documents td.LC_docs_docum	Line 5508 table.LC_docs_documents td.LC_docs_docum
padding: 4px;	padding: 4px;
}	}

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

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

Line 5049 table.LC_docs_documents td.LC_docs_docum	Line 5522 table.LC_docs_documents td.LC_docs_docum
background: #DDDDDD;	background: #DDDDDD;
font-size: x-small;	font-size: x-small;
}	}

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

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

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

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

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

table.LC_sty_end {	table.LC_sty_end {
background: #FFBBBB;	background: #FFBBBB;
}	}

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 5107 table.LC_double_column tr td.LC_left_col	Line 5586 table.LC_double_column tr td.LC_left_col

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


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

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

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

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

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

div.LC_grade_show_problem_problem,	div.LC_grade_show_problem_problem,
div.LC_grade_submissions_body,	div.LC_grade_submissions_body,
div.LC_grade_message_center_body,	div.LC_grade_message_center_body,
Line 5185 div.LC_grade_assign_body {	Line 5652 div.LC_grade_assign_body {
width: 99%;	width: 99%;
background: #FFFFFF;	background: #FFFFFF;
}	}

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

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

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

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

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

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

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

background: $tabbg;	background: $tabbg;
border-collapse: collapse;	border-collapse: collapse;
padding: 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 {	hr.LC_edit_problem_divide {
clear: both;	clear: both;
color: $tabbg;	color: $tabbg;
background-color: $tabbg;	background-color: $tabbg;
height: 3px;	height: 3px;
border: 0px;	border: none;
	}

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

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

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

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

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

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

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

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

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

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

	.LC_noBorder {
	border: 0;
	}


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

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

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

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

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

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

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

	ol.LC_smallMenu {
	float: right;
	}

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

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

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

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

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

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

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

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

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

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

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

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

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

	ul.LC_TabContentBigger li {
	vertical-align:bottom;
	border-top:solid 1px $lg_border_color;
	border-left:solid 1px $lg_border_color;
	padding:5px 10px 5px 10px;
	margin-left:2px;
	background:url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
	}

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

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

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

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

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

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

	.LC_BoxPadding {
	padding: 10px;
	}

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

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

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

	.LC_Clear_AboutMe_Image {
	clear:left;
	}

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

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

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

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

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

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

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

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

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

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

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

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

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

	.ContentBoxTemplate {
	padding:10px;
	}

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

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

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


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

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

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

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

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

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

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

	table.LC_tableOfContent{
	border-collapse: collapse;
	}

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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


END	END
}	}

Line 5401 sub endheadtag {	Line 6405 sub endheadtag {

Returns a uniform complete <head>..</head> section for LON-CAPA web pages.	Returns a uniform complete <head>..</head> section for LON-CAPA web pages.

Inputs: $title - optional title for the page	Inputs:
$head_extra - optional extra HTML to put inside the <head>
	=over 4

	$title - optional title for the page

	$head_extra - optional extra HTML to put inside the <head>

	=back

=cut	=cut

Line 5417 sub head {	Line 6428 sub head {

Returns a complete <html> .. <body> section for LON-CAPA web pages.	Returns a complete <html> .. <body> section for LON-CAPA web pages.

Inputs: $title - optional title for the page	Inputs:
$head_extra - optional extra HTML to incude inside the <head>
$args - additional optional args supported are:	=over 4
only_body -> is true will set &bodytag() onlybodytag
	$title - optional title for the page

	$head_extra - optional extra HTML to incude inside the <head>

	$args - additional optional args supported are:

	=over 8

	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
function -> force usage of a specific rolish color	function -> force usage of a specific rolish color
scheme	scheme
redirect -> see &headtag()	redirect -> see &headtag()
bgcolor -> override the default page bg color	bgcolor -> override the default page bg color
js_ready -> return a string ready for being used in	js_ready -> return a string ready for being used in
a javascript writeln	a javascript writeln
html_encode -> return a string ready for being used in	html_encode -> return a string ready for being used in
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	body_title -> alternate text to use instead of $title
in the title box that appears, this text	in the title box that appears, this text
is not auto translated like the $title is	is not auto translated like the $title is
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
	no_inline_link -> if true and in remote mode, don't show the
no_inline_link -> if true and in remote mode, don't show the
'Switch To Inline Menu' link	'Switch To Inline Menu' link
	no_auto_mt_title -> prevent &mt()ing the title arg
no_auto_mt_title -> prevent &mt()ing the title arg	inherit_jsmath -> when creating popup window in a page,

inherit_jsmath -> when creating popup window in a page,
should it have jsmath forced on by the	should it have jsmath forced on by the
current page	current page

	=back

	=back

=cut	=cut

sub start_page {	sub start_page {
Line 5489 sub start_page {	Line 6509 sub start_page {
$args->{'only_body'}, $args->{'domain'},	$args->{'only_body'}, $args->{'domain'},
$args->{'force_register'}, $args->{'body_title'},	$args->{'force_register'}, $args->{'body_title'},
$args->{'no_nav_bar'}, $args->{'bgcolor'},	$args->{'no_nav_bar'}, $args->{'bgcolor'},
$args->{'no_title'}, $args->{'no_inline_link'},	$args->{'no_inline_link'},
$args);	$args);
}	}
}	}

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

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

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

	#Breadcrumbs
	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 5646 sub simple_error_page {	Line 6692 sub simple_error_page {
}	}

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

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

###############################################	###############################################
sub get_users_function {	sub get_users_function {
my $function = 'student';	my $function = 'norole';
	if ($env{'request.role'}=~/^(st)/) {
	$function='student';
	}
if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {	if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {
$function='coordinator';	$function='coordinator';
}	}
Line 5745 sub get_users_function {	Line 6794 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 6248 If the user's status includes multiple t	Line 7329 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 6260 sub default_quota {	Line 7343 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 ($quotahash{'quotas'}{$item} ne '') {	if (ref($quotahash{'quotas'}{'defaultquota'}) eq 'HASH') {
if ($defquota eq '') {	if ($quotahash{'quotas'}{'defaultquota'}{$item} ne '') {
$defquota = $quotahash{'quotas'}{$item};	if ($defquota eq '') {
$settingstatus = $item;	$defquota = $quotahash{'quotas'}{'defaultquota'}{$item};
} elsif ($quotahash{'quotas'}{$item} > $defquota) {	$settingstatus = $item;
$defquota = $quotahash{'quotas'}{$item};	} elsif ($quotahash{'quotas'}{'defaultquota'}{$item} > $defquota) {
$settingstatus = $item;	$defquota = $quotahash{'quotas'}{'defaultquota'}{$item};
	$settingstatus = $item;
	}
	}
	} else {
	if ($quotahash{'quotas'}{$item} ne '') {
	if ($defquota eq '') {
	$defquota = $quotahash{'quotas'}{$item};
	$settingstatus = $item;
	} elsif ($quotahash{'quotas'}{$item} > $defquota) {
	$defquota = $quotahash{'quotas'}{$item};
	$settingstatus = $item;
	}
}	}
}	}
}	}
}	}
if ($defquota eq '') {	if ($defquota eq '') {
$defquota = $quotahash{'quotas'}{'default'};	if (ref($quotahash{'quotas'}{'defaultquota'}) eq 'HASH') {
	$defquota = $quotahash{'quotas'}{'defaultquota'}{'default'};
	} else {
	$defquota = $quotahash{'quotas'}{'default'};
	}
$settingstatus = 'default';	$settingstatus = 'default';
}	}
} else {	} else {
Line 6423 sub user_picker {	Line 7522 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 6680 sub instrule_disallow_msg {	Line 7784 sub instrule_disallow_msg {
$text{'action'} = 'IDs';	$text{'action'} = 'IDs';
}	}
}	}
$response = &mt("The $text{'item'} you chose $text{'match'} the format of $text{'items'} defined for <span class=\"LC_cusr_emph\">[_1]</span>, but the $text{'item'} $text{'do'} not exist in the institutional directory.",$domdesc).'<br />';	$response = &mt("The $text{'item'} you chose $text{'match'} the format of $text{'items'} defined for [_1], but the $text{'item'} $text{'do'} not exist in the institutional directory.",'<span class="LC_cusr_emph">'.$domdesc.'</span>').'<br />';
if ($mode eq 'upload') {	if ($mode eq 'upload') {
if ($checkitem eq 'username') {	if ($checkitem eq 'username') {
$response .= &mt("You will need to modify your upload file so it will include $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}.");	$response .= &mt("You will need to modify your upload file so it will include $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}.");
} elsif ($checkitem eq 'id') {	} elsif ($checkitem eq 'id') {
$response .= &mt("Either upload a file which includes $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}, or when associating fields with data columns, omit an association for the ID/Student Number field.");	$response .= &mt("Either upload a file which includes $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}, or when associating fields with data columns, omit an association for the Student/Employee ID field.");
	}
	} elsif ($mode eq 'selfcreate') {
	if ($checkitem eq 'id') {
	$response .= &mt("You must either choose $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}, or leave the ID field blank.");
}	}
} else {	} else {
if ($checkitem eq 'username') {	if ($checkitem eq 'username') {
Line 6706 sub personal_data_fieldtitles {	Line 7814 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 6715 sub sorted_inst_types {	Line 7824 sub sorted_inst_types {
my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);	my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
my $othertitle = &mt('All users');	my $othertitle = &mt('All users');
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$othertitle = 'any';	$othertitle = &mt('Any users');
}	}
my @types;	my @types;
if (ref($order) eq 'ARRAY') {	if (ref($order) eq 'ARRAY') {
Line 6728 sub sorted_inst_types {	Line 7837 sub sorted_inst_types {
}	}
if (keys(%{$usertypes}) > 0) {	if (keys(%{$usertypes}) > 0) {
$othertitle = &mt('Other users');	$othertitle = &mt('Other users');
if ($env{'request.course.id'}) {
$othertitle = 'other';
}
}	}
return ($othertitle,$usertypes,\@types);	return ($othertitle,$usertypes,\@types);
}	}
Line 6778 sub get_institutional_codes {	Line 7884 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

	Returns:

	=over 4

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

	=back

=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

=item * get_unprocessed_cgi($query,$possible_names)	=item * &get_unprocessed_cgi($query,$possible_names)

Modify the %env hash to contain unprocessed CGI form parameters held in	Modify the %env hash to contain unprocessed CGI form parameters held in
$query. The parameters listed in $possible_names (an array reference),	$query. The parameters listed in $possible_names (an array reference),
Line 6813 sub get_unprocessed_cgi {	Line 7968 sub get_unprocessed_cgi {

=pod	=pod

=item * cacheheader()	=item * &cacheheader()

returns cache-controlling header code	returns cache-controlling header code

Line 6830 sub cacheheader {	Line 7985 sub cacheheader {

=pod	=pod

=item * no_cache($r)	=item * &no_cache($r)

specifies header code to not have cache	specifies header code to not have cache

Line 6866 sub content_type {	Line 8021 sub content_type {

=pod	=pod

=item * add_to_env($name,$value)	=item * &add_to_env($name,$value)

adds $name to the %env hash with value	adds $name to the %env hash with value
$value, if $name already exists, the entry is converted to an array	$value, if $name already exists, the entry is converted to an array
Line 6893 sub add_to_env {	Line 8048 sub add_to_env {

=pod	=pod

=item * get_env_multiple($name)	=item * &get_env_multiple($name)

gets $name from the %env hash, it seemlessly handles the cases where multiple	gets $name from the %env hash, it seemlessly handles the cases where multiple
values may be defined and end up as an array ref.	values may be defined and end up as an array ref.
Line 6916 sub get_env_multiple {	Line 8071 sub get_env_multiple {
return(@values);	return(@values);
}	}

	sub ask_for_embedded_content {
	my ($actionurl,$state,$allfiles,$codebase,$args)=@_;
	my $upload_output = '
	<form name="upload_embedded" action="'.$actionurl.'"
	method="post" enctype="multipart/form-data">';
	$upload_output .= $state;
	$upload_output .= '<b>Upload embedded files</b>:<br />'.&start_data_table();

	my $num = 0;
	foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%{$allfiles})) {
	$upload_output .= &start_data_table_row().
	'<td>'.$embed_file.'</td><td>';
	if ($args->{'ignore_remote_references'}
	&& $embed_file =~ m{^\w+://}) {
	$upload_output.='<span class="LC_warning">'.&mt("URL points to other server.").'</span>';
	} elsif ($args->{'error_on_invalid_names'}
	&& $embed_file ne &Apache::lonnet::clean_filename($embed_file,{'keep_path' => 1,})) {

	$upload_output.='<span class="LC_warning">'.&mt("Invalid characters").'</span>';

	} else {
	$upload_output .='
	<input name="embedded_item_'.$num.'" type="file" value="" />
	<input name="embedded_orig_'.$num.'" type="hidden" value="'.&escape($embed_file).'" />';
	my $attrib = join(':',@{$$allfiles{$embed_file}});
	$upload_output .=
	"\n\t\t".
	'<input name="embedded_attrib_'.$num.'" type="hidden" value="'.
	$attrib.'" />';
	if (exists($$codebase{$embed_file})) {
	$upload_output .=
	"\n\t\t".
	'<input name="codebase_'.$num.'" type="hidden" value="'.
	&escape($$codebase{$embed_file}).'" />';
	}
	}
	$upload_output .= '</td>'.&Apache::loncommon::end_data_table_row();
	$num++;
	}
	$upload_output .= &Apache::loncommon::end_data_table().'<br />
	<input type ="hidden" name="number_embedded_items" value="'.$num.'" />
	<input type ="submit" value="'.&mt('Upload Listed Files').'" />
	'.&mt('(only files for which a location has been provided will be uploaded)').'
	</form>';
	return $upload_output;
	}

	sub upload_embedded {
	my ($context,$dirpath,$uname,$udom,$dir_root,$url_root,$group,$disk_quota,
	$current_disk_usage) = @_;
	my $output;
	for (my $i=0; $i<$env{'form.number_embedded_items'}; $i++) {
	next if (!exists($env{'form.embedded_item_'.$i.'.filename'}));
	my $orig_uploaded_filename =
	$env{'form.embedded_item_'.$i.'.filename'};

	$env{'form.embedded_orig_'.$i} =
	&unescape($env{'form.embedded_orig_'.$i});
	my ($path,$fname) =
	($env{'form.embedded_orig_'.$i} =~ m{(./)([^/])});
	# no path, whole string is fname
	if (!$fname) { $fname = $env{'form.embedded_orig_'.$i} };

	$path = $env{'form.currentpath'}.$path;
	$fname = &Apache::lonnet::clean_filename($fname);
	# See if there is anything left
	next if ($fname eq '');

	# Check if file already exists as a file or directory.
	my ($state,$msg);
	if ($context eq 'portfolio') {
	my $port_path = $dirpath;
	if ($group ne '') {
	$port_path = "groups/$group/$port_path";
	}
	($state,$msg) = &check_for_upload($path,$fname,$group,'embedded_item_'.$i,
	$dir_root,$port_path,$disk_quota,
	$current_disk_usage,$uname,$udom);
	if ($state eq 'will_exceed_quota'
	\|\| $state eq 'file_locked'
	\|\| $state eq 'file_exists' ) {
	$output .= $msg;
	next;
	}
	} elsif (($context eq 'author') \|\| ($context eq 'testbank')) {
	($state,$msg) = &check_for_existing($path,$fname,'embedded_item_'.$i);
	if ($state eq 'exists') {
	$output .= $msg;
	next;
	}
	}
	# Check if extension is valid
	if (($fname =~ /\.(\w+)$/) &&
	(&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
	$output .= &mt('Invalid file extension ([_1]) - reserved for LONCAPA use - rename the file with a different extension and re-upload. ',$1);
	next;
	} elsif (($fname =~ /\.(\w+)$/) &&
	(!defined(&Apache::loncommon::fileembstyle($1)))) {
	$output .= &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1);
	next;
	} elsif ($fname=~/\.(\d+)\.(\w+)$/) {
	$output .= &mt('File name not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2);
	next;
	}

	$env{'form.embedded_item_'.$i.'.filename'}=$fname;
	if ($context eq 'portfolio') {
	my $result=
	&Apache::lonnet::userfileupload('embedded_item_'.$i,'',
	$dirpath.$path);
	if ($result !~ m\|^/uploaded/\|) {
	$output .= '<span class="LC_error">'
	.&mt('An error occurred ([_1]) while trying to upload [_2] for embedded element [_3].'
	,$result,$orig_uploaded_filename,$env{'form.embedded_orig_'.$i})
	.'</span><br />';
	next;
	} else {
	$output .= '<p>'.&mt('Uploaded [_1]','<span class="LC_filename">'.
	$path.$fname.'</span>').'</p>';
	}
	} else {
	# Save the file
	my $target = $env{'form.embedded_item_'.$i};
	my $fullpath = $dir_root.$dirpath.'/'.$path;
	my $dest = $fullpath.$fname;
	my $url = $url_root.$dirpath.'/'.$path.$fname;
	my @parts=split(/\//,$fullpath);
	my $count;
	my $filepath = $dir_root;
	for ($count=4;$count<=$#parts;$count++) {
	$filepath .= "/$parts[$count]";
	if ((-e $filepath)!=1) {
	mkdir($filepath,0770);
	}
	}
	my $fh;
	if (!open($fh,'>'.$dest)) {
	&Apache::lonnet::logthis('Failed to create '.$dest);
	$output .= '<span class="LC_error">'.
	&mt('An error occurred while trying to upload [_1] for embedded element [_2].',$orig_uploaded_filename,$env{'form.embedded_orig_'.$i}).
	'</span><br />';
	} else {
	if (!print $fh $env{'form.embedded_item_'.$i}) {
	&Apache::lonnet::logthis('Failed to write to '.$dest);
	$output .= '<span class="LC_error">'.
	&mt('An error occurred while writing the file [_1] for embedded element [_2].',$orig_uploaded_filename,$env{'form.embedded_orig_'.$i}).
	'</span><br />';
	} else {
	if ($context eq 'testbank') {
	$output .= &mt('Embedded file uploaded successfully:').
	' <a href="'.$url.'">'.
	$orig_uploaded_filename.'</a><br />';
	} else {
	$output .= '<span class=\"LC_fontsize_large\">'.
	&mt('View embedded file: [_1]','<a href="'.$url.'">'.
	$orig_uploaded_filename.'</a>').'</span><br />';
	}
	}
	close($fh);
	}
	}
	}
	return $output;
	}

	sub check_for_existing {
	my ($path,$fname,$element) = @_;
	my ($state,$msg);
	if (-d $path.'/'.$fname) {
	$state = 'exists';
	$msg = &mt('Unable to upload [_1]. A directory by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$path);
	} elsif (-e $path.'/'.$fname) {
	$state = 'exists';
	$msg = &mt('Unable to upload [_1]. A file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$path);
	}
	if ($state eq 'exists') {
	$msg = '<span class="LC_error">'.$msg.'</span><br />';
	}
	return ($state,$msg);
	}

	sub check_for_upload {
	my ($path,$fname,$group,$element,$portfolio_root,$port_path,
	$disk_quota,$current_disk_usage,$uname,$udom) = @_;
	my $filesize = (length($env{'form.'.$element})) / 1000; #express in k (1024?)
	my $getpropath = 1;
	my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$path,$udom,$uname,
	$getpropath);
	my $found_file = 0;
	my $locked_file = 0;
	foreach my $line (@dir_list) {
	my ($file_name)=split(/\&/,$line,2);
	if ($file_name eq $fname){
	$file_name = $path.$file_name;
	if ($group ne '') {
	$file_name = $group.$file_name;
	}
	$found_file = 1;
	if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
	$locked_file = 1;
	}
	}
	}
	if (($current_disk_usage + $filesize) > $disk_quota){
	my $msg = '<span class="LC_error">'.
	&mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.','<span class="LC_filename">'.$fname.'</span>',$filesize).'</span>'.
	'<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',$disk_quota,$current_disk_usage);
	return ('will_exceed_quota',$msg);
	} elsif ($found_file) {
	if ($locked_file) {
	my $msg = '<span class="LC_error">';
	$msg .= &mt('Unable to upload [_1]. A locked file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>','<span class="LC_filename">'.$port_path.$env{'form.currentpath'}.'</span>');
	$msg .= '</span><br />';
	$msg .= &mt('You will be able to rename or delete existing [_1] after a grade has been assigned.','<span class="LC_filename">'.$fname.'</span>');
	return ('file_locked',$msg);
	} else {
	my $msg = '<span class="LC_error">';
	$msg .= &mt('Unable to upload [_1]. A file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$port_path.$env{'form.currentpath'});
	$msg .= '</span>';
	$msg .= '<br />';
	$msg .= &mt('To upload, rename or delete existing [_1] in [_2].','<span class="LC_filename">'.$fname.'</span>', $port_path.$env{'form.currentpath'});
	return ('file_exists',$msg);
	}
	}
	}


=pod	=pod

Line 6925 sub get_env_multiple {	Line 8306 sub get_env_multiple {

=over 4	=over 4

=item * upfile_store($r)	=item * &upfile_store($r)

Store uploaded file, $r should be the HTTP Request object,	Store uploaded file, $r should be the HTTP Request object,
needs $env{'form.upfile'}	needs $env{'form.upfile'}
Line 6955 sub upfile_store {	Line 8336 sub upfile_store {

=pod	=pod

=item * load_tmp_file($r)	=item * &load_tmp_file($r)

Load uploaded file from tmp, $r should be the HTTP Request object,	Load uploaded file from tmp, $r should be the HTTP Request object,
needs $env{'form.datatoken'},	needs $env{'form.datatoken'},
Line 6979 sub load_tmp_file {	Line 8360 sub load_tmp_file {

=pod	=pod

=item * upfile_record_sep()	=item * &upfile_record_sep()

Separate uploaded file into records	Separate uploaded file into records
returns array of records,	returns array of records,
Line 7001 sub upfile_record_sep {	Line 8382 sub upfile_record_sep {

=pod	=pod

=item * record_sep($record)	=item * &record_sep($record)

Separate a record into fields $record should be an item from the upfile_record_sep(), needs $env{'form.upfiletype'}	Separate a record into fields $record should be an item from the upfile_record_sep(), needs $env{'form.upfiletype'}

Line 7086 sub record_sep {	Line 8467 sub record_sep {

=pod	=pod

=item * upfile_select_html()	=item * &upfile_select_html()

Return HTML code to select a file from the users machine and specify	Return HTML code to select a file from the users machine and specify
the file type.	the file type.
Line 7104 sub upfile_select_html {	Line 8485 sub upfile_select_html {
# xml => &mt('HTML/XML'),	# xml => &mt('HTML/XML'),
);	);
my $Str = '<input type="file" name="upfile" size="50" />'.	my $Str = '<input type="file" name="upfile" size="50" />'.
'<br />Type: <select name="upfiletype">';	'<br />'.&mt('Type').': <select name="upfiletype">';
foreach my $type (sort(keys(%Types))) {	foreach my $type (sort(keys(%Types))) {
$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n";	$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n";
}	}
Line 7133 sub get_samples {	Line 8514 sub get_samples {

=pod	=pod

=item * csv_print_samples($r,$records)	=item * &csv_print_samples($r,$records)

Prints a table of sample values from each column uploaded $r is an	Prints a table of sample values from each column uploaded $r is an
Apache Request ref, $records is an arrayref from	Apache Request ref, $records is an arrayref from
Line 7145 Apache Request ref, $records is an array	Line 8526 Apache Request ref, $records is an array
######################################################	######################################################
sub csv_print_samples {	sub csv_print_samples {
my ($r,$records) = @_;	my ($r,$records) = @_;
my $samples = &get_samples($records,3);	my $samples = &get_samples($records,5);

$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());
Line 7169 sub csv_print_samples {	Line 8550 sub csv_print_samples {

=pod	=pod

=item * csv_print_select_table($r,$records,$d)	=item * &csv_print_select_table($r,$records,$d)

Prints a table to create associations between values and table columns.	Prints a table to create associations between values and table columns.

Line 7192 sub csv_print_select_table {	Line 8573 sub csv_print_select_table {
&end_data_table_header_row()."\n");	&end_data_table_header_row()."\n");
foreach my $array_ref (@$d) {	foreach my $array_ref (@$d) {
my ($value,$display,$defaultcol)=@{ $array_ref };	my ($value,$display,$defaultcol)=@{ $array_ref };
$r->print(&start_data_table_row().'<tr><td>'.$display.'</td>');	$r->print(&start_data_table_row().'<td>'.$display.'</td>');

$r->print('<td><select name=f'.$i.	$r->print('<td><select name=f'.$i.
' onchange="javascript:flip(this.form,'.$i.');">');	' onchange="javascript:flip(this.form,'.$i.');">');
Line 7200 sub csv_print_select_table {	Line 8581 sub csv_print_select_table {
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {	foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {
$r->print('<option value="'.$sample.'"'.	$r->print('<option value="'.$sample.'"'.
($sample eq $defaultcol ? ' selected="selected" ' : '').	($sample eq $defaultcol ? ' selected="selected" ' : '').
'>Column '.($sample+1).'</option>');	'>'.&mt('Column [_1]',($sample+1)).'</option>');
}	}
$r->print('</select></td>'.&end_data_table_row()."\n");	$r->print('</select></td>'.&end_data_table_row()."\n");
$i++;	$i++;
Line 7215 sub csv_print_select_table {	Line 8596 sub csv_print_select_table {

=pod	=pod

=item * csv_samples_select_table($r,$records,$d)	=item * &csv_samples_select_table($r,$records,$d)

Prints a table of sample values from the upload and can make associate samples to internal names.	Prints a table of sample values from the upload and can make associate samples to internal names.

Line 7231 sub csv_samples_select_table {	Line 8612 sub csv_samples_select_table {
my ($r,$records,$d) = @_;	my ($r,$records,$d) = @_;
my $i=0;	my $i=0;
#	#
my $samples = &get_samples($records,3);	my $max_samples = 5;
	my $samples = &get_samples($records,$max_samples);
$r->print(&start_data_table().	$r->print(&start_data_table().
&start_data_table_header_row().'<th>'.	&start_data_table_header_row().'<th>'.
&mt('Field').'</th><th>'.&mt('Samples').'</th>'.	&mt('Field').'</th><th>'.&mt('Samples').'</th>'.
Line 7247 sub csv_samples_select_table {	Line 8629 sub csv_samples_select_table {
$display.'</option>');	$display.'</option>');
}	}
$r->print('</select></td><td>');	$r->print('</select></td><td>');
foreach my $line (0..2) {	foreach my $line (0..($max_samples-1)) {
if (defined($samples->[$line]{$key})) {	if (defined($samples->[$line]{$key})) {
$r->print($samples->[$line]{$key}."<br />\n");	$r->print($samples->[$line]{$key}."<br />\n");
}	}
Line 7265 sub csv_samples_select_table {	Line 8647 sub csv_samples_select_table {

=pod	=pod

=item clean_excel_name($name)	=item * &clean_excel_name($name)

Returns a replacement for $name which does not contain any illegal characters.	Returns a replacement for $name which does not contain any illegal characters.

Line 7284 sub clean_excel_name {	Line 8666 sub clean_excel_name {

=pod	=pod

=item * check_if_partid_hidden($id,$symb,$udom,$uname)	=item * &check_if_partid_hidden($id,$symb,$udom,$uname)

Returns either 1 or undef	Returns either 1 or undef

Line 7325 sub check_if_partid_hidden {	Line 8707 sub check_if_partid_hidden {

=over 4	=over 4

=item get_cgi_id	=item * &get_cgi_id()

Inputs: none	Inputs: none

Line 7349 sub get_cgi_id {	Line 8731 sub get_cgi_id {

=pod	=pod

=item DrawBarGraph	=item * &DrawBarGraph()

Facilitates the plotting of data in a (stacked) bar graph.	Facilitates the plotting of data in a (stacked) bar graph.
Puts plot definition data into the users environment in order for	Puts plot definition data into the users environment in order for
Line 7493 sub DrawBarGraph {	Line 8875 sub DrawBarGraph {

=pod	=pod

=item DrawXYGraph	=item * &DrawXYGraph()

Facilitates the plotting of data in an XY graph.	Facilitates the plotting of data in an XY graph.
Puts plot definition data into the users environment in order for	Puts plot definition data into the users environment in order for
Line 7583 sub DrawXYGraph {	Line 8965 sub DrawXYGraph {

=pod	=pod

=item DrawXYYGraph	=item * &DrawXYYGraph()

Facilitates the plotting of data in an XY graph with two Y axes.	Facilitates the plotting of data in an XY graph with two Y axes.
Puts plot definition data into the users environment in order for	Puts plot definition data into the users environment in order for
Line 7693 Bad place for them but what the hell.	Line 9075 Bad place for them but what the hell.

=over 4	=over 4

=item &chartlink	=item * &chartlink()

Returns a link to the chart for a specific student.	Returns a link to the chart for a specific student.

Line 7732 sub chartlink {	Line 9114 sub chartlink {

=over 4	=over 4

=item &restore_course_settings	=item * &restore_course_settings()

=item &store_course_settings	=item * &store_course_settings()

Restores/Store indicated form parameters from the course environment.	Restores/Store indicated form parameters from the course environment.
Will not overwrite existing values of the form parameters.	Will not overwrite existing values of the form parameters.
Line 7845 sub restore_settings {	Line 9227 sub restore_settings {

=over 4	=over 4

=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 7858 defdom (domain for which to retrieve con	Line 9241 defdom (domain for which to retrieve con
origmail (scalar - email address of recipient from loncapa.conf,	origmail (scalar - email address of recipient from loncapa.conf,
i.e., predates configuration by DC via domainprefs.pm	i.e., predates configuration by DC via domainprefs.pm

Returns: comma separated list of addresses to which to send e-mail.	Returns: comma separated list of addresses to which to send e-mail.

	=back

=cut	=cut

Line 7871 sub build_recipient_list {	Line 9256 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);
}	}
if ($defmail ne '') {	if (defined($defmail)) {
push(@recipients,$defmail);	if ($defmail ne '') {
	push(@recipients,$defmail);
	}
}	}
if ($otheremails) {	if ($otheremails) {
my @others;	my @others;
Line 7909 sub build_recipient_list {	Line 9300 sub build_recipient_list {
############################################################	############################################################
############################################################	############################################################

	=pod

	=head1 Course Catalog Routines

	=over 4

	=item * &gather_categories()

	Converts category definitions - keys of categories hash stored in
	coursecategories in configuration.db on the primary library server in a
	domain - to an array. Also generates javascript and idx hash used to
	generate Domain Coordinator interface for editing Course Categories.

	Inputs:

	categories (reference to hash of category definitions).

	cats (reference to array of arrays/hashes which encapsulates hierarchy of
	categories and subcategories).

	idx (reference to hash of counters used in Domain Coordinator interface for
	editing Course Categories).

	jsarray (reference to array of categories used to create Javascript arrays for
	Domain Coordinator interface for editing Course Categories).

	Returns: nothing

	Side effects: populates cats, idx and jsarray.

	=cut

	sub gather_categories {
	my ($categories,$cats,$idx,$jsarray) = @_;
	my %counters;
	my $num = 0;
	foreach my $item (keys(%{$categories})) {
	my ($cat,$container,$depth) = map { &unescape($_); } split(/:/,$item);
	if ($container eq '' && $depth == 0) {
	$cats->[$depth][$categories->{$item}] = $cat;
	} else {
	$cats->[$depth]{$container}[$categories->{$item}] = $cat;
	}
	my ($escitem,$tail) = split(/:/,$item,2);
	if ($counters{$tail} eq '') {
	$counters{$tail} = $num;
	$num ++;
	}
	if (ref($idx) eq 'HASH') {
	$idx->{$item} = $counters{$tail};
	}
	if (ref($jsarray) eq 'ARRAY') {
	push(@{$jsarray->[$counters{$tail}]},$item);
	}
	}
	return;
	}

	=pod

	=item * &extract_categories()

	Used to generate breadcrumb trails for course categories.

	Inputs:

	categories (reference to hash of category definitions).

	cats (reference to array of arrays/hashes which encapsulates hierarchy of
	categories and subcategories).

	trails (reference to array of breacrumb trails for each category).

	allitems (reference to hash - key is category key
	(format: escaped(name):escaped(parent category):depth in hierarchy).

	idx (reference to hash of counters used in Domain Coordinator interface for
	editing Course Categories).

	jsarray (reference to array of categories used to create Javascript arrays for
	Domain Coordinator interface for editing Course Categories).

	subcats (reference to hash of arrays containing all subcategories within each
	category, -recursive)

	Returns: nothing

	Side effects: populates trails and allitems hash references.

	=cut

	sub extract_categories {
	my ($categories,$cats,$trails,$allitems,$idx,$jsarray,$subcats) = @_;
	if (ref($categories) eq 'HASH') {
	&gather_categories($categories,$cats,$idx,$jsarray);
	if (ref($cats->[0]) eq 'ARRAY') {
	for (my $i=0; $i<@{$cats->[0]}; $i++) {
	my $name = $cats->[0][$i];
	my $item = &escape($name).'::0';
	my $trailstr;
	if ($name eq 'instcode') {
	$trailstr = &mt('Official courses (with institutional codes)');
	} else {
	$trailstr = $name;
	}
	if ($allitems->{$item} eq '') {
	push(@{$trails},$trailstr);
	$allitems->{$item} = scalar(@{$trails})-1;
	}
	my @parents = ($name);
	if (ref($cats->[1]{$name}) eq 'ARRAY') {
	for (my $j=0; $j<@{$cats->[1]{$name}}; $j++) {
	my $category = $cats->[1]{$name}[$j];
	if (ref($subcats) eq 'HASH') {
	push(@{$subcats->{$item}},&escape($category).':'.&escape($name).':1');
	}
	&recurse_categories($cats,2,$category,$trails,$allitems,\@parents,$subcats);
	}
	} else {
	if (ref($subcats) eq 'HASH') {
	$subcats->{$item} = [];
	}
	}
	}
	}
	}
	return;
	}

	=pod

	=item *&recurse_categories()

	Recursively used to generate breadcrumb trails for course categories.

	Inputs:

	cats (reference to array of arrays/hashes which encapsulates hierarchy of
	categories and subcategories).

	depth (current depth in hierarchy of categories and sub-categories - 0 indexed).

	category (current course category, for which breadcrumb trail is being generated).

	trails (reference to array of breadcrumb trails for each category).

	allitems (reference to hash - key is category key
	(format: escaped(name):escaped(parent category):depth in hierarchy).

	parents (array containing containers directories for current category,
	back to top level).

	Returns: nothing

	Side effects: populates trails and allitems hash references

	=cut

	sub recurse_categories {
	my ($cats,$depth,$category,$trails,$allitems,$parents,$subcats) = @_;
	my $shallower = $depth - 1;
	if (ref($cats->[$depth]{$category}) eq 'ARRAY') {
	for (my $k=0; $k<@{$cats->[$depth]{$category}}; $k++) {
	my $name = $cats->[$depth]{$category}[$k];
	my $item = &escape($category).':'.&escape($parents->[-1]).':'.$shallower;
	my $trailstr = join(' -> ',(@{$parents},$category));
	if ($allitems->{$item} eq '') {
	push(@{$trails},$trailstr);
	$allitems->{$item} = scalar(@{$trails})-1;
	}
	my $deeper = $depth+1;
	push(@{$parents},$category);
	if (ref($subcats) eq 'HASH') {
	my $subcat = &escape($name).':'.$category.':'.$depth;
	for (my $j=@{$parents}; $j>=0; $j--) {
	my $higher;
	if ($j > 0) {
	$higher = &escape($parents->[$j]).':'.
	&escape($parents->[$j-1]).':'.$j;
	} else {
	$higher = &escape($parents->[$j]).'::'.$j;
	}
	push(@{$subcats->{$higher}},$subcat);
	}
	}
	&recurse_categories($cats,$deeper,$name,$trails,$allitems,$parents,
	$subcats);
	pop(@{$parents});
	}
	} else {
	my $item = &escape($category).':'.&escape($parents->[-1]).':'.$shallower;
	my $trailstr = join(' -> ',(@{$parents},$category));
	if ($allitems->{$item} eq '') {
	push(@{$trails},$trailstr);
	$allitems->{$item} = scalar(@{$trails})-1;
	}
	}
	return;
	}

	=pod

	=item *&assign_categories_table()

	Create a datatable for display of hierarchical categories in a domain,
	with checkboxes to allow a course to be categorized.

	Inputs:

	cathash - reference to hash of categories defined for the domain (from
	configuration.db)

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

	Returns: $output (markup to be displayed)

	=cut

	sub assign_categories_table {
	my ($cathash,$currcat) = @_;
	my $output;
	if (ref($cathash) eq 'HASH') {
	my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth);
	&extract_categories($cathash,\@cats,\@trails,\%allitems,\%idx,\@jsarray);
	$maxdepth = scalar(@cats);
	if (@cats > 0) {
	my $itemcount = 0;
	if (ref($cats[0]) eq 'ARRAY') {
	$output = &Apache::loncommon::start_data_table();
	my @currcategories;
	if ($currcat ne '') {
	@currcategories = split('&',$currcat);
	}
	for (my $i=0; $i<@{$cats[0]}; $i++) {
	my $parent = $cats[0][$i];
	my $css_class = $itemcount%2?' class="LC_odd_row"':'';
	next if ($parent eq 'instcode');
	my $item = &escape($parent).'::0';
	my $checked = '';
	if (@currcategories > 0) {
	if (grep(/^\Q$item\E$/,@currcategories)) {
	$checked = ' checked="checked"';
	}
	}
	$output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.
	'<input type="checkbox" name="usecategory" value="'.
	$item.'"'.$checked.' />'.$parent.'</span>'.
	'<input type="hidden" name="catname" value="'.$parent.'" /></td>';
	my $depth = 1;
	push(@path,$parent);
	$output .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);
	pop(@path);
	$output .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';
	$itemcount ++;
	}
	$output .= &Apache::loncommon::end_data_table();
	}
	}
	}
	return $output;
	}

	=pod

	=item *&assign_category_rows()

	Create a datatable row for display of nested categories in a domain,
	with checkboxes to allow a course to be categorized,called recursively.

	Inputs:

	itemcount - track row number for alternating colors

	cats - reference to array of arrays/hashes which encapsulates hierarchy of
	categories and subcategories.

	depth - current depth in hierarchy of categories and sub-categories - 0 indexed.

	parent - parent of current category item

	path - Array containing all categories back up through the hierarchy from the
	current category to the top level.

	currcategories - reference to array of current categories assigned to the course

	Returns: $output (markup to be displayed).

	=cut

	sub assign_category_rows {
	my ($itemcount,$cats,$depth,$parent,$path,$currcategories) = @_;
	my ($text,$name,$item,$chgstr);
	if (ref($cats) eq 'ARRAY') {
	my $maxdepth = scalar(@{$cats});
	if (ref($cats->[$depth]) eq 'HASH') {
	if (ref($cats->[$depth]{$parent}) eq 'ARRAY') {
	my $numchildren = @{$cats->[$depth]{$parent}};
	my $css_class = $itemcount%2?' class="LC_odd_row"':'';
	$text .= '<td><table class="LC_datatable">';
	for (my $j=0; $j<$numchildren; $j++) {
	$name = $cats->[$depth]{$parent}[$j];
	$item = &escape($name).':'.&escape($parent).':'.$depth;
	my $deeper = $depth+1;
	my $checked = '';
	if (ref($currcategories) eq 'ARRAY') {
	if (@{$currcategories} > 0) {
	if (grep(/^\Q$item\E$/,@{$currcategories})) {
	$checked = ' checked="checked"';
	}
	}
	}
	$text .= '<tr><td><span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="usecategory" value="'.
	$item.'"'.$checked.' />'.$name.'</label></span>'.
	'<input type="hidden" name="catname" value="'.$name.'" />'.
	'</td><td>';
	if (ref($path) eq 'ARRAY') {
	push(@{$path},$name);
	$text .= &assign_category_rows($itemcount,$cats,$deeper,$name,$path,$currcategories);
	pop(@{$path});
	}
	$text .= '</td></tr>';
	}
	$text .= '</table></td>';
	}
	}
	}
	return $text;
	}

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


sub commit_customrole {	sub commit_customrole {
my ($udom,$uname,$url,$three,$four,$five,$start,$end) = @_;	my ($udom,$uname,$url,$three,$four,$five,$start,$end,$context) = @_;
my $output = &mt('Assigning custom role').' "'.$five.'" by '.$four.':'.$three.' in '.$url.	my $output = &mt('Assigning custom role').' "'.$five.'" by '.$four.':'.$three.' in '.$url.
($start?', '.&mt('starting').' '.localtime($start):'').	($start?', '.&mt('starting').' '.localtime($start):'').
($end?', ending '.localtime($end):'').': <b>'.	($end?', ending '.localtime($end):'').': <b>'.
&Apache::lonnet::assigncustomrole(	&Apache::lonnet::assigncustomrole(
$udom,$uname,$url,$three,$four,$five,$end,$start).	$udom,$uname,$url,$three,$four,$five,$end,$start,undef,undef,$context).
'</b><br />';	'</b><br />';
return $output;	return $output;
}	}
Line 7950 sub commit_standardrole {	Line 9675 sub commit_standardrole {
$output = &mt('Assigning').' '.$three.' in '.$url.	$output = &mt('Assigning').' '.$three.' in '.$url.
($start?', '.&mt('starting').' '.localtime($start):'').	($start?', '.&mt('starting').' '.localtime($start):'').
($end?', '.&mt('ending').' '.localtime($end):'').': ';	($end?', '.&mt('ending').' '.localtime($end):'').': ';
my $result = &Apache::lonnet::assignrole($udom,$uname,$url,$three,$end,$start);	my $result = &Apache::lonnet::assignrole($udom,$uname,$url,$three,$end,$start,'','',$context);
if ($context eq 'auto') {	if ($context eq 'auto') {
$output .= $result.$linefeed;	$output .= $result.$linefeed;
} else {	} else {
Line 7985 sub commit_studentrole {	Line 9710 sub commit_studentrole {
}	}
$oldsecurl = $uurl;	$oldsecurl = $uurl;
$expire_role_result =	$expire_role_result =
&Apache::lonnet::assignrole($udom,$uname,$uurl,'st',$now);	&Apache::lonnet::assignrole($udom,$uname,$uurl,'st',$now,'','',$context);
if ($env{'request.course.sec'} ne '') {	if ($env{'request.course.sec'} ne '') {
if ($expire_role_result eq 'refused') {	if ($expire_role_result eq 'refused') {
my @roles = ('st');	my @roles = ('st');
Line 8008 sub commit_studentrole {	Line 9733 sub commit_studentrole {
}	}
}	}
if (($expire_role_result eq 'ok') \|\| ($secchange == 0)) {	if (($expire_role_result eq 'ok') \|\| ($secchange == 0)) {
$modify_section_result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,'','',$cid);	$modify_section_result = &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$sec,$end,$start,'','',$cid,'',$context);
if ($modify_section_result =~ /^ok/) {	if ($modify_section_result =~ /^ok/) {
if ($secchange == 1) {	if ($secchange == 1) {
if ($sec eq '') {	if ($sec eq '') {
Line 8189 sub construct_course {	Line 9914 sub construct_course {
'policy.email',	'policy.email',
'comment.email',	'comment.email',
'pch.users.denied',	'pch.users.denied',
'plc.users.denied'],	'plc.users.denied',
	'hidefromcat',
	'categories'],
$$crsudom,$$crsunum);	$$crsudom,$$crsunum);
}	}

Line 8417 sub construct_course {	Line 10144 sub construct_course {
$outcome .= ($fatal?$errtext:'read ok').' - ';	$outcome .= ($fatal?$errtext:'read ok').' - ';
my $title; my $url;	my $title; my $url;
if ($args->{'firstres'} eq 'syl') {	if ($args->{'firstres'} eq 'syl') {
$title='Syllabus';	$title=&mt('Syllabus');
$url='/public/'.$$crsudom.'/'.$$crsunum.'/syllabus';	$url='/public/'.$$crsudom.'/'.$$crsunum.'/syllabus';
} else {	} else {
$title='Navigate Contents';	$title=&mt('Navigate Contents');
$url='/adm/navmaps';	$url='/adm/navmaps';
}	}

Line 8474 sub icon {	Line 10201 sub icon {
return &lonhttpdurl($iconname);	return &lonhttpdurl($iconname);
}	}

sub lonhttpd_port {
my $lonhttpd_port=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpd_port)) { $lonhttpd_port='8080'; }
# IE doesn't like a secure page getting images from a non-secure
# port (when logging we haven't parsed the browser type so default
# back to secure
if ((!exists($env{'browser.type'}) \|\| $env{'browser.type'} eq 'explorer')
&& $ENV{'SERVER_PORT'} == 443) {
return 443;
}
return $lonhttpd_port;

}

sub lonhttpdurl {	sub lonhttpdurl {
	#
	# Had been used for "small fry" static images on separate port 8080.
	# Modify here if lightweight http functionality desired again.
	# Currently eliminated due to increasing firewall issues.
	#
my ($url)=@_;	my ($url)=@_;
	return $url;
my $lonhttpd_port = &lonhttpd_port();
if ($lonhttpd_port == 443) {
return 'https://'.$ENV{'SERVER_NAME'}.$url;
}
return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;
}	}

sub connection_aborted {	sub connection_aborted {
Line 8531 sub escape_url {	Line 10244 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 8573 sub init_user_environment {	Line 10302 sub init_user_environment {
}	}
# Give them a new cookie	# Give them a new cookie
my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'}	my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'}
: $now);	: $now.$$.int(rand(10000)));
$cookie="$username\_$id\_$domain\_$authhost";	$cookie="$username\_$id\_$domain\_$authhost";

# Initialize roles	# Initialize roles
Line 8585 sub init_user_environment {	Line 10314 sub init_user_environment {
my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,	my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
$clientunicode,$clientos) = &decode_user_agent($r);	$clientunicode,$clientos) = &decode_user_agent($r);

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

my %userenv = &Apache::lonnet::dump('environment',$domain,$username);	my %userenv = &Apache::lonnet::dump('environment',$domain,$username);
Line 8615 sub init_user_environment {	Line 10331 sub init_user_environment {
if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }	if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }

# --------------- Do not trust query string to be put directly into environment	# --------------- Do not trust query string to be put directly into environment
foreach my $option ('imagesuppress','appletsuppress',	foreach my $option ('interface','localpath','localres') {
'embedsuppress','fontenhance','blackwhite',	$form->{$option}=~s/[\n\r\=]//gs;
'interface','localpath','localres') {
$form->{$option}=~s/[\n\r\=]//gs;
}	}
# --------------------------------------------------------- Write first profile	# --------------------------------------------------------- Write first profile

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

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

	foreach my $crstype ('official','unofficial') {
	$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",
Line 8673 sub init_user_environment {	Line 10391 sub init_user_environment {
}	}
untie(%disk_env);	untie(%disk_env);
} else {	} else {
&Apache::lonnet::logthis("<font color=\"blue\">WARNING: ".	&Apache::lonnet::logthis("<span style=\"color:blue;\">WARNING: ".
'Could not create environment storage in lonauth: '.$!.'</font>');	'Could not create environment storage in lonauth: '.$!.'</span>');
return 'error: '.$!;	return 'error: '.$!;
}	}
}	}
Line 8688 sub init_user_environment {	Line 10406 sub init_user_environment {

sub _add_to_env {	sub _add_to_env {
my ($idf,$env_data,$prefix) = @_;	my ($idf,$env_data,$prefix) = @_;
while (my ($key,$value) = each(%$env_data)) {	if (ref($env_data) eq 'HASH') {
$idf->{$prefix.$key} = $value;	while (my ($key,$value) = each(%$env_data)) {
$env{$prefix.$key} = $value;	$idf->{$prefix.$key} = $value;
	$env{$prefix.$key} = $value;
	}
	}
	}

	# --- Get the symbolic name of a problem and the url
	sub get_symb {
	my ($request,$silent) = @_;
	(my $url=$env{'form.url'}) =~ s-^https?\://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;
	my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url)));
	if ($symb eq '') {
	if (!$silent) {
	$request->print("Unable to handle ambiguous references:$url:.");
	return ();
	}
}	}
	&Apache::lonenc::check_decrypt(\$symb);
	return ($symb);
}	}

	# --------------------------------------------------------------Get annotation

	sub get_annotation {
	my ($symb,$enc) = @_;

	my $key = $symb;
	if (!$enc) {
	$key =
	&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);
	}
	my %annotation=&Apache::lonnet::get('nohist_annotations',[$key]);
	return $annotation{$key};
	}

	sub clean_symb {
	my ($symb,$delete_enc) = @_;

	&Apache::lonenc::check_decrypt(\$symb);
	my $enc = $env{'request.enc'};
	if ($delete_enc) {
	delete($env{'request.enc'});
	}

	return ($symb,$enc);
	}

=pod	=pod

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

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