--- loncom/homework/inputtags.pm	2012/08/21 18:20:38	1.306
+++ loncom/homework/inputtags.pm	2012/12/19 17:35:34	1.312
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.306 2012/08/21 18:20:38 raeburn Exp $
+# $Id: inputtags.pm,v 1.312 2012/12/19 17:35:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -125,6 +125,37 @@ sub initialize_inputtags {
     %Apache::inputtags::submission_display=();
 }
 
+#
+#  provides the onblur binding for spellchecking.  This could be an
+#  empty string if spellchecking was not enabled.
+#  Jquery selector binding is done rather than setting an onblur
+#  attribute because we'll need to set the element's spellcheck language
+#  option dynamically so we need $(this) to be defined.
+#
+# @param id   - The element id to bind.
+# @param lang - Language in which spellchecking is desired.
+#               if undef, nothing is generated.  
+# @return string - onblur specification to do the requested spellchecking.
+#
+sub spellcheck_onblur {
+    my ($id, $lang) = @_;
+    my $result = '';
+    if ($lang) {
+
+	$result = <<JAVASCRIPT;
+<script type="text/javascript">
+\$('\#$id').blur(function() {
+    doSpellcheck('\#$id', '$lang');
+ });
+</script>
+
+JAVASCRIPT
+
+
+    }
+    return $result;
+}
+
 sub check_for_duplicate_ids {
     my %check;
     foreach my $id (@Apache::inputtags::partlist,
@@ -194,12 +225,14 @@ sub start_textfield {
 	    if ( $rows eq '') { $rows = 16; }
 	    my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
 	    $result='';
+	    my $tagident = 'HWVAL_' . $resid;
 	    if ($addchars) {
-		$result.=&addchars('HWVAL_'.$resid,$addchars);
+		$result.=&addchars($tagident, $addchars);
 	    }
-            my $textareaclass = 'class="LC_richDetectHtml"';
-	    $result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.
-		      'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'.
+            my $textareaclass = 'class="LC_richDetectHtml spellchecked"';
+	    $result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$tagident.'" ' .
+		      'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass
+		      .'>'.
                       &HTML::Entities::encode($oldresponse,'<>&"');
 	    if ($oldresponse ne '') {
 
@@ -233,10 +266,12 @@ sub start_textfield {
 	my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,
 						   $style);
 	$result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);
+	$result .= &Apache::edit::select_arg('Spellcheck for:', 'spellcheck',
+					     ['none', 'en', 'de', 'fr'], $token);
     } elsif ($target eq 'modified') {
 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
 						     $safeeval,'rows','cols',
-						     'addchars');
+						     'addchars', 'spellcheck');
 	if ($constructtag) {
 	    $result = &Apache::edit::rebuild_tag($token);
 	} else {
@@ -251,10 +286,12 @@ sub start_textfield {
 	    for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
 	    $result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';
 	} else {
-	    my $TeXwidth=$width_of_box/80;
-	    $result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';
-	    for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
-	    $result.='}}}\vskip 2 mm ';
+	    my $fieldname = $env{'request.symb'}.
+                    '&part_'. $Apache::inputtags::part.
+                    '&textresponse'.
+                    '&HWVAL_' . $Apache::inputtags::response['-1'];
+            $result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85
+                .85 .85}]\\';
 	}
     }
     return $result;
@@ -264,9 +301,14 @@ sub end_textfield {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result;
     if ($target eq 'web') {
+	my $spellcheck = &Apache::lonxml::get_param('spellcheck', $parstack, $safeeval);
 	$Apache::lonxml::evaluate++;
 	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
-	    return "</textarea>";
+	    my $resid = $Apache::inputtags::response[-1];
+	    my $tagident = 'HWVAL_' . $resid;
+	    my $result =  "</textarea>";
+	    $result .= &spellcheck_onblur($tagident, $spellcheck);
+	    return $result;
 	}
     } elsif ($target eq 'edit') {
 	$result=&Apache::edit::end_table();
@@ -330,6 +372,12 @@ sub start_textline {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result = "";
     my $input_id = &start_input($parstack,$safeeval);
+
+    # The spellcheck attribute 
+    # 1. enables spellchecking.
+    # 2. Provides the language code in which the spellchecking will be performed.
+
+    my $spellcheck = &Apache::lonxml::get_param('spellcheck', $parstack, $safeeval);
     if ($target eq 'web') {
 	$Apache::lonxml::evaluate--;
 	my $partid=$Apache::inputtags::part;
@@ -380,8 +428,15 @@ sub start_textline {
 		if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {
 		    $name = "none";
 		}
-		$result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');" type="text" '.$readonly.' name="'.$name.'" value="'.
-		    $oldresponse.'" size="'.$size.'"'.$maxlength.' />';
+		$result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');"'
+		     . ' type="text" '
+		     . $readonly.' name="'. $name . '"'
+		     . ' id="' . $name . '"'
+		     . ' value="'.  $oldresponse.'"'
+		     . ' class="spellchecked"  size="'.$size.'"'.$maxlength
+		     . '/>';
+
+		$result .= &spellcheck_onblur($name, $spellcheck);
 	    }
 	    if ($Apache::lonhomework::type eq 'exam'
 		&& &needs_exam_box($tagstack)) {
@@ -400,12 +455,14 @@ sub start_textline {
 				    'addchars',$token,10);
         $result.=&Apache::edit::select_arg('Readonly:','readonly',
 					   ['no','yes'],$token);
+	$result.=&Apache::edit::select_arg("Spellcheck for: ", 'spellcheck',
+					   ['none', 'en', 'de', 'fr'], $token);
 	$result.=&Apache::edit::end_row();
 	$result.=&Apache::edit::end_table();
     } elsif ($target eq 'modified') {
 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
 						     $safeeval,'size',
-						     'addchars','readonly');
+						     'addchars','readonly', 'spellcheck');
 	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
     } elsif ($target eq 'tex' 
 	     && $Apache::lonhomework::type ne 'exam') {
@@ -688,9 +745,11 @@ sub current_file_submissions {
         }
     }
     if ($header_shown) {
-        $result .= &Apache::loncommon::end_data_table().
-                   '<br /><span class="LC_warning">'.
-                   &mt('Exclude existing file(s) from grading by checking the "Delete?" checkbox(es) and clicking "Submit Answer"').'</span>';
+        $result .= &Apache::loncommon::end_data_table();
+        if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
+            $result .= '<br /><span class="LC_warning">'.
+                       &mt('Exclude existing file(s) from grading by checking the "Delete?" checkbox(es) and clicking "Submit Answer"').'</span>';
+        }
     }
     if (@bad_file_list) {
         my $bad_files = '<span class="LC_filename">'.