Ouch. Try this instead:
my %hash_ref;
while ($hash_ref = $sth->fetchrow_hashref) {
print "available_hours1: $$hash_ref{'available_hours1'}\n";
print "available_hours2: $$hash_ref{'available_hours2'}\n";
print "available_hours3: $$hash_ref{'available_hours3'}\n";
}
That should help you find the problem.
Jay Hannah
Application Development Manager
Omni Hotels Reservation Center
[EMAIL PROTECTED]
V: 1-402-952-6573
F: 1-402-334-8013
> -----Original Message-----
> From: Brad Smith [mailto:mata@;matatech.tzo.com]
> Sent: Monday, October 21, 2002 8:00 PM
> To: [EMAIL PROTECTED]
> Subject: Strange problem with
>
>
> Using an access database with DBI and DBD-ODBC, I am having the
> strangest problem, and I can't seem to solve it.
>
> The table has three fields, named available_hours1, available_hours2
> and available_hours3. When I retrieve the data, the contents of
> available_hours1 shows up when I say to print available_hours2.
> Below is my code, which I have combed over and over. I can't
> find the
> problem. I was hoping better eyes and wiser minds could figure out
> where my problem may be:
>
> my $dbh = DBI->connect('dbi:ODBC:greene_resource_providers') || die
> DBI::errstr;
> my $sth = $dbh->prepare("SELECT name, nickname, address1,
> address2, address3, city, state,
>
> zipcode, telephone1, telephone2, telephone3, private,
>
> tollfree1, tollfree2, hotline1, hotline2, fax,
>
> contact_name, contact_title, director_name, director_title, email1,
> email2,
> website, available_hours1, available_hours2, available_hours3,
>
> eligibility1, eligibility2, eligibility3, eligibility4, eligibility5,
>
> eligibility6, service1, service2, service3, service4,
>
> service5, service6, service7, service8, service9,
>
> service10, service11, service12, service13, service14,
>
> service15, service16, service17, service18, service19,
>
> service20, service21, service22, service23, service24,
>
> service25, fee_structure1, fee_structure2, appointment,
> required_documentation,
>
> funding_source, service_code, legal_code, speaker, volunteer_use,
>
> volunteer_need, volunteer_description, handicap_code, last_update,
> tax1,
> tax2,
> tax3, tax4, tax5, tax6, tax7, tax8, tax9, tax10, tax11,
> tax12,
> tax13, tax14, tax15, tax16, tax17, tax8, tax19, tax20,
> tax21,
> tax22, tax23, tax24, tax25
> FROM resource_providers
> WHERE sid=?
> ");
> $sth->execute("$in{'sid'}");
>
> while (($name, $nickname, $address1, $address2, $address3, $city,
> $state,
> $zipcode, $telephone1, $telephone2, $telephone3,
> $private,
> $tollfree1, $tollfree2, $hotline1, $hotline2, $fax,
> $contact_name, $contact_title, $director_name,
> $director_title, $email1,
> $email2, $available_hours1, $available_hours2,
> $available_hours3,
> $eligibility1, $eligibility2, $eligibility3,
> $eligibility4,
> $eligibility5,
> $eligibility6, $service1, $service2, $service3,
> $service4,
> $service5, $service6, $service7, $service8, $service9,
> $service10, $service11, $service12, $service13,
> $service14,
> $service15, $service16, $service17, $service18,
> $service19,
> $service20, $service21, $service22, $service23,
> $service24,
> $service25, $fee_structure1, $fee_structure2,
> $appointment, $required_documentation,
> $funding_source, $service_code, $legal_code,
> $speaker, $volunteer_use,
> $volunteer_need, $volunteer_description,
> $handicap_code, $last_update, $tax1,
> $tax2, $tax3, $tax4, $tax5, $tax6, $tax7, $tax8, $tax9,
> $tax10, $tax11,
> $tax12, $tax13, $tax14, $tax15, $tax16, $tax17, $tax18,
> $tax19, $tax20,
> $tax21, $tax22, $tax23, $tax24, $tax25)=$sth-
> >fetchrow_array) { ........ code truncated here
>
> Brad Smith
>
