version 1.93, 2002/07/04 17:51:32
|
version 1.94, 2002/07/04 20:09:31
|
Line 1490 sub tmpread {
|
Line 1490 sub tmpread {
|
} |
} |
} elsif ($nfield eq 'insertrow') { |
} elsif ($nfield eq 'insertrow') { |
$countrows++; |
$countrows++; |
|
my $newrow=substr('000000'.$i,-7); |
if ($nform eq 'top') { |
if ($nform eq 'top') { |
$fo{'A'.$countrows}='AAAAA_'.$countrows; |
$fo{'A'.$countrows}='--- '.$newrow; |
} else { |
} else { |
$fo{'A'.$countrows}='zzzzz_'.$countrows; |
$fo{'A'.$countrows}='~~~ '.$newrow; |
} |
} |
} else { |
} else { |
if ($nfield) { $fo{$nfield}=$nform; } |
if ($nfield) { $fo{$nfield}=$nform; } |