version 1.48, 2001/09/14 20:15:35
|
version 1.49, 2001/10/01 20:18:31
|
Line 9 package Apache::response;
|
Line 9 package Apache::response;
|
use strict; |
use strict; |
|
|
sub BEGIN { |
sub BEGIN { |
&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse')); |
&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse')); |
} |
} |
|
|
sub start_response { |
sub start_response { |
Line 179 sub start_stringresponse {
|
Line 179 sub start_stringresponse {
|
return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
} |
} |
|
|
|
sub start_formularesponse { |
|
require Apache::caparesponse; |
|
import Apache::caparesponse; |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
return &Apache::caparesponse::start_formularesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
|
} |
|
|
sub start_numericalresponse { |
sub start_numericalresponse { |
require Apache::caparesponse; |
require Apache::caparesponse; |
import Apache::caparesponse; |
import Apache::caparesponse; |
Line 349 sub answer_header {
|
Line 356 sub answer_header {
|
$result = '<table border="1"><tr><th>Answer for Part:'. |
$result = '<table border="1"><tr><th>Answer for Part:'. |
$Apache::inputtags::part. '</th></tr><tr>'."\n"; |
$Apache::inputtags::part. '</th></tr><tr>'."\n"; |
} else { |
} else { |
$result = '<table><tr><td>Answer for Part:'.$Apache::inputtags::part. |
$result = '<table border="1"><tr><td>Answer for Part:'. |
'</td>'."\n"; |
$Apache::inputtags::part. '</td>'."\n"; |
} |
} |
return $result; |
return $result; |
} |
} |