table of contents 'in a way'

Does anyone have any idea how I can accomplsih the following?

I want to load ALL DCRs in a particular folder and print out all the dcr.Headlines through some sort of iteration. As you can see it is a table of contents sort of. I am looking at the iwpt_dcr_load but can't seem to find anythign that works. I can't do the example in the book (loading the actual path to the dcr's) because of the platform I am running. If anyone has any suggestions I really appreciate it.

Find more posts tagged with

Comments

Gregg Faus

I wrote a function that might work for you. Place it at the top of your presentation template for the table of contents template. Here is the sub:



sub display_index()
{
 my @title_list;
 my @summary_list;

 chdir("../../Tutorial-HowTo/data") || die "Cannot change directory!";

 # Put files into an array 
 foreach(<*>) {
  push @dcr_list, $_;
 }

 for (my $i = 0; $i < @dcr_list; $i++) { 
  # Load dcr and extract information
  open (DCR, $dcr_list[$i]);
  my $xml_string = join ('', (<DCR>));
  close DCR;

  my $rootnode = TeamSite:CRnode->new($xml_string, "dcr");

  if (defined $rootnode) {
   push @title_list, $rootnode->value("Index Title");
   push @summary_list, $rootnode->value("Index Summary");

  }  
 }

 $output  = ""; 
 for ($i = 0; $i < @title_list; $i++) { 

  $output  .= "<tr>";
  $output  .= " <td><span class=\"nav1\">
<a href=\"/tutorials/$dcr_list[$i].htm\">$title_list[$i]</a></span></td>";
  $output  .= "</tr>";
  $output  .= "<tr>";
  $output  .= " <td>$summary_list[$i]</td>";
  $output  .= "</tr>";
  $output  .= "<tr><td>
<img src=\"/images/clear.gif\" width=\"1\" height=\"1\" vspace=\"2\"></td></tr>";  
 }

 return $output;

}

Then I call the sub later in the template:
<iw_value name="display_index()"/>

-gf

ps_error.JPG

Migrateduser

might be a dumb question, but do you put the sub in the <head>, <html> or <body> somewhere or before the <html> tag starts? If you have a copy of an entire .tpl using this that I could see, I would really apprecite it.

Gregg Faus

Here you go.

-gf

ela

Hi,
I'm trying to use your code, but get a preview and generate error. It has to do with this part: my $rootnode = TeamSite:CRnode->new($xml_string, "dcr"); or rather what I try to parse. In order to better understand your example, I would be happy if you could be so kind to explain the following:

chdir("../../Tutorial-HowTo/data") || die "Cannot change directory!";
Where's your tpl located, not in "Tutorial-HowTo/presentation"?

push @title_list, $rootnode->value("Index Title");
push @summary_list, $rootnode->value("Index Summary");
Are "Index Title" and "Index Summary" item names in your DCRs, or only "Title" and "Summary"?

I tried to study the DCRnode code, but fell asleep, so I was hoping you could help me out.

Thanks,
Ela

Gregg Faus

I do things a bit differently these days, but that code should still work. Here is the basic algorithm for this code:
1) Call display_index routine to display title and links from a single DCR

2) chdir("../../Tutorial-HowTo/data")
Make sure we are in the right data directory. The name will have to be changed. You may need to mess around with this and make sure you're in the right directory. Nowadays I just dynamically find the correct directory with environment variables.

3) foreach(<*>) {
...
}
For every DCR in directory push it into an array

4) Then iterate through this list (for(...))) and create a new XML document for each DCR. In the document, grab the title and summary fields (Index Title, Index Summary) and put them into an array as well

5) Spit out the list of index links with title and summary in the presentation

That's about it. Sorry you fell asleep. This stuff bores the **** out of me sometimes.

ela

Great, got it working as soon as I had the directory part correct. Thanks a lot!

Ela