--- loncom/interface/lonspeller.pm	2004/07/22 20:19:20	1.3
+++ loncom/interface/lonspeller.pm	2004/07/22 23:50:55	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Interface routines for Aspell
 #
-# $Id: lonspeller.pm,v 1.3 2004/07/22 20:19:20 www Exp $
+# $Id: lonspeller.pm,v 1.4 2004/07/22 23:50:55 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,9 +35,23 @@ use Apache::lonlocal;
 use strict;
 my $speller;
 
+sub spellcheck_language {
+    if ($ENV{'form.lang'}) { return $ENV{'form.lang'}; }
+    if (&mt('spellcheck_lang') ne 'spellcheck_lang') {
+	return &mt('spellcheck_lang');
+    }
+    return 'en_US';
+}
+
+sub set_language {
+    my $lang=&spellcheck_language();
+    $speller->set_option('lang',$lang);
+}
+
 sub markeduptext {
     my $input=shift;
     my $output='';
+    &set_language();
     foreach my $word (split(/\W+/,$input)) {
 	if ($speller->check($word)) {
 	    $output.=$word.' ';