version 1.21, 2002/08/19 21:15:08
|
version 1.22, 2002/08/31 00:42:30
|
Line 205 sub savemap {
|
Line 205 sub savemap {
|
my ($fn,$errtext)=@_; |
my ($fn,$errtext)=@_; |
my %alltypes; |
my %alltypes; |
my %allvalues; |
my %allvalues; |
if (($fn=~/\.sequence$/) || |
if (($fn=~/\.sequence(\.tmp)*$/) || |
($fn=~/\.page$/)) { |
($fn=~/\.page(\.tmp)*$/)) { |
|
|
# ------------------------------------------------------------- Deal with input |
# ------------------------------------------------------------- Deal with input |
my @tags=split(/<&>/,$ENV{'form.output'}); |
my @tags=split(/<&>/,$ENV{'form.output'}); |