small fix to avoid empty list when itemtypes does'nt exist in DB

This commit is contained in:
tipaul 2003-04-01 13:19:55 +00:00
parent 452e65166c
commit cc35b709e1
1 changed files with 1 additions and 2 deletions

View File

@ -1231,10 +1231,9 @@ If this is set, it is set to C<One Order>.
sub ItemInfo {
my ($env,$biblionumber,$type) = @_;
my $dbh = C4::Context->dbh;
my $query = "SELECT * FROM items, biblio, biblioitems, itemtypes
my $query = "SELECT * FROM items, biblio, biblioitems left join itemtypes on biblioitems.itemtype = itemtypes.itemtype
WHERE items.biblionumber = ?
AND biblioitems.biblioitemnumber = items.biblioitemnumber
AND biblioitems.itemtype = itemtypes.itemtype
AND biblio.biblionumber = items.biblionumber";
if ($type ne 'intra'){
$query .= " and ((items.itemlost<>1 and items.itemlost <> 2)