--- loncom/homework/response.pm	2003/07/14 18:41:40	1.81
+++ loncom/homework/response.pm	2003/07/28 22:44:54	1.82
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.81 2003/07/14 18:41:40 sakharuk Exp $
+# $Id: response.pm,v 1.82 2003/07/28 22:44:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -93,10 +93,13 @@ sub setrandomnumber {
        $rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]);
     }
     if ($rndseed =~/,/) {
-	my ($num1,$num2)=split(/,/,$rndseed);
-	$num1+=$rndmod;
-	$num2+=$rndmod;
-	$rndseed="$num1,$num2";
+	{
+	    use integer;
+	    my ($num1,$num2)=split(/,/,$rndseed);
+	    $num1+=$rndmod;
+	    $num2+=$rndmod;
+	    $rndseed="$num1,$num2";
+	}
     } else {
 	$rndseed+=$rndmod;
     }