call perl function in tpl file

Hi all

I have a tpl file and I wan't to call a perl function with an argument.

I have found one way to do this but it's via a variable, and I cant's use argument then (also not so good in a replicant).

I want a perl call that can have a dcr value as argument, from my content, is that possible

This is what i have:

<?xml version="1.0" encoding="UTF-8"?>
<iw_pt name="Popup Page">
<iw_perl>
<![CDATA[
my $mainPageContent = cleanText(iwpt_dcr_list('dcr.main.page.content'));
sub MyFunction{
($arg1) = @_;
return $arg1 . " test"; #return argument plus a litle string
}
]]>
</iw_perl>

<![CDATA[
<html>
<body>
{iw_value name='$mainPageContent'}
</body>
</html>
]]>

</iw_pt>

And this is what i kinda want:

<?xml version="1.0" encoding="UTF-8"?>
<iw_pt name="Popup Page">
<iw_perl>
<![CDATA[
my $mainPageContent = cleanText(iwpt_dcr_list('dcr.main.page.content'));
sub MyFunction{
($arg1) = @_;
return $arg1 . " test"; #return argument plus a litle string
}
]]>
</iw_perl>

<![CDATA[
<html>
<body>
{iw_value name='MyFunction('dcr.main.page.content')'} 
</body>
</html>
]]>

</iw_pt>

Find more posts tagged with

Comments

Nicholas

Is these are the saparate tpl files? if yes then you might looking to write package for this and if no then i much bother about your coding style.

let me know?

Thanks Nicholas

jbonifaci

Just do all of your coding in perl, that's what I do. Don't waste your time with the iw_ tags, your life will be much eaasier.

~Jeff

Adam Stoller

If you read the documentation for iw_value you'll see that to call functions you need to put parens around the call - I believe you also need to vary your quotes so that you don't have single-quotes directly nested within other single-quotes - like this:{iw_value name="(MyFunction('dcr.main.page.content'))"} I believe that will solve part of your problem.

The other problem is that your passing a string to your function: "dcr.main.page.content" which you are not interpreting, and my guess is you want to interpret it - so your function needs to be re-written as:sub MyFunction{
my $arg1 = iwpt_dcr_value(shift);
return $arg1 . " test"; #return argument plus a litle string
}

(I also tend to do my PTs in pure perl whenever possible - it is much cleaner/simpler IMO)

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

claushelth

Thanks for all the answers

I will use the last one from ghoti.

But I have one more problem!

What if I'm in a replicant like this:

<iw_iterate var='repElement' list='dcr.main.page'>
<![CDATA[
{iw_value name="(MyFunction('repElement.content'))"} <hr />
]]>
</iw_iterate>

This one wil not give any data to the function, and if I do like in the next ex. it will ofcourse only return the first element's text in each loop!

<iw_iterate var='repElement' list='dcr.main.page'>
<![CDATA[
{iw_value name="(MyFunction('dcr.main.page.content'))"} <hr />
]]>
</iw_iterate>

Do you know if it's possible to get the correct element in each loop?

Adam Stoller

You might be able to nest the iw_value tag within the other iw_value tag and then pass the actual value of the node to your subroutine.
This would probably be a lot easier if you coded the whole PT in perl and use iwpt_dcr_value() calls instead.

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

claushelth

Ok I'll surender

But it didn't help...know I'm having problem getting the actull value out:

<iw_perl>
<![CDATA[
foreach my $content (iwpt_dcr_list('dcr.main.page')) {
iwpt_output(" <% Response.Write(\" " . $content . " <br />\") %>");
}
]]>
</iw_perl>

Output is:
TeamSite: Smiley Very Happy

CRnode=ARRAY(0x18caa3c)
TeamSite: Smiley Very Happy

CRnode=ARRAY(0x18ca51c)
TeamSite: Smiley Very Happy

CRnode=ARRAY(0x1909288)

And I want a string (looks like an dress to my string)

Adam Stoller

Please spend some time reading the documentation for the modules that you are using. You should be able to figure this out fairly easily. If you cannot, then you need training or you need to hire someone else to do the work for you.

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

claushelth

ok

sorry...I'm brand new to team site

cliffhanger

You don't have to be sorry, people need to start from somewhere....

By the way, when you get response like this: You should be able to figure this out fairly easily. If you cannot, then you need training or you need to hire someone else to do the work for you. from fish, you can ignore

. At the end of it he helps out people anyway, so getting a tantrum every once in a while is not so bad

claushelth

Thanks Cliffhanger

By the way, I think the documentation with examples are really bad.
I used this one: https://support.interwoven.com/library/devel/tst/pt/5_01/TeamSite__PT__iw_perl.asp
but that doesn't help me at all, and all you can do (when you don't have anybody to help) is to use 5 hours of writing random code :-(

BTW: I foud the solution somewhere else, and to help others in my situation I'll give the answer here :-)

When you are in a tpl file and want to loop through a replicant, and want to do somthing with the output before writing it out, you can write a perl foreach function.

The tricky part is to get the value of the items you want out, and not the adresses. That you can do like this:

<iw_perl>
<![CDATA[
foreach my $content (iwpt_dcr_list('dcr.main.page')) {
my $strContent = $content->value('content'); #get the value here!!!!!!!!

iwpt_output("<% Response.Write(\" " . $strContent . "<br /> \") \n");
}
]]>
</iw_perl>

Migrateduser

if you can provide specifics on why the examples are "really bad" we can improve them. What items would you like to see included?

Regards,

lissa

claushelth

I'll write you a mail :-)

Adam Stoller

In this case - you are taking the line out of context - the first part of the response is very relevent here.

If you read the documentation and have a decent working knowledge of Perl, and look at the output that was received - you should be able to figure this out fairly easily.

If you cannot understand the documentation and/or do not have a decent working knowledge of Perl, you need training or you need to hire someone who has these abilities.

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

Adam Stoller

Output is:
TeamSite: Smiley Very Happy

CRnode=ARRAY(0x18caa3c)
TeamSite: Smiley Very Happy

CRnode=ARRAY(0x18ca51c)
TeamSite: Smiley Very Happy

CRnode=ARRAY(0x1909288)
...
By the way, I think the documentation with examples are really bad.
I used this one: https://support.interwoven.com/library/devel/tst/pt/5_01/TeamSite__PT__iw_perl.asp
...
my $strContent = $content->value('content'); #get the value here!!!!!!!!

Okay - you figured it out - however - you were looking at the wrong documentation. The documentation on iw_perl is for the general usage of the iw_perl tag to allow you to escape from the XML world into the Perl world to write your code. If you look at the output you posted before (above) - you'll see that you are printing out references to TeamSite: Smiley Very Happy

CRnode objects - so you should have read the perldoc for TeamSite: Smiley Very Happy

CRnode and been thinking about the code as dealing with objects, looking for methods to operate on those objects - such as value().

Sorry if my attempt to "teach a man to fish" seemed rude - but hopefully you've learned a lot more about TeamSite: Smiley Very Happy

CRnode objects this way than you would have if I had simply spoon-fed you the code in the first place.

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

claushelth

Thank you all :-)

No hard feelings.

I still think there are some lack of documentation though. I will write to InterWoven how a newbie sees the documentation.

Best regards
Claus

Adam Stoller

I still think there are some lack of documentation though. I will write to InterWoven how a newbie sees the documentation.

I think that's a great idea - be as thorough in your description as you can. I'll freely admit that I probably know a lot of stuff that is not well (if at all) documented, and take it for granted because I've been working with the products for so long. You'll bring a fresh perspective to the subject.

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

claushelth

Hi Lissa

Did you get my mail?

Migrateduser

yes

lissa