version 1.30, 2003/11/07 08:52:20
|
version 1.32, 2004/01/06 20:16:17
|
Line 317 sub grade_response {
|
Line 317 sub grade_response {
|
my $response = &Apache::response::getresponse($temp); |
my $response = &Apache::response::getresponse($temp); |
push(@items,$response); |
push(@items,$response); |
my $responsename = $letter_name_map{$response}; |
my $responsename = $letter_name_map{$response}; |
$responsehash{$name}=$responsename; |
|
my $value=$Apache::response::foilgroup{$name.'.value'}; |
my $value=$Apache::response::foilgroup{$name.'.value'}; |
if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |
|
$responsehash{$name}=$responsename; |
&Apache::lonxml::debug("submitted a $response for $value<br />\n"); |
&Apache::lonxml::debug("submitted a $response for $value<br />\n"); |
if ($value eq $responsename) { |
if ($value eq $responsename) { |
$grade{$name}='1'; $right++; |
$grade{$name}='1'; $right++; |
Line 465 sub displayfoils {
|
Line 465 sub displayfoils {
|
} elsif ($result=&itemdisplay('bottom')) { |
} elsif ($result=&itemdisplay('bottom')) { |
$result=$question.$result; |
$result=$question.$result; |
} elsif ($result=&itemdisplay('right')) { |
} elsif ($result=&itemdisplay('right')) { |
$result='<table><tr><td>'.$question.'</td><td>'.$result. |
if ($target ne 'tex') { |
'</td></tr></table>'; |
$result='<table><tr><td>'.$question.'</td><td>'.$result. |
|
'</td></tr></table>'; |
|
} else { |
|
$result='\begin{tabular}{p{\textwidth/2}p{\textwidth/2}}\begin{minipage}{\textwidth/2}'.$question.'\end{minipage}&\begin{minipage}{\textwidth/2}'.$result.'\end{minipage}\end{tabular}'; |
|
} |
} elsif ($result=&itemdisplay('left')) { |
} elsif ($result=&itemdisplay('left')) { |
$result='<table><tr><td>'.$result.'</td><td>'.$question. |
if ($target ne 'tex') { |
'</td></tr></table>'; |
$result='<table><tr><td>'.$result.'</td><td>'.$question. |
|
'</td></tr></table>'; |
|
} else { |
|
$result='\begin{tabular}{p{\textwidth/2}p{\textwidth/2}}\begin{minipage}{\textwidth/2}'.$result.'\end{minipage}&\begin{minipage}{\textwidth/2}'.$question.'\end{minipage}\end{tabular}'; |
|
} |
} |
} |
if ($target ne 'tex') {$result.="<br />";} else {$result.=' \\\\ ';} |
if ($target ne 'tex') {$result.="<br />";} else {$result.=' \\\\ ';} |
return $result; |
return $result; |