loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34, 2004/12/15 20:00:44	version 1.36, 2005/02/17 08:29:42
Line 44 sub handler {	Line 44 sub handler {
my $target=$ENV{'form.grade_target'};	my $target=$ENV{'form.grade_target'};
# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
if ($target ne 'tex') {	if ($target ne 'tex') {
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$html
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
ENDDOCUMENT	ENDDOCUMENT
Line 225 ENDDOCUMENT	Line 226 ENDDOCUMENT
&Apache::lonnet::allowed('vsa',	&Apache::lonnet::allowed('vsa',
$ENV{'request.course.id'}.'/'.	$ENV{'request.course.id'}.'/'.
$ENV{'request.course.sec'})) {	$ENV{'request.course.sec'})) {
# $r->print(&Apache::loncommon::track_student_link	$r->print(&Apache::loncommon::track_student_link
# ('View recent activity by this student',	('View recent activity by this student',
# $cnum,$cdom).(' 'x2));	$cnum,$cdom).(' 'x2));
}	}
$r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));	$r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
} else {	} else {