loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2002/09/13 19:40:48	version 1.6, 2002/09/13 20:46:09
Line 69 ENDDOCUMENT	Line 69 ENDDOCUMENT
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);	my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
$r->print(&Apache::loncommon::bodytag	$r->print(&Apache::loncommon::bodytag
("Personal Information",$forcestudent,'','',$cdom));	("Personal Information",$forcestudent,'','',$cdom));
$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1><h3>'.	$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
$Apache::lonnet::domaindescription{$cdom}.'</h3>'.	if ($courseenv{'nickname'}) {
	$r->print(
	'<h2>"'.&Apache::lonnet::unescape($courseenv{'nickname'}).
	'"</h2>');
	}
	$r->print('<h3>'.$Apache::lonnet::domaindescription{$cdom}.'</h3>'.
'<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).	'<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).
'</p>');	'</p>');
my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);	my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);