[LON-CAPA-cvs] cvs: modules /jerf/tests Utils.pm

bowersj2 lon-capa-cvs@mail.lon-capa.org
Tue, 08 Jul 2003 20:44:06 -0000


bowersj2		Tue Jul  8 16:44:06 2003 EDT

  Modified files:              
    /modules/jerf/tests	Utils.pm 
  Log:
  Can now publish resources automatically.
  
  
Index: modules/jerf/tests/Utils.pm
diff -u modules/jerf/tests/Utils.pm:1.8 modules/jerf/tests/Utils.pm:1.9
--- modules/jerf/tests/Utils.pm:1.8	Tue Jul  8 14:15:15 2003
+++ modules/jerf/tests/Utils.pm	Tue Jul  8 16:44:06 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # testing utilities
 #
-# $Id: Utils.pm,v 1.8 2003/07/08 18:15:15 bowersj2 Exp $
+# $Id: Utils.pm,v 1.9 2003/07/08 20:44:06 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -477,7 +477,7 @@
     # directly use (some perl data structure) to get this information
     # This handles "phase", "filename", "allmeta" (tricky to do manually),
     # "dependencies" (ditto), "mime", "creationdate", and "lastrevisiondate".
-    foreach ($result =~ m!\<input +type="hidden" +name=['"]([^'"]*)['"] +value=['"]([^'"]*)['"]!) {
+    while ($result =~ m!\<input +type="hidden" +name=['"]([^'"]*)['"] +value=['"]([^'"]*)['"]!g) {
 	$paramHash->{$1} = $2;
     }