[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[sakharuk]

sakharuk		Fri Sep  5 15:34:28 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Small changes (mainly cosmetic) just to make output looking more reasonable.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.227 loncom/interface/lonprintout.pm:1.228
--- loncom/interface/lonprintout.pm:1.227	Fri Sep  5 14:43:43 2003
+++ loncom/interface/lonprintout.pm	Fri Sep  5 15:34:28 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.227 2003/09/05 18:43:43 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.228 2003/09/05 19:34:28 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -670,9 +670,6 @@
 	    $form{'problem_split'}=$parmhash{'problem_stream_switch'};
 	    $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
 	    my $rndseed=time;
-	    if ($helper->{'VARS'}->{'curseed'}) {
-		$rndseed=$helper->{'VARS'}->{'curseed'};
-	    }
 	    $form{'rndseed'}=$rndseed;
 	    &Apache::lonnet::appenv(%moreenv);
 	    &Apache::lonnet::delenv('form.counter');
@@ -737,10 +734,10 @@
 		    $result.=$texversion;
 		    $flag_latex_header_remove = 'YES';
 		} elsif ($urlp=~/\.(sequence|page)$/) {
-		    $result.='\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent This is sequence/page '.$urlp.'\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent ';
+		    $result.='\strut\newline\noindent This is sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';
 		}  
 	    }
-	    if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;}
+	    if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
 	    $result .= '\end{document}';   
 	} else {
 	  $result.='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
@@ -887,9 +884,6 @@
 	@list_of_files=sort @list_of_files;
 	my $flag_latex_header_remove = 'NO'; 
 	my $rndseed=time;
-	if ($helper->{'VARS'}->{'curseed'}) {
-	    $rndseed=$helper->{'VARS'}->{'curseed'};
-	}
 	for (my $i=0;$i<=$#list_of_files;$i++) {
 	    my $urlp = $list_of_files[$i];
 	    if ($urlp=~/\//) {
@@ -1065,7 +1059,6 @@
     my $helper = Apache::lonhelper::helper->new("Printing Helper");
     $helper->declareVar('symb');
     $helper->declareVar('postdata');    
-    $helper->declareVar('curseed');    
     $helper->declareVar('filename');
     $helper->declareVar('construction');
     $helper->declareVar('assignment');
@@ -1121,9 +1114,6 @@
         }
         $subdir = &Apache::lonnet::filelocation("", $url);
     }
-    if (!$helper->{VARS}->{'curseed'} && $ENV{'form.curseed'}) {
-	$helper->{VARS}->{'curseed'}=$ENV{'form.curseed'};
-    }
 
     my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
 
@@ -1340,18 +1330,6 @@
 				     ['Yes', 'yes'] ];
 	    Apache::lonhelper::dropdown->new();
 	    addMessage("</td></tr>");
-	}
-	if ($helper->{'VARS'}->{'construction'}) { 
-	    my $xmlfrag .= <<'RNDSEED';
-	    <message><tr><td align='right'>Use random seed: </td><td></message>
-	    <string variable="curseed" size="15" maxlength="15">
-		<defaultvalue>
-	            return $helper->{VARS}->{'curseed'};
-	        </defaultvalue>
-	     </string>
-             <message></td></tr></message>
-RNDSEED
-            &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
 	}
     }