--- loncom/homework/structuretags.pm	2008/02/13 16:21:44	1.419
+++ 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.419 2008/02/13 16:21:44 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').'" />