[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin thesaurus.pl,1.9,1.9.2.1
From: |
MJ Ray |
Subject: |
[Koha-cvs] CVS: koha/admin thesaurus.pl,1.9,1.9.2.1 |
Date: |
Thu, 18 Dec 2003 18:15:27 -0800 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv4454/admin
Modified Files:
Tag: rel_2_0
thesaurus.pl
Log Message:
DBI call fix for bug 662
Index: thesaurus.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/thesaurus.pl,v
retrieving revision 1.9
retrieving revision 1.9.2.1
diff -C2 -r1.9 -r1.9.2.1
*** thesaurus.pl 10 Jul 2003 14:11:46 -0000 1.9
--- thesaurus.pl 19 Dec 2003 02:15:25 -0000 1.9.2.1
***************
*** 39,43 ****
my $father=$input->param('father');
! my $reqsel="select category,stdlib,freelib from bibliothesaurus where
id='$id'";
my $reqdel="delete from bibliothesaurus where id='$id'";
my $script_name="/cgi-bin/koha/admin/thesaurus.pl";
--- 39,43 ----
my $father=$input->param('father');
! my $reqsel="";
my $reqdel="delete from bibliothesaurus where id='$id'";
my $script_name="/cgi-bin/koha/admin/thesaurus.pl";
***************
*** 74,79 ****
if ($id) {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select id,category,freelib,stdlib from
bibliothesaurus where id='$id'");
! $sth->execute;
$data=$sth->fetchrow_hashref;
$sth->finish;
--- 74,79 ----
if ($id) {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select id,category,freelib,stdlib from
bibliothesaurus where id=?");
! $sth->execute($id);
$data=$sth->fetchrow_hashref;
$sth->finish;
***************
*** 124,129 ****
} elsif ($op eq 'delete_confirm') {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare($reqsel);
! $sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
--- 124,129 ----
} elsif ($op eq 'delete_confirm') {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select category,stdlib,freelib from
bibliothesaurus where id=?");
! $sth->execute($id);
my $data=$sth->fetchrow_hashref;
$sth->finish;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin thesaurus.pl,1.9,1.9.2.1,
MJ Ray <=