version 1.12, 2003/09/09 19:39:04
|
version 1.15, 2003/09/17 19:45:39
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::lonxml; |
|
use Apache::lonfeedback; |
use Apache::lonfeedback; |
|
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 66 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::lonnet::texthash( |
'aaa_title' => 'Topic', |
'aaa_title' => 'Topic', |
'bbb_content' => 'Task', |
'bbb_content' => 'Task', |
'ccc_webreferences' => 'Web References'); |
'ccc_webreferences' => 'Web References'); |
Line 174 ENDDOCUMENT
|
Line 174 ENDDOCUMENT
|
} else { |
} else { |
$r->print('<p>No page information provided.</p>'); |
$r->print('<p>No page information provided.</p>'); |
} |
} |
$r->print(&Apache::lonxml::xmlend(1,'bulletin___'.$marker.'___'. |
$r->print(&Apache::lonfeedback::list_discussion |
'adm/wrapper'.$r->uri).'</body></html>'); |
('board','OPEN','bulletin___'.$marker.'___'. |
|
'adm/wrapper'.$r->uri).'</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|