Loading all DCRs to form an index page

Dear all,

I have many DCRs need to load into a PT and generate an index page.
Does any one can teach me how to do it? Since I spend lots of time on reading the manual, but it doesn't help much.

my code in pt:
###############################

 my $rootdir = "Y:/default/main/dhk/canada/WORKAREA/canada"; my $dir = "/templatedata/PressReleases/Detail/data"; my @detailDCRs = ''; opendir(DIR, $rootdir.$dir); @detailDCRs = readdir(DIR); closedir(DIR); foreach $MyDCR (@detailDCRs) { next if ($MyDCR =~ /^\.\.?$/); iwpt_load_dcr("$dir/$MyDCR",'docroot','t'); iwpt_output($MyDCR); } @dcrs = iwpt_dcr_list('dcr'); $dcr_count = scalar(@dcrs); for ($count = 1; $count < $dcr_count; $count++) { my $Date = iwpt_dcr_value('dcr[$count].rc.Content.Date'); my $Title = iwpt_dcr_value('dcr[$count].rc.Content.Title'); iwpt_output($Date.".......".$Title); } 

###############################

In the above code, I can get and print out the name of each DCR in foreach loop.
But when I need to print out the content of each DCR in for loop, I cannot print out the name of each DCR.

Does any one can teach me how to solve the problems? Since I'm fresh in Perl and TeamSite. Kindly if an example code can provide for me as reference.

Thank you very much.

Find more posts tagged with

Comments

kshitiz

You can read the value of other DCRs using iwpt_load_dcr() only.

Here is a sample code to achieve this:

 $dcr = 'templatedata/content/editorial/data/dcr1'; 
my $editorial = iwpt_load_dcr($dcr);
my $editorial_body = iwpt_dcr_value('editorial.body');
iwpt_output("$editorial_body");

In the above code I'm loading a DCR called as dcr1 of form-type 'content/editorial' and reading the value of an item named as 'body' inside the dcr and printing the value in the output file.

Terence

To: kshitiz

First thank's for your reply. But I still don't know how to achieve my task.

Let's me clearly descript what I need to do.

First there are number of DCRs in /details/data/ , what I need to do is read all these DCRs and display the content to generate an index page. E.g.: Show out the Date and Title of each DCR in index page.
And I need to get the DCR file name to form a hyperlink by append ".html" at the end so when user click on Title in index page, the browser can display the corresponding detail page.
The first 10 DCRs are display in style 1 and the left DCRs are display in style 2. So I need to have a counter to count the number of DCRs.

I can print out all the DCRs name in the foreach loop, but after that I don't know how to do so that I can generate the index page as descript above.

Kindly please give a help so that I can finish my task.

Nidhi_Agrawal

I have used a two dimesional hash array for the same with some extra req.
In Your case u can also manage using a simple hash array(not multi dimensional).

Before displaying anything just generate a hash array for all the DCRS.
Key u can decide anything on the basis of ur requiremnt and in value part store all the values which u r required, using an separator...
for eg
$index{'a'}='Date||Heading||content||filepath||filename';
here i have used '||' as separator.
and after generating array print as u want using split function.

Regards
Nidhi..

To: kshitiz

First thank's for your reply. But I still don't know how to achieve my task.

Let's me clearly descript what I need to do.

First there are number of DCRs in /details/data/ , what I need to do is read all these DCRs and display the content to generate an index page. E.g.: Show out the Date and Title of each DCR in index page.
And I need to get the DCR file name to form a hyperlink by append ".html" at the end so when user click on Title in index page, the browser can display the corresponding detail page.
The first 10 DCRs are display in style 1 and the left DCRs are display in style 2. So I need to have a counter to count the number of DCRs.

I can print out all the DCRs name in the foreach loop, but after that I don't know how to do so that I can generate the index page as descript above.

Kindly please give a help so that I can finish my task.

Adam Stoller

...
for ($count = 1; $count < $dcr_count; $count++) {
my $Date = iwpt_dcr_value('dcr[$count].rc.Content.Date');
my $Title = iwpt_dcr_value('dcr[$count].rc.Content.Title');
...

This would never work because within single-quotes, the

$count

would not get interpolated.
Others have already provided additional clues as to how to do this - I suggest you go through some more trial-and-error based on what's been posted so that you can learn how to do this.