--- loncom/homework/structuretags.pm 2008/05/27 19:48:55 1.420 +++ loncom/homework/structuretags.pm 2008/05/28 01:32:55 1.422 @@ -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.422 2008/05/28 01:32:55 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -451,28 +451,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').' -
- '. - &mt('Language: '). - &Apache::loncommon::select_form($env{'environment.languages'},'problemlanguage', - %langchoices).' - +
+
'. + &Apache::lonxml::renderingoptions().'