version 1.52, 2003/05/13 20:48:12
|
version 1.53, 2003/06/04 23:04:34
|
Line 404 sub textarea_sizes {
|
Line 404 sub textarea_sizes {
|
my ($data)=@_; |
my ($data)=@_; |
my $count=0; |
my $count=0; |
my $maxlength=-1; |
my $maxlength=-1; |
foreach (split ("\n", $$data)) { $count++; |
foreach (split ("\n", $$data)) { |
if (length($_) > $maxlength) { $maxlength = length($_); } |
$count+=int(length($_)/79); |
} |
$count++; |
|
if (length($_) > $maxlength) { $maxlength = length($_); } |
|
} |
my $rows = $count; |
my $rows = $count; |
my $cols = $maxlength; |
my $cols = $maxlength; |
return ($rows,$cols); |
return ($rows,$cols); |