loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.96.2.1, 2004/02/19 19:19:15	version 1.100, 2004/02/13 21:01:11
Line 43 sub start_optionresponse {	Line 43 sub start_optionresponse {
%Apache::hint::option=();	%Apache::hint::option=();
if ($target eq 'edit') {	if ($target eq 'edit') {
$result.=&Apache::edit::start_table($token).	$result.=&Apache::edit::start_table($token).
"<tr><td>Multiple Option Response Question</td><td>Delete:".	"<tr><td>Multiple Option Response Question ".
	&Apache::loncommon::help_open_topic('Option_Response_Problems')."</td><td>Delete:".
&Apache::edit::deletelist($target,$token)	&Apache::edit::deletelist($target,$token)
."</td><td> ".	."</td><td> ".
&Apache::edit::end_row().	&Apache::edit::end_row().
Line 445 sub optionlist_correction {	Line 446 sub optionlist_correction {
$texoptionlist =~ s/>/\$>\$/g;	$texoptionlist =~ s/>/\$>\$/g;
$texoptionlist =~ s/</\$<\$/g;	$texoptionlist =~ s/</\$<\$/g;
$texoptionlist =~ s/=/\$=\$/g;	$texoptionlist =~ s/=/\$=\$/g;
$texoptionlist =~ s/\^(\d+)/<m>\$$1\$<\/m>/g;	$texoptionlist =~ s/\^(\d+)/\$^{$1}\$/g;
} else {	} else {
$texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;	$texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;
}	}