version 1.2, 2003/07/09 06:23:20
|
version 1.3, 2003/07/09 10:05:15
|
Line 204 ENDDOCUMENT
|
Line 204 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'; } |
Line 255 ENDDOCUMENT
|
Line 257 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>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" name="storeproblem" value="Store Changes" /></form>'); |