--- loncom/homework/lonsimpleproblemedit.pm 2003/09/21 21:40:06 1.6 +++ loncom/homework/lonsimpleproblemedit.pm 2003/12/11 21:23:58 1.10 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.6 2003/09/21 21:40:06 www Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.10 2003/12/11 21:23:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -61,6 +61,7 @@ sub rawrendering { $ENV{'user.name'}=time; $ENV{'user.domain'}=time; my $result = &Apache::lonxml::xmlparse($request,'web', $problem); + undef($Apache::lonhomework::parsing_a_problem); $ENV{'user.name'}=$uname; $ENV{'user.domain'}=$udom; $result=~s/^.*\
]*\>//si; @@ -70,9 +71,10 @@ sub rawrendering { sub questiontext { my $text=$qparms{$prefix.'questiontext'}; + my $qt=&mt('Question Text'); return (<'); @@ -244,7 +254,7 @@ ENDDOCUMENT $r->print( '
Add new option: '. + $options.'" />'.&mt('Add new option').': '. ''. &mt('Delete an option').': '. &Apache::loncommon::select_form('','delopt',('' => '',%optionshash)). |