Hi,
I am trying to read values from an array of dcrs. This seems to get the dcr names, but I am not getting the values.. Please suggest..
Thanks in advance..
my $directory="/default/main/2008_10_dev/WORKAREA/users/templatedata/ContentTypes/CATALOG/data";
print LOG "directory is $directory\n";
opendir(DIR, $directory) or die "could not open $directory: $!\n";
my
@files = grep { $_ ne '.' && $_ ne '..' } readdir DIR;
my $iwhome = TeamSite::Config::iwgethome();
my $path = iwpt_get_dcr_name();
$path =~ s#\\#/#g;
$path =~ s#(.*/WORKAREA)/(\w+)(.*)#$1/$2#;
$path =~ s|/.iwmnt||;
foreach my $index (
@files ) {
my $xmlin = "/templatedata/ContentTypes/CATALOG/data/$index";
my $parser = TeamSite:

CRparser->new();
my $fullpatha = $path.$xmlin;
if (!open (FH, "$fullpatha")){
print LOG "Error Opening $xmlin\n";
}
my $xml = do { local $/; };
my $rootnode = $parser->parse("$xml",'dcr');
print LOG "rootnode is $rootnode\n";
if ($rootnode) {
$Value1 = $rootnode->value('CONTENT_ID');
print LOG "catlog_value is $Value1\n";
}
}