From 661080d2fdfe25d1a78d102f3db46431bc923747 Mon Sep 17 00:00:00 2001 From: tipaul Date: Thu, 18 Nov 2004 10:34:24 +0000 Subject: [PATCH] fixing but to remove "request" link on "notforloan" materials --- C4/SearchMarc.pm | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/C4/SearchMarc.pm b/C4/SearchMarc.pm index d9f1ce8d1a..e015af4a43 100644 --- a/C4/SearchMarc.pm +++ b/C4/SearchMarc.pm @@ -319,17 +319,18 @@ sub catalogsearch { # we have bibid list. Now, loads title and author from [offset] to [offset]+[length] my $counter = $offset; # HINT : biblionumber as bn is important. The hash is fills biblionumber with items.biblionumber. - # so if you dont' has an item, you get a not nice epty value. - $sth = $dbh->prepare("SELECT biblio.biblionumber as bn,biblio.*, biblioitems.*,marc_biblio.bibid + # so if you dont' has an item, you get a not nice empty value. + $sth = $dbh->prepare("SELECT biblio.biblionumber as bn,biblio.*, biblioitems.*,marc_biblio.bibid,itemtypes.notforloan FROM biblio, marc_biblio LEFT JOIN biblioitems on biblio.biblionumber = biblioitems.biblionumber + LEFT JOIN itemtypes on itemtypes.itemtype=biblioitems.itemtype WHERE biblio.biblionumber = marc_biblio.biblionumber AND bibid = ?"); my @finalresult = (); my @CNresults=(); my $totalitems=0; my $oldline; my ($oldbibid, $oldauthor, $oldtitle); - my $sth_itemCN = $dbh->prepare("select * from items where biblionumber=?"); + my $sth_itemCN = $dbh->prepare("select items.* from items where biblionumber=?"); my $sth_issue = $dbh->prepare("select date_due,returndate from issues where itemnumber=?"); # parse all biblios between start & end. while (($counter <= $#result) && ($counter <= ($offset + $length))) { @@ -337,11 +338,13 @@ sub catalogsearch { $sth->execute($result[$counter]); my $continue=1; my $line = $sth->fetchrow_hashref; + warn "==> ".$line->{notforloan}; my $biblionumber=$line->{bn}; # $continue=0 unless $line->{bn}; # my $lastitemnumber; $sth_itemCN->execute($biblionumber); my @CNresults = (); + my $notforloan=1; # to see if there is at least 1 item that can be issued while (my $item = $sth_itemCN->fetchrow_hashref) { # parse the result, putting holdingbranch & itemcallnumber in separate array # then all other fields in the main array @@ -360,6 +363,7 @@ sub catalogsearch { $lineCN{itemcallnumber} = $item->{itemcallnumber}; $lineCN{location} = $item->{location}; $lineCN{date_due} = format_date($date_due); + $notforloan=0 unless ($item->{notforloan} or $item->{wthdrawn} or $item->{itemlost}); push @CNresults,\%lineCN; $totalitems++; } @@ -368,6 +372,9 @@ sub catalogsearch { %newline = %$line; $newline{totitem} = $totalitems; $newline{biblionumber} = $biblionumber; + $newline{norequests} = 0; + $newline{norequests} = 1 if ($line->{notforloan}); # itemtype not issuable + $newline{norequests} = 1 if (!$line->{notforloan} && $notforloan); # itemtype issuable but all items not issuable for instance my @CNresults2= @CNresults; $newline{CN} = \@CNresults2; $newline{'even'} = 1 if $#finalresult % 2 == 0; -- 2.39.5