--- loncom/interface/lonbulletin.pm	2003/07/10 10:53:18	1.11
+++ loncom/interface/lonbulletin.pm	2003/09/17 19:45:39	1.15
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Bulletin Board Handler
 #
-# $Id: lonbulletin.pm,v 1.11 2003/07/10 10:53:18 www Exp $
+# $Id: lonbulletin.pm,v 1.15 2003/09/17 19:45:39 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,8 +33,8 @@ use Apache::Constants qw(:common);
 use Apache::loncommon;
 use Apache::lonnet;
 use Apache::lontexconvert;
-use Apache::lonxml;
 use Apache::lonfeedback;
+use Apache::lonlocal;
 
 sub handler {
     my $r = shift;
@@ -66,7 +66,7 @@ ENDDOCUMENT
     my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
 
 # --------------------------------------------------------- The syllabus fields
-    my %syllabusfields=(
+    my %syllabusfields=&Apache::lonnet::texthash(
        'aaa_title'         => 'Topic',
        'bbb_content'       => 'Task',
        'ccc_webreferences' => 'Web References');
@@ -93,7 +93,7 @@ ENDDOCUMENT
             ("Bulletin Board/Discussion",$forcestudent,$addentries,'',$dom,
              $ENV{'form.register'}));
 
-    my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});
+    my $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
 
        if ($forcestudent) { $allowed=0; }
  
@@ -174,8 +174,9 @@ ENDDOCUMENT
     } else {
        $r->print('<p>No page information provided.</p>');
     }
-    $r->print(&Apache::lonxml::xmlend(1,'bulletin___'.$marker.'___'.
-             'adm/wrapper'.$r->uri).'</body></html>');
+    $r->print(&Apache::lonfeedback::list_discussion
+	      ('board','OPEN','bulletin___'.$marker.'___'.
+	       'adm/wrapper'.$r->uri).'</body></html>');
     return OK;
 }