Setting the value in a DCR

Hey there,

We have a requirement in which we have to set the value of a particular item in a dcr inside a perl script.

We tried using XML: Smiley Very Happy

om's set data method for the same; but whilst it works fine the changes do not reflect in the file. i.e.: it sets the data for the record in memory but does not write back to the file.

Any valuable suggestion on this would be of a great help

Find more posts tagged with

Comments

Adam Stoller

Hey there,

We have a requirement in which we have to set the value of a particular item in a dcr inside a perl script.

We tried using XML:om's set data method for the same; but whilst it works fine the changes do not reflect in the file. i.e.: it sets the data for the record in memory but does not write back to the file.

Any valuable suggestion on this would be of a great help

Search the forums - this has been posted about before (check the Perl forum as well). If you cannot find the solution through the search results - post your code.

kaalraa

Hey there,

We have a requirement in which we have to set the value of a particular item in a dcr inside a perl script.

We tried using XML:om's set data method for the same; but whilst it works fine the changes do not reflect in the file. i.e.: it sets the data for the record in memory but does not write back to the file.

Any valuable suggestion on this would be of a great help

Could you please study about TeamSite: Smiley Very Happy

CRNode or else post you code as an attachment.

maitri

my $parser=new XML: Smiley Very Happy

OM:

arser;
my $dcr_doc=$parser->parsefile($dcrpath);

my $dcr_items = $dcr_doc->getElementsByTagName('item');
my @ChildRecords;
my $childRecordCount;
for my $i (0..$dcr_items->getLength-1) {
my $dcr_item=$dcr_items->item($i);
my $dcr_item_name = $dcr_item->getAttribute("name");

if(($dcr_item_name eq $contentRecordName))
{
# drill down to the tag
my $dcr_item_child = $dcr_item->getFirstChild;
# get down to the text we want to extract
my $dcr_text_node = $dcr_item_child->getFirstChild if defined $dcr_item_child;
if (defined ($dcr_text_node))
{
if (( $dcr_text_node->getNodeType == TEXT_NODE) ) {

#************ Read the DCR Name from the Master **********************
$ChildRecords[$childRecordCount] =$dcr_text_node->getData();
debug("The child record selected is:$ChildRecords[$childRecordCount]");
$childRecordCount=$childRecordCount+1;

$dcr_text_node->setData("Sample");

}
}
}

}
Here i am able to set the data but it does not get reflected in the file. ALso went through dcr node but the parsing did not work with that

kshitiz

You are just updating the values in your XML: Smiley Very Happy

OM object created in your perl script. You have to save the modified xml.
I would suggest you use DCRNode or XMLNode. This thread might give you some idea: http://devnet.interwoven.com/forums_vb/showthread.php?t=5404&forumid=13