Loading multiple DCRS on TPL

Hi ,

I am using below code to load multiple DCRs on tpl,but no iwpt_output in showing. Can any one help me in this

my $dir_path = "uschduxres008/default/main/Aon.com/Training/WORKAREA/workarea/templatedata/page_templates/interiorPage/data/";
       my $root_path = "templatedata/page_templates/interiorPage/data";
       opendir(DIR, $dir_path);
       my @dcrs = readdir(DIR);
       closedir(DIR);
       foreach my $dcr(@dcrs)
       {
       my $d = iwpt_load_dcr("$root_path/$dcr", docroot, "t");
       my $pdf_title = iwpt_dcr_value('$d.configuration.title');
       iwpt_output("$pdf_title");
       }

Thanks,

Badli

Find more posts tagged with

Comments

Adam Stoller

Badli15 wrote:

my $dir_path = "uschduxres008/default/main/Aon.com/Training/WORKAREA/workarea/templatedata/page_templates/interiorPage/data/";
       my $root_path = "templatedata/page_templates/interiorPage/data";
       opendir(DIR, $dir_path);
       my @dcrs = readdir(DIR);
       closedir(DIR);
       foreach my $dcr(@dcrs)
       {
       my $d = iwpt_load_dcr("$root_path/$dcr", docroot, "t");
       my $pdf_title = iwpt_dcr_value('$d.configuration.title');
       iwpt_output("$pdf_title");
       }

I can see at least three things wrong in the above code:

The path given for the directory is wrong - just remove the highlighted part and that should fix most of your issues
You don't check the return status of opening the directory
You don't filter out (or recurse through) directories within the directory that you're attempting to read. At the very lease you need to filter out '.' and '..', but since it is possible to have subdirectories within the data/ directory you should be handling that situation as well.

Badli15

Thanks Ghoti, I made few changes now its working fine for me.

Just got into another issue--- I need to show create date of DCRs from teamsite with there title as well sorting on that bases.

Can you please help me how to get dcrs create date in tpl.

my $dir_path = "/.iwmnt/default/main/Aon.com/Training/WORKAREA/workarea/templatedata/page_templates/interiorPage/data/";
       my $td_dir = "/templatedata/page_templates/interiorPage/data/";
       my @num= ("/templatedata/page_templates/interiorPage/data/test-jackie", "/templatedata/page_templates/interiorPage/data/jrr_testing","/templatedata/page_templates/interiorPage/data/wii-test", "/templatedata/page_templates/interiorPage/data/test-wl","/templatedata/page_templates/interiorPage/data/testing");
       opendir(DIR, $dir_path);
       my @dcrs = readdir(DIR);
       my $tester;
       my @test2;
       closedir(DIR);
       foreach my $dcr(@dcrs)
       {
       if($dcr !~ m|^\.|)
       {
       $tester.=$td_dir.$dcr.',';
         }
       @test2=split(',', $tester)
       }

I will appritiate your help!!!!!!!

Thanks,

Badli

Adam Stoller

(FYI the word is "basis" not "bases")

There are a number of issues with your code that would seem to indicate that you do not know how to code in Perl very well nor understand how to achieve what you are looking to do with any degree of competency.

That being said, I'm a bit bored right now and so I'm feeling a bit generous, but before we get there, let's go over your mistakes in the posted code:

You create an array called @num - that seems of dubious value and that you never use
You still aren't checking the return status of your opendir call
You still aren't checking for subdirectories
You are creating and potentially re-creating an array called @test2 that you don't seem to be using
Nowhere are you accessing the title of the files or the date on which they were last modified - which you indicated was waht you need to do.
In short - you write lousy code.

Okay - that's out of the way - now lets look at an example of better code:

use Date::Format;
(my $dcrPath = iwpt_get_dcr_name('dirname')) =~ s|^//.*?/|/|;
(my $relPath = $dcrPath) =~ s|^.*/WORKAREA/.*?/|/|;my @dcrs;
getDCRs($dcrPath, \@dcrs);
my %dcrHash;
foreach my $dcr (@dcrs) {
    my $date = time2str("%Y-%m-%d_%H:%M:%S", (stat $dcr)[9]);
    $dcrHash{$date} = $dcr;}
iwpt_output("<table>\n");
foreach my $k (sort keys %dcrHash) {
    iwpt_output("<tr><td>$k</td><td>$dcrHash{$k}</td></tr>\n");}
iwpt_output("</table>\n");

sub getDCRs {
    my ($dir, $list) = @_;
    opendir DIR, $dir || die "[opendir] '$dir' ($!)";
    my entries = grep { !/^\./ } readdir DIR;    closedir DIR;

    foreach my $entry (entries) {
        if (-d "$dir/$entry") {
            getDCRs("$dir/$entry", $list);
            next;
        }
        push @{$list}, "$dir/$entry";    }
}

This should provide you a date-sorted list (in table-format) of ALL the DCRs within the data directory of the current DCR being processed.

Is it everything you want? No.

I leave for you the exercise of tailoring the above to include the titles from the DCRs and to adjust the output to the way you believe it should be (e.g.: filtering out the current DCR, or - perhaps you want to be looking in a data directory other than that of the current DCR (which would probably make more sense - but as I don't know your requirements...)

What you should do is go through the above code and figure out what each of the highlighted lines does and how/why it does it, and then figure out how to adjust it to your needs and then post the finished result where you can demonstrate your ability to learn from a spoon-fed example.

Failure to do that means I probably won't be so charitable towards you in the future.

Badli15

Thanks Ghoti for the help!!!!!

Adam Stoller

You did not demonstrate that you understand the code

You did not indicate if my posting solved your problems (by marking it as a solution)

Both would be appreciated.