loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.82, 2003/07/25 20:56:08	version 1.84.2.1, 2003/09/23 01:52:57
Line 303 sub displayfoils {	Line 303 sub displayfoils {
my $break;	my $break;
my $solved=$Apache::lonhomework::history{"resource.$part.solved"};	my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
my $status=$Apache::inputtags::status[-1];	my $status=$Apache::inputtags::status[-1];
if (	if ( ($target ne 'tex') &&
($target ne 'tex') &&	&Apache::response::show_answer() ) {
(($solved =~ /^correct/) \|\| ($status eq 'SHOW_ANSWER')) ) {
foreach $name (@whichopt) {	foreach $name (@whichopt) {
my $text=$Apache::response::foilgroup{$name.'.text'};	my $text=$Apache::response::foilgroup{$name.'.text'};
if ($text!~/^\s*$/) {	if ($text!~/^\s*$/) {
Line 437 sub displayfoils {	Line 436 sub displayfoils {
sub optionlist_correction {	sub optionlist_correction {

my $texoptionlist = shift;	my $texoptionlist = shift;
if ($texoptionlist=~/<option selected/) {	if ($texoptionlist=~/<option selected/ or $texoptionlist=~/<option>[^<]+<\/option>/) {
$texoptionlist =~ s/<option><\/option>/\\item \[\] Possible answers are:/;	$texoptionlist =~ s/<option><\/option>/\\item \[\] Choose from: /;
$texoptionlist =~ s/<option>/\{\\bf /g;	$texoptionlist =~ s/<option>/\{\\bf /g;
$texoptionlist =~ s/<option selected="on">/\{\\bf /g;	$texoptionlist =~ s/<option selected="on">/\{\\bf /g;
$texoptionlist =~ s/<\/option>/\},/g;	$texoptionlist =~ s/<\/option>/\},/g;