| # | Line 429 | Line 429 | sub make_xml() { | |
|---|---|---|
| 429 | $xmltemp .= &make_xml("$curlevel$curtag", $curline); | |
| 430 | } | |
| 431 | my($nextline) = $data[0]; chomp $nextline if defined $nextline; | |
| 432 | < | if((defined $nextline) && ($nextline =~ /^$curlevel$curtag/)) { |
| 432 | > | $curtag =~ s/(.*)\./$1/; |
| 433 | > | if((defined $nextline) && ($nextline =~ /^$curlevel$curtag\./)) { |
| 434 | $curline = ""; | |
| 435 | } | |
| 436 | else { | |
| 436 | – | $curtag =~ s/(.*)\./$1/; |
| 437 | $xmltemp = "<$curtag$attributes>$xmltemp</$curtag>" unless $curtag eq ""; | |
| 438 | return $xmltemp; | |
| 439 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |