another odd error:
[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
