accessing one dcr in another

I have to access all the DCRs of one datatype in another. so i have included an inline command execute this script. But i am not getting the list of DCRs. Does anyone have any suggestions? please

#!D:/Progra~1/Interwoven/TeamSite/iw-perl/bin/iwperl
use TeamSite: Smiley Very Happy

CRnode;
my @head_list;

print("<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
print("<substitution>");
chdir("y:/default/main/examples/workarea/templating/templatedata/intranet/news/data");
# 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: Smiley Very Happy

CRnode->new($xml_string);

if (defined $rootnode) {
push @head_list, $rootnode->value("Headline");
}
}
for ($i = 0; $i < @head_list; $i++) {
print("<option value=\"$head_list[$i]\" label=\"$head_list[$i]\" />");
}
print("</substitution>");

Find more posts tagged with

Comments

tvaughan

Try throwing some error checking in your script.

Like, in your chdir command, I'd say "unless(chdir( .. .)) { warn "couldn't go to . . .$!" }

And spit out the list of dcrs before pushing them on your dcr list-- see what you're getting.

I do exactly what you're doing all the time and it works like a charm (gets kinda slow when there are a lot of DCRs, though)

Tom

Migrateduser

I agree with adding the error checking. I would caution however that there are probably more efficient ways of doing this.

Do you really want to build a list of all the dcr's for a specific data type every time you have someone open that specific DCT? What I actually would suggest that you try is that you build a static list of the dcr's as a timed event (outside of the context of the inline) or as part of a dcr creation workflow. This way the list of dcr's is only built when you actually need this list updated.

You would then have your inline read in the static list and not have to build the list each time the dct is accessed. This will save you a tremendous amount of overhead on opening the dct screen (since inlines get run every time you open a dcr that uses that dct).

just my 2 cents...

consultant1

I checked whether chdir(...) was working well. The problem is with foreach(<*>) . Please suggest me an alternative to access the file names.

Migrateduser

Look into opendir and readdir. However, I think I know why your globbing operator (<*>) is not doing what you expect. If I'm right, your problem isn't with it, it's with the open a few lines down.

Since you aren't filtering . and .. from the list of files returned by the operator, you are trying to open . and its failing in rather disasterous fashion. To get rid of the directories just add a line like this right there inside your loop:

next if (-d $_);

You might also put a warn on die on that open to see what its doing. Failing that, run it through the debugger and see what you get.