3 # Copyright 2000-2003 Katipo Communications
4 # parts copyright 2010 BibLibre
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
32 use C4
::Search
; # enabled_staff_search_views
34 use Koha
::Acquisition
::Booksellers
;
35 use Koha
::AuthorisedValues
;
43 my ($template, $loggedinuser, $cookie) = get_template_and_user
(
45 template_name
=> 'catalogue/moredetail.tt',
49 flagsrequired
=> { catalogue
=> 1 },
54 updated_exclude_from_local_holds_priority
=> scalar($query->param('updated_exclude_from_local_holds_priority'))
57 if($query->cookie("holdfor")){
58 my $holdfor_patron = Koha
::Patrons
->find( $query->cookie("holdfor") );
60 holdfor
=> $query->cookie("holdfor"),
61 holdfor_surname
=> $holdfor_patron->surname,
62 holdfor_firstname
=> $holdfor_patron->firstname,
63 holdfor_cardnumber
=> $holdfor_patron->cardnumber,
67 if( $query->cookie("searchToOrder") ){
68 my ( $basketno, $vendorid ) = split( /\//, $query->cookie("searchToOrder") );
70 searchtoorder_basketno
=> $basketno,
71 searchtoorder_vendorid
=> $vendorid
77 my $biblionumber=$query->param('biblionumber');
78 $biblionumber = HTML
::Entities
::encode
($biblionumber);
79 my $title=$query->param('title');
80 my $bi=$query->param('bi');
81 $bi = $biblionumber unless $bi;
82 my $itemnumber = $query->param('itemnumber');
83 my $data = &GetBiblioData
($biblionumber);
84 my $dewey = $data->{'dewey'};
85 my $showallitems = $query->param('showallitems');
87 #coping with subscriptions
88 my $subscriptionsnumber = CountSubscriptionFromBiblionumber
($biblionumber);
90 # FIXME Dewey is a string, not a number, & we should use a function
92 # if ($dewey eq "000.") { $dewey = "";};
93 # if ($dewey < 10){$dewey='00'.$dewey;}
94 # if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
99 # $data->{'dewey'}=$dewey;
101 my $fw = GetFrameworkCode
($biblionumber);
102 my @all_items= GetItemsInfo
($biblionumber);
104 my $patron = Koha
::Patrons
->find( $loggedinuser );
105 for my $itm (@all_items) {
106 push @items, $itm unless ( $itm->{itemlost
} &&
107 $patron->category->hidelostitems &&
109 ($itemnumber != $itm->{itemnumber
}));
112 my $record=GetMarcBiblio
({ biblionumber
=> $biblionumber });
114 output_and_exit
( $query, $cookie, $template, 'unknown_biblio')
118 # adding items linked via host biblios
119 my @hostitems = GetHostItemsInfo
($record);
122 push (@items,@hostitems);
125 my $biblio = Koha
::Biblios
->find( $biblionumber );
127 my $totalcount=@all_items;
128 my $showncount=@items;
129 my $hiddencount = $totalcount - $showncount;
130 $data->{'count'}=$totalcount;
131 $data->{'showncount'}=$showncount;
132 $data->{'hiddencount'}=$hiddencount; # can be zero
135 { map { $_->{authorised_value
} => $_->{lib
} } Koha
::AuthorisedValues
->get_descriptions_by_koha_field( { frameworkcode
=> $fw, kohafield
=> 'items.ccode' } ) };
137 { map { $_->{authorised_value
} => $_->{lib
} } Koha
::AuthorisedValues
->get_descriptions_by_koha_field( { frameworkcode
=> $fw, kohafield
=> 'items.copynumber' } ) };
139 my $itemtypes = { map { $_->{itemtype
} => $_ } @
{ Koha
::ItemTypes
->search_with_localization->unblessed } };
141 $data->{'itemtypename'} = $itemtypes->{ $data->{'itemtype'} }->{'translated_description'}
142 if $data->{itemtype
} && exists $itemtypes->{ $data->{itemtype
} };
143 foreach ( keys %{$data} ) {
144 $template->param( "$_" => defined $data->{$_} ?
$data->{$_} : '' );
147 ($itemnumber) and @items = (grep {$_->{'itemnumber'} == $itemnumber} @items);
148 foreach my $item (@items){
149 $item->{object
} = Koha
::Items
->find( $item->{itemnumber
} );
150 $item->{'collection'} = $ccodes->{ $item->{ccode
} } if $ccodes && $item->{ccode
} && exists $ccodes->{ $item->{ccode
} };
151 $item->{'itype'} = $itemtypes->{ $item->{'itype'} }->{'translated_description'} if exists $itemtypes->{ $item->{'itype'} };
152 $item->{'replacementprice'} = $item->{'replacementprice'};
153 if ( defined $item->{'copynumber'} ) {
154 $item->{'displaycopy'} = 1;
155 if ( defined $copynumbers->{ $item->{'copynumber'} } ) {
156 $item->{'copyvol'} = $copynumbers->{ $item->{'copynumber'} }
159 $item->{'copyvol'} = $item->{'copynumber'};
163 # item has a host number if its biblio number does not match the current bib
164 if ($item->{biblionumber
} ne $biblionumber){
165 $item->{hostbiblionumber
} = $item->{biblionumber
};
166 $item->{hosttitle
} = GetBiblioData
($item->{biblionumber
})->{title
};
169 my $order = GetOrderFromItemnumber
( $item->{'itemnumber'} );
170 $item->{'ordernumber'} = $order->{'ordernumber'};
171 $item->{'basketno'} = $order->{'basketno'};
172 $item->{'orderdate'} = $order->{'entrydate'};
173 if ($item->{'basketno'}){
174 my $basket = GetBasket
($item->{'basketno'});
175 my $bookseller = Koha
::Acquisition
::Booksellers
->find( $basket->{booksellerid
} );
176 $item->{'vendor'} = $bookseller->name;
178 $item->{'invoiceid'} = $order->{'invoiceid'};
179 if($item->{invoiceid
}) {
180 my $invoice = GetInvoice
($item->{invoiceid
});
181 $item->{invoicenumber
} = $invoice->{invoicenumber
} if $invoice;
183 $item->{'datereceived'} = $order->{'datereceived'};
185 if ($item->{notforloantext
} or $item->{itemlost
} or $item->{damaged
} or $item->{withdrawn
}) {
186 $item->{status_advisory
} = 1;
190 if ( $item->{itemlost
} ) {
191 my $accountlines = Koha
::Account
::Lines
->search(
193 itemnumber
=> $item->{itemnumber
},
194 debit_type_code
=> 'LOST',
195 status
=> [ undef, { '<>' => 'RETURNED' } ],
196 amountoutstanding
=> 0
199 order_by
=> { '-desc' => 'date' },
204 if ( my $accountline = $accountlines->next ) {
205 my $payment_offsets = Koha
::Account
::Offsets
->search(
207 debit_id
=> $accountline->id,
208 credit_id
=> { '!=' => undef }, # it is not the debit itself
209 type
=> { '!=' => [ 'Writeoff', 'Forgiven' ] },
210 amount
=> { '<' => 0 } # credits are negative on the DB
212 { order_by
=> { '-desc' => 'created_on' } }
215 if ($payment_offsets->count) {
216 my $patron = $accountline->patron;
217 my $payment_offset = $payment_offsets->next;
218 $item->{paidfor
} = { patron
=> $patron, created_on
=> $payment_offset->created_on };
223 if (C4
::Context
->preference("IndependentBranches")) {
225 my $userenv = C4
::Context
->userenv();
226 unless (C4
::Context
->IsSuperLibrarian() or ($userenv->{'branch'} eq $item->{'homebranch'})) {
230 if ($item->{'datedue'}) {
236 if ( $item->{'borrowernumber'} ) {
237 my $curr_borrower = Koha
::Patrons
->find( $item->{borrowernumber
} );
238 $item->{patron
} = $curr_borrower;
242 my $mss = Koha
::MarcSubfieldStructures
->search({ frameworkcode
=> $fw, kohafield
=> 'items.itemlost', authorised_value
=> [ -and => {'!=' => undef }, {'!=' => ''}] });
244 $template->param( itemlostloop
=> GetAuthorisedValues
( $mss->next->authorised_value ) );
246 $mss = Koha
::MarcSubfieldStructures
->search({ frameworkcode
=> $fw, kohafield
=> 'items.damaged', authorised_value
=> [ -and => {'!=' => undef }, {'!=' => ''}] });
248 $template->param( itemdamagedloop
=> GetAuthorisedValues
( $mss->next->authorised_value ) );
250 $mss = Koha
::MarcSubfieldStructures
->search({ frameworkcode
=> $fw, kohafield
=> 'items.withdrawn', authorised_value
=> [ -and => {'!=' => undef }, {'!=' => ''}] });
252 $template->param( itemwithdrawnloop
=> GetAuthorisedValues
( $mss->next->authorised_value) );
255 $template->param(count
=> $data->{'count'},
256 subscriptionsnumber
=> $subscriptionsnumber,
257 subscriptiontitle
=> $data->{title
},
258 C4
::Search
::enabled_staff_search_views
,
262 ITEM_DATA
=> \
@items,
264 loggedinuser
=> $loggedinuser,
265 biblionumber
=> $biblionumber,
266 biblioitemnumber
=> $bi,
267 itemnumber
=> $itemnumber,
268 z3950_search_params
=> C4
::Search
::z3950_search_args
(GetBiblioData
($biblionumber)),
271 $template->param(ONLY_ONE
=> 1) if ( $itemnumber && $showncount != @items );
272 $template->{'VARS'}->{'searchid'} = $query->param('searchid');
274 my $holds = $biblio->holds;
275 $template->param( holdcount
=> $holds->count );
277 output_html_with_http_headers
$query, $cookie, $template->output;