--- 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 {