254 |
|
|
255 |
my $swishpath = $path."#".int($row->{mfn}); |
my $swishpath = $path."#".int($row->{mfn}); |
256 |
|
|
257 |
if (my $xml = $cp2utf->convert(isis2xml($row,$add_xml."<path>$swishpath</path>"))) { |
if (my $xml = isis2xml($row,$add_xml)) { |
258 |
|
$xml = $cp2utf->convert($xml); |
259 |
use bytes; # as opposed to chars |
use bytes; # as opposed to chars |
260 |
print "Path-Name: $swishpath\n"; |
print "Path-Name: $swishpath\n"; |
261 |
print "Content-Length: ".(length($xml)+1)."\n"; |
print "Content-Length: ".(length($xml)+1)."\n"; |