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

perl equivalent of <iw_iterate...

Strider · 2004-01-10T22:45:19+00:00

Hi all, Is it possible to write this in Perl <iw_case…

Strider

Hi all,

Is it possible to write this in Perl

<iw_iterate list='dcr.Promotions area.Column' var='ffSect' iteration='columnCount'>

<iw_iterate list='ffSect.Section.*' var='section' iteration='sectionCount'>

<iw_ifcase name='section'>
<iw_case type='Text heading'>
<iw_perl><![CDATA[

]]></iw_perl>
</iw_case>
<iw_case type='Image heading'>
<iw_perl><![CDATA[

]]></iw_perl>
</iw_case>
<iw_case type='Image heading'>
<iw_perl><![CDATA[

]]></iw_perl>
</iw_case>

</iw_ifcase>

</iw_iterate>

</iw_iterate>

e.g.

@arrayColumnData = iwpt_dcr_list('dcr.Promotions area.Column');

foreach $column( @arrayColumnData ){

@sections = iwpt_dcr_list('$column.Section.*');

foreach $section( @sections ){

# code to handle each section whether it be
# a Text heading
# or image heading
# or Drop Down list

}

}

Any help appreciated
Thank You
Colin

Find more posts tagged with

Comments

gzevin

Colin,

read the iw_perl documentation on your server:

http://server-name/iw/help/tst/pt/TeamSite__PT__iw_perl.html

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

Strider

Greg thank you for replying, I do read the documentation before posting and can't find the perl equivalent to my code.

I'd rather you didn't answer at all if all your going to do is tell me to read the documentation. Give me the benefit of the doubt.

Maybe someone else can answer my post.

Regards
Colin

gzevin

Colin,

your question was to find a perl equivalent of the iw_iterate tag, as I got from the topic ('perl equivalent of <iw_iterate...') . It IS in the documentation of iw_perl, where Jon **** has detailed the equivalence of a iw_iterate tag and perl's 'for' loop.

If your question was about usage of iw_case tags, it's a different story and I would still reccommend you to use those tags, even if you decide to write 'for' instead of iw_iterate.

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

Strider

Sorry the subject should have been more specific, In my post I included my code example where I have coded the perl for loop it was a perl equivalent for the iw-case tag I was looking for.

My code works I just wanted to tidy it up by doing it all in PERL.

Thanks Greg
Colin

Adam Stoller

I think that you would have to make use of the TeamSite: Smiley Very Happy

CRnode or TeamSite::XMLnode functions in order to code the perl-equivalent of the tags. I think it would look something like this:

use TeamSite::XMLnode;
my $dcr = iwpt_get_dcr_name();
my $xml = '';
if (open(IN, "<$dcr")){
    local $/;
    $xml = <IN>;
    close(IN);
}
else {
    die " '$dcr' ($!)";
}
my $rootnode = TeamSite::XMLnode->new($xml);
foreach my $ffSect ($rootnode->get_node_list('Promotions area.Column')){
    foreach my $section ($ffSect->get_node_list('Section.*')){
        my $type = $section->get_attrib('name');
        if ($type eq "Text heading"){
# ...
        }
        elsif ($type eq "Image heading"){
# ...
        }
# you had 'Image heading' listed twice?
    }
}

Hope that helps.

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

Strider

Thanks Fish, works like a treat.

Cheers
Colin