version 1.467, 2007/10/24 10:06:22
|
version 1.469, 2007/11/13 22:16:10
|
Line 377 sub xmlparse {
|
Line 377 sub xmlparse {
|
$finaloutput .= join('',@script_var_displays); |
$finaloutput .= join('',@script_var_displays); |
undef(@script_var_displays); |
undef(@script_var_displays); |
} |
} |
|
&init_state(); |
if ($env{'form.return_only_error_and_warning_counts'}) { |
if ($env{'form.return_only_error_and_warning_counts'}) { |
return "$errorcount:$warningcount"; |
return "$errorcount:$warningcount"; |
} |
} |
Line 659 sub setup_globals {
|
Line 659 sub setup_globals {
|
&init_counter(); |
&init_counter(); |
&clear_bubble_lines_for_part(); |
&clear_bubble_lines_for_part(); |
&init_state(); |
&init_state(); |
|
&set_state('target',$target); |
@Apache::lonxml::pwd=(); |
@Apache::lonxml::pwd=(); |
@Apache::lonxml::extlinks=(); |
@Apache::lonxml::extlinks=(); |
@script_var_displays=(); |
@script_var_displays=(); |
Line 1148 sub store_counter {
|
Line 1149 sub store_counter {
|
|
|
=pod |
=pod |
|
|
=item bubble_lines_for_part(response_id) |
=item bubble_lines_for_part(part_response) |
|
|
Returns the number of lines required to get a response for |
Returns the number of lines required to get a response for |
$part_response (this is just $Apache::lonxml::counters_per_part{$part_response} |
$part_response (this is just $Apache::lonxml::counters_per_part{$part_response} |
Line 1182 sub clear_bubble_lines_for_part {
|
Line 1183 sub clear_bubble_lines_for_part {
|
|
|
=pod |
=pod |
|
|
=item set_bubble_lines(response_id, value) |
=item set_bubble_lines(part_response, value) |
|
|
If there is a problem part, that for whatever reason |
If there is a problem part, that for whatever reason |
requires bubble lines that are not |
requires bubble lines that are not |