gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bugfix 214 : can enter stopwords separated by space or ,

This commit is contained in:
tipaul 2003-03-18 11:58:49 +00:00
parent d3fedd6789
commit 81e5ddd39c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
admin/stopwords.pl
View File

@ -167,10 +167,11 @@ printend
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
my $dbh = C4::Context->dbh;
my $query = "replace stopwords (word) values (";
$query.= $dbh->quote($input->param('word')).")";
my $sth=$dbh->prepare($query);
$sth->execute;
my @tab = split / |,/, $input->param('word');
my $sth=$dbh->prepare("replace stopwords (word) values (?)");
foreach my $insert_value (@tab) {
$sth->execute($insert_value);
}
$sth->finish;
print "data recorded";
print "<form action='$script_name' method=post>";