loncom/interface/lonbulletin.pm - diff

Return to lonbulletin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2003/09/15 19:56:44	version 1.18, 2003/11/24 16:00:45
Line 34 use Apache::loncommon;	Line 34 use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lontexconvert;	use Apache::lontexconvert;
use Apache::lonfeedback;	use Apache::lonfeedback;
	use Apache::lonlocal;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

Line 65 ENDDOCUMENT	Line 66 ENDDOCUMENT
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};

# --------------------------------------------------------- The syllabus fields	# --------------------------------------------------------- The syllabus fields
my %syllabusfields=(	my %syllabusfields=&Apache::lonlocal::texthash(
'aaa_title' => 'Topic',	'aaa_title' => 'Topic',
'bbb_content' => 'Task',	'bbb_content' => 'Task',
'ccc_webreferences' => 'Web References');	'ccc_webreferences' => 'Web References');
Line 175 ENDDOCUMENT	Line 176 ENDDOCUMENT
}	}
$r->print(&Apache::lonfeedback::list_discussion	$r->print(&Apache::lonfeedback::list_discussion
('board','OPEN','bulletin___'.$marker.'___'.	('board','OPEN','bulletin___'.$marker.'___'.
'adm/wrapper'.$r->uri).'</body></html>');	$r->uri).'</body></html>');
return OK;	return OK;
}	}