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

[sakharuk]

sakharuk		Mon Jun 30 16:21:44 2003 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  Changes to test possibility to split problem between pages.
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.190 loncom/homework/structuretags.pm:1.191
--- loncom/homework/structuretags.pm:1.190	Wed Jun 25 12:47:47 2003
+++ loncom/homework/structuretags.pm	Mon Jun 30 16:21:43 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.190 2003/06/25 16:47:47 albertel Exp $
+# $Id: structuretags.pm,v 1.191 2003/06/30 20:21:43 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -405,9 +405,9 @@
 		    "<title>$name</title></head>\n$body_tag_start\n";
 	    }
 	} elsif ($target eq 'tex') {
-	    my $startminipage = '';
-	    if ($ENV{'form.problem_split'} ne 'yes') {
-		$startminipage = '\begin{minipage}{\textwidth}';
+	    my $startminipage = ' SSS '.$ENV{'form.problem_split'}.' FFF ';
+	    if (not $ENV{'form.problem_split'}=~/yes/) {
+		$startminipage .= '\begin{minipage}{\textwidth}';
 	    }
 	    my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
 	    if ($name eq '') {
@@ -513,7 +513,7 @@
 		$result.=&Apache::lonxml::xmlend();
 	    } elsif ($target eq 'tex') {
 		my $endminipage = '';
-		if ($ENV{'form.problem_split'} ne 'yes') {
+		if (not $ENV{'form.problem_split'}=~/yes/) {
 		    $endminipage = '\end{minipage}';
 		}
 		$result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';