--- loncom/homework/templates/sampleexternal.problem	2012/02/04 15:12:40	1.4
+++ loncom/homework/templates/sampleexternal.problem	2015/06/03 10:25:12	1.7
@@ -1,9 +1,10 @@
 <problem>
+<parameter name="externalurl" type="string" description="URL for external testing" />
 <script type="loncapa/perl">
 sub fact {
    my $n=shift;
-   if ($n==1) {
-      return $n;
+   if ($n<=1) {
+      return 1;
    } else {
       return $n*&fact($n-1);
    }
@@ -15,6 +16,10 @@ foreach $i (1..3) {
    $testvalues.=','.$rand.'='.&fact($rand);
 }
 
+#
+# Set anything else you want to pass in this hash.
+# Name-value pairs will be passed as posted form parameters.
+#
 %args=('somecode' => (<<'ENDCODE')
 sub negative {
    my ($number)=@_;
@@ -22,8 +27,13 @@ sub negative {
 }
 ENDCODE
 );
-
-
+# Get a URL if it is externally set
+$externalurl=&parameter_setting('externalurl');
+#
+# Important: set your default URL here
+#
+unless ($externalurl=~/\w/) { $externalurl='http://localhost/cgi-bin/sampleexternal.pl'; }
+#
 </script>
 
 
@@ -32,8 +42,8 @@ boolean function <tt>&amp;negative(numbe
 <instructorcomment>
 Sample code for an evaluation script can be found <a href="/res/adm/includes/templates/sampleexternal.pl">here.</a></instructorcomment>
 <endouttext />
-<externalresponse url="http://localhost/cgi-bin/sampleexternal.pl" answer="$testvalues" form="%args" answerdisplay="The most elegant (and dangerous) solution is recursive.">
-<textfield />
+<externalresponse url="$externalurl" answer="$testvalues" form="%args" answerdisplay="The most elegant (and dangerous) solution is recursive.">
+<textfield></textfield>
 
 </externalresponse>
 </problem>