… | … | ||
---|---|---|---|
55 | my $dbh = $self->{dbh}; | 55 | my $dbh = $self->{dbh}; |
56 | 56 | ||
57 | my $did = 55; | 57 | my $did = 55; |
58 | my $max = 1 + sql_fetch $dbh, "select max(l) from node"; | 58 | my $max = 1 + sql_fetch $dbh, "select max(l) from node"; |
59 | 59 | ||
60 | my $n = $max + 1; | 60 | my $n = $max; |
61 | 61 | ||
62 | my @l; | 62 | my @l; |
63 | my @attr; | 63 | my @attr; |
64 | 64 | ||
65 | new XML::Parser | 65 | new XML::Parser |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |