[LON-CAPA-cvs] cvs: loncom /homework structuretags.pm

[albertel]

albertel		Wed Apr 19 22:05:30 2006 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  - end_page
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.348 loncom/homework/structuretags.pm:1.349
--- loncom/homework/structuretags.pm:1.348	Tue Apr 18 18:55:49 2006
+++ loncom/homework/structuretags.pm	Wed Apr 19 22:05:30 2006
@@ -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 @@
 		}
                 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 @@
 	$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;