Need info on "Component Templates". Need to extract common functions into generic tpl

Hi,

I am trying to get some information on "Component Templates".

My requirement is to extract common perl functions into a generic tpl file.
Say file A.tpl has common functions and I want to use these functions in B.tpl then i need to know the code to be written in B.tpl
I tried <iw_include pt ='B.tpl'>. but it didn't work.
I think using "component template", it is possible.

Can someone please provide some information about component template or any other approach to create functions in one tpl file and call them from other tpl file.

Thanks,
Rakesh.

Find more posts tagged with

Comments

nipper

I have no idea what a component template is. However I do what you are requesting all the time (for both TPL and DCTs) with perl modules. I create a perl module which can build the DCT information (say for URL, with parameters for internal, external, etc), and then another that generated the HTML required for the TPL.

This implies that you use an inline for the DCT and have perl generate the XML required and print it out. Likewise for the TPL, set a variable in iw_per tags and use value tag to get it out.

Andy

Migrateduser

Thanks Andy for your reply.
I tried setting a variable in include file and using it in the calling tpl file.
It works fine.
for eg. following is the generic tpl file (Config.tpl)
<?xml version="1.0" standalone="yes"?>
<iw_pt name="Config">
<iw_perl>
<![CDATA[
${$iw_arg{portalContext}} = "/wps/myportal";
]]>
</iw_perl>
</iw_pt>

This file is included in a functional tpl (ABC.tpl) ...

<iw_include pt ='Config.tpl'>
$iw_param{portalContext} = \$portalContext;
</iw_include>
after this include statement $portalContext is available as any other perl variable. Everything works fine for a variable.

Now, on similar lines, I need to create a function in Config.tpl and call the same from ABC.tpl

Is this possible using Perl Modules? If yes can you please send some information around creating such module. Any url pointers or a sample code will be really helpful.

Thanks,
Rakesh.

nipper

Sure I use PMs for this all the time. Get the O'Reilly book on writing perl modules

Here is an example:


<iw_perl> 
use something.pm;
my $something= something->new();
my $URL = $something->makeURL("somedomain.com");
</iw_perl>
{iw_value name='$URL'/}


and in something.pm:

package something;

sub new 
{
    my $proto;
    ($proto) = @_;

    my $class = ref($proto) || $proto;
    my $this  = {};

    return bless $this, $class;
}

sub makeURL
{
 my ($this, $domain) = @_;
 my $URL= "http://".$domain;
 return $URL;
}

1;

Adam Stoller

Other than one typo - looks pretty good Nipper ;-)
I'd actually recommend creating a custom sub-directory for the module under iwhome/iw-perl/site/lib/ - e.g.: iwhome/iw-perl/site/lib/MyCompany/something.pm - which means the code would change slightly (

use MyCompany::something;

, and

package MyCompany::something;

, respectively)

Sure I use PMs for this all the time. Get the O'Reilly book on writing perl modules

Here is an example:


<iw_perl> 
use something.pm;
my $something= something->new();
my $URL = $something->makeURL("somedomain.com");
</iw_perl>
{iw_value name='$URL'/}


and in something.pm:

package something;

sub new 
{
    my $proto;
    ($proto) = @_;

    my $class = ref($proto) || $proto;
    my $this  = {};

    return bless $this, $class;
}

sub makeURL
{
 my ($this, $domain) = @_;
 my $URL= "http://".$domain;
 return $URL;
}

1;

Migrateduser

Hi,

Thanks for all your replies.
I am able to create and install a perl module. The module is seen under C:\Perl\site\lib

However, when I try to use it in my tpl file, it fails to generate.
Do I need to do any more configuration? Do I need to restart the interwoven server?

Thanks and Regards,
Rakesh.

Sailesh

Hi,

Thanks for all your replies.
I am able to create and install a perl module. The module is seen under C:\Perl\site\lib

However, when I try to use it in my tpl file, it fails to generate.
Do I need to do any more configuration? Do I need to restart the interwoven server?

Thanks and Regards,
Rakesh.

How are you using the perl module, can you post your code, to include module you have to include

use myModule;

nipper

Hi,

Thanks for all your replies.
I am able to create and install a perl module. The module is seen under C:\Perl\site\lib

However, when I try to use it in my tpl file, it fails to generate.
Do I need to do any more configuration? Do I need to restart the interwoven server?

Thanks and Regards,
Rakesh.

Run iwpt_compile from the shell and see what errors are displayed. You may want to write a test perl script to verify the pm is working.

Also, you should follow Adam's advice and create a company folder and put the pm in there.

Andy

ISCBorisB

Hi,

Thanks for all your replies.
I am able to create and install a perl module. The module is seen under C:\Perl\site\lib

However, when I try to use it in my tpl file, it fails to generate.
Do I need to do any more configuration? Do I need to restart the interwoven server?

Thanks and Regards,
Rakesh.

Your C:\Perl instance normally has nothing whatever to do to TeamSite iwperl. That one is installed in iwhome/iw-perl directory.

Migrateduser

Thanks every one for such a great help.
It finally worked.

I was earlier trying to use C:\Perl with Interwoven.
However, when I copied the pm file to lib folder under iwhome/iw-perl, I was able to access the module from tpl
I have also created the folder for my project and have placed the perl module under it.

Thanks and Regards,
Rakesh.