[LON-CAPA-cvs] cvs: loncom /homework/templates sampleexternal.problem

[www]

www		Mon Dec 20 19:18:14 2010 EDT

  Modified files:              
    /loncom/homework/templates	sampleexternal.problem 
  Log:
  Somewhat better Perl :-(
  
  
Index: loncom/homework/templates/sampleexternal.problem
diff -u loncom/homework/templates/sampleexternal.problem:1.1 loncom/homework/templates/sampleexternal.problem:1.2
--- loncom/homework/templates/sampleexternal.problem:1.1	Mon Dec 20 18:14:18 2010
+++ loncom/homework/templates/sampleexternal.problem	Mon Dec 20 19:18:14 2010
@@ -10,7 +10,7 @@
 }
 
 $testvalues='0=1';
-for ($i=1,3) {
+foreach $i (1..3) {
    $rand=&random(3,8,1);
    $testvalues.=','.$rand.'='.&fact($rand);
 }