loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.54 and 1.55

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
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.54
changed lines
	Added in v.1.55