X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=catalogue%2Fmoredetail.pl;h=1a3a2d0b4a5eeba3b610bce3fac669a1dbc7299c;hb=1d62ea2c9ff7edc0bc1e202b8f5591939ee5735f;hp=c3b61dea1539ccb45beb40fbdfed7651698c436e;hpb=9dd5c0ab7d1da285d021a6c7888c4010c310bf28;p=koha.git diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl index c3b61dea15..1a3a2d0b4a 100755 --- a/catalogue/moredetail.pl +++ b/catalogue/moredetail.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl # Copyright 2000-2003 Katipo Communications +# parts copyright 2010 BibLibre # # This file is part of Koha. # @@ -13,21 +14,28 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; -require Exporter; +#use warnings; FIXME - Bug 2505 use C4::Koha; use CGI; -use C4::Biblio; # to use &GetBiblioItemData &GetItemsByBiblioitemnumber +use C4::Biblio; +use C4::Items; +use C4::Branch; use C4::Acquisition; -use C4::Output; # contains gettemplate +use C4::Output; use C4::Auth; -use C4::Date; +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 Koha::DateUtils; my $query=new CGI; @@ -44,14 +52,29 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user({ flagsrequired => {catalogue => 1}, }); +if($query->cookie("holdfor")){ + my $holdfor_patron = GetMember('borrowernumber' => $query->cookie("holdfor")); + $template->param( + holdfor => $query->cookie("holdfor"), + holdfor_surname => $holdfor_patron->{'surname'}, + holdfor_firstname => $holdfor_patron->{'firstname'}, + holdfor_cardnumber => $holdfor_patron->{'cardnumber'}, + ); +} + # get variables my $biblionumber=$query->param('biblionumber'); my $title=$query->param('title'); my $bi=$query->param('bi'); $bi = $biblionumber unless $bi; -my $data=GetBiblioItemData($bi); +my $itemnumber = $query->param('itemnumber'); +my $data = &GetBiblioData($biblionumber); my $dewey = $data->{'dewey'}; +my $showallitems = $query->param('showallitems'); + +#coping with subscriptions +my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); # FIXME Dewey is a string, not a number, & we should use a function # $dewey =~ s/0+$//; @@ -64,40 +87,106 @@ my $dewey = $data->{'dewey'}; # $dewey=~ s/\.$//; # $data->{'dewey'}=$dewey; -my @results; +my $fw = GetFrameworkCode($biblionumber); +my @all_items= GetItemsInfo($biblionumber); +my @items; +for my $itm (@all_items) { + push @items, $itm unless ( $itm->{itemlost} && + GetHideLostItemsPreference($loggedinuser) && + !$showallitems && + ($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; +$data->{'count'}=$totalcount; +$data->{'showncount'}=$showncount; +$data->{'hiddencount'}=$hiddencount; # can be zero + +my $ccodes= GetKohaAuthorisedValues('items.ccode',$fw); +my $itemtypes = GetItemTypes; -my $items= GetItemsByBiblioitemnumber($bi); -my $count=@$items; -$data->{'count'}=$count; +$data->{'itemtypename'} = $itemtypes->{$data->{'itemtype'}}->{'description'}; -my $ordernum = GetOrderNumber($biblionumber,$bi); -my $order = GetOrder($ordernum); +foreach ( keys %{$data} ) { + $template->param( "$_" => defined $data->{$_} ? $data->{$_} : '' ); +} -$results[0]=$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); + $item->{itemdamagedloop}= GetAuthorisedValues(GetAuthValCode('items.damaged',$fw),$item->{damaged}) if GetAuthValCode('items.damaged',$fw); + $item->{'collection'} = $ccodes->{ $item->{ccode} } if ($ccodes); + $item->{'itype'} = $itemtypes->{ $item->{'itype'} }->{'description'}; + $item->{'replacementprice'} = sprintf( "%.2f", $item->{'replacementprice'} ); + $item->{$_} = format_date( $item->{$_} ) foreach qw/datelastborrowed dateaccessioned datelastseen lastreneweddate/; + $item->{'copyvol'} = $item->{'copynumber'}; + + + # 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}; + } -foreach my $item (@$items){ - $item->{itemlostloop}= GetAuthorisedValues('LOST',$item->{itemlost}); - $item->{itemdamagedloop}= GetAuthorisedValues('DAMAGED',$item->{damaged}); - $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->{'ordernumber'} = $ordernum; + 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->{'datereceived'} = $order->{'datereceived'}; - if ($item->{'date_due'} eq ''){ - $item->{'issue'}= 0; - } else { - $item->{'date_due'} = format_date($item->{'date_due'}); + if ($item->{notforloantext} or $item->{itemlost} or $item->{damaged} or $item->{wthdrawn}) { + $item->{status_advisory} = 1; + } + + if (C4::Context->preference("IndependantBranches")) { + #verifying rights + my $userenv = C4::Context->userenv(); + unless (($userenv->{'flags'} == 1) 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_sqldatetime($item->{datedue}); $item->{'issue'}= 1; + } else { + $item->{'issue'}= 0; } } - -$template->param(count => $data->{'count'}); -$template->param(BIBITEM_DATA => \@results); -$template->param(ITEM_DATA => $items); -$template->param(loggedinuser => $loggedinuser); -$template->param(biblionumber => $biblionumber); +$template->param(count => $data->{'count'}, + subscriptionsnumber => $subscriptionsnumber, + subscriptiontitle => $data->{title}, + C4::Search::enabled_staff_search_views, +); + +$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, +); +$template->param(ONLY_ONE => 1) if ( $itemnumber && $showncount != @items ); output_html_with_http_headers $query, $cookie, $template->output;