--- loncom/interface/lonhelper.pm	2006/07/03 11:12:24	1.156
+++ loncom/interface/lonhelper.pm	2006/07/17 16:26:09	1.157
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.156 2006/07/03 11:12:24 foxr Exp $
+# $Id: lonhelper.pm,v 1.157 2006/07/17 16:26:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -486,7 +486,7 @@ sub declareVar {
         $self->{VARS}->{$var} = '';
     }
 
-    my $envname = 'form.' . $var . '.forminput';
+    my $envname = 'form.' . $var . '_forminput';
     if (defined($env{$envname})) {
         if (ref($env{$envname})) {
             $self->{VARS}->{$var} = join('|||', @{$env{$envname}});
@@ -1280,7 +1280,7 @@ sub render {
     function checkall(value, checkName) {
 	for (i=0; i<document.forms.helpform.elements.length; i++) {
             ele = document.forms.helpform.elements[i];
-            if (ele.name == checkName + '.forminput') {
+            if (ele.name == checkName + '_forminput') {
                 document.forms.helpform.elements[i].checked=value;
             }
         }
@@ -1353,7 +1353,7 @@ BUTTONS
     foreach my $choice (@{$self->{CHOICES}}) {
         my $id = &new_id();
         $result .= "<tr>\n<td width='20'>&nbsp;</td>\n";
-        $result .= "<td valign='top'><input type='$type' name='$var.forminput'"
+        $result .= "<td valign='top'><input type='$type' name='${var}_forminput'"
             . " value='" . 
             HTML::Entities::encode($choice->[1],"<>&\"'") 
             . "'";
@@ -1372,7 +1372,7 @@ BUTTONS
             $choiceLabel. "</label></td>";
 	if ($choice->[4]) {
 	    $result .='<td><input type="text" size="5" name="'
-		.$choice->[4].'.forminput" value="'
+		.$choice->[4].'_forminput" value="'
                 .$choice->[5].'" /></td>';
 	}
 	$result .= "</tr>\n";
@@ -1387,7 +1387,7 @@ BUTTONS
 # given, switch to it
 sub postprocess {
     my $self = shift;
-    my $chosenValue = $env{'form.' . $self->{'variable'} . '.forminput'};
+    my $chosenValue = $env{'form.' . $self->{'variable'} . '_forminput'};
 
     if (!defined($chosenValue) && !$self->{'allowempty'}) {
         $self->{ERROR_MSG} = 
@@ -1411,7 +1411,7 @@ sub postprocess {
         }
 	if ($choice->[4]) {
 	    my $varname = $choice->[4];
-	    $helper->{'VARS'}->{$varname} = $env{'form.'."$varname.forminput"};
+	    $helper->{'VARS'}->{$varname} = $env{'form.'."${varname}_forminput"};
 	}
     }
     return 1;
@@ -1520,7 +1520,7 @@ sub render {
 	$checkedChoices{$self->{CHOICES}->[0]->[1]} = 1;
     }
 
-    $result .= "<select name='${var}.forminput'>\n";
+    $result .= "<select name='${var}_forminput'>\n";
     foreach my $choice (@{$self->{CHOICES}}) {
         $result .= "<option value='" . 
             HTML::Entities::encode($choice->[1],"<>&\"'") 
@@ -1546,7 +1546,7 @@ sub render {
 # given, switch to it
 sub postprocess {
     my $self = shift;
-    my $chosenValue = $env{'form.' . $self->{'variable'} . '.forminput'};
+    my $chosenValue = $env{'form.' . $self->{'variable'} . '_forminput'};
 
     if (!defined($chosenValue) && !$self->{'allowempty'}) {
         $self->{ERROR_MSG} = "You must choose one or more choices to" .
@@ -2099,7 +2099,7 @@ sub render {
     function checkall(value, checkName) {
 	for (i=0; i<document.forms.helpform.elements.length; i++) {
             ele = document.forms.helpform.elements[i];
-            if (ele.name == checkName + '.forminput') {
+            if (ele.name == checkName + '_forminput') {
                 document.forms.helpform.elements[i].checked=value;
             }
         }
@@ -2198,12 +2198,12 @@ BUTTONS
 		    }
 		    $col .= 
                         "<td align='center'><input type='checkbox' name ='$option_var".
-			".forminput' value='".
+			"_forminput' value='".
 			$resource_name . "' $checked /> </td>";
 		}
 	    }
 
-            $col .= "<td align='center'><input type='$inputType' name='${var}.forminput' ";
+            $col .= "<td align='center'><input type='$inputType' name='${var}_forminput' ";
 	    if (%defaultSymbs) {
 		my $symb=$resource->symb();
 		if (exists($defaultSymbs{$symb})) {
@@ -2232,7 +2232,7 @@ BUTTONS
 	my $resource_name =   
 	    &HTML::Entities::encode(&$valueFunc($resource),"<>&\"'");
 	if ($addparts && (scalar(@{$resource->parts}) > 1)) {
-	    $col .= "<select onclick=\"javascript:updateRadio(this.form,'${var}.forminput','$resource_name');updateHidden(this.form,'$id','${var}');\" name='part_$id.forminput'>\n";
+	    $col .= "<select onclick=\"javascript:updateRadio(this.form,'${var}_forminput','$resource_name');updateHidden(this.form,'$id','${var}');\" name='part_${id}_forminput'>\n";
 	    $col .= "<option value=\"$part\">All Parts</option>\n";
 	    foreach my $part (@{$resource->parts}) {
 		$col .= "<option value=\"$part\">Part: $part</option>\n";
@@ -2254,14 +2254,14 @@ BUTTONS
 	}
     }
     function updateHidden(form,id,name) {
-	var select=form['part_'+id+'.forminput'];
-	var hidden=form[name+'_part.forminput'];
+	var select=form['part_'+id+'_forminput'];
+	var hidden=form[name+'_part_forminput'];
 	var which=select.selectedIndex;
 	hidden.value=select.options[which].value;
     }
 // -->
 </script>
-<input type="hidden" name="${var}_part.forminput" />
+<input type="hidden" name="${var}_part_forminput" />
 
 RADIO
     $env{'form.condition'} = !$self->{'toponly'};
@@ -2475,7 +2475,7 @@ sub render {
 sub postprocess {
     my $self = shift;
 
-    my $result = $env{'form.' . $self->{'variable'} . '.forminput'};
+    my $result = $env{'form.' . $self->{'variable'} . '_forminput'};
     if (!$result && !$self->{'emptyallowed'}) {
 	if ($self->{'coursepersonnel'}) {
 	    $self->{ERROR_MSG} = 
@@ -2660,7 +2660,7 @@ sub render {
     function checkall(value, checkName) {
 	for (i=0; i<document.forms.helpform.elements.length; i++) {
             ele = document.forms.helpform.elements[i];
-            if (ele.name == checkName + '.forminput') {
+            if (ele.name == checkName + '_forminput') {
                 document.forms.helpform.elements[i].checked=value;
             }
         }
@@ -2777,7 +2777,7 @@ BUTTONS
             my $id = &new_id();
             $result .= '<tr><td align="right"' . " bgcolor='$color'>" .
                 "<input $onclick type='$type' name='" . $var
-            . ".forminput' ".qq{id="$id"}." value='" . HTML::Entities::encode($fileName,"<>&\"'").
+            . "_forminput' ".qq{id="$id"}." value='" . HTML::Entities::encode($fileName,"<>&\"'").
                 "'";
             if (!$self->{'multichoice'} && $choices == 0) {
                 $result .= ' checked="checked"';
@@ -2838,7 +2838,7 @@ sub fileState {
 
 sub postprocess {
     my $self = shift;
-    my $result = $env{'form.' . $self->{'variable'} . '.forminput'};
+    my $result = $env{'form.' . $self->{'variable'} . '_forminput'};
     if (!$result) {
         $self->{ERROR_MSG} = 'You must choose at least one file '.
             'to continue.';
@@ -3074,7 +3074,7 @@ sub render {
         $result .= '<p><font color="#FF0000">' . $self->{ERROR_MSG} . '</font></p>';
     }
 
-    $result .= '<input type="string" name="' . $self->{'variable'} . '.forminput"';
+    $result .= '<input type="string" name="' . $self->{'variable'} . '_forminput"';
 
     if (defined($self->{'size'})) {
         $result .= ' size="' . $self->{'size'} . '"';