Modifying the DCR

My requirement is while generating a dcr, I want to open another DCR and add a node to it. The Node would basically be a replicant addition to the existing dcr.
for instance,
I have a DCR x and I am generating an html x.html from it.
while generating the x.html, i also want to open an existing DCR y and add a node to a replicant. The replicant consists of DCR paths and so I want to add the path of DCR x to the DCR y as an item.

Please advise

Thanks

Teamsite 6.5
Unix

Find more posts tagged with

Comments

Adam Stoller

My requirement is while generating a dcr, I want to open another DCR and add a node to it. The Node would basically be a replicant addition to the existing dcr.
for instance,
I have a DCR x and I am generating an html x.html from it.
while generating the x.html, i also want to open an existing DCR y and add a node to a replicant. The replicant consists of DCR paths and so I want to add the path of DCR x to the DCR y as an item.

Please advise

Thanks

Teamsite 6.5
Unix

Read the perldoc on TeamSite::XMLnode - use Perl code within your PT - have fun. (it shouldn't be too difficult, but it may take a few tries to make sure you get it right)

stack_expected.jpg

stack_actual.jpg

new_report.rptdesign

script_to_round_off.txt

syal123

Please Help!!!!!

I tried the following code but does not work.

my $dcr = 'path to dcr';
my $xml = "";
if ( -e $dcr) {
open (DCR,$dcr);
while() {
$xml .=$_;
}
close(DCR);
}
# This condition checks to see if the dcr entry exists in the newsroom dcr and adds it if not present
if ($xml ne '') {
my $root = TeamSite: Smiley Very Happy

CRnode->new($xml);
my $rootxml = $root->get_inner_xml();
my $dcrName = iwpt_get_dcr_name(); #Retrieve the dcr Name
$dcrName =~ s|(.*/DEVELOPMENT)||;
if($rootxml !~ /<News Release>$dcrName<\/News Release>/){
my $tmp = "<Newsroom><News Release>".$dcrName."</News Release></Newsroom>";
$rootxml =~ s|(<Page Content>)(.*)(</Page Content>)|$1$2$tmp$3|;
$root->set_inner_xml($rootxml);
}
my $mod_dcr = $root->get_dcr();
iwpt_output($mod_dcr);
}
The $mod_dcr is blank. Please suggest what to do. I have tried many things but none work.

Thanks

syal123

Here is the DCR

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE record SYSTEM "dcr4.5.dtd">
<record name='newsroom' type='content'>
<item name="Page Content">
<value>
<item name="Page Title Image">
<value>/us/wce/GIF/1251_home_title.gif</value>
</item>
<item name="Page Title Alt Text">
<value>Home</value>
</item>
<item name="Subtitle">
<value>View all current news releases</value>
</item>
<item name="Newsroom">
<value>
<item name="News Release">
<value>/templatedata/styleguide_v5.0/press_release/data/literacy_prog</value>
</item>
</value>
<value>
<item name="News Release">
<value>/templatedata/styleguide_v5.0/press_release/data/healthcare</value>
</item>
</value>
<value>
<item name="News Release">
<value>/templatedata/styleguide_v5.0/press_release/data/antitrust_concerns</value>
</item>
</value>
</item>
</value>
</item>
</record>

Migrateduser

if($rootxml !~ /$dcrName<\/News Release>/){

You are using regular expression on a TeamSite: Smiley Very Happy

CRnode object which is not a string.

See perldoc TeamSite:CRnode for examples how to use the xml node object.

CrosstabPageBreakNoRepeatGrpHdr.rptdesign

Adam Stoller

Please Help!!!!!

I tried the following code but does not work.

my $dcr = 'path to dcr';
my $xml = "";
if  ( -e $dcr) {
 open (DCR,$dcr);
   while(<DCR>) {
        $xml .= $_;
   } 
 close(DCR);
}

# This condition checks to see if the dcr entry exists in the newsroom dcr and adds it if not present
if ($xml ne '') {
 my $root = TeamSite:CRnode->new($xml);
 my $rootxml = $root->get_inner_xml();
 my $dcrName = iwpt_get_dcr_name(); #Retrieve the dcr Name
      $dcrName =~ s|(.*/DEVELOPMENT)||;
 if($rootxml !~ /<News Release>$dcrName<\/News Release>/){
  my $tmp = "<Newsroom><News Release>".$dcrName."</News Release></Newsroom>";
  $rootxml =~ s|(<Page Content>)(.*)(</Page Content>)|$1$2$tmp$3|;
  $root->set_inner_xml($rootxml);
 }
 my $mod_dcr = $root->get_dcr();
 iwpt_output($mod_dcr);
}

The $mod_dcr is blank. Please suggest what to do. I have tried many things but none work.

Thanks

As I do not have an environment in which to try to replicate your issue - I can only tell you what I see as being potentially problematic in the above (mostly highlighted):

That's probably enough for you to chew on for now - keep plugging away at it - I think you're close, but just making a few wrong turns in your code.

syal123

Ok I tried all that you suggested to do but still no use.

You should consider using a different delimiter for your pattern matching if part of the pattern is going to contain the character ('/') that you're currently using ------ I get an error if I use anything else. so I have to stick with / but in any case the loop gets excecuted. so there is no issue with that pattern matching.

Here is the output of this code
if($rootxml !~ /<NewsRelease>$dcrName<\/NewsRelease>/){
my $tmp = "<Newsroom><News Release>".$dcrName."</News Release></Newsroom>";
$rootxml =~ s|(<Newsroom>)(.*)(</Newsroom>)|$1$2$3$tmp|;
iwpt_output($rootxml);
}
The othput is what it needs to be so no error there either

<PageContent><PageTitleImage>/us/wce/GIF/1251_home_title.gif</PageTitleImage><PageTitleAltText>Home</PageTitleAltText><Subtitle>View all current NewsReleases</Subtitle><Newsroom><NewsRelease>/templatedata/styleguide_v5.0/press_release/data/literacy_prog</NewsRelease></Newsroom><Newsroom><NewsRelease>/templatedata/styleguide_v5.0/press_release/data/healthcare</NewsRelease></Newsroom><Newsroom><NewsRelease>/templatedata/styleguide_v5.0/press_release/data/antitrust_concerns</NewsRelease></Newsroom><Newsroom><News Release>/templatedata/styleguide_v5.0/press_release/data/test4match</News Release></Newsroom></PageContent>

Please suggest.

Thanks

Adam Stoller

Ok I tried all that you suggested to do but still no use.
You should consider using a different delimiter for your pattern matching if part of the pattern is going to contain the character ('/') that you're currently using
------ I get an error if I use anything else. so I have to stick with / but in any case the loop gets excecuted. so there is no issue with that pattern matching.

I didn't say it would cause an error - I said it makes the code harder to read - and you can use any delimiter you want assuming you preface it with the m charater to indicate as much - i.e. - instead of:

if ($rootxml !~ /<aaa>bbb<\/aaa>/){ ... }

try:

if ($rootxml !~ m|<aaa>bbb</ccc>|){ ... }

Here is the output of this code
if($rootxml !~ /<NewsRelease>$dcrName<\/NewsRelease>/){
my $tmp = "<Newsroom><News Release>".$dcrName."</News Release></Newsroom>";
$rootxml =~ s|(<Newsroom>)(.*)(</Newsroom>)|$1$2$3$tmp|;
iwpt_output($rootxml);
}

Did you change the DCT to get rid of the spaces in the item and container names? Did you create a new DCR from the new DCT (or edit the DCR code manually to make the same changes)? It's difficult to tell from the above since some of it seems to show the change I recommended and some of it doesn't.

The othput is what it needs to be so no error there either
[...]

Are you sure? Based on what you posted before - it looks to me like a Newsroom container element contains multiple "News Release" items - but what your regex does, and what you show as being the "correct" output shows multiple Newsroom elements - each with only a single "News Release" element. (you should consider using "xml" style DCTs/DCRs over "iwov" style - it provides for more standardized formatting of the DCR content which then makes it easier to manipulate with standardized tools and utilities)

I still think you need to change the name of the variable you are using (to something other than [just]

$dcr

)

Since I don't have the environment to use for testing out my hypotheses and provide you a solution (for free) you're just going to have to keep working on it yourself. I suggest you spend some "quality time" on it before responding - add some additional debugging statements to get a feel for what's breaking where, etc.

syal123

Thanks fish and everyone else who responded for all the suggestions.

By The way fish, my program works now. I had already spent a lot of time trying to figure out what the possible issue is so i did something else.

Just so that someone else can use the logic if needed in same situation as mine, this is what I did.
if ($xml ne '') {
my $dcrName = iwpt_get_dcr_name(); #Retrieve the dcr Name
$dcrName =~ s|^.*/DEVELOPMENT||;
my $root = TeamSite: Smiley Very Happy

CRnode->new($xml,'dcr');
my $rootxml = $root->get_dcr();
$rootxml =~ s!\n!!g;
$rootxml =~ s!>\s*<!><!g;
if($rootxml !~ /<value>$dcrName<\/value>/){
my $tmp = '<value><item name="News Release"><value>'.$dcrName.'</value></item></value>';
$rootxml =~ s!(<item name="Newsroom">)(.*)(</item></value></item>)!$1$2$tmp$3!;
}
open (DCR,">$dcr") || die "Error";
print DCR $rootxml;
close DCR;
}