Hi David,
I allready solfe this problem.
> try adding the following to the top of your script:
>
> use strict;
> use warnings;
I allways do ;-)
> The uninitialized variable warnings that you see will alert you that, in
> your while statement, you assigned each row's hash reference to a
> variable named $zeile, but then attempted to retrieve the values from a
> hashref named $row.
>
> while ( my $row = $result->fetchrow_arrayref ) {
> $uebergabe{ name => $row->[0], link => $row->[1] };
> push ( @suchprofile, \%uebergabe );
> }
>
> should work much better for you.
>
> hth,
>
> -dave
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
I don't know any more which version I showed you. But now I reallized it
with an array:
while ( $zeile = $result->fetchrow_arrayref )
{
push ( @suchprofile, $zeile->[0] );
}
$result->finish();
# Bediene jetzt Template mit Daten
$tmpl = new HTML::Template::Compiled ( filename => TMPL_FILE );
print $cgi_obj->header ( "text/html" ),
$cgi_obj->start_html ( -title => "Startseite" );
$tmpl->param ( vorname => $vorname,
nachname => $nachname,
suchprofile => [EMAIL PROTECTED] );
print $tmpl->output;
$dbh->disconnect();
exit;
And this works.
Thank you...
Gruss Christian
--
Telefonieren Sie schon oder sparen Sie noch?
NEU: GMX Phone_Flat http://www.gmx.net/de/go/telefonie
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
