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; } } }

Checking other Data Types in a PT

dlsoderberg

Greetings all!

I have a situation where my final output page is a JHTML file that pulls in the output from 2 separate DCRs of 2 separate data types. So, the content is supplied from:

- templatedata/dir1/template1/data
- templatedata/dir2/template2/data

Each of those DCRs generates its own JHTML output file that gets incorporated into the final page. Both of these DCRs contain the same type of information about stores that sell a product. The difference is, one template is used for the primary stores (displays a larger image on the site) while the other is for the remaining retailers (smaller image on the site). In some cases, both DCRs could contain information about the same store. The information in each DCR is read into an array and then there is code that randomizes the order in which they appear on the site so that one store doesn't appear any more important than another. What I need to do is perform a check on one of the PTs, that checks the other DCR to see if the store that is processing exists in the other DCR. If it does, skip it and go to the next. Is there a way to check another data type's DCR from the PT?

An example:

If template1 contains information about stores 1,2,3,4,5 and 6, and template2 contains information about stores 1,2,3,4,5,6,7,8,9,10,11,12 and 13, then the resulting page would show stores 1-6 for template1, but the processing in template2 should strip those out and only display 7,8,9,10,11,12 and 13. Does that make sense?

Thanks in advance for any help.

Find more posts tagged with

Comments

gzevin

yes it is possible.

for the details have a look at the documentation at

<your server name>/iw/help/tst/pt/TeamSite__DCRnode.html

The module you'll use is callled TeamSite: Smiley Very Happy

CRnode

Greg Zevin, Ph.D. Comp. Sc.
Independent Interwoven Consultant/Architect
Sydney, AU

dlsoderberg

Thanks for pointing me to the documentation.

Does anyone out there have any kind of code sample for what I am trying to do. I'm looking at the documentation for TeamSite: Smiley Very Happy

CRNode and I can see what they're doing with it in the examples. I'll assume I need to do the following:

ADD use TeamSite: Smiley Very Happy

CRNode;

open the other DCR I need to check values in by adding:
my $otherdcr = "../../whereToBuyRandom/data/whereToBuyRandom1";
$rootnode = TeamSite: Smiley Very Happy

CRNode->new($otherdcr);

From there I would need to use a Foreach statement or something similar to check all of the replicant values for a field.

Am I on the right path with this? Thanks again for any help that's offered.

Adam Stoller

TeamSite:

CRnode->new() takes an XML string - not an XML file as an argument - which means you first have to slurp the XML file into a string in memory and then use DCRnode->new() on that. E.g.#!.../iwperl -w
use strict;
use TeamSite: Smiley Very Happy

CRnode;
...
my $otherdcr = "../../whereToBuyRandom/data/whereToBuyRandom1";
my $xml = '';
if (open(IN, "<$otherdcr")){
local $/;
$xml = <IN>;
close(IN);
}
else {
# error opening DCR ...
}
my $rootnode = TeamSite: Smiley Very Happy

CRnode->new($xml);
...

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

gzevin

I do';t have time at the moment, so, unlike Fish, I will just dump a snippet from the code that makes use of this module.

foreach my $package_dcr (@packages) {
open (DCR,"<$package_dcr->[0]") or warn "could not open $package_dcr->[0]";
print DEBUG "span $package_dcr->[1]\n";
my @dcr = <DCR>;
close DCR;
my $xml_string=join("",@dcr);
my $rootnode = TeamSite: Smiley Very Happy

CRnode->new($xml_string);
my $deptCityCode = $rootnode->value('deptCityCode');
my $destCityCode = $rootnode->value('destCityCode');
my $packageName = $rootnode->value('packageName');
my $pageFileName = $rootnode->value('detailsFields[0].pageFileName');
my $firstLine = $rootnode->value('detailsFields[0].firstLine');
my $pageType = $rootnode->value('detailsFields[0].pageType');
my $url_type = ($pageType eq 'Destination') ? 'destination' : 'event';
my @iconTips_1 = $rootnode->get_node_list('detailsFields[0].iconTip');
my @iconTips;
for (@iconTips_1) {
push (@iconTips,$_->value());
}
my $lcdestCityCode = lc $destCityCode;
my $lcdeptCityCode = lc $deptCityCode;
my $package_url = '/content/dyn/holidays/'. $url_type .'/' .$lcdestCityCode . '/departing/' . $lcdeptCityCode . "\/$pageFileName";
my @features = $rootnode->get_node_list('feature');
my $pricesCorrect = '';
my $travelDates='';
my $offerEnds='';
for (@features) {
my @nodes = $_->get_node_list();
for my $node (@nodes) {
$pricesCorrect = $node->value('pricesCorrect'),"\n" if $node->type() eq 'mandatoryFields' ;
$travelDates = $node->value('travelDates'),"\n" if $node->type() eq 'mandatoryFields' ;
$offerEnds =$node->value('offerEnds'),"\n" if $node->type() eq 'mandatoryFields' ;
}
}

Greg Zevin, Ph.D. Comp. Sc.
Independent Interwoven Consultant/Architect
Sydney, AU

dlsoderberg

Can I use the call below as an alternative to using the Perl library?

<iw_load_dcr var='rand' file='templatedata/whereToBuyRandom/data/whereToBuyRandom' mode='dcrlocal'/>

Dwayne

This is off the top of my head, but I think that 'dcrlocal' isn't what you want. I think that 'docroot' is more appropriate, but, as I said, I'm not actually checking the documentation, and I haven't used it recently, so my memory is suspect.

But in the original post you also mentioned a requirement to eliminate duplicates. How are you going to handle that in this instance? Not that it can't be done, but I think it will be somewhat cumbersome without breaking out into some Perl.

--

Current project: TS 5.5.2/6.1 W2K

dlsoderberg

OK, this worked to open the DCR.

<iw_load_dcr var='random' file='../../whereToBuyRandom/data/whereToBuyRandom' mode='dcrlocal'/>

Now, I have a field that I need to check against a field in the current DCR that I'm generating to see if they match. Can I just use the <iw_iterate> to loop through all of the replicants in my 'random' DCR that I open?

Here is what's going on in the PT...

<iw_iterate var="sl" list="dcr.Small Logo Area"><iw_perl><![CDATA[
my $imgname = iwpt_dcr_value("sl.Small Logo Image Name");
]]><iw_load_dcr var='random' file='../../whereToBuyRandom/data/whereToBuyRandom' mode='dcrlocal'/>

So I need to see if $imgname matches this field: <iw_value name="random.Large Logo Area.Large Logo Image Name"/>; in the 'random' DCR. I'm just not sure if I use another iterate tag if it will refer to the random DCR or the current DCR I'm generating.

Dwayne

Something like this might work:

<iw_load_dcr var='random' file='../../whereToBuyRandom/data/whereToBuyRandom' mode='dcrlocal'/>
<iw_iterate var="sl" list="dcr.Small Logo Area">
  <iw_perl>
   <![CDATA[
    my $imgname = iwpt_dcr_value("sl.Small Logo Image Name"); 
    my $skip = 0;
   ]] >
  </iw_perl>
  <iw_iterate var='ll' list='random.Large Logo Area'>
    <iw_if expr='($imgname eq iwpt_dcr_value("ll.Image Name")'>
      <iw_then>
       <iw_perl>
        $skip = 1;
       </iw_perl>
     </iw_then>
    </iw_if>
  </iw_iterate>
  <iw_if expr='(!$skip)'>
    <iw_then>
       do something here because we shouldn't skip the image
    </iw_then>
  </iw_if>
</iw_iterate>

Notice that I also pulled the <iw_load_dcr> tag outside of the <iw_iterate>. No sense loading it over and over again

--

Current project: TS 5.5.2/6.1 W2K

dlsoderberg

Thanks DAB! I've got all of your code sample merged with my existing code and I'm getting a wonderful 'Could not process template...' error. I'll just have to keep trying to debug it, but here is what I've got. If you see anything glaring, please reply back. Otherwise, thanks a lot for all your (and everyone's) help on this one.

<iw_perl><![CDATA[
my @array = ();
]]></iw_perl>
<iw_load_dcr var='random' file='../../whereToBuyRandom/data/whereToBuyRandom' mode='dcrlocal'/>
<iw_iterate var="sl" list="dcr.Small Logo Area">
<iw_perl>
<![CDATA[
my $imgname = iwpt_dcr_value("sl.Small Logo Image Name");
my $skip = 0;
]]>
</iw_perl>
<iw_iterate var='ll' list='random.Large Logo Area'>
<iw_if expr='($imgname eq iwpt_dcr_value("ll.Image Name")'>
<iw_then>
<iw_perl>
$skip = 1;
</iw_perl>
</iw_then>
</iw_if>
</iw_iterate>
<iw_if expr='(!$skip)'>
<iw_then><iw_perl><![CDATA[
push(@array, qq("$imgname"));
]]></iw_perl></iw_then>
</iw_if>
</iw_iterate>

<iw_perl><![CDATA[

iwpt_output("//read in and randomize stores\n String[] stores1 = {" . join(",", @array) . "};\n");

Dwayne

The only thing "glaring" that I saw in your example is that you aren't closing the <[CDATA[ block or the <iw_perl> tag at the end of the code, but I'm sort of figuring that's a typo here, rather than in the actual code.

Other than that, I suggest you run iwpt_compile.ipl manually against your PT and primary DCR, and specify the -ocode flag, rather than the -ofile flag. Then you can run the generated perl script, and it should give you a better idea where the error is.

It's entirely possible that there was a syntax error in what I gave you - I typed it in directly to the posting window - I didn't actually test it.

--

Current project: TS 5.5.2/6.1 W2K

dlsoderberg

Unfortunately, here at my present project I am not able to log onto the TS server to run iwpt_compile.tpl. I think I've narrowed my problem down to the following if statement:

<iw_if expr='($imgname eq iwpt_dcr_value("ll.Large Logo Image Name")'>

If I cut the is statement completely out of my code, I compile correctly.

Dwayne

That's probably because there's a bug in it. Try this instead:

<iw_if expr='($imgname eq iwpt_dcr_value("ll.Large Logo Image Name"))'>

I'm certain the bug was in what I originally typed - I'm notorious for leaving off closing parens.

Current project: TS 5.5.2/6.1 W2K

dlsoderberg

I found the exact error just now! I do that a lot as well...probably why I didn't catch it right away!!

Thanks again for all your help, it's now working perfectly!!