[LON-CAPA-cvs] cvs: loncom /interface loncreatecourse.pm lonparmset.pm /lonnet/perl lonnet.pm

[albertel]

albertel		Sun May  4 03:38:32 2003 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm lonparmset.pm 
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - updated as per Gerd's suggestions
  
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.21 loncom/interface/loncreatecourse.pm:1.22
--- loncom/interface/loncreatecourse.pm:1.21	Sat May  3 17:30:21 2003
+++ loncom/interface/loncreatecourse.pm	Sun May  4 03:38:32 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.21 2003/05/03 21:30:21 albertel Exp $
+# $Id: loncreatecourse.pm,v 1.22 2003/05/04 07:38:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -127,10 +127,6 @@
 <b>Open all assessments: </b>
 <input type="checkbox" name="openall" checked>
 </p>
-<p>
-<b>Use new random seed function: </b>
-<input type="checkbox" name="rndseed" checked>
-</p>
 <h2>Messaging</h2>
 <p>
 <b>Set course policy feedback to Course Coordinator: </b>
@@ -247,10 +243,9 @@
     #
     # Use new Randomseed
     #
-    if ($ENV{'form.rndseed'}) {
-	$envflag=1;
-	$cenv{'rndseed'}='64bit';
-    }
+    $envflag=1;
+    $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
+
     if ($envflag) {
        $r->print('Setting environment: '.                 
           &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.89 loncom/interface/lonparmset.pm:1.90
--- loncom/interface/lonparmset.pm:1.89	Sat May  3 17:30:21 2003
+++ loncom/interface/lonparmset.pm	Sun May  4 03:38:32 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.89 2003/05/03 21:30:21 albertel Exp $
+# $Id: lonparmset.pm,v 1.90 2003/05/04 07:38:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1478,9 +1478,9 @@
 	         => '<b>Allow limited HTML in discussion posts</b><br />'.
 	            '(Set value to yes to allow)',
 	     'rndseed'
-	         => '<b>Random seed algorithm used</b> <br />'.
+	         => '<b>Randomization algorithm used</b> <br />'.
                     '<font color="red">Modifying this will make problems '.
-                    'display different numbers or correct answer</font>'
+                    'have different numbers and answers</font>'
              );
 	foreach (keys(%values)) {
 	    unless ($descriptions{$_}) {
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.367 loncom/lonnet/perl/lonnet.pm:1.368
--- loncom/lonnet/perl/lonnet.pm:1.367	Fri May  2 11:26:36 2003
+++ loncom/lonnet/perl/lonnet.pm	Sun May  4 03:38:32 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.367 2003/05/02 15:26:36 www Exp $
+# $Id: lonnet.pm,v 1.368 2003/05/04 07:38:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3761,6 +3761,10 @@
     $txt=~tr/u-z/0-5/;
     $txt=~s/\D//g;
     return int($txt);
+}
+
+sub latest_rnd_algorithm_id {
+    return '64bit';
 }
 
 sub rndseed {