Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Cleaned up contents of location information

Browse source
This commit is contained in:
tonnesen 2002-07-11 05:48:01 +00:00
parent 17388eccad
commit b6f8a4a580
1 changed files with 28 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
C4/Search.pm
View file

@ -110,11 +110,37 @@ sub catalogsearch {
my $subject2=$data->{'subject'};
$subject2=~ s/ /%20/g;
$data->{'itemcount'}=$counts->{'total'};
my $totalitemcounts=0;
foreach my $key (keys %$counts){
if ($key ne 'total'){
$data->{'location'}.="$key $counts->{$key} ";
#$data->{'location'}.="$key $counts->{$key} ";
$totalitemcounts+=$counts->{$key};
$data->{'locationhash'}->{$key}=$counts->{$key};
}
}
my $locationtext='';
my $notavailabletext='';
foreach (sort keys %{$data->{'locationhash'}}) {
if ($_ eq 'notavailable') {
$notavailabletext="Not available";
my $c=$data->{'locationhash'}->{$_};
if ($totalitemcounts>1) {
$notavailabletext.=" ($c)";
}
} else {
$locationtext.="$_";
my $c=$data->{'locationhash'}->{$_};
if ($totalitemcounts>1) {
$locationtext.=" ($c), ";
}
}
}
if ($notavailabletext) {
$locationtext.=$notavailabletext;
} else {
$locationtext=~s/, $//;
}
$data->{'location'}=$locationtext;
$data->{'subject2'}=$subject2;
}
}
@ -761,7 +787,7 @@ sub ItemInfo {
and (wthdrawn <> 1 or wthdrawn is NULL)";
}
$query .= " order by items.dateaccessioned desc";
warn $query;
#warn $query;
my $sth=$dbh->prepare($query);
$sth->execute;
my $i=0;