On Mar 29, 2012, at 2:45 PM, Bruce Johnson wrote: > another odd error: >
Accidentally clipped off the actual error: DBD::Oracle::st fetchrow failed: ERROR no statement executing (perhaps you need to call execute first) > [for Statement "select distinct a.cn, a.email from admins a, > resourceadminaffil r, resources r2, adminaffil a2, affils a3 where a.pid = > r.pid and r.resource_id = r2.resource_id and a.pid = a2.pid and a2.affil_id = > a3.affil_id and a3.affil_code in ('1901','PHRM') and r2.resource_id =?" with > ParamValues: :p1='149'] at /home/allwebfiles/perl/reserve2.pl line 124., > referer: https://resource-scheduler.pharmacy.arizona.edu/calendar/reserve.pl > > Execute is being called, so what else could cause this error? > > Happens at: > > my $sq_prefapp ="select distinct a.cn, a.email from admins a, > resourceadminaffil r, resources r2, adminaffil a2, affils a3 where a.pid = > r.pid and r.resource_id = r2.resource_id and a.pid = a2.pid and a2.affil_id = > a3.affil_id and a3.affil_code in ('$dept','$coll') and r2.resource_id =?"; > > my $csr_prefapp= $lda->prepare($sq_prefapp) or die $DBI::errstr; > > my $sq_allapp ="select distinct a.cn, a.email from admins a, > resourceadminaffil r, resources r2 where a.pid = r.pid and r.resource_id = > r2.resource_id and r2.resource_id =?"; > > my $csr_allapp =$lda->prepare($sq_allapp) or die $DBI::errstr; > my ($have_pref, %approvers); > > foreach $i (@resources){ > $have_pref=0; > $csr_prefapp->execute($i) or die > $DBI::errstr;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< I know this is being called, > because the right value is in the ParamValues part of the error message > while (($k, $j) = > $csr_prefapp->fetchrow()){$approvers{$k}=$j;$have_pref=1;} > if (!$have_pref){ > $csr_allapp->execute($i) or die $DBI::errstr; > while (($k, $j) = $csr_prefapp->fetchrow()){$approvers{$k}=$j;} > } > } -- Bruce Johnson University of Arizona College of Pharmacy Information Technology Group Institutions do not have opinions, merely customs