[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin currency.pl,1.9,1.9.2.1
From: |
MJ Ray |
Subject: |
[Koha-cvs] CVS: koha/admin currency.pl,1.9,1.9.2.1 |
Date: |
Tue, 23 Dec 2003 06:41:17 -0800 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv15518/admin
Modified Files:
Tag: rel_2_0
currency.pl
Log Message:
DBI call fix for bug 662
Index: currency.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/currency.pl,v
retrieving revision 1.9
retrieving revision 1.9.2.1
diff -C2 -r1.9 -r1.9.2.1
*** currency.pl 6 May 2003 14:55:39 -0000 1.9
--- currency.pl 23 Dec 2003 14:41:14 -0000 1.9.2.1
***************
*** 69,75 ****
my $input = new CGI;
my $searchfield=$input->param('searchfield');
- my $pkfield="currency";
- my $reqsel="select currency,rate from currency where $pkfield='$searchfield'";
- my $reqdel="delete from currency where $pkfield='$searchfield'";
#my $branchcode=$input->param('branchcode');
my $offset=$input->param('offset');
--- 69,72 ----
***************
*** 101,106 ****
if ($searchfield) {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select currency,rate from currency where
currency='$searchfield'");
! $sth->execute;
$data=$sth->fetchrow_hashref;
$sth->finish;
--- 98,103 ----
if ($searchfield) {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select currency,rate from currency where
currency=?");
! $sth->execute($searchfield);
$data=$sth->fetchrow_hashref;
$sth->finish;
***************
*** 138,147 ****
$template->param(delete_confirm => 1);
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select count(*) as total from aqbooksellers
where currency='$searchfield'");
! $sth->execute;
my $total = $sth->fetchrow_hashref;
$sth->finish;
! my $sth2=$dbh->prepare($reqsel);
! $sth2->execute;
my $data=$sth2->fetchrow_hashref;
$sth2->finish;
--- 135,144 ----
$template->param(delete_confirm => 1);
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select count(*) as total from aqbooksellers
where currency=?");
! $sth->execute($searchfield);
my $total = $sth->fetchrow_hashref;
$sth->finish;
! my $sth2=$dbh->prepare("select currency,rate from currency where
currency=?");
! $sth2->execute($searchfield);
my $data=$sth2->fetchrow_hashref;
$sth2->finish;
***************
*** 159,164 ****
$template->param(delete_confirmed => 1);
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare($reqdel);
! $sth->execute;
$sth->finish;
# END $OP eq DELETE_CONFIRMED
--- 156,161 ----
$template->param(delete_confirmed => 1);
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("delete from currency where currency=?");
! $sth->execute($searchfield);
$sth->finish;
# END $OP eq DELETE_CONFIRMED
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin currency.pl,1.9,1.9.2.1,
MJ Ray <=