version 1.2, 2003/07/09 06:23:20
|
version 1.7, 2003/11/04 16:44:50
|
Line 32 use strict;
|
Line 32 use strict;
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::lonlocal; |
|
|
my %qparms; |
my %qparms; |
my $prefix; |
my $prefix; |
Line 132 sub handler {
|
Line 133 sub handler {
|
my $r = shift; |
my $r = shift; |
|
|
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
|
|
# -------------------------------------------------------------------- Allowed? |
# -------------------------------------------------------------------- Allowed? |
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
unless (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
# ----------------------------------------------------------------- Send header |
# ----------------------------------------------------------------- Send header |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
# ----------------------------------------------------- Figure out where we are |
# ----------------------------------------------------- Figure out where we are |
my $uri=$r->uri; |
my $uri=$r->uri; |
Line 167 sub handler {
|
Line 168 sub handler {
|
} |
} |
$ENV{'form.options'}="('".join("','",keys %curoptions)."')"; |
$ENV{'form.options'}="('".join("','",keys %curoptions)."')"; |
} |
} |
|
$ENV{'form.hiddenparts'}='!'.$ENV{'form.questiontype'}; |
foreach (keys %ENV) { |
foreach (keys %ENV) { |
if ($_=~/^form\.(\w+)$/) { |
if ($_=~/^form\.(\w+)$/) { |
my $parm=$1; |
my $parm=$1; |
Line 204 ENDDOCUMENT
|
Line 206 ENDDOCUMENT
|
# Question Type |
# Question Type |
my %questiontypes=('radio' => |
my %questiontypes=('radio' => |
'1 out of N multiple choice (radio button)', |
'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'}; |
$qtype=$qparms{$prefix.'questiontype'}; |
unless (defined($qtype)) { $qtype='radio'; } |
unless (defined($qtype)) { $qtype='radio'; } |
unless ($questiontypes{$qtype}) { $qtype='radio'; } |
unless ($questiontypes{$qtype}) { $qtype='radio'; } |
$r->print('Question Type: '.&Apache::loncommon::select_form |
$r->print('<b>Question Type: '.&Apache::loncommon::select_form |
($qtype,'questiontype',%questiontypes). |
($qtype,'questiontype',%questiontypes). |
'<p> </p>'); |
'</b><br /><input type="submit" value="'.&mt('Store Changes'). |
|
'" /><p> </p>'); |
# Question Text |
# Question Text |
$r->print(&questiontext()); |
$r->print(&questiontext()); |
# Radio, Option === |
# Radio, Option === |
Line 227 ENDDOCUMENT
|
Line 232 ENDDOCUMENT
|
unless ($randomizes{$randomize}) { $randomize='yes'; } |
unless ($randomizes{$randomize}) { $randomize='yes'; } |
$r->print( |
$r->print( |
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'. |
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'. |
'<tr><td>Max number of foils displayed: <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" /> '. |
'<tr><td>'.&mt('Max number of foils displayed'). |
|
': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" /> '. |
&Apache::loncommon::select_form |
&Apache::loncommon::select_form |
($randomize,'randomize',%randomizes). |
($randomize,'randomize',%randomizes). |
'</td></tr><tr><td bgcolor="#AAAAAA">'); |
'</td></tr><tr><td bgcolor="#AAAAAA">'); |
Line 240 ENDDOCUMENT
|
Line 246 ENDDOCUMENT
|
'<table bgcolor="#ffcc22" cellspacing="4" cellpadding="2">'. |
'<table bgcolor="#ffcc22" cellspacing="4" cellpadding="2">'. |
'<tr><td><input type="hidden" name="options" value="'. |
'<tr><td><input type="hidden" name="options" value="'. |
$options.'" />Add new option: '. |
$options.'" />Add new option: '. |
'<input type="text" name="newopt" size="15" />Delete an option: '. |
'<input type="text" name="newopt" size="15" />'. |
|
&mt('Delete an option').': '. |
&Apache::loncommon::select_form('','delopt',('' => '',%optionshash)). |
&Apache::loncommon::select_form('','delopt',('' => '',%optionshash)). |
'</td></tr><tr><td>'); |
'</td></tr><tr><td>'); |
} |
} |
Line 255 ENDDOCUMENT
|
Line 262 ENDDOCUMENT
|
|
|
# End Response |
# End Response |
$r->print('</td></tr></table><br />'); |
$r->print('</td></tr></table><br />'); |
|
# 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( |
|
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'. |
|
'<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" /> '. |
|
&Apache::loncommon::select_form |
|
($stringtype,'stringtype',%stringtypes). |
|
'</td></tr></table><br />'); |
# Hint |
# Hint |
$r->print(&hint()); |
$r->print(&hint()); |
|
} |
# Store Button |
# Store Button |
$r->print( |
$r->print( |
'<input type="submit" name="storeproblem" value="Store Changes" /></form>'); |
'<input type="submit" value="'.&mt('Store Changes').'" /></form>'); |
} else { |
} else { |
$r->print('Could not identify problem.'); |
$r->print(&mt('Could not identify problem.')); |
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |