iw_if and complex expressions?

Can someone tell me how to create complex expressions while still using the iw_ syntax? I have not found any examples and would like to know how to do this to keep me from bouncing back and forth from iw_ syntax to Perl syntax.

Example: <iw_if expr="{iw_value name='dcr.Manufacturer Links.Name[0]'} ne ''"> How would I add another condition? If this and this are true then .....

Thanks,

- Tim

Find more posts tagged with

Comments

Dwayne

Could be done a couple of different ways. One would be the "perl" way:

<iw_if expr="{iw_value name='dcr.Manufacturer Links.Name[0]'} ne "" && {iw_value name='dcr.SomeOtherField'} ne "" '>

Or the XML way:

<iw_if expr="{iw_value name='dcr.Manufacturer Links.Name[0]'} ne ''">
    <iw_then>
      <iw_if expr="{iw_value name='dcr.SomeOtherField' ne '' ">

Current project: TS 5.5.2/6.1 W2K

Tim__D

Interesting.. In your first example there are no enclosing () or {}

I'm used to if((this == 1) && (that != "")) type of syntax. I'll give it a shot.

I find using too many <iw_if etc.. creates a lot of white space in my files.

I'll try the Perl method.

Thanks,

- Tim

Migrateduser

I have a technique which can strip much of the excess whitespace from the output file (which increases page size and looks unprofessional). You can even run the content through W3C tidy (assuming you are generating HTML).

Tim__D

Care to share?

Dwayne

Putting the parens in won't hurt anything, and if they make the code more readable, then go ahead and use them. But Perl's order of operations would ensure that the 'ne' operator gets evaluated before the && operator.

In terms of the white space - you can use <iw_ostream> to handle that. This is off the top of my head, so it may be slightly off syntactically, but something like:


<iw_pt />
<iw_ostream filter='s/^\s+\n//gm'>
   Your PT here
</iw_ostream>

I'm really not sure about that filter - what it's supposed to be doing is to look for lines consisting of just whitespace, then a newline, and delete it.

--

Current project: TS 5.5.2/6.1 W2K

Migrateduser

I ususally do something like this in an iw_perl block towards the end of the PT. I guess you could put the equivalent funcationality in iwpt_compile.ipl or something instead, with logic to determine what to do based on file extension. No telling how many bugs are in this code (some even stolen from other devnetters), so if you find some, let me know. Also, nobody seems to like my Perl coding style, which I prefer as it looks more like a normal language to me.

use IWAPI::HttpUtil;

iwpt_set_ostream_data( 'default',
IWAPI::HttpUtil::cleanHTML( -content => iwpt_get_ostream_data( 'default' ),
-dcr => iwpt_get_dcr_name(),
-ofile => iwpt_get_ofile_name(),
-pt => iwpt_get_pt_name()));

The subroutine in the module looks something like this (supporting modules not included - this is just to get the idea):

sub cleanHTML
{
my %{params} = IWAPI: Smiley Frustrated

ysUtil::normalizeParams( @{_} );

if ( ! defined( ${params{'nostripcomments'}} ))
{
${params{'content'}} = IWAPI::HttpUtil::removeComments( -content => ${params{'content'}} );
}

if ( ! defined( ${params{'nostripwhitespace'}} ))
{
${params{'content'}} =~ s#^\s+$##mgi;
#//TODO: is this needed?
# ${content} =~ s#^\s+$##mgi;
}

if ( ! defined( ${params{'notidy'}} ))
{
${params{'content'}} = IWAPI::HttpUtil::tidy( -content => ${params{'content'}} );
}

if ( defined( ${params{'dcr'}} ) && defined( ${params{'pt'}} ) && defined( ${params{'ofile'}} ) && ! defined( ${params{'nocomment'}} ))
{
${params{'content'}} .= IWAPI::HttpUtil::getPTComment( %{params} );
}

return( ${params{'content'}} );
}

sub removeComments
{
my %{params} = IWAPI: Smiley Frustrated

ysUtil::normalizeParams( @{_} );
${params{'content'}} =~ s#[\r]?[\n]#__LINEFEED__#g;
${params{'content'}} =~ s/(<script>\s*)##g;
${params{'content'}} =~ s#__SCRIPT__#<!--#g;
${params{'content'}} =~ s#__LINEFEED__#${/}#g;
return( ${params{'content'}} );
}

sub tidy
{
my %{params} = IWAPI: Smiley Frustrated

ysUtil::normalizeParams( @{_} );
my ${before} = IWAPI: Smiley Frustrated

ysUtil::getRandomTempFile( -ext => 'before.html', -content => ${params{'content'}} );
my ${after} = ${before};
my ${err} = ${before};
${after} =~ s#before\.html$#after.html#;
${err} =~ s#before\.html$#error.txt#;
# '-indent' makes output too large
my ${cmd} = IWAPI::getCommandPath( -cmd => 'tidy' );

if ( -f ${cmd} )
{
${cmd} = IWAPI: Smiley Frustrated

ysUtil::getCommandLine( ${cmd}, '-clean', '-utf8', '-wrap', 1000, '-quiet', '-asxhtml', '-f', ${err}, '-bare', '-access', '3', '-indent', '-o', ${after}, ${before} );
my %{results} = IWAPI: Smiley Frustrated

ysUtil::run( -cmd => ${cmd} );

if (( ${results{'ret'}} != 0 && ${results{'ret'}} != 256 && ${results{'ret'}} != 512 ) || ${results{'stderr'}} =~ m#..# )
{
new IWAPI::Exception( -file => __FILE__, -line => __LINE__, -msg => ${results{'msg'}} );
}
else
{
${params{'content'}} = IWAPI: Smiley Frustrated

ysUtil::getFileContents( -file => ${after} );
}
}

return( ${params{'content'}} );
}

sub getPTComment
{
my %{params} = IWAPI: Smiley Frustrated

ysUtil::normalizeParams( @{_} );

if ( ! UNIVERSAL::isa( ${params{'dcr'}}, 'IWAPI::CMSFile' ))
{
${params{'dcr'}} = new IWAPI::CMSFile( ${params{'dcr'}} );
}

if ( ! UNIVERSAL::isa( ${params{'pt'}}, 'IWAPI::CMSFile' ))
{
${params{'pt'}} = new IWAPI::CMSFile( ${params{'pt'}} );
}

if ( ! UNIVERSAL::isa( ${params{'ofile'}}, 'IWAPI::CMSFile' ))
{
${params{'ofile'}} = new IWAPI::CMSFile( ${params{'ofile'}} );
}

return( '' . ( ${/} x 2 ));
}