version 1.7, 2003/02/28 16:16:59
|
version 1.8, 2003/03/03 13:03:58
|
Line 51 ENDDOCUMENT
|
Line 51 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 90 ENDDOCUMENT
|
Line 90 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 |
("Bulletin Board/Discussion",$forcestudent,$addentries,'',$dom)); |
("Bulletin Board/Discussion",$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'}); |
|
|