[Koha-cvs] CVS: koha/C4 Search.pm,1.61,1.62

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv32673/C4

Modified Files:
        Search.pm 
Log Message:
small fix to avoid empty list when itemtypes does'nt exist in DB

Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -C2 -r1.61 -r1.62
*** Search.pm   19 Mar 2003 21:37:21 -0000      1.61
--- Search.pm   1 Apr 2003 13:19:55 -0000       1.62
***************
*** 1232,1239 ****
      my ($env,$biblionumber,$type) = @_;
      my $dbh   = C4::Context->dbh;
!     my $query = "SELECT * FROM items, biblio, biblioitems, itemtypes
                    WHERE items.biblionumber = ?
                      AND biblioitems.biblioitemnumber = items.biblioitemnumber
-                     AND biblioitems.itemtype = itemtypes.itemtype
                      AND biblio.biblionumber = items.biblionumber";
    if ($type ne 'intra'){
--- 1232,1238 ----
      my ($env,$biblionumber,$type) = @_;
      my $dbh   = C4::Context->dbh;
!     my $query = "SELECT * FROM items, biblio, biblioitems left join itemtypes 
on biblioitems.itemtype = itemtypes.itemtype
                    WHERE items.biblionumber = ?
                      AND biblioitems.biblioitemnumber = items.biblioitemnumber
                      AND biblio.biblionumber = items.biblionumber";
    if ($type ne 'intra'){