[Koha-cvs] koha/C4 Search.pm [rel_3_0]
paul poulain
paul at koha-fr.org
Wed Nov 15 15:46:41 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: paul poulain <tipaul> 06/11/15 14:46:41
Modified files:
C4 : Search.pm
Log message:
- reindenting a little
- adding itemcallnumber in the returned result (usefull for libraries that have itemcallnumber <> callnumber)
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.120.2.22&r2=1.120.2.23
Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.120.2.22
retrieving revision 1.120.2.23
diff -u -b -r1.120.2.22 -r1.120.2.23
--- Search.pm 10 Nov 2006 08:41:35 -0000 1.120.2.22
+++ Search.pm 15 Nov 2006 14:46:40 -0000 1.120.2.23
@@ -39,7 +39,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.120.2.22 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.120.2.23 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
=head1 NAME
@@ -3213,12 +3213,12 @@
elsif ($item->{'holdingbranch'}) {
$items->{$item->{'homebranch'}}->{count}++;
}
+ $items->{$item->{homebranch}}->{itemcallnumber}= $item->{itemcallnumber};
}
} # notforloan, item level and biblioitem level
- #
for my $key (keys %$items) {
#warn "key: $key";
- my $this_item = { branchname => $branches{$key}, branchcode => $key, count => $items->{$key}->{count} };
+ my $this_item = { branchname => $branches{$key}, branchcode => $key, count => $items->{$key}->{count}, itemcallnumber => $items->{$key}->{itemcallnumber} };
push @items_loop, $this_item;
}
$oldbiblio->{norequests} = $norequests;
More information about the Koha-cvs
mailing list