loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.244, 2004/12/20 20:53:40	version 1.245, 2005/01/04 14:46:17
Line 2706 ENDROLE	Line 2706 ENDROLE
if ($customtitle) {	if ($customtitle) {
$titleinfo = $customtitle;	$titleinfo = $customtitle;
}	}
	#
	# Extra info if you are the DC
	my $dc_info = '';
	if ($ENV{'user.adv'} && exists($ENV{'user.role.dc./'.
	$ENV{'course.'.$ENV{'request.course.id'}.
	'.domain'}.'/'})) {
	my $cid = $ENV{'request.course.id'};
	$dc_info.= $cid.' '.$ENV{'course.'.$cid.'.internal.coursecode'};
	$dc_info = '('.$dc_info.')';
	}
	#
return(<<ENDBODY);	return(<<ENDBODY);
$bodytag	$bodytag
<table width="100%" cellspacing="0" border="0" cellpadding="0">	<table width="100%" cellspacing="0" border="0" cellpadding="0">
Line 2715 $upperleft</td>	Line 2726 $upperleft</td>
</tr>	</tr>
<tr>	<tr>
<td rowspan="3" bgcolor="$tabbg">	<td rowspan="3" bgcolor="$tabbg">
$titleinfo	$titleinfo $dc_info
<td bgcolor="$tabbg" align="right">	<td bgcolor="$tabbg" align="right">
<font size="2" face="Arial, Helvetica, sans-serif">	<font size="2" face="Arial, Helvetica, sans-serif">
$ENV{'environment.firstname'}	$ENV{'environment.firstname'}