version 1.29, 2001/03/21 18:25:14
|
version 1.31, 2001/06/02 03:59:59
|
Line 10 sub BEGIN {
|
Line 10 sub BEGIN {
|
} |
} |
|
|
sub start_caparesponse { |
sub start_caparesponse { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $id = &Apache::response::start_response($parstack,$safeeval); |
my $id = &Apache::response::start_response($parstack,$safeeval); |
return ''; |
return ''; |
} |
} |
|
|
sub end_caparesponse { |
sub end_caparesponse { |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result = ''; |
my $result = ''; |
if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
Line 44 sub end_caparesponse {
|
Line 44 sub end_caparesponse {
|
} |
} |
} |
} |
} |
} |
} else { |
} elsif ($target eq 'web') { |
#$result .= "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n"; |
#$result .= "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n"; |
} |
} |
#Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n"); |
#Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n"); |
Line 53 sub end_caparesponse {
|
Line 53 sub end_caparesponse {
|
} |
} |
|
|
sub start_numericalresponse { |
sub start_numericalresponse { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $id = &Apache::response::start_response($parstack,$safeeval); |
my $id = &Apache::response::start_response($parstack,$safeeval); |
return ''; |
return ''; |
} |
} |
|
|
sub end_numericalresponse { |
sub end_numericalresponse { |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result = ''; |
my $result = ''; |
if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |