[Koha-cvs] koha/C4 Biblio.pm

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/07/20 14:02:58

Modified files:
        C4             : Biblio.pm 

Log message:
        Adding biblio.biblionumber to GetItemsfor Inventory

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.218&r2=1.219

Patches:
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.218
retrieving revision 1.219
diff -u -b -r1.218 -r1.219
--- Biblio.pm   19 Jul 2007 07:40:08 -0000      1.218
+++ Biblio.pm   20 Jul 2007 14:02:57 -0000      1.219
@@ -20,6 +20,7 @@
 use strict;
 
 require Exporter;
+use utf8;
 use C4::Context;
 use MARC::Record;
 use MARC::File::USMARC;
@@ -27,13 +28,12 @@
 use ZOOM;
 use C4::Koha;
 use C4::Date;
-use utf8;
 use C4::Log; # logaction
 
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.218 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.219 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -1120,7 +1120,7 @@
     if ($datelastseen) {
         $datelastseen=format_date_in_iso($datelastseen);  
         my $query =
-                "SELECT 
itemnumber,barcode,itemcallnumber,title,author,datelastseen
+                "SELECT 
itemnumber,barcode,itemcallnumber,title,author,biblio.biblionumber,datelastseen
                  FROM items
                    LEFT JOIN biblio ON items.biblionumber=biblio.biblionumber 
                  WHERE itemcallnumber>= ?
@@ -1134,7 +1134,7 @@
     }
     else {
         my $query ="
-                SELECT 
itemnumber,barcode,itemcallnumber,title,author,datelastseen
+                SELECT 
itemnumber,barcode,itemcallnumber,biblio.biblionumber,title,author,datelastseen
                 FROM items 
                   LEFT JOIN biblio ON items.biblionumber=biblio.biblionumber 
                 WHERE itemcallnumber>= ?
@@ -1502,7 +1502,7 @@
         $res->{$tag}->{$subfield}->{seealso}          = $seealso;
         $res->{$tag}->{$subfield}->{hidden}           = $hidden;
         $res->{$tag}->{$subfield}->{isurl}            = $isurl;
-        $res->{$tag}->{$subfield}->{link}             = $link;
+        $res->{$tag}->{$subfield}->{'link'}           = $link;
         $res->{$tag}->{$subfield}->{defaultvalue}     = $defaultvalue;
     }
     return $res;
@@ -3941,9 +3941,6 @@
     return ($count);
 }
 
-
-
-
 END { }    # module clean-up code here (global destructor)
 
 1;
@@ -3960,8 +3957,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.218 2007/07/19 07:40:08 hdl Exp $
+# $Id: Biblio.pm,v 1.219 2007/07/20 14:02:57 hdl Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.219  2007/07/20 14:02:57  hdl
+# Adding biblio.biblionumber to GetItemsfor Inventory
+#
 # Revision 1.218  2007/07/19 07:40:08  hdl
 # Adding selection by location for inventory
 #