loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.487, 2006/12/05 02:55:51	version 1.489, 2006/12/08 20:09:29
Line 3503 sub standard_css {	Line 3503 sub standard_css {
my $mail_other = '#99BBBB';	my $mail_other = '#99BBBB';
my $mail_other_hover = '#669999';	my $mail_other_hover = '#669999';
my $table_header = '#DDDDDD';	my $table_header = '#DDDDDD';
	my $feedback_link_bg = '#BBBBBB';

my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px'	my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px'
: '0px 3px 0px 4px';	: '0px 3px 0px 4px';
Line 4034 table.LC_descriptive_input td.LC_descrip	Line 4035 table.LC_descriptive_input td.LC_descrip
text-align: right;	text-align: right;
font-weight: bold;	font-weight: bold;
}	}
	table.LC_feedback_link {
	background: $feedback_link_bg;
	}
	span.LC_feedback_link {
	background: $feedback_link_bg;
	font-size: larger;
	}

END	END
}	}
Line 6292 sub construct_course {	Line 6300 sub construct_course {
my ($user,$domain) = split(':',$args->{'keyauth'});	my ($user,$domain) = split(':',$args->{'keyauth'});
$user = &LONCAPA::clean_username($user);	$user = &LONCAPA::clean_username($user);
$domain = &LONCAPA::clean_username($domain);	$domain = &LONCAPA::clean_username($domain);
if ($user ne '' && $domain ne '');	if ($user ne '' && $domain ne '') {
$cenv{'keyauth'}=$user.':'.$domain;	$cenv{'keyauth'}=$user.':'.$domain;
}	}
}	}