Passing DCR node to Perl module

Hi guys

I've been reading over many past threads on similar subjects but am still falling down at passing the DCR to my Perl module and reading values from it. My .tpl contains the following:

$dcr = iwpt_dcr_list('dcr');
print(TPL_functions::handleCustomMetadata($dcr));

At the moment I'm just trying to get the reading part sorted out so my Perl module is quite bare:

sub handleCustomMetadata {
my $dcr = $_;
my $metadata = $dcr->value('dcr.Metadata');
my @customMetadata = $metadata->get_node_list('Custom Metadata');
my $counter=0;

foreach my $cm (@customMetadata) {
$counter++;
}

return $counter;
}

But this doesn't work - using iwpt_compile on the TPL gives the following error, which implies that the DCR pass isn't successful, or I'm not trying to use the object in the right way:

Can't locate object method "value" via package "server_locale=English_UnitedStates.US-ASCII@Binary;"

Any ideas would be greatly appreciated!

Thanks
Gemma

Find more posts tagged with

Comments

RonaldV

Try this:

my ($dcr) = @_;

BTW $_ contains "The default input and pattern-searching space." according to the manual.

gemmaTurtle

Ah, thanks for pointing that out! Unfortunately that just gives a new error:

Can't call method "value" without a package or object reference

RonaldV

Well in that case $dcr was not an object. :-)

Which is correct. iwpt_dcr_list returns an array (of dcr-nodes). If you want the first item in this array (e.g. the first object-node) you'll need this:

my $dcr = (iwpt_dcr_list('dcr'))[0];

In any case, if something fails just print the variable to something (a logfile f.i. and you'll be able to actually see what is going on inside)

Hope this helps.

Adam Stoller

[...]
sub handleCustomMetadata {
my $dcr = $_;
my $metadata = $dcr->value('dcr.Metadata');
my @customMetadata = $metadata->get_node_list('Custom Metadata');
my $counter=0;

foreach my $cm (@customMetadata) {
$counter++;
}

return $counter;
}
[...]
Can't locate object method "value" via package "server_locale=English_UnitedStates.US-ASCII@Binary;"

Without seeing the complete perl script it is difficult to debug - but my guess is that your Perl script is not [properly] including (via 'use') the TeamSite: Smiley Very Happy

CRnode or TeamSite::XMLnode modules.