[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin aqbudget.pl,1.15,1.15.2.1
From: |
MJ Ray |
Subject: |
[Koha-cvs] CVS: koha/admin aqbudget.pl,1.15,1.15.2.1 |
Date: |
Fri, 19 Dec 2003 04:56:31 -0800 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv4002/admin
Modified Files:
Tag: rel_2_0
aqbudget.pl
Log Message:
DBI call fix for bug 662
Index: aqbudget.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbudget.pl,v
retrieving revision 1.15
retrieving revision 1.15.2.1
diff -C2 -r1.15 -r1.15.2.1
*** aqbudget.pl 13 Jun 2003 13:46:03 -0000 1.15
--- aqbudget.pl 19 Dec 2003 12:56:29 -0000 1.15.2.1
***************
*** 54,60 ****
my @data=split(' ',$searchstring);
my address@hidden;
! my $query="Select aqbudgetid,bookfundid,startdate,enddate,budgetamount
from aqbudget where (bookfundid like \"$data[0]%\") order by
bookfundid,aqbudgetid";
! my $sth=$dbh->prepare($query);
! $sth->execute;
my @results;
my $cnt=0;
--- 54,59 ----
my @data=split(' ',$searchstring);
my address@hidden;
! my $sth=$dbh->prepare("Select
aqbudgetid,bookfundid,startdate,enddate,budgetamount from aqbudget where
(bookfundid like ?) order by bookfundid,aqbudgetid");
! $sth->execute("$data[0]%");
my @results;
my $cnt=0;
***************
*** 104,111 ****
if ($aqbudgetid) {
my $dbh = C4::Context->dbh;
! my $query="select
aqbudgetid,bookfundname,aqbookfund.bookfundid,startdate,enddate,budgetamount
from aqbudget,aqbookfund where aqbudgetid='$aqbudgetid' and
aqbudget.bookfundid=aqbookfund.bookfundid";
! # print $query;
! my $sth=$dbh->prepare($query);
! $sth->execute;
$dataaqbudget=$sth->fetchrow_hashref;
$sth->finish;
--- 103,108 ----
if ($aqbudgetid) {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select
aqbudgetid,bookfundname,aqbookfund.bookfundid,startdate,enddate,budgetamount
from aqbudget,aqbookfund where aqbudgetid=? and
aqbudget.bookfundid=aqbookfund.bookfundid");
! $sth->execute($aqbudgetid);
$dataaqbudget=$sth->fetchrow_hashref;
$sth->finish;
***************
*** 137,142 ****
} elsif ($op eq 'add_validate') {
my $dbh = C4::Context->dbh;
! my $query = "replace aqbudget
(aqbudgetid,bookfundid,startdate,enddate,budgetamount) values (?,?,?,?,?)";
! my $sth=$dbh->prepare($query);
$sth->execute($input->param('aqbudgetid'),$input->param('bookfundid'),
format_date_in_iso($input->param('startdate')),
--- 134,138 ----
} elsif ($op eq 'add_validate') {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("replace aqbudget
(aqbudgetid,bookfundid,startdate,enddate,budgetamount) values (?,?,?,?,?)");
$sth->execute($input->param('aqbudgetid'),$input->param('bookfundid'),
format_date_in_iso($input->param('startdate')),
***************
*** 152,157 ****
} elsif ($op eq 'delete_confirm') {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select
aqbudgetid,bookfundid,startdate,enddate,budgetamount from aqbudget where
aqbudgetid='$aqbudgetid'");
! $sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
--- 148,153 ----
} elsif ($op eq 'delete_confirm') {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select
aqbudgetid,bookfundid,startdate,enddate,budgetamount from aqbudget where
aqbudgetid=?");
! $sth->execute($aqbudgetid);
my $data=$sth->fetchrow_hashref;
$sth->finish;
***************
*** 167,173 ****
my $dbh = C4::Context->dbh;
my $aqbudgetid=uc($input->param('aqbudgetid'));
! my $query = "delete from aqbudget where aqbudgetid='$aqbudgetid'";
! my $sth=$dbh->prepare($query);
! $sth->execute;
$sth->finish;
print $input->redirect("aqbookfund.pl");
--- 163,168 ----
my $dbh = C4::Context->dbh;
my $aqbudgetid=uc($input->param('aqbudgetid'));
! my $sth=$dbh->prepare("delete from aqbudget where aqbudgetid=?");
! $sth->execute($aqbudgetid);
$sth->finish;
print $input->redirect("aqbookfund.pl");
***************
*** 190,196 ****
my $dataaqbookfund;
my $dbh = C4::Context->dbh;
! my $query="select bookfundid,bookfundname from aqbookfund where
bookfundid=?";
! # print $query;
! my $sth=$dbh->prepare($query);
$sth->execute($results->[$i]{'bookfundid'});
$dataaqbookfund=$sth->fetchrow_hashref;
--- 185,189 ----
my $dataaqbookfund;
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select bookfundid,bookfundname from
aqbookfund where bookfundid=?");
$sth->execute($results->[$i]{'bookfundid'});
$dataaqbookfund=$sth->fetchrow_hashref;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin aqbudget.pl,1.15,1.15.2.1,
MJ Ray <=