version 1.163, 2007/04/18 00:19:37
|
version 1.167, 2007/05/23 22:36:21
|
Line 391 sub start_customresponse {
|
Line 391 sub start_customresponse {
|
$safeeval,'answerdisplay'); |
$safeeval,'answerdisplay'); |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} elsif ($target eq 'answer' || $target eq 'grade') { |
} elsif ($target eq 'answer' || $target eq 'grade') { |
&Apache::response::reset_params(); |
&Apache::response::reset_params(); |
Line 499 sub start_mathresponse {
|
Line 498 sub start_mathresponse {
|
$safeeval,'answerdisplay','cas','args'); |
$safeeval,'answerdisplay','cas','args'); |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} elsif ($target eq 'answer' || $target eq 'grade') { |
} elsif ($target eq 'answer' || $target eq 'grade') { |
&Apache::response::reset_params(); |
&Apache::response::reset_params(); |
Line 677 sub start_responseparam {
|
Line 675 sub start_responseparam {
|
} |
} |
if ($constructtag) { |
if ($constructtag) { |
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
|
} |
} |
} elsif ($target eq 'grade' || $target eq 'answer' || $target eq 'web' || |
} elsif ($target eq 'grade' || $target eq 'answer' || $target eq 'web' || |
$target eq 'tex' || $target eq 'analyze' ) { |
$target eq 'tex' || $target eq 'analyze' ) { |
Line 1022 sub pick_foil_for_concept {
|
Line 1019 sub pick_foil_for_concept {
|
$Apache::response::conceptgroup{'names'}; |
$Apache::response::conceptgroup{'names'}; |
|
|
} |
} |
|
#------------------------------------------------------------ |
|
# |
|
# Get a parameter associated with a problem. |
|
# Parameters: |
|
# $id - the id of the paramater, either a part id, |
|
# or a partid and responspe id joined by _ |
|
# $name - Name of the parameter to fetch |
|
# $default - Default value for the paramter. |
|
# |
|
# |
|
# |
sub get_response_param { |
sub get_response_param { |
my ($id,$name,$default)=@_; |
my ($id,$name,$default)=@_; |
my $parameter; |
my $parameter; |