nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Relicant from dct

pammi

Hi,

I have below perl code to read dcr and update corresponding field through perl script.

my $parser = new XML: Smiley Very Happy

OM:

arser;
$ddoc = $parser->parsefile("$dcr");
my $nodes = $ddoc->getElementsByTagName ("item");

for (my $i = 0; $i < $nodes->getLength; $i++) {

my $node = $nodes->item ($i);
my $href = $node->getAttributeNode("name");
my $name = $href->getValue;

print LOG "name : $name \n";

if($name eq "Title"){
my $values = $node->getElementsByTagName ("value");
if($values->getLength < 1){
next;
}

my $value = $values->item(0);
my $textn = $value->getFirstChild;
my $tt = $textn->getData;
$tt = $tt."update";
$textn->setData($tt);

}

Above script it not working i try read replication like below

<item name="DF">
<replicant min="0" max="20">
<item name="dfile">
<label>Files</label>
<description>Please select a val file</description>
<browser required="f" ceiling-dir="/repository/Documents/" initial-dir="/repository/Documents/" size="70"/>
</item>
<item name="filename">
<text size="20">
</text>
</item>
</replicant>
</item>

Above script is working fine i have item like below with out replicants

<item name="Title">
<text size="20">
</text>
</item>

Thanx in advance

Find more posts tagged with

Comments

kshitiz

Hi Pammi,

I guess you should use TeamSite: Smiley Very Happy

CRnode to do the required changes.

There are methods like get_inner_xml and set_inner_xml to modify the DCRs. You can go through the documentation for the package

at

https://support.interwoven.com/library/perldocs/perldocs.asp

Kshitiz Sharma
BT Wholesale | CMS
Mahindra British Telecom

Adam Stoller

From my recent experience - TeamSite: Smiley Very Happy

CRnode's get/set_inner_xml() methods do not work well with replicant containers (I'll be happy to be shown otherwise) - instead you end up having to use a combination of those methods with regex's and finally the get_dcr() method to modify the contents of a replicant container.

The code I used went something like this:sub whatever{
my $dcr = shift;
my $newentry = qq[<DF>
<dfile>/repository/Documents/....</dfile>
<filename>some text</filename>
</DF>];
my $dcrtxt = '';
open(IN, "<$dcr") || die " '$dcr' ($!)";
{
local $/;
$dcrtxt = <IN>;
}
close(IN);
my $rootnode = new TeamSite: Smiley Very Happy

CRnode($dcrtxt);
my $xml = $rootnode->get_inner_xml();
$xml =~ s/(<DF>)/$newentry$1/;
$rootnode->set_inner_xml($xml);
open(OUT, ">$dcr") || die " '$dcr' ($!)";
print OUT $rootnode->get_dcr();
close(OUT);
}But it depended on the PT taking care of sorting the replicants for presentation so I don't have to worry about inserting the new entry in any specific location within the replicant container -- otherwise the code would become a lot messier.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

nagendra

Hi,

I faced some problems in using set_inner_xml for the item names with spaces,

<item name="prop with space">
<value>someValue</value>
</item>

so I am trying to deal the issue with XML: Smiley Very Happy

OM rather than TeamSite: Smiley Very Happy

CRnode.

-nagendra

Terra.zip

Adam Stoller

That kind of makes sense because an item with spaces in its name attribute in dcr-form becomes an element with spaces in its name in XML-form -- and that's not legal.

I.e. [DCR] <item name="name with space"><value>hello world</value></item>
becomes [XML] <name with space>hello world</name with space>which isn't legal XML.

You should try to always use simple item names without spaces and use label elements to provide more user-friendly names - e.g.
[DCT] <item name="namespace"><label>Name with Space</label><text .../></item>Comprende?

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

pammi

Thanks for all your replies