--- loncom/homework/lonsimpleproblemedit.pm 2003/07/09 06:23:20 1.2 +++ loncom/homework/lonsimpleproblemedit.pm 2003/11/04 16:44:50 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.2 2003/07/09 06:23:20 www Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.7 2003/11/04 16:44:50 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; @@ -132,17 +133,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 +168,7 @@ sub handler { } $ENV{'form.options'}="('".join("','",keys %curoptions)."')"; } + $ENV{'form.hiddenparts'}='!'.$ENV{'form.questiontype'}; foreach (keys %ENV) { if ($_=~/^form\.(\w+)$/) { my $parm=$1; @@ -204,13 +206,16 @@ ENDDOCUMENT # Question Type my %questiontypes=('radio' => '1 out of N multiple choice (radio button)', - 'option' => 'Option Response'); + 'option' => 'Option response', + 'string' => 'Short string response', + 'essay' => 'Essay, open end'); $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 === @@ -227,7 +232,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). '
'); @@ -240,7 +246,8 @@ ENDDOCUMENT ''. '
Add new option: '. - 'Delete an option: '. + ''. + &mt('Delete an option').': '. &Apache::loncommon::select_form('','delopt',('' => '',%optionshash)). '
'); } @@ -255,14 +262,33 @@ ENDDOCUMENT # End Response $r->print('

'); +# Hint + $r->print(&hint()); } + if ($qtype eq 'string') { + my %stringtypes=( + 'cs' => 'Case sensitive', + 'ci' => 'Case Insensitive', + 'mc' => 'Multiple Choice, Order of characters unchecked'); + my $stringanswer=$qparms{$prefix.'stringanswer'}; + unless (defined($stringanswer)) { $stringanswer=''; } + my $stringtype=$qparms{$prefix.'stringtype'}; + unless (defined($stringtype)) { $stringtype='cs'; } + unless ($stringtypes{$stringtype}) { $stringtype='cs'; } + $r->print( + ''. + '
'.&mt('Correct answer').':   '. + &Apache::loncommon::select_form + ($stringtype,'stringtype',%stringtypes). + '

'); # Hint - $r->print(&hint()); + $r->print(&hint()); + } # Store Button $r->print( - ''); + ''); } else { - $r->print('Could not identify problem.'); + $r->print(&mt('Could not identify problem.')); } $r->print(''); return OK;