nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Teamsite Perl modules

Jenni

Hi All,

Does the TeamSite 6.7.1 ships with the DBI and DBD perl modules?

Thanks!
Jenni

Find more posts tagged with

Comments

nipper

I see both DBI and DBD

try perldoc for the PM you need

jstephan

Yes. I am using those. I am using what comes with TS 671.

Jenni

Yes. I am using those. I am using what comes with TS 671.

Thanks for the replies! Could you share a working example with me?

-Jenni

jstephan

Thanks for the replies! Could you share a working example with me?

-Jenni

The following program is to execute a stored procedure and return a set of values for inline command in a DCT.

#!D:\iwhome/iw-perl/bin/iwperl
########################################################################
# Set Required Env Variables for Oracle 
########################################################################
BEGIN {
 $ENV{PATH} = "d:/oracle/product/10.2.0/client_1";
 $ENV{SYSTEMROOT} = "C:/WINDOWS";
}

########################################################################
# Required Perl Modules
########################################################################
use strict;
use DBI;
use DBD:racle qw(ra_types);
use HTML::Entities;

my $dbHost = "iwovdb";
my $dbSID = "ts";

#########################################################################
# Connect to Oracle using Perl DBI
#########################################################################
my $dbh = DBI->connect( "dbiracle:host=$dbHost;sid=$dbSID",
                        $locale,
                        $locale,
      {
       RaiseError => 1,
       AutoCommit => 0
      }
     ) || die "Database connection not made: $DBI::errstr";

my $storeproc="ts.get_name";
my $sth2;
my $setName;

my $func = $dbh->prepare(qq{
 BEGIN
 :rv := $storeproc;
 END;
 });

$func->bind_param_inout(":rv", \$sth2, 0, { ora_type => ORA_RSET });
$func->execute;

if( $@ ) {
 warn "Execution of stored procedure failed: $DBI::errstr\n";
 $dbh->rollback;
}
while ( my @row = $sth2->fetchrow_array )
{        
 my $id_gen = $row[0];
 my $name_gen = $row[4];
 encode_entities($name_gen);
 $setName .= "\n";
}

print   '' . "\n" .
$setName . "\n" .
'' . "\n";

Jenni

Thanks soo much. I appreciate your quick response.

I am now confirmed that there is no need to install the DBD and the DBI module.

Thanks!