[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin stopwords.pl,1.10,1.10.2.1
From: |
MJ Ray |
Subject: |
[Koha-cvs] CVS: koha/admin stopwords.pl,1.10,1.10.2.1 |
Date: |
Mon, 05 Jan 2004 09:53:38 -0800 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv2517/admin
Modified Files:
Tag: rel_2_0
stopwords.pl
Log Message:
DBI call fix for bug 662
Index: stopwords.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/stopwords.pl,v
retrieving revision 1.10
retrieving revision 1.10.2.1
diff -C2 -r1.10 -r1.10.2.1
*** stopwords.pl 6 May 2003 14:55:39 -0000 1.10
--- stopwords.pl 5 Jan 2004 17:53:36 -0000 1.10.2.1
***************
*** 53,59 ****
my @data=split(' ',$searchstring);
my address@hidden;
! my $query="Select word from stopwords where (word like \"$data[0]%\")
order by word";
! my $sth=$dbh->prepare($query);
! $sth->execute;
my @results;
my $cnt=0;
--- 53,59 ----
my @data=split(' ',$searchstring);
my address@hidden;
! my $query="";
! my $sth=$dbh->prepare("Select word from stopwords where (word like ?)
order by word");
! $sth->execute("$data[0]%");
my @results;
my $cnt=0;
***************
*** 69,75 ****
my $input = new CGI;
my $searchfield=$input->param('searchfield');
- my $pkfield="word";
- my $reqsel="select word from stopwords where $pkfield='$searchfield'";
- my $reqdel="delete from stopwords where $pkfield='$searchfield'";
my $offset=$input->param('offset');
my $script_name="/cgi-bin/koha/admin/stopwords.pl";
--- 69,72 ----
***************
*** 100,105 ****
if ($searchfield) {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select word from stopwords where
word='$searchfield'");
! $sth->execute;
$data=$sth->fetchrow_hashref;
$sth->finish;
--- 97,102 ----
if ($searchfield) {
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select word from stopwords where
word=?");
! $sth->execute($searchfield);
$data=$sth->fetchrow_hashref;
$sth->finish;
***************
*** 124,129 ****
$template->param(delete_confirm => 1);
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare($reqsel);
! $sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
--- 121,126 ----
$template->param(delete_confirm => 1);
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select word from stopwords where word=?");
! $sth->execute($searchfield);
my $data=$sth->fetchrow_hashref;
$sth->finish;
***************
*** 134,139 ****
$template->param(delete_confirmed => 1);
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare($reqdel);
! $sth->execute;
$sth->finish;
# END $OP eq DELETE_CONFIRMED
--- 131,136 ----
$template->param(delete_confirmed => 1);
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("delete from stopwords where word=?");
! $sth->execute($searchfield);
$sth->finish;
# END $OP eq DELETE_CONFIRMED
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin stopwords.pl,1.10,1.10.2.1,
MJ Ray <=