version 1.108, 2003/07/16 14:21:56
|
version 1.110, 2003/07/25 10:44:36
|
Line 1353 sub aboutmewrapper {
|
Line 1353 sub aboutmewrapper {
|
|
|
|
|
sub syllabuswrapper { |
sub syllabuswrapper { |
my ($link,$un,$do,$tf)=@_; |
my ($linktext,$coursedir,$domain,$fontcolor)=@_; |
if ($tf) { $link='<font color="'.$tf.'">'.$link.'</font>'; } |
if ($fontcolor) { |
return "<a href='/public/$do/$un/syllabus'>$link</a>"; |
$linktext='<font color="'.$fontcolor.'">'.$linktext.'</font>'; |
|
} |
|
return "<a href='/public/$domain/$coursedir/syllabus'>$linktext</a>"; |
} |
} |
|
|
# ---------------------------------------------------------------- Language IDs |
# ---------------------------------------------------------------- Language IDs |
Line 1719 Returns: value of designparamter $which
|
Line 1721 Returns: value of designparamter $which
|
############################################## |
############################################## |
sub designparm { |
sub designparm { |
my ($which,$domain)=@_; |
my ($which,$domain)=@_; |
|
if ($ENV{'browser.blackwhite'} eq 'on') { |
|
if ($which=~/\.(font|alink|vlink|link)$/) { |
|
return '#000000'; |
|
} |
|
if ($which=~/\.(pgbg|sidebg)$/) { |
|
return '#FFFFFF'; |
|
} |
|
if ($which=~/\.tabbg$/) { |
|
return '#CCCCCC'; |
|
} |
|
} |
if ($ENV{'environment.color.'.$which}) { |
if ($ENV{'environment.color.'.$which}) { |
return $ENV{'environment.color.'.$which}; |
return $ENV{'environment.color.'.$which}; |
} |
} |
Line 1783 sub bodytag {
|
Line 1796 sub bodytag {
|
my $alink=&designparm($function.'.alink',$domain); |
my $alink=&designparm($function.'.alink',$domain); |
my $vlink=&designparm($function.'.vlink',$domain); |
my $vlink=&designparm($function.'.vlink',$domain); |
my $sidebg=&designparm($function.'.sidebg',$domain); |
my $sidebg=&designparm($function.'.sidebg',$domain); |
|
# Accessibility font enhance |
|
unless ($addentries) { $addentries=''; } |
|
if ($ENV{'browser.fontenhance'} eq 'on') { |
|
$addentries.=' style="font-size: x-large"'; |
|
} |
# role and realm |
# role and realm |
my ($role,$realm) |
my ($role,$realm) |
=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |
=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |