On Tuesday 04 April 2006 01:37, John Russell wrote:
> sub authenticate {
>
> my $r = shift;
>
> my $dbh;
>
> $dbh = DBI->connect("dbi:Oracle:XE", "WEB_LOGIN", "nnnn",
> {RaiseError => 0, AutoCommit => 1, PrintError => 0})
> || return "Error connecting.\n$DBI::errstr\n";
> }
>
> $r->pnotes(DBH => $dbh);
> }
does it make a difference if
$r->pnotes(DBH => $dbh);
is changed into
$r->pnotes->{DBH} = $dbh;
?
Torsten
pgpnMIStslhzY.pgp
Description: PGP signature
