--- loncom/interface/lonprintout.pm	2003/09/05 19:34:28	1.228
+++ loncom/interface/lonprintout.pm	2003/09/06 17:22:27	1.231
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.228 2003/09/05 19:34:28 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.231 2003/09/06 17:22:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -670,6 +670,9 @@ ENDPART
 	    $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');
@@ -700,6 +703,9 @@ ENDPART
             #printing content of sequence from the construction space	
 	    my $flag_latex_header_remove = 'NO'; 
 	    my $rndseed=time;
+	    if ($helper->{'VARS'}->{'curseed'}) {
+		$rndseed=$helper->{'VARS'}->{'curseed'};
+	    }
 	    $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
 	    my $errtext=&Apache::lonratedt::mapread($currentURL);
 	    for (my $member=0;$member<=$#Apache::lonratedt::order;$member++) {
@@ -734,7 +740,7 @@ ENDPART
 		    $result.=$texversion;
 		    $flag_latex_header_remove = 'YES';
 		} elsif ($urlp=~/\.(sequence|page)$/) {
-		    $result.='\strut\newline\noindent This is sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';
+		    $result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';
 		}  
 	    }
 	    if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
@@ -884,6 +890,9 @@ ENDPART
 	@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=~/\//) {
@@ -1059,6 +1068,7 @@ sub printHelper {
     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');
@@ -1114,6 +1124,9 @@ sub printHelper {
         }
         $subdir = &Apache::lonnet::filelocation("", $url);
     }
+    if (!$helper->{VARS}->{'curseed'} && $ENV{'form.curseed'}) {
+	$helper->{VARS}->{'curseed'}=$ENV{'form.curseed'};
+    }
 
     my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
 
@@ -1270,8 +1283,8 @@ CHOOSE_FROM_SUBDIR
 	$paramHash->{'variable'} = 'ANSWER_TYPE';   
 	$helper->declareVar('ANSWER_TYPE');         
         $paramHash->{CHOICES} = [
-                                   ['Yes', 'yes'],
-                                   ['No', 'no'] ];
+                                   ['No', 'yes'],
+                                   ['Yes', 'no'] ];
         Apache::lonhelper::dropdown->new();
 	addMessage("</td></tr>");
 	$startedTable = 1;
@@ -1331,6 +1344,18 @@ CHOOSE_FROM_SUBDIR
 	    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);
+	}
     }
 
     if ($startedTable) {