Lines 104-109
my $sql = '
Link Here
|
104 |
items.damaged, |
104 |
items.damaged, |
105 |
items.location, |
105 |
items.location, |
106 |
items.enumchron, |
106 |
items.enumchron, |
|
|
107 |
items.materials, |
107 |
|
108 |
|
108 |
DATEDIFF( issues.issuedate, CURRENT_DATE() ) AS not_issued_today, |
109 |
DATEDIFF( issues.issuedate, CURRENT_DATE() ) AS not_issued_today, |
109 |
|
110 |
|
Lines 139-144
$sth->execute(@parameters);
Link Here
|
139 |
|
140 |
|
140 |
my $item_level_itypes = C4::Context->preference('item-level_itypes'); |
141 |
my $item_level_itypes = C4::Context->preference('item-level_itypes'); |
141 |
my $claims_returned_lost_value = C4::Context->preference('ClaimReturnedLostValue'); |
142 |
my $claims_returned_lost_value = C4::Context->preference('ClaimReturnedLostValue'); |
|
|
143 |
my $confirm_parts_required = C4::Context->preference("CircConfirmItemParts"); |
142 |
|
144 |
|
143 |
my @checkouts_today; |
145 |
my @checkouts_today; |
144 |
my @checkouts_previous; |
146 |
my @checkouts_previous; |
Lines 186-191
while ( my $c = $sth->fetchrow_hashref() ) {
Link Here
|
186 |
my $av = Koha::AuthorisedValues->search({ category => 'DAMAGED', authorised_value => $c->{damaged} }); |
188 |
my $av = Koha::AuthorisedValues->search({ category => 'DAMAGED', authorised_value => $c->{damaged} }); |
187 |
$damaged = $av->count ? $av->next->lib : ''; |
189 |
$damaged = $av->count ? $av->next->lib : ''; |
188 |
} |
190 |
} |
|
|
191 |
my $materials; |
192 |
if ( $c->{materials} && $confirm_parts_required ) { |
193 |
my $descriptions = Koha::AuthorisedValues->get_description_by_koha_field({frameworkcode => '', kohafield =>'items.materials', authorised_value => $c->{materials} }); |
194 |
$materials = $descriptions->{lib} // $c->{materials}; |
195 |
} |
189 |
my @subtitles = split(/ \| /, $c->{'subtitle'} // '' ); |
196 |
my @subtitles = split(/ \| /, $c->{'subtitle'} // '' ); |
190 |
my $checkout = { |
197 |
my $checkout = { |
191 |
DT_RowId => $c->{itemnumber} . '-' . $c->{borrowernumber}, |
198 |
DT_RowId => $c->{itemnumber} . '-' . $c->{borrowernumber}, |
Lines 248-253
while ( my $c = $sth->fetchrow_hashref() ) {
Link Here
|
248 |
lost => $lost, |
255 |
lost => $lost, |
249 |
claims_returned => $claims_returned, |
256 |
claims_returned => $claims_returned, |
250 |
damaged => $damaged, |
257 |
damaged => $damaged, |
|
|
258 |
materials => $materials, |
251 |
borrower => { |
259 |
borrower => { |
252 |
surname => $c->{surname}, |
260 |
surname => $c->{surname}, |
253 |
firstname => $c->{firstname}, |
261 |
firstname => $c->{firstname}, |
254 |
- |
|
|