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; } } }

multiple dcr tpl issue and efficiency

Trey

I have a template I am trying to build that iterates through a list of dcrs and sorts them by date. I built this using a combination of some reference files I have as well as searching through devnet posts.

I am having an issue with my output (it prints the file name in front of each value)

I am also wondering if this is the most efficient way to do this. I only want to output info from the 3 most recent dcrs (by $PubDate) in the directory. I must admit I am still a beginner with Perl so it is probably not the best you have ever seen, but here is the code.

[HTML] use TeamSite::XMLparser;
# init vars
my $i;
my $out;
# Directory To Find DCR Records To Loop In
my $dir = "Y:\\default\\main\\Project\\WORKAREA\\content\\templatedata\\Project\\NewsArticle\\data\\";
opendir(THISDIR, $dir) or die("$! - Cannot Open DIR");
my @allfiles = grep !/^\.\.?$/, readdir THISDIR; closedir THISDIR;
foreach my $file (@allfiles) {
open(DCR, "$dir$file") or die("$! - Cannot open DCR");
local $/ =undef;
my $xml = ;
close DCR;
my $parser = TeamSite::XMLparser->new();
my $rootnode = $parser->parse($xml);
my $Headline = $rootnode->value('pageTitle');
my $Intro = $rootnode->value('metadata.description');
my $PubDate = $rootnode->value('metadata.pubDate');
my $dcr_count = scalar(@allfiles);
opendir(THISDIR, $dir) or die("$! - Cannot Open $dir");
@allfiles = grep !/^\.\.?$/, readdir THISDIR;
closedir THISDIR;
# create the sort array
for($i =0;$i<@allfiles;$i++){
$sortItems[$i]=$PubDate.$Headline.$Intro.$file;
}
@sortItems =sort@allfiles;
for ($i = 0; $i < 3; $i++) {

$out . = <$sortItems[$i].$Headline: $sortItems[$i].$Intro

EOM
}
}
iwpt_output($out);
[/HTML] [url="http://devnet.interwoven.com/forums_vb/$sortItems[$i].$file"]
[/url]

Find more posts tagged with

Comments

Migrateduser

Hi Trey -

The most efficient way to do this is would be to store the relevant data for your DCRs in a database using DAS, then select it out of the DB, either using the tags, or using DBI in an iw_perl block in your TPL.

Re: your other issue, it looks to me like you are overwriting @sortItems right after you go through and populate it:

 
for($i =0;$i<@allfiles;$i++){
$sortItems[$i]=$PubDate.$Headline.$Intro.$file;
}
@sortItems =sort@allfiles;

Trey

The SQL may be worth a shot because I am actually using dd to send all this info to a custom db. You know there are about a million ways to do one thing in TeamSite and I always find myself struggling to find the best way to go. I'll give that a shot and see how it goes.

As far as your response to my other issue I thought the "@sortItems =sort@allfiles;" was actually doing the date sort. Could someone please correct me if I am wrong about this. This is the first thing I have ever tired to sort with Perl.

Migrateduser

By default, sort sorts on phonebook order (do a perldoc -f sort for full details).

@allfiles should have as its values a list of the files in Y:\\default\\main\\Project\\WORKAREA\\content\\tem platedata\\Project\\NewsArticle\\data\\

So, this line
@sortItems =sort @allfiles;

is going to replace whatever you had in @sortItems, with an ascending list of the filenames in that directory. If you wanted to work from a sorted list you could sort right up at the top in your foreach:

foreach my $file (sort @allfiles) {

Cheers,
Rob