nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

more on the table of contents page (problems)

lj1958

I've been attempting for a coupole of weeks now to pull together a presentation template that will pull a list of file names from a directory (the name of the directory specified in the DCR), and then use the list to create a listing of file names that are linked to the correct files.

There actually was an example of this in my TeamSite Advanced Templating class, but since I took it a number of years ago, I'm having no success in finding the example (Intewoven support says the files are confidential). The example is alluded to on pages AD-56 and 57 of the Advanced Teamsite 4.5 Templating workbook.

So, wotout any example, I've been trying to piece together something that will work. I only have a very elementary knowledge of Perl (likely will have a lot more by the time this is done).

I'm getting a XML parse error now...
ML parse error:
undefined entity at line 46, column 5, byte 1722 at

\PROGRA~1\INTERW~1\TeamSite\iw-perl\vendor\lib/XML/Parser.pm line 187

Here's my code at the point I'm at now:

<iw_perl>
<![CDATA[
my $directory = iwpt_dcr_value('dcr.directoryname');
my $dir = '/webapp/wcs/stores/StatesNet/sscinfo/promo/promo_docs/direct_mail/$directory';
my $ptdir = '/iw-home/default/main/StatesNet50/promo/jsp_files/promo/promo_docs/direct_mail/$directory';

# I set up three variables becasue there needs to be a different file path in order to read the directory through TeamSite Forms then to create a link for the web server

opendir(DIR, "$ptdir") or die "could not open $ptdir";
my @pdfFiles = grep(/\.pdf$/,readdir(DIR));
closedir(DIR);
]]>
</iw_perl>
<iw_iterate var='file_name' list='(@pdfiles)'>
<![CDATA[<li><a href="{iw_value name='$dir'/}/{iw_value name='file_name'/}
">{iw_value name='file_name'/}</a><br />]]>
</iw_iterate>

#attempting to read each file name of the type .pdf, iterate through the list, and use the variables to write in both a link and the name of the file for the link name

I'm at a loss at the moment. Any ideas on what I can try now?

-Liz

Find more posts tagged with

Comments

Migrateduser

<body>
Liz;

Here's the example directory lister we use in the advanced FP class:

=============================================================================
<iw_comment>
INPUT: toc_directory = full area-rooted path to a directory
OUTPUT: Titles of each HTML file in toc_directory, as an <A> tag link to each file
</iw_comment>

<iw_perl>
# get current workarea path
($dir = `cd`) =~ s|\\|/|g;
chomp $dir;
$dir =~ s|(.*/WORKAREA/[^/]+)/.*|$1|;
$dir = "$dir$iw_arg{toc_directory}";

# read directory of all .html files

opendir(DIR, $dir);
@f = grep {/\.html$/} readdir(DIR);
closedir(DIR);

# for each file, extract title and insert link

foreach $x (@f) {
open(FILE, "$dir/$x");
foreach $line (<FILE>) {
if($line =~ m|<title>(.*)</title>|i) {
iwpt_output("<P><A href='/news/articles/$x'>$1</A></P>\n");
last;
}
}
close(FILE);
}
</iw_perl>

=============================================================================
</body>

Bob Walden bob.walden@interwoven.com
+01.408.530.7011
Interwoven Education Group

iwovGraduate

This usually happens when you have some syntax error in your PT.

The best thing I can suggest is to learn how to debug PTs. Comment out some code to make work, use some print/iwpt_output statements to see if your code is doing what you intend, use the -ocode option.

A couple of things from the snippet you posted.

- /iw-home/default.... does not look to me as a valid path in Windows. Maybe you wanted Y:\default... or something ?
- Looking at "D:\PROGRA~1\INTERW~1\TeamSite" looks like you have installed TeamSite under "D:\Program Files". You will avoid a lot of problems if you install TS at a location without spaces in directory names. [perhaps not relevant to the error you are getting]

- What version of TS ?
- You are using Windows ? Always a good idea to mention that in your post. .

lj1958

Thank you both! I'm especially glad to get the code from the class. Even without the code, the feedback about the path information was helpful. I didn't know if I would need to go from iw-home or from the root level of the hard drive in order to get the correct path (I could guess at the web server path since I know the structure of the actual production server).

Yes, the TeamSite server (6.1.0 service pack 1) runs on Windows but the two of us developing templates don't have access to the server at a high enough level to run the command line tools, for debugging. Can they be downloaded and run on another computer? I suspect that they can?

Interesting point about the install of TeamSite under "Program Files" -- I didn't do the install, but I'll pass that along to the person responsible for the server.

-Liz

Edited by lj1958 on 03/14/05 11:03 AM (server time).

nipper

Liz, welcome to the world of DOS and TeamSite.

Check the manual out (CLT for Windows) page 13 (6.5 TS) talks about how to
execute CLTs remotely.

I have not tried iwpt_compile like that but it should.

Andy

Adam Stoller

Hmm:my $ptdir = '/iw-home/default/main/StatesNet50/promo/jsp_files/promo/promo_docs/direct_mail/$directory';First - you want to use double-quotes ("...") not single-quotes ('...') to surround a string with a variable ($directory) that you want to be interpolated.
Second - are you sure about that /iw-home lead-off path element? I could understand something like /iwmnt, /.iwmnt, or even //tsservername - but /iw-home looks like the TeamSite installation directory - not the backing-store access / vpath directory entry point

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

lj1958

OK...here's where things are at now:

($dir = `cd`) =~ s|\\|/|g;
chomp $dir;
$dir =~ s|(.*/WORKAREA/[^/]+)/.*|$1|;
$dir = "$dir$iw_arg{toc_directory}";

(used this code from the TOC example to find the workarea directory...I'm assuming this is the top directory in the workarea? Not sure what the last line does, still trying to figure that out)

This code executes on the TPL wtihout an error.

Adding this:
my $directory = iwpt_dcr_value('dcr.directoryname');
my $ptdir = "$dir/promo/jsp_files/promo/promo_docs/$directory";

Not sure if I have it right, but this also executes on the TPL without an error
Again, assuming that $dir is the top level of the workarea.

Adding this:

opendir(DIR, "$ptdir") or die "could not open $ptdir";
@pdfFiles = grep{/\.pdf$/} readdir(DIR);
closedir(DIR);

Now, at that point (attempting to read the files in the specific directory, I get the XML parsing error.

-Liz

iwovGraduate

What is the value of $ptdir just prior to calling opendir ?
Is that a valid path ?

lj1958

It should be, assuming that $dir is actually calling the path to the workarea directory.

I guess I could avoid the $dir and write the whole path out bu to the value put in on the dcr...hmmm...

-Liz