[LON-CAPA-cvs] cvs: loncom(version_2_10_X) /interface lonhelper.pm

[raeburn]

raeburn		Tue Nov  9 18:22:56 2010 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	lonhelper.pm 
  Log:
  - Backport 1.182.
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.180.2.2 loncom/interface/lonhelper.pm:1.180.2.3
--- loncom/interface/lonhelper.pm:1.180.2.2	Thu Sep  2 00:19:17 2010
+++ loncom/interface/lonhelper.pm	Tue Nov  9 18:22:56 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.180.2.2 2010/09/02 00:19:17 raeburn Exp $
+# $Id: lonhelper.pm,v 1.180.2.3 2010/11/09 18:22:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1476,9 +1476,9 @@
             HTML::Entities::encode($choice->[1],"<>&\"'") 
             . "'";
         if ($checkedChoices{$choice->[1]}) {
-            $result .= " checked='checked' ";
+            $result .= " checked='checked'";
         }
-        $result .= qq{id="id$id"};
+        $result .= qq{ id="id$id"};
         my $choiceLabel = $choice->[0];
         if ($choice->[3]) {  # if we need to evaluate this choice
             $choiceLabel = "sub { my $helper = shift; my $state = shift;" .
@@ -1486,7 +1486,7 @@
             $choiceLabel = eval($choiceLabel);
             $choiceLabel = &$choiceLabel($helper, $self);
         }
-        $result .= "/></td><td> ".qq{<label for="id$id">}.
+        $result .= " /></td><td> ".qq{<label for="id$id">}.
 	    $choiceLabel. "</label></td>";
 	if ($choice->[4]) {
 	    $result .='<td><input type="text" size="5" name="'
@@ -3364,7 +3364,7 @@
         $result .= '<p><font color="#FF0000">' . $self->{ERROR_MSG} . '</font></p>';
     }
 
-    $result .= '<input type="string" name="' . $self->{'variable'} . '_forminput"';
+    $result .= '<input type="text" name="' . $self->{'variable'} . '_forminput"';
 
     if (defined($self->{'size'})) {
         $result .= ' size="' . $self->{'size'} . '"';