loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.3, 2003/07/09 10:05:15	version 1.4, 2003/07/16 15:19:56
Line 210 ENDDOCUMENT	Line 210 ENDDOCUMENT
$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="Store Changes" /><p> </p>');
# Question Text	# Question Text
$r->print(&questiontext());	$r->print(&questiontext());
# Radio, Option ===	# Radio, Option ===
Line 281 ENDDOCUMENT	Line 281 ENDDOCUMENT
}	}
# Store Button	# Store Button
$r->print(	$r->print(
'<input type="submit" name="storeproblem" value="Store Changes" /></form>');	'<input type="submit" value="Store Changes" /></form>');
} else {	} else {
$r->print('Could not identify problem.');	$r->print('Could not identify problem.');
}	}