I have created a module, and inside one of the Package methods, I have
the following code:
$href = $getPlanInfo->fetchrow_hashref();
foreach my $key (keys %$href) {
print "$key : $href->{$key}\n";
$name = $key;
$self->{$name} = $href->{$key};
}
Now, in the main program that calls this method, I have the following:
my ($user) = new Accounting::EagleUser();
$user->getPlanInfo("steveb");
print "$user->{'plan'} $user->{'username'}\n";
What is happening, is that getPlanInfo() takes a single param, (a
username). It then performs a fetchrow_hashref, creating the keys for
the user object with the table field names from the db, and the values
are the actual data from the table row.
However, my problem is that some users have more than one row. I have
tried for days, playing, reading, etc and you guys(gals) feel like my
last hope. I can't figure out a way to give the user object multiple
values for a single key. The output when print only shows the fetched
row that it got first, and it appears the second is never looked at.
I was thinking that if I implemented something like $self->{$key$i},
where $i could be an incremented integer, I'd have what I was looking
for, but how do I iterate through the DB to the next row using
fetchrow_hashref to do this?
I really appreciate any insight at all that will help clarify this for
me, or at least put me back on a path I feel I have wandered waaay off
of.
Tks!
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
