Generating a single html page from multiple DCR's

I need to create a webpage from multiple DCR's. I found a sample on the support site which will suit what I need to do with some modifications.

Here is the link.

https://support.interwoven.com/kb/kb_show_article2.asp?ArticleID=58143

I tested part of the code but it did not seem to work. What am I doing wrong?

Here is the snippet of code I was using in a presentation template file

my $dir = "y:/iwprod/main/bh/WORKAREA/wch/templatedata/wc/secondary/data";

opendir DH, $dir;
iwpt_output("");
iwpt_output("");

while ($name = readdir DH) {
iwpt_load_dcr($name,'dcrlocal','t');
iwpt_output($name);
}

iwpt_output("");
iwpt_output("");
closedir DH;
...

Patrick Krug
Teamsite 6.7.1 - Win2K3

Find more posts tagged with

Comments

Adam Stoller

I need to create a webpage from multiple DCR's. I found a sample on the support site which will suit what I need to do with some modifications.

Here is the link.

https://support.interwoven.com/kb/kb_show_article2.asp?ArticleID=58143

I tested part of the code but it did not seem to work. What am I doing wrong?

Here is the snippet of code I was using in a presentation template file
[html]
my $dir = "y:/iwprod/main/bh/WORKAREA/wch/templatedata/wc/secondary/data";

opendir DH, $dir;
iwpt_output("");
iwpt_output("");

while ($name = readdir DH) {
iwpt_load_dcr($name,'dcrlocal','t');
iwpt_output($name);
}

iwpt_output("");
iwpt_output("");
closedir DH;
...
[/html]

The KB is a bit erroneous (though it did claim to be a 30,000 foot high view. My guess would be that you are attempting to load some items which are not, in fact DCRs. Try taking most of the code you wrote above - and put it into a test.ipl file like this:

#!x:/path/to/iwhome/iw-perl/bin/iwperl
use strict;
use warnings;

my $dir = "y:/iwprod/main/bh/WORKAREA/wch/templatedata/wc/secondary/data";

opendir DH, $dir || die "[opendir] '$dir' ($!)";
while ($name = readdir DH) {
    print "\t$name\n";
}
closedir DH;

Run the script - what do you see?
Based on what you see - what do you think you have to do?
If you figure that out (which you can test in the above script), then transfer the code into your PT and try it out there.

Whitesapce_issue2.rptdesign

Whitesapce_issue2.JPG

pkrug

Thanks for the reply fish...

Here is my updated ipl file

#!d:/Interwoven/TeamSite/iw-perl/bin/iwperl

use strict;
use warnings;

my $dir = "y:/iwprod/main/bh/WORKAREA/wch/templatedata/wc/data/NewsandEvents/2007";

opendir DH, $dir || die "[opendir] '$dir' ($!)";
while ($name = readdir DH) {
print "\t$name\n";
}
closedir DH;

Here is the output from running the command

y:/iwprod/main/bh/WORKAREA/wch/templatedata/wc/secondary/data>
iwork.ipl

Global symbol "$name" requires explicit package name at Y:\iwprod\main\bh\WORKAREA\wch\templatedata\components\iwork.ipl line 9.
Global symbol "$name" requires explicit package name at Y:\iwprod\main\bh\WORKAREA\wch\templatedata\components\iwork.ipl line 10.
Execution of Y:\iwprod\main\bh\WORKAREA\wch\templatedata\components\iwork.ipl aborted due to compilation errors.

nipper

you cannot figure that out ?

how about

my $name;

placed before the while

pkrug

Nope I guess I could not... I guess I should have searched on the internet to see what that error message meant.... I am used to coding in java and I figured I was missing a inclusion of a library.

I really appreciated the reply. I know you guys have done this a lot but I rarely make changes to the Templates.

I got over that error but it errors out now on iwpt_dcr_list. If I run it using the ipl program and the code in the tpl.

The error message is Undefined subroutine &main::iwpt_dcr_list called at ....

...
while ($name = readdir DH) {
iwpt_load_dcr($name,'dcrlocal','t');
iwpt_output($name);
}

Thanks once again.

nipper

OK, so I am a bit confused.

Post your exact TPL (inside HTML tags so they display properly) and the command you are running and finally the output. I assume you are doing this from a DOS shell, using iwpt_compile

ISCBorisB

Nope I guess I could not... I guess I should have searched on the internet to see what that error message meant.... I am used to coding in java and I figured I was missing a inclusion of a library.

I really appreciated the reply. I know you guys have done this a lot but I rarely make changes to the Templates.

I got over that error but it errors out now on iwpt_dcr_list. If I run it using the ipl program and the code in the tpl.

The error message is Undefined subroutine &main::iwpt_dcr_list called at ....

...
while ($name = readdir DH) {
iwpt_load_dcr($name,'dcrlocal','t');
iwpt_output($name);
}

Thanks once again.

Functions iwpt_dcr_value() and iwpt_dcr_list() are available only within Presentation templates.

You seem to use a stand-alone script invoked somehow, correct? If you do that just to simplify
"Perl-only Presentation template" debugging, don't.

If you really need a script rather than PT you should probably use TeamSite: Smiley Very Happy

CRnode::value and TeamSite: Smiley Very Happy

CRnode::get_node_list
methods instead of iwpt_dcr_value() / iwpt_dcr_list()

nipper

You seem to use a stand-alone script invoked somehow (manually for now?), correct?. If you do that just to simplify "Perl-only Presentation template" debugging, don't.

Yea I was wondering if that is what he was doing, hence my previous post.

If you are running iwpt_compile from a DOS shell you can use print statements for debugging, I do that often. There are few good ways to debug TPLs these days. Great for job security. :-)

pkrug

Thank you guys for all of your help!

I do not do templating and perl that often so sometimes I just need a little nudge in the right direction. I have most of what I need done. I got the fields that I wanted to display to display and I added a filter to filter out . and ..

I just now need to add a sort which I will search on how to do.