--- loncom/homework/lonsimpleproblemedit.pm 2003/07/09 10:05:15 1.3 +++ loncom/homework/lonsimpleproblemedit.pm 2003/11/04 19:18:16 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.3 2003/07/09 10:05:15 www Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.8 2003/11/04 19:18:16 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,6 +32,7 @@ use strict; use Apache::Constants qw(:common :http); use Apache::loncommon; use Apache::lonnet; +use Apache::lonlocal; my %qparms; my $prefix; @@ -60,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; @@ -132,17 +134,17 @@ sub handler { my $r = shift; if ($r->header_only) { - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK; } # -------------------------------------------------------------------- Allowed? - unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { + unless (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) { return HTTP_NOT_ACCEPTABLE; } # ----------------------------------------------------------------- Send header - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; # ----------------------------------------------------- Figure out where we are my $uri=$r->uri; @@ -167,6 +169,7 @@ sub handler { } $ENV{'form.options'}="('".join("','",keys %curoptions)."')"; } + $ENV{'form.hiddenparts'}='!'.$ENV{'form.questiontype'}; foreach (keys %ENV) { if ($_=~/^form\.(\w+)$/) { my $parm=$1; @@ -210,9 +213,10 @@ ENDDOCUMENT $qtype=$qparms{$prefix.'questiontype'}; unless (defined($qtype)) { $qtype='radio'; } unless ($questiontypes{$qtype}) { $qtype='radio'; } - $r->print('Question Type: '.&Apache::loncommon::select_form + $r->print('Question Type: '.&Apache::loncommon::select_form ($qtype,'questiontype',%questiontypes). - ''); + '
'); # Question Text $r->print(&questiontext()); # Radio, Option === @@ -229,7 +233,8 @@ ENDDOCUMENT unless ($randomizes{$randomize}) { $randomize='yes'; } $r->print( '
Max number of foils displayed: '. + ' | ||||
'.&mt('Max number of foils displayed'). +': '. &Apache::loncommon::select_form ($randomize,'randomize',%randomizes). ' | ||||
');
@@ -242,7 +247,8 @@ ENDDOCUMENT
'
|