[LON-CAPA-cvs] cvs: loncom /homework lonr.pm

[www]

www		Wed Aug 12 15:30:17 2009 EDT

  Modified files:              
    /loncom/homework	lonr.pm 
  Log:
  We should split on linebreaks, not semicolons
  
  
Index: loncom/homework/lonr.pm
diff -u loncom/homework/lonr.pm:1.6 loncom/homework/lonr.pm:1.7
--- loncom/homework/lonr.pm:1.6	Tue Jun 23 03:01:15 2009
+++ loncom/homework/lonr.pm	Wed Aug 12 15:30:16 2009
@@ -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 @@
           }
        }
     }
-    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; }
     }