--- loncom/homework/structuretags.pm 2002/10/14 20:48:36 1.126
+++ loncom/homework/structuretags.pm 2002/10/28 14:47:22 1.129
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.126 2002/10/14 20:48:36 albertel Exp $
+# $Id: structuretags.pm,v 1.129 2002/10/28 14:47:22 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -169,6 +169,7 @@ sub problem_web_to_edit_header {
#$result.= '
#
';
+ return $result;
}
sub initialize_storage {
@@ -482,7 +483,7 @@ sub end_library {
sub start_block {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
- if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex' || $targer eq 'analyze') {
+ if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') {
my $code = @$parstack[$#$parstack];
$code =~ s/\"//g;
$code .=';return $condition;';
@@ -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';
+ }
}
}
}