loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2002/08/13 00:37:18	version 1.8, 2002/08/21 17:18:08
Line 175 sub Title {	Line 175 sub Title {
my $Str = '';	my $Str = '';

$Str .= '<html><head><title>'.$pageName.'</title></head>'."\n";	$Str .= '<html><head><title>'.$pageName.'</title></head>'."\n";
$Str .= '<body bgcolor="#FFFFFF">'."\n";	$Str .= &Apache::loncommon::bodytag($pageName)."\n";
$Str .= '<script>window.focus(); window.width=500;window.height=500;';	$Str .= '<script>window.focus(); window.width=500;window.height=500;';
$Str .= '</script>'."\n";	$Str .= '</script>'."\n";
$Str .= '<table width="100%"><tr><td valign="top">';
$Str .= '<h1> Course: ';
$Str .= $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
$Str .= '</h1></td><td align="right">'."\n";
$Str .= '<img align="right" src=/adm/lonIcons/lonlogos.gif>';
$Str .= '</td></tr></table>'."\n";

return $Str;	return $Str;
}	}