use C4::Output;
use CGI qw ( -utf8 );
use C4::Auth;
-use Koha::Biblios;
use C4::Debug;
+use C4::Items qw( ModItem ModItemTransfer );
+use C4::Reserves qw( ModReserveCancelAll );
+use Koha::Biblios;
use Koha::DateUtils;
+use Koha::Holds;
use DateTime::Duration;
my $input = new CGI;
my $startdate = $input->param('from');
my $enddate = $input->param('to');
-
my $theme = $input->param('theme'); # only used if allowthemeoverride is set
+my $op = $input->param('op') || '';
+my $borrowernumber = $input->param('borrowernumber');
+my $reserve_id = $input->param('reserve_id');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
}
);
+my @messages;
+if ( $op eq 'cancel_reserve' and $reserve_id ) {
+ my $hold = Koha::Holds->find( $reserve_id );
+ if ( $hold ) {
+ $hold->cancel;
+ push @messages, { type => 'message', code => 'hold_cancelled' };
+ }
+} elsif ( $op =~ m|^mark_as_lost| ) {
+ my $hold = Koha::Holds->find( $reserve_id );
+ die "wrong reserve_id" unless $hold; # This is a bit rude, but we are not supposed to get a wrong reserve_id
+ my $item = $hold->item;
+ if ( $item and C4::Context->preference('CanMarkHoldsToPullAsLost') =~ m|^allow| ) {
+ my $patron = $hold->borrower;
+ C4::Circulation::LostItem( $item->itemnumber, "pendingreserves" );
+ if ( $op eq 'mark_as_lost_and_notify' and C4::Context->preference('CanMarkHoldsToPullAsLost') eq 'allow_and_notify' ) {
+ my $library = $hold->branch;
+ my $letter = C4::Letters::GetPreparedLetter(
+ module => 'reserves',
+ letter_code => 'CANCEL_HOLD_ON_LOST',
+ branchcode => $patron->branchcode,
+ lang => $patron->lang,
+ tables => {
+ branches => $library->branchcode,
+ borrowers => $patron->borrowernumber,
+ items => $item->itemnumber,
+ biblio => $hold->biblionumber,
+ biblioitems => $hold->biblionumber,
+ reserves => $hold->unblessed,
+ },
+ );
+ if ( $letter ) {
+ my $admin_email_address = $library->branchemail || C4::Context->preference('KohaAdminEmailAddress');
+
+ C4::Letters::EnqueueLetter(
+ { letter => $letter,
+ borrowernumber => $patron->borrowernumber,
+ message_transport_type => 'email',
+ from_address => $admin_email_address,
+ }
+ );
+ unless ( $patron->notice_email_address ) {
+ push @messages, {type => 'alert', code => 'no_email_address', };
+ }
+ push @messages, { type => 'message', code => 'letter_enqueued' };
+ } else {
+ push @messages, { type => 'error', code => 'no_template_notice' };
+ }
+ }
+ $hold->cancel;
+ if ( $item->homebranch ne $item->holdingbranch ) {
+ C4::Items::ModItemTransfer( $item->itemnumber, $item->holdingbranch, $item->homebranch );
+ }
+
+ if ( my $yaml = C4::Context->preference('UpdateItemWhenLostFromHoldList') ) {
+ $yaml = "$yaml\n\n"; # YAML is anal on ending \n. Surplus does not hurt
+ my $assignments;
+ eval { $assignments = YAML::Load($yaml); };
+ if ($@) {
+ warn "Unable to parse UpdateItemWhenLostFromHoldList syspref : $@" if $@;
+ }
+ else {
+ eval {
+ C4::Items::ModItem( $assignments, undef, $item->itemnumber );
+ };
+ warn "Unable to modify item itemnumber=" . $item->itemnumber . ": $@" if $@;
+ }
+ }
+
+ } elsif ( not $item ) {
+ push @messages, { type => 'alert', code => 'hold_placed_at_biblio_level'};
+ } # else the url parameters have been modified and the user is not allowed to continue
+}
+
+
my $today = dt_from_string;
if ( $startdate ) {
push @query_params, $enddate_iso;
}
+my $item_type = C4::Context->preference('item-level_itypes') ? "items.itype" : "biblioitems.itemtype";
+
+# Bug 21320
+if ( ! C4::Context->preference('AllowHoldsOnDamagedItems') ) {
+ $sqldatewhere .= " AND damaged = 0";
+}
+
my $strsth =
"SELECT min(reservedate) as l_reservedate,
+ reserves.reserve_id,
reserves.borrowernumber as borrowernumber,
+
GROUP_CONCAT(DISTINCT items.holdingbranch
ORDER BY items.itemnumber SEPARATOR '|') l_holdingbranch,
reserves.biblionumber,
reserves.branchcode as l_branch,
- GROUP_CONCAT(DISTINCT items.itype
- ORDER BY items.itemnumber SEPARATOR '|') l_itype,
+ reserves.itemnumber,
+ items.holdingbranch,
+ items.homebranch,
+ GROUP_CONCAT(DISTINCT $item_type
+ ORDER BY items.itemnumber SEPARATOR '|') l_item_type,
GROUP_CONCAT(DISTINCT items.location
ORDER BY items.itemnumber SEPARATOR '|') l_location,
GROUP_CONCAT(DISTINCT items.itemcallnumber
- ORDER BY items.itemnumber SEPARATOR '<br/>') l_itemcallnumber,
+ ORDER BY items.itemnumber SEPARATOR '|') l_itemcallnumber,
GROUP_CONCAT(DISTINCT items.enumchron
- ORDER BY items.itemnumber SEPARATOR '<br/>') l_enumchron,
+ ORDER BY items.itemnumber SEPARATOR '|') l_enumchron,
GROUP_CONCAT(DISTINCT items.copynumber
- ORDER BY items.itemnumber SEPARATOR '<br/>') l_copynumber,
+ ORDER BY items.itemnumber SEPARATOR '|') l_copynumber,
biblio.title,
+ biblio.subtitle,
+ biblio.medium,
+ biblio.part_number,
+ biblio.part_name,
biblio.author,
count(DISTINCT items.itemnumber) as icount,
count(DISTINCT reserves.borrowernumber) as rcount,
FROM reserves
LEFT JOIN items ON items.biblionumber=reserves.biblionumber
LEFT JOIN biblio ON reserves.biblionumber=biblio.biblionumber
+ LEFT JOIN biblioitems ON biblio.biblionumber=biblioitems.biblionumber
LEFT JOIN branchtransfers ON items.itemnumber=branchtransfers.itemnumber
LEFT JOIN issues ON items.itemnumber=issues.itemnumber
LEFT JOIN borrowers ON reserves.borrowernumber=borrowers.borrowernumber
+ LEFT JOIN default_branch_item_rules ON items.itype=default_branch_item_rules.itemtype
WHERE
reserves.found IS NULL
$sqldatewhere
AND issues.itemnumber IS NULL
AND reserves.priority <> 0
AND reserves.suspend = 0
- AND notforloan = 0 AND damaged = 0 AND itemlost = 0 AND withdrawn = 0
+ AND notforloan = 0 AND itemlost = 0 AND withdrawn = 0
+ AND ( default_branch_item_rules.holdallowed IS NULL OR default_branch_item_rules.holdallowed != 0 )
";
# GROUP BY reserves.biblionumber allows only items that are not checked out, else multiples occur when
# multiple patrons have a hold on an item
$sth->execute(@query_params);
while ( my $data = $sth->fetchrow_hashref ) {
- my $record = Koha::Biblios->find($data->{biblionumber});
- if ($record){
- $data->{subtitle} = [ $record->subtitles ];
- }
push(
@reservedata, {
reservedate => $data->{l_reservedate},
surname => $data->{surname},
title => $data->{title},
subtitle => $data->{subtitle},
+ medium => $data->{medium},
+ part_number => $data->{part_number},
+ part_name => $data->{part_name},
author => $data->{author},
borrowernumber => $data->{borrowernumber},
biblionumber => $data->{biblionumber},
holdingbranches => [split('\|', $data->{l_holdingbranch})],
branch => $data->{l_branch},
- itemcallnumber => $data->{l_itemcallnumber},
- enumchron => $data->{l_enumchron},
- copyno => $data->{l_copynumber},
+ itemcallnumber => [split('\|', $data->{l_itemcallnumber})],
+ enumchron => [split('\|', $data->{l_enumchron})],
+ copyno => [split('\|', $data->{l_copynumber})],
count => $data->{icount},
rcount => $data->{rcount},
pullcount => $data->{icount} <= $data->{rcount} ? $data->{icount} : $data->{rcount},
- itypes => [split('\|', $data->{l_itype})],
+ itemTypes => [split('\|', $data->{l_item_type})],
locations => [split('\|', $data->{l_location})],
+ reserve_id => $data->{reserve_id},
+ holdingbranch => $data->{holdingbranch},
+ homebranch => $data->{homebranch},
+ itemnumber => $data->{itemnumber},
}
);
}
"BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1,
HoldsToPullStartDate => C4::Context->preference('HoldsToPullStartDate') || PULL_INTERVAL,
HoldsToPullEndDate => C4::Context->preference('ConfirmFutureHolds') || 0,
+ messages => \@messages,
);
output_html_with_http_headers $input, $cookie, $template->output;
projects / koha-ffzg.git / blobdiff