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

[albertel]

albertel		Sat Sep  6 13:22:27 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - putting code, so that CSTR printing of sequences use the specified seed
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.230 loncom/interface/lonprintout.pm:1.231
--- loncom/interface/lonprintout.pm:1.230	Sat Sep  6 13:21:16 2003
+++ loncom/interface/lonprintout.pm	Sat Sep  6 13:22:27 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.230 2003/09/06 17:21:16 albertel Exp $
+# $Id: lonprintout.pm,v 1.231 2003/09/06 17:22:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -703,6 +703,9 @@
             #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++) {