in reply to Re: Template::Toolkit - How do i access alias-based results?
in thread Template::Toolkit - How do i access alias-based results?
print "Content-type: text/html\n\n"; my $oTT = Template->new({ INCLUDE_PATH => '../templates', EVAL_PERL => 1, ABSOLUTE => 1, }) || die "$Template::ERROR\n"; # DB - Connect my $hDB = DBI->connect( "dbi:Oracle:xe", "lp", "lpdba", { AutoCommit = +> 0 } ); my $hStatement = $hDB->prepare(" SELECT v.vertragsnummer, a.artikelnr, v.status, v.datum, v.nachric +ht FROM vertraege v, artikel a, benutzer b, lieferanten l, mandanten +m [...]"); $hStatement->execute( ); while ( ( $iVertragsnummer, $sArtikelNr, $sVertragsStatus, $sVertragsD +atum, $iMsgID ) = $hStatement->fetchrow_array() ){ push (@aRows, ( $iVertragsnummer, $sArtikelNr, $sVertragsStatus, $s +VertragsDatum, $iMsgID )); } $hStatement->finish; $hDB->disconnect; my $sData = { 'result' => \@aRows }; $oTT->process("../templates/mytemp.html", $sData) || die $oTT->error() +, "\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Template::Toolkit - How do i access alias-based results?
by tangent (Parson) on Jul 13, 2015 at 14:28 UTC | |
by Yaerox (Scribe) on Jul 14, 2015 at 06:48 UTC | |
by locked_user sundialsvc4 (Abbot) on Jul 13, 2015 at 16:21 UTC |