[LON-CAPA-cvs] cvs: loncom /interface lonbulletin.pm lonfeedback.pm /xml lonxml.pm

[www]

www		Mon Sep 15 15:56:44 2003 EDT

  Modified files:              
    /loncom/interface	lonbulletin.pm lonfeedback.pm 
    /loncom/xml	lonxml.pm 
  Log:
  Getting status info into list_discussion.
  
  
Index: loncom/interface/lonbulletin.pm
diff -u loncom/interface/lonbulletin.pm:1.13 loncom/interface/lonbulletin.pm:1.14
--- loncom/interface/lonbulletin.pm:1.13	Mon Sep 15 09:38:19 2003
+++ loncom/interface/lonbulletin.pm	Mon Sep 15 15:56:44 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Bulletin Board Handler
 #
-# $Id: lonbulletin.pm,v 1.13 2003/09/15 13:38:19 www Exp $
+# $Id: lonbulletin.pm,v 1.14 2003/09/15 19:56:44 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -174,7 +174,7 @@
        $r->print('<p>No page information provided.</p>');
     }
     $r->print(&Apache::lonfeedback::list_discussion
-	      (1,'bulletin___'.$marker.'___'.
+	      ('board','OPEN','bulletin___'.$marker.'___'.
 	       'adm/wrapper'.$r->uri).'</body></html>');
     return OK;
 } 
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.56 loncom/interface/lonfeedback.pm:1.57
--- loncom/interface/lonfeedback.pm:1.56	Mon Sep 15 14:43:54 2003
+++ loncom/interface/lonfeedback.pm	Mon Sep 15 15:56:44 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.56 2003/09/15 18:43:54 www Exp $
+# $Id: lonfeedback.pm,v 1.57 2003/09/15 19:56:44 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -53,7 +53,9 @@
 use Apache::lontexconvert();
 
 sub list_discussion {
-    my ($discussiononly,$symb)=@_;
+    my ($mode,$status,$symb)=@_;
+    my $discussiononly=0;
+    if ($mode eq 'board') { $discussiononly=1; }
     unless ($ENV{'request.course.id'}) { return ''; }
     my $crs='/'.$ENV{'request.course.id'};
     if ($ENV{'request.course.sec'}) {
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.277 loncom/xml/lonxml.pm:1.278
--- loncom/xml/lonxml.pm:1.277	Mon Sep 15 09:38:19 2003
+++ loncom/xml/lonxml.pm	Mon Sep 15 15:56:44 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.277 2003/09/15 13:38:19 www Exp $
+# $Id: lonxml.pm,v 1.278 2003/09/15 19:56:44 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -175,6 +175,12 @@
 }
 
 sub xmlend {
+    my $mode='xml';
+    my $status='OPEN';
+    if ($Apache::lonhomework::parsing_a_problem) {
+	$mode='problem';
+	$status=$Apache::inputtags::status[-1]; 
+    }
     return &Apache::lonfeedback::list_discussion().'</html>';
 }