iw load dcr

I am trying to load all the dcrs in a directory (probably around 10) and output some of the data. The process seems to hang, not sure why. Below is the perl that I am using in the PT. I started with the safari code that is used in the IWOV classes. Any help is appreciated.

Thanks
Matt


]]>
<iw_perl><![CDATA[
$dir = "y:/default/main/safari/WORKAREA/work/templatedata/safari/news/data/";
opendir(DIR, $dir);
@f = readdir(DIR);
closedir(DIR);
foreach $x (@f) {
iwpt_output("file name = $x \n")

]]>

<iw_load_dcr var='y' file='$dir$x'/>
<iw_value name='y.Story'/>
<![CDATA[

}
]]></iw_perl><![CDATA[
</div>


Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Find more posts tagged with

Comments

mogoo

Matt-
We've done this before successfully, though we are on Solaris. Don't know if it's the same across both environments, but our pathing starts in the workarea, vs. your vpath...
<iw_load_dcr var='y' file='/templatedata/.......'>
...something to try, at least?
Good luck!
maureen

MattP

OK, I must be missing something. Even if I try to load 1 DCR it doesn't work. If I remove the load dcr tag, I get a list of files in the directory. When I add the load dcr, it hangs. Here is the code....

<iw_pt name="SafariPressRelease"/>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/>
</head>

<body>
<iw_load_dcr file="/templatedata/safari/news/data/story" var="y"/>

<iw_perl>
$dir = "y:/default/main/safari/WORKAREA/work/templatedata/safari/news/data";
opendir(DIR, $dir);
@f = readdir(DIR);
closedir(DIR);

foreach $x (@f)
{
if($x !~ m|^\.|)
{
iwpt_output("$dir/$x\n");

}
}
</iw_perl>

</body>
</html>

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Adam Stoller

Are you sure you have the path for $dir right?
Are you sure you saved and are using that presentation template?
I just tried the code out (slightly modified for my environment) and it seemed to work just fine.

--fish
(Interwoven Senior Technical Consultant)

MattP

yea, pretty sure. I cut and paste the path into win explorer on the box and it points to the correct file. I am pretty sure I am using the correct tpl because when I edit the tpl (ie remove the iw_load_dcr) I see my changes.
I am pretty stuck. If I can't get this to work, I need to come up with a back-up plan.

I also tried using iwpt_load_dcr('$td_dir/$x',docroot,'t');

Any other ideas!!!!
Thanks
Matt

<iw_perl>
$dir = "y:/default/main/safari/WORKAREA/work/templatedata/safari/news/data";
$td_dir = "/templatedata/safari/news/data";
opendir(DIR, $dir);
@f = readdir(DIR);
closedir(DIR);

foreach $x (@f)
{
if($x !~ m|^\.|)
{
iwpt_output("$td_dir/$x\n");
iwpt_load_dcr('$td_dir/$x',docroot,'t');

}
}
</iw_perl>

Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

MattP

OK, got it. Interesting. Via a workflow I am updating an index page. That index page was not created by using "file -> new data record", so I guess it didn't have the correct extended attributes (guess). Therefore when the job ran, it failed. When you said it worked for you, I tried it with a simple new record, and it worked. So I recreated the index, and now the job runs. Thanks for your help, I appreciate it.

Matt

the working code...

iw_perl>
$dir = "y:/default/main/safari/WORKAREA/work/templatedata/safari/news/data";
$td_dir = "/templatedata/safari/news/data";
opendir(DIR, $dir);
@f = readdir(DIR);
closedir(DIR);

foreach $x (@f)
{
if($x !~ m|^\.|)
{
iwpt_output("$td_dir/$x\n");
$root = iwpt_load_dcr("$td_dir/$x",docroot,"t");
$story = iwpt_dcr_value('$root.Story') ;
iwpt_output("here is a paragraph:$story");
}
}
</iw_perl>

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA