[Koha-cvs] koha/C4 Search.pm [rel_3_0]

[paul poulain]

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;