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

merging 1.2 and main. Only cosmetic

This commit is contained in:
tipaul 2002-06-28 08:38:48 +00:00
parent b1c4e44fa0
commit 5042cb12dd
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C4/Search.pm
View File

@ -10,7 +10,7 @@ use Set::Scalar;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
$VERSION = 0.01;
$VERSION = 0.02;
@ISA = qw(Exporter);
@EXPORT = qw(&CatSearch &BornameSearch &ItemInfo &KeywordSearch &subsearch
@ -530,11 +530,9 @@ sub CatSearch {
where biblio.biblionumber=biblioitems.biblionumber
and biblioitems.dewey like '$search->{'dewey'}%'";
} elsif ($search->{'illustrator'} ne '') {
if ($search->{'illustrator'} ne ''){
$query="select * from biblioitems,biblio
where biblio.biblionumber=biblioitems.biblionumber
and biblioitems.illus like '%".$search->{'illustrator'}."%'";
}
}
$query .=" group by biblio.biblionumber";
}
@ -572,7 +570,7 @@ sub CatSearch {
my $search2=uc $search->{'isbn'};
my $query1 = "select * from biblioitems where isbn='$search2'";
my $sth1=$dbh->prepare($query1);
# print $query1;
# print STDERR "$query1\n";
$sth1->execute;
my $i2=0;
while (my $data=$sth1->fetchrow_hashref) {
@ -605,7 +603,7 @@ if ($type ne 'precise' && $type ne 'subject'){
$query=$query." order by subject";
}
}
#print $query;
#print STDERR "$query\n";
my $sth=$dbh->prepare($query);
$sth->execute;
my $count=1;