version 1.53, 2001/12/04 15:17:56
|
version 1.56, 2002/01/11 16:32:29
|
Line 33 package Apache::response;
|
Line 33 package Apache::response;
|
use strict; |
use strict; |
|
|
sub BEGIN { |
sub BEGIN { |
&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse')); |
&Apache::lonxml::register('Apache::response',('responseparam','parameter','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse')); |
} |
} |
|
|
sub start_response { |
sub start_response { |
Line 193 sub check_for_previous {
|
Line 193 sub check_for_previous {
|
return %previous; |
return %previous; |
} |
} |
|
|
|
sub handle_previous { |
|
my ($previous,$ad)=@_; |
|
if ($$previous{'used'} && ($$previous{'award'} eq $ad) ) { |
|
if ($$previous{'last'}) { |
|
push(@Apache::inputtags::previous,'PREVIOUSLY_LAST'); |
|
} else { |
|
push(@Apache::inputtags::previous,'PREVIOUSLY_USED'); |
|
} |
|
} |
|
} |
|
|
sub start_caparesponse { |
sub start_caparesponse { |
require Apache::caparesponse; |
require Apache::caparesponse; |
import Apache::caparesponse; |
import Apache::caparesponse; |
Line 322 sub start_responseparam {
|
Line 333 sub start_responseparam {
|
$token->[2]->{'default'}, |
$token->[2]->{'default'}, |
$token->[2]->{'description'}); |
$token->[2]->{'description'}); |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token, |
$result.=&Apache::edit::tag_start($target,$token); |
&Apache::lonxml::description($token)); |
|
$result.=&Apache::edit::text_arg('Name:','name',$token). |
$result.=&Apache::edit::text_arg('Name:','name',$token). |
&Apache::edit::text_arg('Type:','type',$token). |
&Apache::edit::text_arg('Type:','type',$token). |
&Apache::edit::text_arg('Description:','description',$token). |
&Apache::edit::text_arg('Description:','description',$token). |
Line 354 sub end_responseparam {
|
Line 364 sub end_responseparam {
|
return ''; |
return ''; |
} |
} |
|
|
|
sub start_parameter { |
|
my $result = &start_responseparam(@_); |
|
return $result; |
|
} |
|
|
|
sub end_parameter { |
|
my $result = &end_responseparam(@_); |
|
return $result; |
|
} |
|
|
sub setup_params { |
sub setup_params { |
my ($tag) = @_; |
my ($tag) = @_; |
|
|