projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Re-insert useldapserver into koha-conf.xml
[koha.git]
/
catalogue
/
dictionary.pl
diff --git
a/catalogue/dictionary.pl
b/catalogue/dictionary.pl
index
f6a137e
..
6a767f3
100755
(executable)
--- a/
catalogue/dictionary.pl
+++ b/
catalogue/dictionary.pl
@@
-110,7
+110,7
@@
if ($op eq "do_search") {
$sth=$dbh->prepare($strsth);
$sth->execute($value);
$sth=$dbh->prepare($strsth);
$sth->execute($value);
-
my $total
;
+
$total=0
;
my @catresults;
my $javalue;
while (my ($value,$ctresults)=$sth->fetchrow) {
my @catresults;
my $javalue;
while (my ($value,$ctresults)=$sth->fetchrow) {
@@
-127,7
+127,7
@@
if ($op eq "do_search") {
}
}
-
my
$strsth="Select distinct authtypecode from marc_subfield_structure where (";
+ $strsth="Select distinct authtypecode from marc_subfield_structure where (";
foreach my $listtags (@tags){
my @taglist=split /,/,$listtags;
foreach my $curtag (@taglist){
foreach my $listtags (@tags){
my @taglist=split /,/,$listtags;
foreach my $curtag (@taglist){
@@
-137,9
+137,9
@@
if ($op eq "do_search") {
}
$strsth=~s/ OR$/)/;
}
$strsth=~s/ OR$/)/;
-
my $strsth = $strsth.
" and authtypecode is not NULL";
+
$strsth .=
" and authtypecode is not NULL";
# warn $strsth;
# warn $strsth;
-
my
$sth=$dbh->prepare($strsth);
+ $sth=$dbh->prepare($strsth);
$sth->execute;
#
$sth->execute;
#
@@
-251,9
+251,6
@@
$template->param(search => $search[0],
marclist =>$field,
type=>$type,
anindex => $input->param('index'),
marclist =>$field,
type=>$type,
anindex => $input->param('index'),
- intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
);
# Print the page
);
# Print the page