--- loncom/interface/loncommon.pm 2006/05/01 20:48:55 1.359
+++ loncom/interface/loncommon.pm 2006/05/08 18:54:00 1.363
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.359 2006/05/01 20:48:55 albertel Exp $
+# $Id: loncommon.pm,v 1.363 2006/05/08 18:54:00 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2773,6 +2773,9 @@ Inputs:
=item * $notitle, if true keep the nav controls, but remove the title bar
+=item * $no_inline_link, if true and in remote mode, don't show the
+ 'Switch To Inline Menu' link
+
=back
@@ -2785,15 +2788,13 @@ other decorations will be returned.
sub bodytag {
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,
- $notopbar,$bgcolor,$notitle)=@_;
+ $notopbar,$bgcolor,$notitle,$no_inline_link)=@_;
$title=&mt($title);
$function = &get_users_function() if (!$function);
my $img = &designparm($function.'.img',$domain);
- my $tabbg = &designparm($function.'.tabbg',$domain);
my $font = &designparm($function.'.font',$domain);
- my $sidebg = &designparm($function.'.sidebg',$domain);
my $pgbg = $bgcolor || &designparm($function.'.pgbg',$domain);
my %design = ( 'style' => 'margin-top: 0px',
@@ -2847,12 +2848,13 @@ sub bodytag {
$env{'environment.middlename'}
$env{'environment.lastname'}
$env{'environment.generation'}
+
-$role
+$role
-$realm
+$realm
ENDROLE
@@ -2934,7 +2936,8 @@ ENDROLE
$lonhttpdPort.$img.'" alt="'.$function.'" />';
# Explicit link to get inline menu
- my $menu=' '.&mt('Switch to Inline Menu Mode').'';
+ my $menu= ($no_inline_link?''
+ :' '.&mt('Switch to Inline Menu Mode').'');
#
if ($notitle) {
return $bodytag;
@@ -3086,7 +3089,6 @@ sub standard_css {
my $mail_other_hover = '#669999';
return <
h1, h2, h3, th { font-family: $sans }
a:focus { color: red; background: yellow }
table.thinborder { border-collapse: collapse; }
@@ -3106,7 +3108,7 @@ table#LC_top_nav, table#LC_menubuttons,
width: 100%;
background: $pgbg;
border: 0px;
- border-spacing: 1px;
+ border-spacing: 2px 1px;
padding: 0px;
margin: 0px;
border-collapse: separate;
@@ -3114,9 +3116,10 @@ table#LC_top_nav, table#LC_menubuttons,
table#LC_title_bar {
width: 100%;
border: 0;
- border-spacing: 3px;
+ border-spacing: 0px 1px;
background: $pgbg;
font-family: $sans;
+ border-collapse: collapse;
}
table#LC_title_bar.LC_with_remote {
width: 100%;
@@ -3257,7 +3260,6 @@ table.LC_mail_list tr.LC_mail_other {
table.LC_mail_list tr.LC_mail_other:hover {
background-color: $mail_other_hover;
}
-
END
}
@@ -3291,10 +3293,18 @@ Inputs: $title - optional title for the
sub headtag {
my ($title,$head_extra,$args) = @_;
+ my $function = $args->{'function'} || &get_users_function();
+ my $domain = $args->{'domain'} || &determinedomain();
+ my $bgcolor = $args->{'bgcolor'} || &designparm($function.'.pgbg',$domain);
+ my $url = join(':',$env{'user.name'},$env{'user.domain'},
+ $env{'environment.color.timestamp'},
+ $function,$domain,$bgcolor);
+
+ $url = '/adm/css/'.&Apache::lonnet::escape($url).'.css';
+
my $result =
''.
- &standard_css($args->{'function'},$args->{'domain'},
- $args->{'bgcolor'}).
+ ''.
&font_settings().
&Apache::lonhtmlcommon::htmlareaheaders();
@@ -3453,6 +3463,9 @@ Inputs: $title - optional title for the
head -> skip the generation
body -> skip all generation
+ no_inline_link -> if true and in remote mode, don't show the
+ 'Switch To Inline Menu' link
+
=back
=cut
@@ -3488,7 +3501,7 @@ sub start_page {
$args->{'only_body'}, $args->{'domain'},
$args->{'force_register'}, $args->{'body_title'},
$args->{'no_nav_bar'}, $args->{'bgcolor'},
- $args->{'no_title'});
+ $args->{'no_title'}, $args->{'no_inline_link'});
}
}