checking for items existence

DrHyper

Hi
Im having a problem in my tpl figuring out whether the item procesnotitsbar(a replicant with combination="or") contains a procesbar or a notitsbar.
here's a snippet:
-----------------------------------------------------------------------

<iw_perl><![CDATA[
 $bundbartype = "empty";
]]></iw_perl>
<iw_if expr='defined {iw_value name="dcr.bundbar.procesnotitsbar.procesbar"/}'>
 <iw_then>
  <iw_perl><![CDATA[
   $bundbartype = "procesbar";
  ]]></iw_perl>
 </iw_then>
</iw_if>
<iw_if expr='defined {iw_value name="dcr.bundbar.procesnotitsbar.notitsbar"/}'>
 <iw_then>
  <iw_perl><![CDATA[
   $bundbartype = "notitsbar";
  ]]></iw_perl>
 </iw_then>
</iw_if>
<bundbar type="{iw_value name='$bundbartype'/}">
 <iw_if expr="$bundbartype eq procesbar ">
  <iw_then>...........................

 <iw_if expr="$bundbartype eq notitsbar ">
  <iw_then>...........................

-----------------------------------------------------------------------
$bundbartype allways equals notitsbar <-- my problem
...btw: any suggestions to write the conditions in Perl only?
here's the relevant code snippet from my datacapture.cfg:

<container name="bundbar">
 <item name="procesnotitsbar">
 <replicant min="0" max="1" default="0" combination="or">

  <container name="procesbar">
   <item name="overskrift">
    <label>Overskrift</label>
    <text required="t" maxlength="200" size="50"/>
   </item>

   <item name="pickliste">
    <replicant min="3" max="3" default="3">
     <item name="omraader">
      <replicant min="1" max="6" default="1">
       <item name="titel">
        <text required="t" maxlength="200" size="50"/>
       </item>
       <item name="link">
        <text required="t" size="50"/>
       </item>
       <item name="underomraader">
        <replicant min="1" max="10" default="1">
         <item name="titel">
          <text required="t" maxlength="200" size="50"/>
         </item>
         <item name="link">
          <text required="t" size="50"/>
         </item>
        </replicant>
       </item>
      </replicant>
     </item>
    </replicant>
   </item>
  </container>

  <container name="notitsbar">
   <item name="notits">
    <replicant min="3" max="3" default="3">
     <item name="billede">
      <browser required="t" extns=".jpg,.gif" initial-dir="/billeder/*" size="50"/>
     </item>
     <item name="overskrift">
      <text requred="t" size="50"/>
     </item>
     <item name="tekst">
      <textarea rows="5" cols="50" external-editor="visualformat" required="t" external-editor-config="x.xml"/>
     </item>
     <item name="linktekst">
      <text size="50"/>
     </item>
     <item name="link">
      <browser size="50"/>
     </item>
    </replicant>
   </item>
  </container>
 </replicant>
 </item>
</container>

Adam Stoller

First: At the top and the bottom of the PT - where you have <iw_pt name="..."> and </iw_pt> respectively - remove the latter and change the former to look like: <iw_pt name="..."/> - that will allow you to get rid of all those <![CDATA[ and ]]> stuff within the PT -- it will make it a lot easier to read/write your PTs.

Second: I believe the all-perl equivalent of what you were trying to do is:<iw_perl>
my $bundbar = iwpt_dcr_value('dcr.bundbar.procesnotitsbar.procesbar') || '';
my $bundbartype = "procesbar";
if (!defined($bundbar) || $bundbar eq ''){
$bundbar = iwpt_dcr_value('dcr.bundbar.procesnotitsbar.notitsbar') || '';
$bundbartype = "notitsbar";
if (!defined($bundbar) || $bundbar eq ''){
$bundbartype = "empty";
}
}
iwpt_output(qq(\n));
if ($bundbartype eq "procesbar"){
#....
}
elsif ($bundbartype eq "nontitsbar"){
#...
}
</iw_perl>It could probably be written better, but I'm just doing a near a 1:1 translation from your existing code.

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