--- loncom/homework/structuretags.pm	2006/04/18 22:55:49	1.348
+++ loncom/homework/structuretags.pm	2006/04/20 02:05:30	1.349
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.348 2006/04/18 22:55:49 albertel Exp $
+# $Id: structuretags.pm,v 1.349 2006/04/20 02:05:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -872,7 +872,6 @@ sub end_problem {
 		}
                 if ($env{'form.print_discussions'} eq 'yes') {
 		    $result.=&Apache::lonxml::xmlend($target,$parser);
-		    $result=~s/<\/html>//;
 		} else {
 		    $result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
 		    if (not $env{'request.symb'} =~ m/\.page_/) {
@@ -957,7 +956,7 @@ sub end_library {
 	$result=&problem_edit_footer();
     } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' &&
 	     $env{'request.state'} eq "construct") {
-	$result.='</form>'.&Apache::lonxml::xmlend();
+	$result.='</form>'.&Apache::loncommon::end_page({'discussion' => 1});
     }
     if ($$tagstack[0] eq 'library') { &reset_problem_globals('library') };
     return $result;