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

Minor changes to add classification data to return array from loose search.

This commit is contained in:
shedges 2004-09-04 13:48:27 +00:00
parent 43d36aca61
commit 686a41a71c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C4/Search.pm
View File

@ -1235,7 +1235,7 @@ sub CatSearch {
my $i=0;
my $limit= $num+$offset;
while (my $data=$sth->fetchrow_hashref){
my $query="select dewey,subclass,publishercode from biblioitems where biblionumber=?";
my $query="select classification,dewey,subclass,publishercode from biblioitems where biblionumber=?";
my @bind=($data->{'biblionumber'});
if ($search->{'class'} ne ''){
my @temp=split(/\|/,$search->{'class'});
@ -1262,6 +1262,7 @@ sub CatSearch {
}
my $sti=$dbh->prepare($query);
$sti->execute(@bind);
my $classification;
my $dewey;
my $subclass;
my $true=0;
@ -1269,6 +1270,7 @@ sub CatSearch {
my $bibitemdata;
if ($bibitemdata = $sti->fetchrow_hashref()){
$true=1;
$classification=$bibitemdata->{'classification'};
$dewey=$bibitemdata->{'dewey'};
$subclass=$bibitemdata->{'subclass'};
$publishercode=$bibitemdata->{'publishercode'};
@ -1278,6 +1280,7 @@ sub CatSearch {
$dewey=~s/\.*0*$//;
($dewey == 0) && ($dewey='');
($dewey) && ($dewey.=" $subclass");
$data->{'classification'}=$classification;
$data->{'dewey'}=$dewey;
$data->{'publishercode'}=$publishercode;
$sti->finish;