--- loncom/homework/structuretags.pm	2008/02/08 18:01:30	1.418
+++ loncom/homework/structuretags.pm	2008/05/27 19:48:55	1.420
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.418 2008/02/08 18:01:30 bisitz Exp $
+# $Id: structuretags.pm,v 1.420 2008/05/27 19:48:55 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -451,13 +451,28 @@ $show_all
 $show_all
 ";
     }
-
+    if (($env{'form.problemlanguage'}) && ($env{'form.problemlanguage'}!~/notset/)) {
+       $env{'environment.languages'}=$env{'form.problemlanguage'};
+    }
+    my %langchoices=('' => '');
+    foreach (&Apache::loncommon::languageids()) {
+        if (&Apache::loncommon::supportedlanguagecode($_)) {
+            $langchoices{&Apache::loncommon::supportedlanguagecode($_)}
+                       = &Apache::loncommon::plainlanguagedescription($_);
+        }
+    }
     $result.='
        <span class="LC_nobreak">
        '.&mt('Apply style file: ').'
          <input type="text" name="style_file" value="'.&HTML::Entities::encode($env{'construct.style'},'"<>&').'" />
          <a href="javascript:openbrowser(\'lonhomework\',\'style_file\',\'sty\')">'.&mt('Select').'</a>
        </span>
+       </div><div class="LC_edit_problem_header_row1">
+       <span class="LC_nobreak">'.
+       &mt('Language: ').
+       &Apache::loncommon::select_form($env{'environment.languages'},'problemlanguage',
+                                                     %langchoices).'
+     </span>
      </div>
      <input type="submit" name="changeproblemmode" value="'.&mt("Change View").'" />
      <input type="submit" name="clear_style_file" accesskey="d" value="'.&mt('Show Default View').'" />
@@ -477,8 +492,8 @@ $show_all
 	$result .= '<span class="LC_nobreak">'.
 	    &mt('[_1] for [_2] versions.',
 		'<input type="button" name="submitmode" value="'.&mt('Calculate answers').'" '.
-                'onclick="javascript:setmode(this.form,'."'calcanswers'".')" />
-		<input type="text" name="numtoanalyze" value="'.
+                'onclick="javascript:setmode(this.form,'."'calcanswers'".')" />'
+               ,'<input type="text" name="numtoanalyze" value="'.
 		$numtoanalyze.'" size="5" />').
 		&Apache::loncommon::help_open_topic("Analyze_Problem",'',undef,undef,300).
 		'</span>';