--- loncom/interface/loncommon.pm 2007/10/30 01:04:21 1.601 +++ loncom/interface/loncommon.pm 2007/11/06 02:23:49 1.608 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.601 2007/10/30 01:04:21 albertel Exp $ +# $Id: loncommon.pm,v 1.608 2007/11/06 02:23:49 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -367,7 +367,7 @@ sub selectstudent_link { return ''; } return "".&mt('Select User').""; + '","'.$udomele.'");'."'>".&mt('Select User').""; } if ($env{'request.role'}=~/^(au|dc|su)/) { return "'; } - $autharg = ''; $result = &mt ('[_1] Internally authenticated (with initial password [_2])', @@ -2151,7 +2151,7 @@ sub authform_filesystem{ ('[_1] Filesystem Authenticated (with initial password [_2])', ''); return $result; } @@ -4099,7 +4099,7 @@ sub standard_css { my $vlink = &designparm($function.'.vlink', $domain); my $link = &designparm($function.'.link', $domain); - my $sans = 'Arial,Helvetica,sans-serif'; + my $sans = 'Verdana,Arial,Helvetica,sans-serif'; my $mono = 'monospace'; my $data_table_head = $tabbg; my $data_table_light = '#EEEEEE'; @@ -4117,8 +4117,9 @@ sub standard_css { my $table_header = '#DDDDDD'; my $feedback_link_bg = '#BBBBBB'; - my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px' - : '0px 3px 0px 4px'; + my $border = ($env{'browser.type'} eq 'explorer' || + $env{'browser.type'} eq 'safari' ) ? '0px 2px 0px 2px' + : '0px 3px 0px 4px'; return <