--- loncom/homework/structuretags.pm 2002/10/15 14:37:59 1.127 +++ loncom/homework/structuretags.pm 2002/11/03 19:16:19 1.130 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.127 2002/10/15 14:37:59 matthew Exp $ +# $Id: structuretags.pm,v 1.130 2002/11/03 19:16:19 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -141,7 +141,7 @@ sub problem_edit_header {
-
+

 

'; } @@ -169,6 +169,7 @@ sub problem_web_to_edit_header { #$result.= ' #
'; + return $result; } sub initialize_storage { @@ -633,7 +634,9 @@ sub start_part { } } else { if ($target eq 'tex') { - $result='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent'; + if ($$tagstack[-2] ne 'problem') { + $result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent'; + } } } } @@ -755,7 +758,9 @@ sub start_endouttext { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result=''; if ($target eq "edit" ) { $result="".&Apache::edit::end_table()."\n"; } - if ($target eq "modified") { $result=''; } + if ($target eq "modified") { + $result=''. + &Apache::edit::handle_insertafter('startouttext'); } return $result; } sub end_endouttext {