loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2003/02/28 16:16:59	version 1.8, 2003/03/03 13:03:58
Line 50 ENDDOCUMENT	Line 50 ENDDOCUMENT
my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);	my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);
# Is this even in a course?	# Is this even in a course?
unless ($ENV{'request.course.id'}) {	unless ($ENV{'request.course.id'}) {
$r->print('<body>Not in a course</body>');	$r->print('</head><body>Not in a course</body></html>');
return OK;	return OK;
}	}

Line 91 ENDDOCUMENT	Line 91 ENDDOCUMENT
# --------------------------------------- There is such a user, get environment	# --------------------------------------- There is such a user, get environment

$r->print('</head>'.&Apache::loncommon::bodytag	$r->print('</head>'.&Apache::loncommon::bodytag
("Course Page",$forcestudent,$addentries,'',$dom));	("Course Page",$forcestudent,$addentries,'',$dom,$ENV{'form.register'}));

my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});	my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});