--- loncom/interface/loncommon.pm 2006/12/05 02:55:51 1.487 +++ loncom/interface/loncommon.pm 2006/12/08 20:09:29 1.489 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.487 2006/12/05 02:55:51 albertel Exp $ +# $Id: loncommon.pm,v 1.489 2006/12/08 20:09:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3503,6 +3503,7 @@ sub standard_css { my $mail_other = '#99BBBB'; my $mail_other_hover = '#669999'; my $table_header = '#DDDDDD'; + my $feedback_link_bg = '#BBBBBB'; my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px' : '0px 3px 0px 4px'; @@ -4034,6 +4035,13 @@ table.LC_descriptive_input td.LC_descrip text-align: right; font-weight: bold; } +table.LC_feedback_link { + background: $feedback_link_bg; +} +span.LC_feedback_link { + background: $feedback_link_bg; + font-size: larger; +} END } @@ -6292,7 +6300,7 @@ sub construct_course { my ($user,$domain) = split(':',$args->{'keyauth'}); $user = &LONCAPA::clean_username($user); $domain = &LONCAPA::clean_username($domain); - if ($user ne '' && $domain ne ''); + if ($user ne '' && $domain ne '') { $cenv{'keyauth'}=$user.':'.$domain; } }