-----Original Message-----
From: Eustace, Glen [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 16, 2000 12:42 PM
To: '[EMAIL PROTECTED]'
Subject: Failure to find function in Apache::SSI using DBI
<snip>
[Thu Nov 16 21:45:33 2000] [error] [Thu Nov 16 21:45:33 2000] null: Can't
locate object method "selectrow_array" via package "GodZoneSSI" at
/usr/local/godzone/modperl/GodZoneSSI.pm line 27, <GEN0> chunk 1.
<snip>
package GodZoneSSI;
use DBI();
use Apache::SSI();
@ISA = qw( Apache::SSI );
# ------------------------------------------------------------------------
# Resource Cost Lookup
# ------------------------------------------------------------------------
# <!--#ResCost zone=n code=nnn -->
sub ssi_rescost {
############ LOOK HERE
my( $self, $oParm ) = @_;
my( $oDBase ) = DBI->connect( 'dbi:Pg:dbname=admin', '?????', '??????' );
my( $oDBase, $iResCode, $iZone ) = @_;
############ LOOK HERE
Look at what you are doing to $oDBase. First, you assign it a DBI handle.
Then you override it w/ the first value in @_.
Which is naturally a GodSoneSSI handler reference.
*AND*, $oParm && $iResCode get the same value as well.
If you intended all of those values to come off of @_, then perhaps:
my( $self, $oParm, $iResCode, $iZone ) = @_;
my( $oDBase ) = DBI->connect( 'dbi:Pg:dbname=admin', '?????', '??????' );
might do what you wanted.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]