version 1.92, 2002/07/02 21:57:38
|
version 1.93, 2002/07/04 17:51:32
|
Line 1476 sub tmpread {
|
Line 1476 sub tmpread {
|
my $value=<$fh>; |
my $value=<$fh>; |
chomp($value); |
chomp($value); |
$fo{$name}=$value; |
$fo{$name}=$value; |
$countrows++; |
if ($name=~/^A(\d+)$/) { |
|
if ($1>$countrows) { |
|
$countrows=$1; |
|
} |
|
} |
} |
} |
} |
} |
if ($nform eq 'changesheet') { |
if ($nform eq 'changesheet') { |
Line 1485 sub tmpread {
|
Line 1489 sub tmpread {
|
$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield}; |
$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield}; |
} |
} |
} elsif ($nfield eq 'insertrow') { |
} elsif ($nfield eq 'insertrow') { |
|
$countrows++; |
if ($nform eq 'top') { |
if ($nform eq 'top') { |
$fo{'A'.$countrows}='AAAAA_'.$countrows; |
$fo{'A'.$countrows}='AAAAA_'.$countrows; |
} else { |
} else { |