--- loncom/xml/lonxml.pm	2003/09/15 13:38:19	1.277
+++ loncom/xml/lonxml.pm	2003/09/15 19:56:44	1.278
@@ -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 xmlbegin {
 }
 
 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>';
 }