version 1.129, 2004/02/13 15:09:52
|
version 1.131, 2004/02/13 21:12:54
|
Line 392 sub get_table_sizes {
|
Line 392 sub get_table_sizes {
|
if ($cell_width_real>$cell_width) {$cell_width=$cell_width_real;} |
if ($cell_width_real>$cell_width) {$cell_width=$cell_width_real;} |
} |
} |
$cell_width+=8; |
$cell_width+=8; |
$ENV{'form.textwidth'}=~/(\d+)/; |
my $textwidth; |
my $textwidth=$1; |
if ($ENV{'form.textwidth'} ne '') { |
|
$ENV{'form.textwidth'}=~/(\d+)/; |
|
$textwidth=$1; |
|
} else { |
|
$ENV{'textwidth'}=~/(\d+)/; |
|
$textwidth=$1; |
|
} |
my $bubbles_per_line=int($textwidth/$cell_width); |
my $bubbles_per_line=int($textwidth/$cell_width); |
my $number_of_tables = int($number_of_bubbles/$bubbles_per_line); |
my $number_of_tables = int($number_of_bubbles/$bubbles_per_line); |
my @table_range = (); |
my @table_range = (); |
Line 529 sub start_stringresponse {
|
Line 535 sub start_stringresponse {
|
[['inline','Inline']],$token); |
[['inline','Inline']],$token); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
&Apache::edit::get_new_args($token,$parstack, |
my $constructtag; |
$safeeval,'answer','type'); |
$constructtag=&Apache::edit::get_new_args($token,$parstack, |
my $answerdisplay=$ENV{'form.'.&Apache::edit::html_element_name('answerdisplay')}; |
$safeeval,'answer', |
if ($answerdisplay) { |
'type','answerdisplay'); |
$token->[2]->{'answerdisplay'}=$answerdisplay; |
if ($constructtag) { |
} else { |
$result = &Apache::edit::rebuild_tag($token); |
delete $token->[2]->{'answerdisplay'}; |
$result.=&Apache::edit::handle_insert(); |
} |
} |
$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(); |
} |
} |