X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=catalogue%2Fmoredetail.pl;h=86adb7260becaaa74d4920df32b32d7c9ba8b5df;hb=ef5d4f3c62957100dae0948a44bd27a2159892b4;hp=d848188ef8376a0b9ae3af97a702be8264e9c3a2;hpb=48ee1dcb3f835fb8250bcdd781085521411e6c26;p=koha_fer diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl index d848188ef8..86adb7260b 100755 --- a/catalogue/moredetail.pl +++ b/catalogue/moredetail.pl @@ -27,14 +27,16 @@ use C4::Biblio; use C4::Items; use C4::Branch; use C4::Acquisition; -use C4::Output; # contains gettemplate +use C4::Bookseller qw(GetBookSellerFromId); +use C4::Output; use C4::Auth; use C4::Serials; -use C4::Dates qw/format_date/; 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; @@ -61,6 +63,8 @@ if($query->cookie("holdfor")){ ); } +my $hidepatronname = C4::Context->preference("HidePatronName"); + # get variables my $biblionumber=$query->param('biblionumber'); @@ -68,7 +72,7 @@ my $title=$query->param('title'); my $bi=$query->param('bi'); $bi = $biblionumber unless $bi; my $itemnumber = $query->param('itemnumber'); -my $data=GetBiblioData($biblionumber); +my $data = &GetBiblioData($biblionumber); my $dewey = $data->{'dewey'}; my $showallitems = $query->param('showallitems'); @@ -86,7 +90,6 @@ my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); # $dewey=~ s/\.$//; # $data->{'dewey'}=$dewey; -my @results; my $fw = GetFrameworkCode($biblionumber); my @all_items= GetItemsInfo($biblionumber); my @items; @@ -97,6 +100,18 @@ for my $itm (@all_items) { ($itemnumber != $itm->{itemnumber})); } +my $record=GetMarcBiblio($biblionumber); + +my $hostrecords; +# adding items linked via host biblios +my @hostitems = GetHostItemsInfo($record); +if (@hostitems){ + $hostrecords =1; + push (@items,@hostitems); +} + +my $subtitle = GetRecordValue('subtitle', $record, $fw); + my $totalcount=@all_items; my $showncount=@items; my $hiddencount = $totalcount - $showncount; @@ -105,10 +120,15 @@ $data->{'showncount'}=$showncount; $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'}; -$results[0]=$data; +$data->{'rentalcharge'} = sprintf( "%.2f", $data->{'rentalcharge'} ); +foreach ( keys %{$data} ) { + $template->param( "$_" => defined $data->{$_} ? $data->{$_} : '' ); +} + ($itemnumber) and @items = (grep {$_->{'itemnumber'} == $itemnumber} @items); foreach my $item (@items){ $item->{itemlostloop}= GetAuthorisedValues(GetAuthValCode('items.itemlost',$fw),$item->{itemlost}) if GetAuthValCode('items.itemlost',$fw); @@ -116,50 +136,117 @@ foreach my $item (@items){ $item->{'collection'} = $ccodes->{ $item->{ccode} } if ($ccodes); $item->{'itype'} = $itemtypes->{ $item->{'itype'} }->{'description'}; $item->{'replacementprice'} = sprintf( "%.2f", $item->{'replacementprice'} ); - $item->{'datelastborrowed'} = format_date( $item->{'datelastborrowed'} ); - $item->{'dateaccessioned'} = format_date( $item->{'dateaccessioned'} ); - $item->{'datelastseen'} = format_date( $item->{'datelastseen'} ); - $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'}; + } + } - my $order = GetOrderFromItemnumber( $item->{'itemnumber'} ); + # item has a host number if its biblio number does not match the current bib + if ($item->{biblionumber} ne $biblionumber){ + $item->{hostbiblionumber} = $item->{biblionumber}; + $item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title}; + } + + my $order = GetOrderFromItemnumber( $item->{'itemnumber'} ); $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; } } $item->{'homebranchname'} = GetBranchName($item->{'homebranch'}); $item->{'holdingbranchname'} = GetBranchName($item->{'holdingbranch'}); if ($item->{'datedue'}) { - $item->{'datedue'} = format_date($item->{'datedue'}); $item->{'issue'}= 1; } else { $item->{'issue'}= 0; } + + unless ($hidepatronname) { + if ( $item->{'borrowernumber'} ) { + my $curr_borrower = GetMember('borrowernumber' => $item->{'borrowernumber'} ); + $item->{borrowerfirstname} = $curr_borrower->{'firstname'}; + $item->{borrowersurname} = $curr_borrower->{'surname'}; + } + } + } $template->param(count => $data->{'count'}, subscriptionsnumber => $subscriptionsnumber, subscriptiontitle => $data->{title}, C4::Search::enabled_staff_search_views, ); -$template->param(BIBITEM_DATA => \@results); -$template->param(ITEM_DATA => \@items); -$template->param(moredetailview => 1); -$template->param(loggedinuser => $loggedinuser); -$template->param(biblionumber => $biblionumber); -$template->param(biblioitemnumber => $bi); -$template->param(itemnumber => $itemnumber); + +$template->param( + ITEM_DATA => \@items, + moredetailview => 1, + loggedinuser => $loggedinuser, + biblionumber => $biblionumber, + biblioitemnumber => $bi, + itemnumber => $itemnumber, + z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber)), + subtitle => $subtitle, + hidepatronname => $hidepatronname, +); $template->param(ONLY_ONE => 1) if ( $itemnumber && $showncount != @items ); -$template->param(z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber))); +$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;