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

[sakharuk]

sakharuk		Mon Sep 23 17:08:04 2002 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  Modifications to print a message about closed problems.
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.116 loncom/homework/structuretags.pm:1.117
--- loncom/homework/structuretags.pm:1.116	Mon Sep 23 13:25:24 2002
+++ loncom/homework/structuretags.pm	Mon Sep 23 17:08:03 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.116 2002/09/23 17:25:24 albertel Exp $
+# $Id: structuretags.pm,v 1.117 2002/09/23 21:08:03 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -297,7 +297,9 @@
             $msg.=&checkout_msg;
         }
 	$result.=$msg.'<br />';
-      }
+      } elsif ($target eq 'tex') {
+	  $result.="\\begin{document}\\noindent \\vskip 1 mm \\begin{minipage}{\\textwidth}\\vskip 0 mm Problem is not open to be viewed. It $accessmsg \\vskip 0 mm ";
+      } 
     } elsif ($target eq 'web') {
       my $name= &get_resource_name($parstack,$safeeval);
       if ($status eq 'CAN_ANSWER') {
@@ -345,18 +347,18 @@
 	    print $temp_file "$duedate\n";	    
 	    if (not $ENV{'request.symb'} =~ m/\.page_/) {
 		if(not $duedate=~m/1969/) {
-		    $result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm';	
+		    $result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm \begin{minipage}{\textwidth}';	
 		} else {
-		    $result .= '\begin{document} \noindent \vskip 1 mm';
+		    $result .= '\begin{document} \noindent \vskip 1 mm \begin{minipage}{\textwidth}';
 		}
 	    } else {
-		$result .= '\parbox{\minipagewidth}{\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
+		$result .= '\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
 	    } 
 	} else {
 	    if (not $ENV{'request.symb'} =~ m/\.page_/) {
-		$result .= '\begin{document} \noindent \vskip 1 mm';	
+		$result .= '\begin{document} \noindent \vskip 1 mm\begin{minipage}{\textwidth}';	
 	    } else {
-		$result .= '\parbox{\minipagewidth}{\vskip 1mm \\\\\\\\';
+		$result .= '\vskip 1mm \\\\\\\\';
 	    } 
 	}
     }
@@ -411,9 +413,9 @@
       } else {
 	      $result .= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
 	      if (not $ENV{'request.symb'} =~ m/\.page_/) {
-		  $result .= '\end{document} ';
+		  $result .= '\end{minipage}\end{document} ';
 	      } else {
-		  $result .= '} ';
+		  $result .= '';
 	      }
       }
     }