--- loncom/homework/lonr.pm	2009/06/23 03:01:15	1.6
+++ loncom/homework/lonr.pm	2009/08/12 15:30:16	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Interface routines to R CAS
 #
-# $Id: lonr.pm,v 1.6 2009/06/23 03:01:15 www Exp $
+# $Id: lonr.pm,v 1.7 2009/08/12 15:30:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -273,7 +273,7 @@ sub runscript {
           }
        }
     }
-    foreach my $line (split(/\;/s,$fullscript)) {
+    foreach my $line (split(/[\n\r]+/s,$fullscript)) {
 	if ($line=~/\w/) { $reply=&rreply($socket,$line.";\n"); }
 	if ($reply=~/^Error\:/) { return $reply; }
     }