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

[raeburn]

raeburn		Sun Oct 31 15:54:25 2010 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - xhtml. type="string" not valid type in <input />
  - add some spaces in <input /> tag to improve readability.
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.181 loncom/interface/lonhelper.pm:1.182
--- loncom/interface/lonhelper.pm:1.181	Wed Sep  1 23:58:40 2010
+++ loncom/interface/lonhelper.pm	Sun Oct 31 15:54:25 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.181 2010/09/01 23:58:40 raeburn Exp $
+# $Id: lonhelper.pm,v 1.182 2010/10/31 15:54:25 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'} . '"';