Loaded DCR's in a PT

Is there a way to unload DCR's? I am wanting to unload the initial DCR that gets added during pt compile (dcr[0]).

Find more posts tagged with

Comments

Is there a way to unload DCR's? I am wanting to unload the initial DCR that gets added during pt compile (dcr[0]).

Why do you care? You could just ignore it.
Alternatively - if they are all loaded in an array - you could shift the array to remove it from the stack, but then the index of all your other DCRs would be one less than they were before.

John742

ok. I think you are right that I can just ignore that DCR. If I am using a foreach loop to interate thru the dcr's that I have loaded, how do I ignore dcr[0]? I guess what I do not understand is how to reference "dcr".
ex. of what I am after:
foreach $index (iwpt_dcr_list = 'dcr')
if not dcr[0] then { do stuff}

Thanks for the help

Adam Stoller

ok. I think you are right that I can just ignore that DCR. If I am using a foreach loop to interate thru the dcr's that I have loaded, how do I ignore dcr[0]? I guess what I do not understand is how to reference "dcr".
ex. of what I am after:
foreach $index (iwpt_dcr_list = 'dcr')
if not dcr[0] then { do stuff}

Thanks for the help

what is

iwpt_dcr_list = 'dcr'

Assuming you have a list of dcr names in

@dcrs

you could do something like this:

foreach my $dcr (@dcrs){
    next if ($dcr eq $dcrs[0]);
    my $cur_dcr = iwpt_load_dcr($dcr);
    ...
}

Alternatively, if you are only going to process each entry once, in order (regardless of what type of object or variable each entry is) you could do something like this:

shift @dcrs; # remove the first entry
foreach my $dcr (@dcrs){
   ...
}

John742

Here is the exact code I use to interate through all the DCR I loaded:

foreach my $index ( iwpt_dcr_list( 'dcr' ) )

I know how to avoid loading the dcr's I do not want. But by default iw_pt_compile requires you to load an initial dcr to kick off the process right? It would just be easier for me to load the dcr's I want without having to worry if that initial DCR should be thrown out. I was not sure if you could call a PT without an initial DCR, so removing that initial dcr that gets added when the PT is called was my next logical step. If it is already loaded and being within a CDATA tag like the coce above is, how would I know how to avoid dcr[0]? Is there an array called "dcr" that holds the values on all the dcr's that are currently loaded? I have not been able to access this var. if so. Thanks

Create a data connection definition..doc

JonathonG

Here is the exact code I use to interate through all the DCR I loaded:

foreach my $index ( iwpt_dcr_list( 'dcr' ) )

It's been awhile since I worked with multiple DCRs in a PT. But, if this works to get you all the DCRs, I believe you have the answer already. iwpt_dcr_list('dcr') returns an array. So, you could do:

my @dcrs = iwpt_dcr_list('dcr');
shift @dcrs; # This assumes you can be sure that dcr[0] is the correct one
foreach my $index (@dcrs)
...

Migrateduser

Fish and Jonathon have described how this can be done so perhaps you're inadvertently leaving something out?

How are you getting this of DCR's? Do you ALWAYS want to remove the first element of this array or just sometimes? If sometimes, what's the dependency?

John742

I would always want to remove dcr[0]. So it appears 'dcr' is a reserved variable, but I am not so sure this is an array? I am calling iwpt compile from a workflow and use the attached .dcr for the intial .dcr when calling iwpt compile. Is this required? if so, I would always want to remove dcr[0] and load all dcr's manually. But 'dcr' appears to be a pointer and not an accessible array.

Migrateduser

By using iwpt_dcr_list, you're essentially creating an array. You don't need to explicitly load the same DCR that you've referenced in your command line. However, I'm not clear on how you're pulling in the other DCRs that you want to work with.

Where are your other DCRs coming from, then? What is the business requirement?

sample_report2.rptdesign

Adam Stoller

Here is the exact code I use to interate through all the DCR I loaded:

foreach my $index ( iwpt_dcr_list( 'dcr' ) )
<iw_iterate var='index' list='dcr' iteration = "i">

Okay - so you don't have a clue as to what you're doing - right?
You're mixing perl code and XML code as if it were completely interchangeable.
You don't know about dcr being a reserved word as a reference to the DCR passed in on the command line.
And you may or may not have sufficient syntax for getting the list of DCRs because you haven't shown the format of the DCR that's being passed in on the command line, but you seem to be assuming that at its root level is a replicant list of other DCRs to load (perhaps there is, but it seems unlikely to me).

I suggest you take some training and/or hire someone to assist you.

TestReport.rptdesign

John742

I autosave dcr files using values from fields in the dcr- date specific. Each dcr is going to become another row in a table. The worfklow builds the table in the generated HTML file by using the dcr's that I load depending on the file name and location there are gen'd(directory specific). I would have gone with a database but since we generate the file only after a new entry it seemed to be overkill. Secondly using interation within a DCT was a bit slow when it gets up to a certain amount of entries even if these interants are rendered collapsed. to minimize the time it takes to gen the html file I decide on which dcr's should be used and the order to present defined by the file name. Then load them into the PT in that order. The initial auto-loaded DCR gets to be a pain, since it is already part of the array I have built to run through a iwpt load dcr. Hope I explained that well enough!! Thanks for the help.

ISCBorisB

I would always want to remove dcr[0]. So it appears 'dcr' is a reserved variable, but I am not so sure this is an array? I am calling iwpt compile from a workflow and use the attached .dcr for the intial .dcr when calling iwpt compile. Is this required? if so, I would always want to remove dcr[0] and load all dcr's manually. But 'dcr' appears to be a pointer and not an accessible array.

For iwpt_compile you can pass as many DCRs as your OS max command length allows (including none).
None of them is required, it's up to you to pass and use what you need.

Your PT should be able to process Multiple DCRs
Scenario 1 - all DCRs are coming from iwpt_compile parameters


my @dcr_names = iwpt_get_dcr_name(); # Array of DCR Names
my @dcr_list = iwpt_dcr_list('dcr'); # Array of *parsed DCRs*
if (@dcr_list) {
   # All right, we have something
   foreach my $current_dcr (@dcr_list) {
      my $current_dcr_name = shift @dcr_names;

      # Use current_dcr as you would normally use 'dcr'
      my $something = iwpt_dcr_value('current_dcr.blah')
   }
}

Scenario 2 - some (or all) DCRs are loaded by your PT


my @full_dcr_names ;
# build an array @full_dcr_names of DCR Pathes you want
...
my @dcr_names = iwpt_get_dcr_name(); 
foreach my $nextdcr (@full_dcr_names) {
   my $lookup = $nextdcr;
   $lookup =~ s|\\|/|g;
   $lookup =~ s|.*/([^/]+)$|$1|;
   push (@dcr_names, $lookup);
   iwpt_load_dcr($nextdcr, 'dcrlocal', 't');
}

my @dcr_list = iwpt_dcr_list('dcr'); # Array of *parsed DCRs*
if (@dcr_list) {
   # All right, we have something
   foreach my $current_dcr (@dcr_list) {
      my $current_dcr_name = shift @dcr_names;

      # Use current_dcr as you would normally use 'dcr'
      my $something = iwpt_dcr_value('current_dcr.blah')
   }
}

Comprende?

Migrateduser

* recovering from dizziness after reading john742's most recent post *

If I understand correctly -- and I have no confidence that I do -- your presentation template is basically gathering DCR's depending on their date and then you would like it to iterate on those?

If so, you could get away with something so crude as:

@dcr_list = `/bin/ls -1 $year-$mon-$day.*`;
...
<iw_iterate var='dcr_element' list='dcr_list'>
...
</iw_iterate>

For instance. I would recommend the above since it's not that well written but it would seem to approximate what you're trying to do. In this case, "dcr_element" is the variable you would use to reference each DCR.

John742

Okay - so you don't have a clue as to what you're doing - right?
You're mixing perl code and XML code as if it were completely interchangeable.
You don't know about dcr being a reserved word as a reference to the DCR passed in on the command line.
And you may or may not have sufficient syntax for getting the list of DCRs because you haven't shown the format of the DCR that's being passed in on the command line, but you seem to be assuming that at its root level is a replicant list of other DCRs to load (perhaps there is, but it seems unlikely to me).

I suggest you take some training and/or hire someone to assist you.

Firstly you must be mistaken on the code syntax. Within a CDATA tag this is completely acceptable. Are you having a bad day or what?I think you may want to look back at the manuals again yourself. Also I did believe 'dcr' to be a reference, but can you show me in the manuals where it tells you that it is a reference value? Finally I have an array of the loaded dcr's but that is not the same as what is in 'dcr'

John742

[QUOTE=ISCBorisB]For iwpt_compile you can pass as many DCRs as your OS max command length allows (including none).
None of them is required, it's up to you to pass and use what you need.

[QUOTE]

you said iwpt_compile allows allows for NO dcr's to be passed to it? What syntax is used for this? Thanks guys I really appriciate the help. This has been an isue for some time. Thanks again

John742

* recovering from dizziness after reading john742's most recent post *

If I understand correctly -- and I have no confidence that I do -- your presentation template is basically gathering DCR's depending on their date and then you would like it to iterate on those?

If so, you could get away with something so crude as:

@dcr_list = `/bin/ls -1 $year-$mon-$day.*`;
...
<iw_iterate var='dcr_element' list='dcr_list'>
...
</iw_iterate>

For instance. I would recommend the above since it's not that well written but it would seem to approximate what you're trying to do. In this case, "dcr_element" is the variable you would use to reference each DCR.

Thanks!!! Sorry for the confusion. I understand how to load DCR's inside a presentation temaplate. I have that down.
But the above would still have one more dcr in the 'dcr' list than what you load since it loads one when the PT is called (dcr[0])

JonathonG

you said iwpt_compile allows allows for NO dcr's to be passed to it? What syntax is used for this? Thanks guys I really appriciate the help. This has been an isue for some time. Thanks again

If you are calling iwpt_compile.ipl yourself from a script, then yes, this is possible. Simply omit the -iwpt_dcr flag from the command line. If it is being called through the normal generate process (either iwgen, iwregen, or the GUI), then the DCR is passed automatically.

Adam Stoller

Firstly you must be mistaken on the code syntax. Within a CDATA tag this is completely acceptable. Are you having a bad day or what?

Yeah, I may be having a bad day - I skipped lunch and was rather hungry (not a good idea to read devnet on an empty stomach ;-) That aside, unless I've missed something - you cannot use a foreach loop unless you're inside an <iw_perl>...</iw_perl> tag, and you can't (or at least shouldn't IMO) try to use XML PT syntax within an iw_perl block.

I think you may want to look back at the manuals again yourself. Also I did believe 'dcr' to be a reference, but can you show me in the manuals where it tells you that it is a reference value?

From the perldoc for TeamSite: Smiley Tongue

T::iw_perl

            Note:  Since 'dcr' is reserved for the global DCR list, it is a
                   incorrect to name the root node of your parse tree '$dcr'.
                   For example:

                      #   Bad !    Now  is ambiguous!
                      #    |       Don't do it!
                      #    V

                      my $dcr = iwpt_load_dcr('c/d.xml','dcrlocal');

However, on re-reading, I suppose the code originally posted for the foreach loop could make sense as it was using it to reference the global DCR list (I'd just never seen it used that way before).

Finally I have an array of the loaded dcr's but that is not the same as what is in 'dcr'

Now I'm even more confused - you have an array of the loaded dcr's but it's not the same as what's in 'dcr' ? Okay - which one is what you want? If you already have an array - just run through it and ignore the global dcr list - as long as you don't try to reference any of their content via 'dcr.' you should be fine.

John742

I have finally worked this out.
Since you do not have to pass a DCR to iwpt_compile, this solves my problem with worrying about a preloaded DCR. I had gotten errors when I called iwpt_compile without iw_pt-dcr. The reason for the error was not because of removing the param but because I was using dcrlocal mode to load the dcr' in the PT. In this mode you must include iw_pt-dcr. I changed the mode to ptlocal. I then used -iw_pt-arg to pass the variables I needed to know which dcr's to load.
FYI: using ptlocal mode requires you to specific the path to the dcr relative to the presentation temaplte that you call.


calling the PT:
$clt_home/iwpt_compile.ipl -pt $main_page_presentation_template -ofile $main_html_file_location$main_html_file -iw_pt-arg path=$posting `;

loading the dcr's:
if ($amount_of_postings > $max_posting)
  {
   foreach $nonexpired_dcr(@sorted_dcr_files_to_include)
    {
        $dcr_creation_date = $nonexpired_dcr;
     $dcr_creation_date =~ s/.dcr$//;

         if (convert_time_to_epoch($dcr_creation_date) > $expired_dcr_time)
         {
          iwpt_load_dcr("../data/$data_path/$nonexpired_dcr",'ptlocal','t'); 
       }       
    }
   }
    else
    {
     foreach $nonexpired_dcr(@sorted_dcr_files_to_include)
    {
        iwpt_load_dcr("../data/$data_path/$nonexpired_dcr",'ptlocal','t'); 
    }
    }

Iterating thru the loaded dcr's:
<br>  <br><br>   <br>       foreach my $index ( iwpt_dcr_list( 'dcr' ) )<br>   {<br>      <iw_iterate var='index' list='dcr' iteration = "i"><br>       <iw_if expr = '($i % 2) eq 0'><br>             <iw_then><br>      <tr bgcolor="#FFFFFF"><br>     </iw_then><br>     <iw_else><br>      <tr bgcolor="#CCCCCC"><br>     </iw_else>         <br>    </iw_if><br>    <TD ALIGN=LEFT VALIGN=CENTER ><iw_value name = 'index.notice_type' /></TD><br>    <TD ALIGN=LEFT VALIGN=CENTER ><iw_value name = 'index.posted_date' />  <iw_value name = 'index.posted_time' /></td></TD><br>    <iw_if expr = '$four_column eq "true" '><br>     <iw_then><br>       <TD ALIGN=LEFT VALIGN=CENTER ><iw_value name = 'index.effective_date' /></td></TD><br>     </iw_then><br>    </iw_if> <br>    <TD ALIGN=LEFT VALIGN=CENTER ><A HREF="./document_repository/<iw_value name = 'index.html_name'/>.inc.html"><iw_value name = 'index.subject_title' /></td></TD><br>      </iw_iterate><br>   }<br><br>

John742

Iterating thru the loaded dcr's

Code attached

ISCBorisB

FYI: using ptlocal mode requires you to specific the path to the dcr relative to the presentation temaplte that you call.

It's all documented. Get to http://your_ts_server/iw/help/tst/pt/TeamSite__PT__iw_include.html and look for "mode" attribute or
run iwperldoc on TeamSite:T::iw_load_dcr and TeamSite:T::iw_include

Adam Stoller

Your code has multiple end </td>'s in at least two places, it looks like you're nesting the exact same iterate loop that you're doing with the foreach loop so it seems like it's double-nested loop on the same control, and I still question the mixture of perl and XML together like that.
I'd rewrite it like:

<iw_perl>
my $html = q{};
my $i = 0;
my $td_start = qq[<td align="left" valign="center">]; # convenience
foreach my $index (iwpt_dcr_list('dcr')) {
    $html .= ($i % 2) ? qq[<tr bgcolor="#CCCCCC">\n] : qq[<tr bgcolor="#FFFFFF">\n];
    $html .= sprintf("%s%s</td>\n%s%s %s</td>\n"
                     , $td_start
                     , iwpt_dcr_value('index.notice_type')
                     , $td_start
                     , iwpt_dcr_value('index.posted_date')
                     , iwpt_dcr_value('index.posted_time'));
    if ($four_column eq "true"){
        $html .= sprintf("%s%s</td>\n", $td_start, iwpt_dcr_value('index.effective_date'));
    }
    $html .= sprintf(qq[%s<a href="./document_repository/%s.inc.html">%s</td>\n]
                     , $td_start
                     , iwpt_dcr_value('index.html_name')
                     , iwpt_dcr_value('index.subject_title'));
    $i++;
}
iwpt_output($html);
</iw_perl>

(you could skip the sprintf's if you'd like, I just happen to prefer code that fits within 80 character-columns).
Note: I left out the CDATA tags because I always code my PT's with </iw_pt name="..."/> (or not at all) instead of using <iw_pt name="...">...</iw_pt>, I find it makes the code much easier to read.

John742

I do like the approach of pure perl PT's, since I do sometimes struggle with syntax using both perl and XML in a CDATA tag. I will give it a shot on my next project!! Thanks for that.