loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1015, 2011/07/26 17:14:56	version 1.1016, 2011/08/03 18:25:11
Line 4456 sub designparm {	Line 4456 sub designparm {
return $env{'environment.color.'.$which};	return $env{'environment.color.'.$which};
}	}
$domain=&determinedomain($domain);	$domain=&determinedomain($domain);
my %domdesign = &get_domainconf($domain);	my %domdesign;
	unless ($domain eq 'public') {
	%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};
Line 11343 sub init_user_environment {	Line 11346 sub init_user_environment {
}	}

my %is_adv = ( is_adv => $env{'user.adv'} );	my %is_adv = ( is_adv => $env{'user.adv'} );
my %domdef = &Apache::lonnet::get_domain_defaults($domain);	my %domdef;
	unless ($domain eq 'public') {
	%domdef = &Apache::lonnet::get_domain_defaults($domain);
	}

foreach my $tool ('aboutme','blog','portfolio') {	foreach my $tool ('aboutme','blog','portfolio') {
$userenv{'availabletools.'.$tool} =	$userenv{'availabletools.'.$tool} =