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

version 1.702, 2008/12/03 00:09:56	version 1.756, 2009/02/25 14:09:03
Line 271 BEGIN {	Line 271 BEGIN {
}	}
}	}
&Apache::lonnet::logthis(	&Apache::lonnet::logthis(
"<font color=yellow>INFO: Read file types</font>");	"<span style='color:yellow;'>INFO: Read file types</span>");
$readit=1;	$readit=1;
} # end of unless($readit)	} # end of unless($readit)

Line 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'><span class=\"LC_nobreak\"><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></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.='</span></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 1128 sub help_open_bug {	Line 1132 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 1173 sub help_open_faq {	Line 1177 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 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


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

Line 3033 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 3171 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 4220 ENDROLE	Line 4287 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();
Line 4394 sub standard_css {	Line 4461 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 4442 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 4481 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 4543 table#LC_title_bar td.LC_title_bar_role_	Line 4624 table#LC_title_bar td.LC_title_bar_role_
padding: 0px;	padding: 0px;
}	}

table#LC_menubuttons_mainmenu {	table#LC_menubuttons img{
width: 100%;
border: 0px;
border-spacing: 1px;
padding: 0px 1px;
margin: 0px;
border-collapse: separate;
}
table#LC_menubuttons img, table#LC_menubuttons_mainmenu img {
border: 0px;	border: 0px;
}	}
table#LC_top_nav td {	table#LC_top_nav td {
background: $tabbg;	background: $tabbg;
border: 0px;	border: 0px;
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;
Line 4602 table#LC_mainmenu td.LC_mainmenu_column	Line 4677 table#LC_mainmenu td.LC_mainmenu_column
vertical-align: top;	vertical-align: top;
}	}

	.LC_fontsize_small
	{
	font-size: 70%;
	}

	.LC_fontsize_medium
	{
	font-size: 85%;
	}

	.LC_fontsize_large
	{
	font-size: 120%;
	}

	.LC_fontcolor_red
	{
	color: #FF0000;
	}

.LC_menubuttons_inline_text {	.LC_menubuttons_inline_text {
color: $font;	color: $font;
font-family: $sans;	font-family: $sans;
Line 4624 table#LC_mainmenu td.LC_mainmenu_column	Line 4719 table#LC_mainmenu td.LC_mainmenu_column
td.LC_menubuttons_text {	td.LC_menubuttons_text {
color: $font;	color: $font;
}	}
td.LC_menubuttons_img {
}

.LC_current_location {	.LC_current_location {
font-family: $sans;	font-family: $sans;
Line 4637 td.LC_menubuttons_img {	Line 4732 td.LC_menubuttons_img {
font-weight: bold;	font-weight: bold;
}	}

.LC_rolesmenu_is {
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 {	.LC_dropadd_labeltext {
font-family: $sans;	font-family: $sans;
Line 4680 td.LC_menubuttons_img {	Line 4747 td.LC_menubuttons_img {
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 4712 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_aboutme_port tr td {	table.LC_aboutme_port tr td {
background-color: $data_table_light;	background-color: $data_table_light;
padding: 2px;	padding: 2px;
}	}
table.LC_data_table tr.LC_even_row > td,	table.LC_data_table tr.LC_even_row > td,
	table.LC_pick_box tr > td.LC_even_row,
table.LC_aboutme_port tr.LC_even_row td {	table.LC_aboutme_port tr.LC_even_row td {
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;
Line 4753 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 4763 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 4774 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 4785 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 4837 table.LC_mail_list tr.LC_mail_even {	Line 4916 table.LC_mail_list tr.LC_mail_even {
table.LC_mail_list tr.LC_mail_odd {	table.LC_mail_list tr.LC_mail_odd {
}	}

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

table.LC_data_table tr > td.LC_browser_file,	table.LC_data_table tr > td.LC_browser_file,
table.LC_data_table tr > td.LC_browser_file_published {	table.LC_data_table tr > td.LC_browser_file_published {
background: #CCFF88;	background: #CCFF88;
Line 4874 table.LC_data_table tr.LC_browser_folder	Line 4935 table.LC_data_table tr.LC_browser_folder
background: #CCCCFF;	background: #CCCCFF;
}	}

	table.LC_data_table tr > td.LC_roles_is {
	/* background: #77FF77; */
	}
	table.LC_data_table tr > td.LC_roles_future {
	background: #FFFF77;
	}
	table.LC_data_table tr > td.LC_roles_will {
	background: #FFAA77;
	}
	table.LC_data_table tr > td.LC_roles_expired {
	background: #FF7777;
	}
	table.LC_data_table tr > td.LC_roles_will_not {
	background: #AAFF77;
	}
	table.LC_data_table tr > td.LC_roles_selected {
	background: #11CC55;
	}

span.LC_current_location {	span.LC_current_location {
font-size:larger;	font-size:larger;
background: $pgbg;	background: $pgbg;
Line 4974 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 5215 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 5319 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: 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;
Line 5343 div.LC_grade_show_user {	Line 5400 div.LC_grade_show_user {
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 5362 div.LC_grade_show_problem_header,	Line 5420 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,
Line 5373 div.LC_grade_assign_body {	Line 5432 div.LC_grade_assign_body {
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 5388 table.LC_scantron_action tr th {	Line 5448 table.LC_scantron_action tr th {
}	}
.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,
Line 5405 div.LC_edit_problem_header_edit_row {	Line 5466 div.LC_edit_problem_header_edit_row {
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;
Line 5458 table#LC_mainmenu td.LC_mainmenu_col_fie	Line 5521 table#LC_mainmenu td.LC_mainmenu_col_fie
font-size: small;	font-size: small;
font-weight: bold;	font-weight: bold;
}	}
fieldset#LC_mainmenu_fieldset {
margin:0px 10px 10px 0px;

	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 5470 fieldset#LC_mainmenu_fieldset {	Line 5534 fieldset#LC_mainmenu_fieldset {
# --------------------------*/	# --------------------------*/

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:$pgbg;	background-color:$tabbg;
background-color:$ 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 5514 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 5530 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 5586 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 5651 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 5726 div.columnSection > .ContentBoxSpecial	Line 5852 div.columnSection > .ContentBoxSpecial

.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 5738 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 6021 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 6172 sub simple_error_page {	Line 6337 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 6788 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 7596 sub upload_embedded {	Line 7777 sub upload_embedded {
' <a href="'.$url.'">'.	' <a href="'.$url.'">'.
$orig_uploaded_filename.'</a><br />';	$orig_uploaded_filename.'</a><br />';
} else {	} else {
$output .= '<font size="+2">'.	$output .= '<span class=\"LC_fontsize_large\">'.
&mt('View embedded file: [_1]','<a href="'.$url.'">'.	&mt('View embedded file: [_1]','<a href="'.$url.'">'.
$orig_uploaded_filename.'</a>').'</font><br />';	$orig_uploaded_filename.'</a>').'</span><br />';
}	}
}	}
close($fh);	close($fh);
Line 7857 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 9281 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 9739 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 9751 sub init_user_environment {	Line 9939 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 9777 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 9804 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.702
changed lines
	Added in v.1.756