use C4::Branch;
use C4::Acquisition;
use C4::Bookseller qw(GetBookSellerFromId);
-use C4::Output; # contains gettemplate
+use C4::Output;
use C4::Auth;
use C4::Serials;
use C4::Circulation; # to use itemissues
use C4::Members; # to use GetMember
use C4::Search; # enabled_staff_search_views
use C4::Members qw/GetHideLostItemsPreference/;
+use C4::Reserves qw(GetReservesFromBiblionumber);
use Koha::DateUtils;
my $query=new CGI;
$data->{'hiddencount'}=$hiddencount; # can be zero
my $ccodes= GetKohaAuthorisedValues('items.ccode',$fw);
+my $copynumbers = GetKohaAuthorisedValues('items.copynumber',$fw);
my $itemtypes = GetItemTypes;
$data->{'itemtypename'} = $itemtypes->{$data->{'itemtype'}}->{'description'};
$item->{'collection'} = $ccodes->{ $item->{ccode} } if ($ccodes);
$item->{'itype'} = $itemtypes->{ $item->{'itype'} }->{'description'};
$item->{'replacementprice'} = sprintf( "%.2f", $item->{'replacementprice'} );
- $item->{'copyvol'} = $item->{'copynumber'};
+ if ( defined $item->{'copynumber'} ) {
+ $item->{'displaycopy'} = 1;
+ if ( defined $copynumbers->{ $item->{'copynumber'} } ) {
+ $item->{'copyvol'} = $copynumbers->{ $item->{'copynumber'} }
+ }
+ else {
+ $item->{'copyvol'} = $item->{'copynumber'};
+ }
+ }
# item has a host number if its biblio number does not match the current bib
if ($item->{biblionumber} ne $biblionumber){
}
my $order = GetOrderFromItemnumber( $item->{'itemnumber'} );
- my $basket = GetBasket( $order->{'basketno'} );
- $item->{'booksellerid'} = $basket->{'booksellerid'};
$item->{'ordernumber'} = $order->{'ordernumber'};
$item->{'basketno'} = $order->{'basketno'};
- $item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'};
$item->{'orderdate'} = $order->{'entrydate'};
if ($item->{'basketno'}){
my $basket = GetBasket($item->{'basketno'});
my $bookseller = GetBookSellerFromId($basket->{'booksellerid'});
$item->{'vendor'} = $bookseller->{'name'};
}
+ $item->{'invoiceid'} = $order->{'invoiceid'};
+ if($item->{invoiceid}) {
+ my $invoice = GetInvoice($item->{invoiceid});
+ $item->{invoicenumber} = $invoice->{invoicenumber} if $invoice;
+ }
$item->{'datereceived'} = $order->{'datereceived'};
- if ($item->{notforloantext} or $item->{itemlost} or $item->{damaged} or $item->{wthdrawn}) {
+ if ($item->{notforloantext} or $item->{itemlost} or $item->{damaged} or $item->{withdrawn}) {
$item->{status_advisory} = 1;
}
- if (C4::Context->preference("IndependantBranches")) {
+ if (C4::Context->preference("IndependentBranches")) {
#verifying rights
my $userenv = C4::Context->userenv();
- unless (($userenv->{'flags'} == 1) or ($userenv->{'branch'} eq $item->{'homebranch'})) {
+ unless (C4::Context->IsSuperLibrarian() or ($userenv->{'branch'} eq $item->{'homebranch'})) {
$item->{'nomod'}=1;
}
}
hidepatronname => $hidepatronname,
);
$template->param(ONLY_ONE => 1) if ( $itemnumber && $showncount != @items );
+$template->{'VARS'}->{'searchid'} = $query->param('searchid');
+
+my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
+my @deletedorders_using_biblio;
+my @orders_using_biblio;
+my @baskets_orders;
+my @baskets_deletedorders;
+
+foreach my $myorder (@allorders_using_biblio) {
+ my $basket = $myorder->{'basketno'};
+ if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
+ push @deletedorders_using_biblio, $myorder;
+ unless (grep(/^$basket$/, @baskets_deletedorders)){
+ push @baskets_deletedorders,$myorder->{'basketno'};
+ }
+ }
+ else {
+ push @orders_using_biblio, $myorder;
+ unless (grep(/^$basket$/, @baskets_orders)){
+ push @baskets_orders,$myorder->{'basketno'};
+ }
+ }
+}
+
+my $count_orders_using_biblio = scalar @orders_using_biblio ;
+$template->param (countorders => $count_orders_using_biblio);
+
+my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
+$template->param (countdeletedorders => $count_deletedorders_using_biblio);
+
+my $holds = GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
+my $holdcount = scalar( @$holds );
+$template->param( holdcount => scalar ( @$holds ) );
output_html_with_http_headers $query, $cookie, $template->output;