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.709 and 1.756

version 1.709, 2008/12/06 17:29:34	version 1.756, 2009/02/25 14:09:03
Line 923 sub help_open_topic {	Line 923 sub help_open_topic {
}	}

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

# Add the graphic	# Add the graphic
Line 935 sub help_open_topic {	Line 933 sub help_open_topic {
$template .= <<"ENDTEMPLATE";	$template .= <<"ENDTEMPLATE";
<a target="_top" href="$link" title="$title"><img src="$helpicon" border="0" alt="(Help: $topic)" /></a>	<a target="_top" href="$link" title="$title"><img src="$helpicon" border="0" alt="(Help: $topic)" /></a>
ENDTEMPLATE	ENDTEMPLATE
if ($text ne '') { $template.='</td></tr></table>' };
return $template;	return $template;

}	}
Line 943 ENDTEMPLATE	Line 941 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 = &Apache::loncommon::help_open_topic($topic,$text,
undef, undef, 600) .	undef, undef, 600).
'</td><td>';	'</td><td>';
}	}
return '<table><tr><td>'.	$out = '<table><tr><td>'.
$addOther .	$addOther .
&Apache::loncommon::help_open_topic("Greek_Symbols",&mt('Greek Symbols'),	&Apache::loncommon::help_open_topic("Greek_Symbols",&mt('Greek Symbols'),
undef,undef,600)	undef,undef,600).
.'</td><td>'.	'</td><td>'.
&Apache::loncommon::help_open_topic("Other_Symbols",&mt('Other Symbols'),	&Apache::loncommon::help_open_topic("Other_Symbols",&mt('Other Symbols'),
undef,undef,600)	undef,undef,600).
.'</td><td>'.	'</td>';
&Apache::loncommon::help_open_topic("Authoring_Output_Tags",&mt('Output Tags'),	unless ($not_author) {
undef,undef,600)	$out .= '<td>'.
.'</td></tr></table>';	&Apache::loncommon::help_open_topic("Authoring_Output_Tags",&mt('Output Tags'),
	undef,undef,600).
	'</td>';
	}
	$out .= '</tr></table>';
	return $out;
}	}

sub general_help {	sub general_help {
Line 1629 sub multiple_select_form {	Line 1633 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 1686 sub select_form {	Line 1690 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 1740 sub select_level_form {	Line 1744 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 1749 See loncreateuser.pm for an example invo	Line 1753 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 2717 sub flush_email_cache {	Line 2727 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
Line 2761 sub aboutmewrapper {	Line 2808 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
Line 3030 sub languages {	Line 3077 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 3168 sub relative_to_absolute {	Line 3238 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 4392 sub standard_css {	Line 4462 sub standard_css {
my $link = &designparm($function.'.link', $domain);	my $link = &designparm($function.'.link', $domain);

my $loginbg = &designparm('login.sidebg',$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';
Line 4441 table.thinborder tr td {	Line 4513 table.thinborder tr td {
}	}

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

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

.LC_filename {font-family: $mono; white-space:pre;}	.LC_filename {font-family: $mono; white-space:pre;}
.LC_error {	.LC_error {
color: red;	color: red;
Line 4480 form, .inline { display: inline; }	Line 4562 form, .inline { display: inline; }
}	}

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

table.LC_pastsubmission {	table.LC_pastsubmission {
Line 4665 td.LC_menubuttons_text {	Line 4747 td.LC_menubuttons_text {
font-size: small;	font-size: small;
}	}

	.LC_mail_functions {
	font-weight: bold;
	}

table.LC_aboutme_port {	table.LC_aboutme_port {
border: 0px;	border: 0px;
border-collapse: collapse;	border-collapse: collapse;
Line 4697 table.LC_prior_tries tr th {	Line 4783 table.LC_prior_tries tr th {
background-color: $data_table_head;	background-color: $data_table_head;
font-size:90%;	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_data_table tr.LC_odd_row > td,
table.LC_pick_box tr > td.LC_odd_row,	table.LC_pick_box tr > td.LC_odd_row,
table.LC_aboutme_port tr td {	table.LC_aboutme_port tr td {
Line 4741 table.LC_nested_outer tr td.LC_subheader	Line 4832 table.LC_nested_outer tr td.LC_subheader
text-align: right;	text-align: right;
}	}
table.LC_nested tr.LC_info_row td {	table.LC_nested tr.LC_info_row td {
background-color: #CCC;	background-color: #CCCCCC;
font-weight: bold;	font-weight: bold;
font-size: small;	font-size: small;
text-align: center;	text-align: center;
Line 4751 table.LC_nested_outer tr th.LC_left_item	Line 4842 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,
Line 4762 table.LC_nested tr td.LC_right_item {	Line 4853 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 {
Line 4773 table.LC_createuser tr.LC_section_row td	Line 4864 table.LC_createuser tr.LC_section_row td
}	}

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 4963 table.LC_pick_box td.LC_pick_box_title {	Line 5054 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;
}	}
Line 5204 table.LC_docs_documents td.LC_docs_docum	Line 5296 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: 0px;
border-collapse: collapse;	border-collapse: collapse;
Line 5308 div.LC_clear_float_footer {	Line 5393 div.LC_clear_float_footer {
}	}


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-weight: bold;
font-size: medium;
}
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;
Line 5455 table#LC_mainmenu td.LC_mainmenu_col_fie	Line 5522 table#LC_mainmenu td.LC_mainmenu_col_fie
font-weight: bold;	font-weight: bold;
}	}

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

/* ---- Remove when done ----	/* ---- Remove when done ----
# The following styles is part of the redesign of LON-CAPA and are	# The following styles is part of the redesign of LON-CAPA and are
# subject to change during this project.	# subject to change during this project.
Line 5463 table#LC_mainmenu td.LC_mainmenu_col_fie	Line 5534 table#LC_mainmenu td.LC_mainmenu_col_fie
# --------------------------*/	# --------------------------*/

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

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

h2,h3,h4,h5,h6	h2,h3,h4,h5,h6
{	{
margin:5px 0px 5px 0px;	margin:5px 0px 5px 0px;
line-height:130%;	padding:0px;
	line-height:130%;
}	}
.hcell{	.LC_hcell{
padding:3px 15px 3px 15px;	padding:3px 15px 3px 15px;
margin:0px;	margin:0px;
background-color:$tabbg;	background-color:$tabbg;
border-bottom:solid 1px $lg_border_color;	border-bottom:solid 1px $lg_border_color;
}	}
.noBorder {	.LC_noBorder {
border:0px;	border:0px;
}	}
/*
.bgLightGrey { background:URL(images/TabMenuBG.png) repeat-x left top; }	.LC_bgLightGrey{
.bgLightGreyYellow {background-color:#EFECE0;}	background:URL(/adm/lonIcons/lightGreyBG.png) repeat-x left bottom;
*/	}


/* Main Header with discription of Person, Course, etc. */	/* Main Header with discription of Person, Course, etc. */
.HeadRight {	.LC_HeadRight {
text-align: right;	text-align: right;
float: right;	float: right;
margin: 0px;	margin: 0px;
Line 5507 line-height:130%;	Line 5581 line-height:130%;
overflow:hidden;	overflow:hidden;
}	}

p {	p, .LC_ContentBox {
padding: 10px;	padding: 10px;

}	}
.FormSectionClearButton input {	.LC_FormSectionClearButton input {
background-color:transparent;	background-color:transparent;
border:0px;	border:0px;
cursor:pointer;	cursor:pointer;
text-decoration:underline;	text-decoration:underline;
Line 5523 dl,ul,div,fieldset {	Line 5597 dl,ul,div,fieldset {
margin: 10px 10px 10px 0px;	margin: 10px 10px 10px 0px;
overflow:hidden;	overflow:hidden;
}	}
ol.smallMenu {	ol.LC_smallMenu, ol#LC_PathBreadcrumbs {
margin: 0px;	margin: 0px;
}	}

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

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

ol.smallMenu a {	ol.LC_smallMenu a {
font-size: 90%;	font-size: 90%;
color: RGB(80, 80, 80);	color: RGB(80, 80, 80);
text-decoration: none;	text-decoration: none;
}	}
	ol#LC_TabMainMenueContent, ul.LC_TabContent ,
ol#TabMainMenuContent {	ul.LC_TabContentBigger {
	display:block;
margin: 0px 0px 10px 0px;	list-style:none;
	margin: 0px;
padding: 0px;	padding: 0px;
}	}

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

ol#TabMainMenuContent li a{	ol#LC_TabMainMenuContent li a{
color: RGB(47, 47, 47);	color: RGB(47, 47, 47);
text-decoration: none;	text-decoration: none;
}	}
	ul.LC_TabContent {
	min-height:1.6em;
	}
	ul.LC_TabContent li{
	vertical-align:middle;
	padding:0px 10px 0px 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;
	}
	ul.LC_TabContent li:hover, ul.LC_TabContent li.active{
	background-color:#FFFFFF;
	border-bottom:solid 1px #FFFFFF;
	}
	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;
	}
	#LC_CourseDocuments, #LC_SupplementalCourseDocuments
	{
	margin:0px;
	}

ol#TabMainMenuContent div.columnSection {	.LC_hideThis
margin-bottom: 0px;	{
	display:none;
	visibility:hidden;
}	}

ol#MenuBreadcrumbs, ol#PathBreadcrumbs {	ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcrumbs {
border-top: solid 1px RGB(255, 255, 255);	border-top: solid 1px RGB(255, 255, 255);
height: 20px;	height: 20px;
line-height: 20px;	line-height: 20px;
Line 5579 ol#MenuBreadcrumbs, ol#PathBreadcrumbs {	Line 5699 ol#MenuBreadcrumbs, ol#PathBreadcrumbs {
margin: 0px 0px 30px 0px;	margin: 0px 0px 30px 0px;
padding-left: 10px;	padding-left: 10px;
list-style-position: inside;	list-style-position: inside;
/* background: RGB(211, 206, 205) URL(images/TabMenuBG.png) repeat-x left	background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
top;*/
}	}

ol#MenuBreadcrumbs li, ol#PathBreadcrumbs li {	ol#LC_MenuBreadcrumbs li, ol#LC_PathBreadcrumbs li {
/* background: url(images/pfeil_white.png) no-repeat left center;*/	/*
	background: url(/adm/lonIcons/arrow_white.png) no-repeat left center;
	*/
display: inline;	display: inline;
padding: 0px 0px 0px 10px;	padding: 0px 0px 0px 10px;
vertical-align: bottom;	vertical-align: bottom;
overflow:hidden;	overflow:hidden;
}	}

ol#MenuBreadcrumbs li a {	ol#LC_MenuBreadcrumbs li a {
text-decoration: none;	text-decoration: none;
font-size:90%;	font-size:90%;
}	}
ol#PathBreadcrumbs li a{	ol#LC_PathBreadcrumbs li a{
text-decoration:none;	text-decoration:none;
font-size:100%;	font-size:100%;
font-weight:bold;	font-weight:bold;
}	}
	.LC_ContentBoxSpecial
.ContentBoxSpecial
{	{
border: solid 1px $lg_border_color;	border: solid 1px $lg_border_color;
}	}
.ContentBox {	.LC_ContentBoxSpecialContactInfo
padding:10px;	{
	border: solid 1px $lg_border_color;
	max-width:25%;
	min-width:25%;
}	}
.PopUp	.LC_AboutMe_Image
{	{
padding:10px;	float:left;
border-left:solid 1px $lg_border_color;	margin-right:10px;
border-top:solid 1px $lg_border_color;
border-bottom:outset 1px $lg_border_color;
border-right:outset 1px $lg_border_color;
display:none;
position:absolute;
right:0;
background-color:white;
z-index:5;
}	}
	.LC_Clear_AboutMe_Image
dl.ListStyleClean dt {	{
	clear:left;
	}
	dl.LC_ListStyleClean dt {
padding-right: 5px;	padding-right: 5px;
display: table-header-group;	display: table-header-group;
}	}

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

.ListStyleClean,	.LC_ListStyleClean,
.ListStyleSimple,	.LC_ListStyleSimple,
.ListStyleNormal,	.LC_ListStyleNormal,
.ListStyleNormal_Border,	.LC_ListStyleNormal_Border,
.ListStyleSpecial	.LC_ListStyleSpecial
{	{
/display:block; /	/display:block; /
list-style-position: inside;	list-style-position: inside;
Line 5644 dl.ListStyleClean dd {	Line 5762 dl.ListStyleClean dd {
padding: 0px;	padding: 0px;
}	}

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

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

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

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

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

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

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

div.columnSection>* {	div.LC_columnSection>* {
float: left;	float: left;
margin: 10px 20px 10px 0px;	margin: 10px 20px 10px 0px;
overflow:hidden;	overflow:hidden;
}	}
div.columnSection > .ContentBox,
div.columnSection > .ContentBoxSpecial	.ContentBoxSpecialTemplate
{	{
width: 400px;	border: solid 1px $lg_border_color;
	}
	.ContentBoxTemplate {
	padding:10px;
	}

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

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

.LC_loginpage_container {	.LC_loginpage_container {
Line 5712 div.columnSection > .ContentBoxSpecial	Line 5845 div.columnSection > .ContentBoxSpecial
width:65%;	width:65%;
padding: 10px;	padding: 10px;
height: auto;	height: auto;
# background-color:#FFFFFF;	background-color:#FFFFFF;
background-color:$loginbg;
border:1px solid #CCCCCC;	border:1px solid #CCCCCC;
}	}


.LC_loginpage_loginContainer {	.LC_loginpage_loginContainer {
float:left;	float:left;
width:60%;	width: 182px;
	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 {	.LC_loginpage_loginInfo {
margin-top:20px;
margin-left:20px;	margin-left:20px;
float:left;	float:left;
width:30%;	width:30%;
Line 5732 div.columnSection > .ContentBoxSpecial	Line 5872 div.columnSection > .ContentBoxSpecial
padding:10px;	padding:10px;
}	}

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

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

.LC_loginpage_fieldset{	table em{
border: 1px solid #CCCCCC;	font-weight: bold;
margin: 0 auto;	font-style: normal;
}	}

.LC_loginpage_legend{	table#LC_tableOfContent{
padding: 2px;	border-collapse: collapse;
margin: 0px;	border-spacing: 0;
font-size:14px;	padding: 3px;
font-weight:bold;	border: 0;
	background-color: #FFFFFF;
	font-size: 90%;
	}
	table#LC_tableOfContent a {
	text-decoration: none;
}	}

	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;
	}
END	END
}	}

Line 6015 sub start_page {	Line 6175 sub start_page {
}	}

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);
}	}

	if (exists($args->{'bread_crumbs'})) {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	if (ref($args->{'bread_crumbs'}) eq 'ARRAY') {
	foreach my $crumb (@{$args->{'bread_crumbs'}}){
	&Apache::lonhtmlcommon::add_breadcrumb($crumb);
	}
	}
	$result .= &Apache::lonhtmlcommon::breadcrumbs();
	}

return $result;	return $result;
}	}

Line 6782 sub default_quota {	Line 6953 sub default_quota {
if ($inststatus ne '') {	if ($inststatus ne '') {
my @statuses = split(/:/,$inststatus);	my @statuses = 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 7851 sub upfile_select_html {	Line 8038 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 7939 sub csv_print_select_table {	Line 8126 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 9275 sub construct_course {	Line 9462 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 9733 sub init_user_environment {	Line 9922 sub init_user_environment {
}	}
}	}

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

$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 9771 sub _add_to_env {	Line 9965 sub _add_to_env {
# --- Get the symbolic name of a problem and the url	# --- Get the symbolic name of a problem and the url
sub get_symb {	sub get_symb {
my ($request,$silent) = @_;	my ($request,$silent) = @_;
(my $url=$env{'form.url'}) =~ s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;	(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)));	my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url)));
if ($symb eq '') {	if ($symb eq '') {
if (!$silent) {	if (!$silent) {
Line 9798 sub get_annotation {	Line 9992 sub get_annotation {
}	}

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

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

return ($symb,$enc);	return ($symb,$enc);
}	}

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

Removed from v.1.709
changed lines
	Added in v.1.756