version 1.54, 2002/08/20 21:29:34
|
version 1.55, 2002/08/21 17:18:08
|
Line 1195 sub findallcourses {
|
Line 1195 sub findallcourses {
|
############################################### |
############################################### |
|
|
sub bodytag { |
sub bodytag { |
my ($function,$title,$addentries)=@_; |
my ($title,$function,$addentries)=@_; |
|
unless ($function) { |
|
$function='student'; |
|
if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |
|
$function='coordinator'; |
|
} |
|
if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { |
|
$function='admin'; |
|
} |
|
if (($ENV{'request.role'}=~/^(au|ca)/) || |
|
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
|
$function='author'; |
|
} |
|
} |
my $img=''; |
my $img=''; |
my $pgbg=''; |
my $pgbg=''; |
my $tabbg=''; |
my $tabbg=''; |
Line 1214 sub bodytag {
|
Line 1227 sub bodytag {
|
$img='coordinator'; |
$img='coordinator'; |
$pgbg='#CCFFFF'; |
$pgbg='#CCFFFF'; |
$tabbg='#CCCCFF'; |
$tabbg='#CCCCFF'; |
$font='#000033'; |
$font='#000044'; |
$link='#003333'; |
$link='#003333'; |
$vlink='#006633'; |
$vlink='#006633'; |
} elsif ($function eq 'author') { |
} elsif ($function eq 'author') { |
$img='author'; |
$img='author'; |
$pgbg='#CCFFFF'; |
$pgbg='#CCFFFF'; |
$tabbg='#CCFFCC'; |
$tabbg='#CCFFCC'; |
$font='#003300'; |
$font='#004400'; |
$link='#003333'; |
$link='#003333'; |
$vlink='#006666'; |
$vlink='#006666'; |
} else { |
} else { |
$img='student'; |
$img='student'; |
$pgbg='#FFFF99'; |
$pgbg='#FFFFAA'; |
$tabbg='#FF9900'; |
$tabbg='#FF9900'; |
$font='#991100'; |
$font='#991100'; |
$link='#993300'; |
$link='#993300'; |
$vlink='#996600'; |
$vlink='#996600'; |
} |
} |
my $role=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |
# role and realm |
|
my ($role,$realm) |
|
=&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]); |
|
# realm |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
$role.='<br>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
$realm= |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
} |
} |
|
unless ($realm) { $realm=' '; } |
|
# Set messages |
|
my $messages=localtime(); |
|
# Output |
return(<<ENDBODY); |
return(<<ENDBODY); |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
$addentries> |
$addentries> |
<table cellspacing="0" border="0" cellpadding="2"> |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<tr><td colspan="2" bgcolor="$tabbg"> |
<tr><td bgcolor="$font"> |
<img src="/adm/lonInterFace/$img.jpg" /></td></tr> |
<img src="/adm/lonInterFace/$img.jpg" /></td> |
|
<td bgcolor="$font"><font color='$pgbg'>$messages</font></td> |
|
</tr> |
<tr> |
<tr> |
<td rowspan="2" bgcolor="$tabbg"> |
<td rowspan="3" bgcolor="$tabbg"> |
<font size="5"><b>$title</b></font> |
<font size="5"><b>$title</b></font> |
<td bgcolor="$tabbg" align="right"> |
<td bgcolor="$tabbg" align="right"> |
<font size="2"> |
<font size="2"> |
$ENV{'environment.firstname'} |
$ENV{'environment.firstname'} |
$ENV{'environment.middlename'} |
$ENV{'environment.middlename'} |
$ENV{'environment.lastname'} |
$ENV{'environment.lastname'} |
$ENV{'environment.generation'} |
$ENV{'environment.generation'} |
</font> |
</font> |
</td> |
</td> |
</tr> |
</tr> |
<tr><td bgcolor="$tabbg" align="right"> |
<tr><td bgcolor="$tabbg" align="right"> |
<font size="2">$role</font> |
<font size="2">$role</font> |
</td></tr> |
</td></tr> |
|
<tr> |
|
<td bgcolor="$tabbg" align="right"><font size="2">$realm</font> </td></tr> |
</table><br> |
</table><br> |
ENDBODY |
ENDBODY |
} |
} |