How to access a PERL module from within a TPL

I am trying to access a PERL module from within a TPL file such that the values from the DCR could be manipulated within that module and the resultant is sent back to TPL for printing. The iwpt_dcr_value and iwpt_output are however not accessible in the PERL Module even after including PTParser module. Any help would be appreciated.

TPL:
-----
<iw_pt/>
<iw_perl>
use ICT: Smiley Tongue

review;
iwpt_output(ICT: Smiley Tongue

review::generatePreview());
</iw_perl>

PERL MODULE:
------------------
package ICT: Smiley Tongue

review;
use Teamsite Smiley Tongue

TParser;

sub generatePreview
{

my $test = iwpt_dcr_value('dcr.Root.Page1.Base.Keywords');
iwpt_output($test);
return $test;
}

1;

Find more posts tagged with

Comments

Adam Stoller

I think you might need something like:

use TeamSite: Smiley Tongue

T::iw_perl;

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

sabih

I am using it like the following but I am getting "Undefined subroutine &Teamsite: Smiley Tongue

T::iw_perl::iwpt_output called at

/iw-home/iw-perl/site/lib/ICT/Preview.pm line 6." when I run a custom Presentation Debugger.

package ICT: Smiley Tongue

review;
use TeamSite: Smiley Tongue

T::iw_perl;

sub generatePreview
{
Teamsite: Smiley Tongue

T::iw_perl::iwpt_output("this is a test");
my $test = Teamsite: Smiley Tongue

T::iw_perl::iwpt_dcr_value('dcr.Root.Page1.Base.Keywords');
return $test;
}
1;

Adam Stoller

Hmm - don't know. Never tried to do that and I don't have reason (or time) to try it now - sorry.

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

ReportEngine_2009_01_22_14_00_23.rptdesign

chuckles

I've written TPLs doing exactly this with no problem. Are you getting a compilation error or just no output? I suggest you simply debug this as normal. More than likely this is simply a bug in your method or that DCR value is empty. That or it might be scoping related. Can't you pass that DCR value as an argument?

LooseCannon

How does your sub generatePreview know what DCR to parse?

Unless I'm missing something... you'll need to pass the DCR vpath to your module and then parse it.

Ottawa_IWOV

You probably just need to push the path to your custom module(s) using BEGIN in an </iw_perl> block