--- loncom/lonnet/perl/lonnet.pm	2003/05/02 15:26:36	1.367
+++ loncom/lonnet/perl/lonnet.pm	2003/05/04 07:38:32	1.368
@@ -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
 #
@@ -3763,6 +3763,10 @@ sub numval {
     return int($txt);
 }
 
+sub latest_rnd_algorithm_id {
+    return '64bit';
+}
+
 sub rndseed {
     my ($symb,$courseid,$domain,$username)=@_;