--- loncom/homework/structuretags.pm 2003/09/10 21:18:07 1.209 +++ loncom/homework/structuretags.pm 2003/09/19 20:29:29 1.210 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.209 2003/09/10 21:18:07 albertel Exp $ +# $Id: structuretags.pm,v 1.210 2003/09/19 20:29:29 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,6 +36,7 @@ use strict; use Apache::lonnet; use Apache::File(); use Apache::lonmenu; +use Apache::lonlocal; BEGIN { &Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext', @@ -159,8 +160,8 @@ sub setup_rndseed { $ENV{'form.rndseed'}=$rndseed; } } - if ($ENV{'form.resetdata'} eq 'New Problem Variation' || - $ENV{'form.newrandomization'} eq 'New Randomization') { + if ($ENV{'form.resetdata'} eq &mt('New Problem Variation') || + $ENV{'form.newrandomization'} eq &mt('New Randomization')) { srand(time); $rndseed=int(rand(2100000000)); $ENV{'form.rndseed'}=$rndseed; @@ -178,43 +179,44 @@ sub setup_rndseed { sub problem_edit_header { return ' - - - -
- -

 

+ + + +
+ +

 

'; } sub problem_edit_footer { - return '

- '; + return '

+ '; } sub problem_web_to_edit_header { my ($rndseed)=@_; - my $result.=' - - - - - + my $result.=' + + + + + '.&mt(' Show All Foils').'
'; my $numtoanalyze=$ENV{'form.numtoanalyze'}; if (!$numtoanalyze) { $numtoanalyze=20; } - $result.= ' for + $result.= ' for versions of this problem.'. - &Apache::loncommon::help_open_topic("Analyze_Problem", + $numtoanalyze.'" size="5" /> '.&mt('versions of this problem'). + '.'.&Apache::loncommon::help_open_topic("Analyze_Problem", '',undef,undef,300). - '
'; + '
'; return $result; }