version 1.47, 2001/08/22 19:21:36
|
version 1.52, 2001/12/04 14:53:18
|
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 { |
my ($parstack,$safeeval)=@_; |
my ($parstack,$safeeval)=@_; |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
|
if ($#Apache::inputtags::import > -1) { |
|
&Apache::lonxml::debug("Turning :$id: into"); |
|
$id = join('_',@Apache::inputtags::import).'_'.$id; |
|
&Apache::lonxml::debug("New :$id:"); |
|
} |
push (@Apache::inputtags::response,$id); |
push (@Apache::inputtags::response,$id); |
push (@Apache::inputtags::responselist,$id); |
push (@Apache::inputtags::responselist,$id); |
@Apache::inputtags::inputlist=(); |
@Apache::inputtags::inputlist=(); |
Line 44 sub end_hintresponse {
|
Line 49 sub end_hintresponse {
|
# used by response to set the non-safe space random number generator to something |
# used by response to set the non-safe space random number generator to something |
# that is stable and unique based on the part number and response number |
# that is stable and unique based on the part number and response number |
sub setrandomnumber { |
sub setrandomnumber { |
my $rndseed=&Apache::lonnet::rndseed(); |
my $rndseed; |
|
if ($ENV{'request.state'} eq "construct") { |
|
$rndseed=$ENV{'form.rndseed'}; |
|
if (!$rndseed) { $rndseed=time; } |
|
} else { |
|
$rndseed=&Apache::lonnet::rndseed(); |
|
} |
&Apache::lonxml::debug("randseed $rndseed"); |
&Apache::lonxml::debug("randseed $rndseed"); |
# $rndseed=unpack("%32i",$rndseed); |
# $rndseed=unpack("%32i",$rndseed); |
$rndseed=$rndseed |
$rndseed=$rndseed |
Line 173 sub start_stringresponse {
|
Line 184 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 296 sub start_responseparam {
|
Line 314 sub start_responseparam {
|
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
$result.=&Apache::edit::handle_insert(); |
} |
} |
|
} elsif ($target eq 'grade') { |
|
if ($ENV{'request.state'} eq 'construct') { |
|
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
|
my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval); |
|
$Apache::inputtags::params{$name}=$default; |
|
} |
} |
} |
return $result; |
return $result; |
} |
} |
Line 309 sub end_responseparam {
|
Line 333 sub end_responseparam {
|
sub setup_params { |
sub setup_params { |
my ($tag) = @_; |
my ($tag) = @_; |
|
|
|
if ($ENV{'request.state'} eq 'construct') { return; } |
@Apache::inputtags::params=(); |
@Apache::inputtags::params=(); |
my %paramlist=(); |
my %paramlist=(); |
foreach my $key (keys(%Apache::lonnet::packagetab)) { |
foreach my $key (keys(%Apache::lonnet::packagetab)) { |
Line 336 sub setup_params {
|
Line 361 sub setup_params {
|
} |
} |
} |
} |
|
|
|
sub answer_header { |
|
my ($type) = @_; |
|
my $result; |
|
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse' ) { |
|
$result = '<table border="1"><tr><th>Answer for Part:'. |
|
$Apache::inputtags::part. '</th></tr><tr>'."\n"; |
|
} else { |
|
$result = '<table border="1"><tr><td>Answer for Part:'. |
|
$Apache::inputtags::part. '</td>'."\n"; |
|
} |
|
return $result; |
|
} |
|
|
|
sub answer_part { |
|
my ($type,$answer) = @_; |
|
my $result; |
|
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
|
$result = '<td>'.$answer.'</td>'; |
|
} else { |
|
$result = '<td>'.$answer.'</td>'; |
|
} |
|
return $result; |
|
} |
|
|
|
sub answer_footer { |
|
my ($type) = @_; |
|
my $result; |
|
if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') { |
|
$result = '</tr></table>'; |
|
} else { |
|
$result = '</tr></table>'; |
|
} |
|
return $result; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|