--- loncom/homework/structuretags.pm 2008/05/27 19:48:55 1.420
+++ loncom/homework/structuretags.pm 2008/06/11 13:52:35 1.423
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.420 2008/05/27 19:48:55 www Exp $
+# $Id: structuretags.pm,v 1.423 2008/06/11 13:52:35 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -312,24 +312,28 @@ sub remember_problem_state {
';
}
-sub problem_edit_header {
- return ''.
- &Apache::structuretags::remember_problem_state().'
-
';
+}
+
+sub problem_edit_header {
+ return ''.
+ &Apache::structuretags::remember_problem_state().'
+
@@ -340,17 +344,8 @@ sub problem_edit_header {
sub problem_edit_footer {
return '
'.
@@ -451,28 +446,15 @@ $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.='
'.&mt('Apply style file: ').'
&').'" />
'.&mt('Select').'
-
+