--- loncom/homework/response.pm	2002/07/29 20:40:34	1.63
+++ loncom/homework/response.pm	2002/10/08 18:04:04	1.65
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.63 2002/07/29 20:40:34 albertel Exp $
+# $Id: response.pm,v 1.65 2002/10/08 18:04:04 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,7 +33,7 @@ package Apache::response;
 use strict;
 
 BEGIN {
-  &Apache::lonxml::register('Apache::response',('responseparam','parameter'));
+  &Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse'));
 }
 
 sub start_response {
@@ -91,7 +91,7 @@ sub setrandomnumber {
     $rndseed=$rndseed
       +&Apache::lonnet::numval($Apache::inputtags::response['-1']);
   }
-  srand($rndseed);
+  &Math::Random::random_set_seed_from_phrase($rndseed);
   &Apache::lonxml::debug("randseed $rndseed");
   return '';
 }