cgitask parse multiple values from single DCR item

TeamSite 5.5.2 SP2 Windows 2000

I have a cgitask that calls my ipl. In the ipl I parse the DCR to extract item values from the DCR.

open DCR,$dcrname or die("$! - Cannot open DCR (r)...get help from the teamsite admin");

# read in the entire DCR
local $/=undef;
my $xml = <DCR>;
close DCR;

my $parser = TeamSite::XMLparser->new();
my $rootnode = $parser->parse($xml);

if (defined $rootnode)
{

# Read values from DCR
foreach $dcr_item (@tags)
{
$dcr_element = $rootnode->value($dcr_item);
if ($dcr_element ne "")
{
........
}
else { print "\n$dcr_item is null" if $DEBUG;}
}
}
else
{
print "DCR rootnode undefined";
exit (1);
}

This works fine for items with a single value, but how do I get multiple values for option dropdown lists where multiselect='t' ?

Find more posts tagged with

Comments

james1

Please see the perldocs for TeamSite::XMLparser::value. It says:

See CDATA() for more information on accessing multi-valued nodes.

You may want to read up on CDATA() and get_node_list().

-- James

--
James H Koh
Interwoven Engineering

gzevin

Teamdite:

CRNode is even simpler to parse DCRs. It comes with comprehensive documentation taht has all the examples.

Greg Zevin
Independent Interwoven Consultant/Architect
Sydney, AU

Adam Stoller

Minor (?) code node - you have:


open DCR,$dcrname or die("$! - Cannot open DCR (r)...get help from the teamsite admin");

# read in the entire DCR
local $/=undef;
my $xml = ;
close DCR;

The slurping of the file should be done within its own block of code like this:


open DCR,$dcrname or die("$! - Cannot open DCR (r)...get help from the teamsite admin");
{
# read in the entire DCR
local $/=undef;
my $xml = ;
}
close DCR;

Otherwise the setting of $/ could have an effect on other parts of the code.

--fish
(Interwoven Senior Technical Consultant)

lcarr

Thanks to all for the Interwoven and Perl assistance! I have it working with get_node_list()