version 1.99, 2004/02/12 15:50:01
|
version 1.100, 2004/02/13 21:01:11
|
Line 485 sub bubbles {
|
Line 485 sub bubbles {
|
my ($result,$head,$line) =('','',''); |
my ($result,$head,$line) =('','',''); |
my $number_of_bubbles = $#opt + 1; |
my $number_of_bubbles = $#opt + 1; |
my $current_length = 0; |
my $current_length = 0; |
$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; |
|
} |
for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
my $leftmargin; |
my $leftmargin; |
if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} |
if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} |