set_inner_xml

kellyrmilligan

I have the following code snippet, used to get a field from a dcr, look at the value, and substitute a string for another, and set the value in the dcr:

my $xml;
my $rootnode;
$xml = "";
if (open(DCR, "<$dcrlocation"))
{ local $/;
$xml = <DCR>;
close(DCR);
}else
{
logthis "could not open $dcrlocation\n";
}
$rootnode = TeamSite::XMLnode->new($xml);
my $TITLE1 = $rootnode->get_inner_xml('TITLE1');
my $FILE1 = $rootnode->get_inner_xml('FILE1');
logthis "file1 is currently $FILE1\n";
$FILE1 =~ s/policies\/dme/medpolicies\/dmequipment/g;
logthis "file1 is now $FILE1\n";
$rootnode->set_inner_xml('FILE1', $FILE1);
my $test = $rootnode->get_inner_xml('FILE1');
logthis "rootnode call is $test\n";

It appears to be working perfectly, except that the value is not getting updated. all the calls to logthis give me the correct values to be set, but it is not putting it into the file, any ideas?

LooseCannon

I've never used TeamSite::XMLnode, but it looks like you just need to write the new XML file out after the fields have been updated.

Something like:

open (WRITEFILE, ">$dcrlocation") or die "Failed to open $dcrlocation, $!";
print WRITEFILE $xml;
close WRITEFILE;