Attachment #78768 for bug #19532

View | Details | Raw Unified | Return to bug 19532
Collapse All | Expand All




    return $status && $status eq 'R';
}

=head3 is_overdue

Returns true if recall is overdue

=cut

sub is_overdue {
    my ($self) = @_;

    my $status = $self->status;
    return $status && $status eq 'O';
}

=head3 is_cancelled

Returns true if recall is cancelled

=cut

sub is_cancelled {
    my ($self) = @_;

    my $status = $self->status;
    return $status && $status eq 'C';
}

=head1 AUTHOR

Aleisha Amohia <aleisha@catalyst.net.nz>




use Koha::SearchEngine;
use Koha::SearchEngine::Search;
use Koha::Patron::Modifications;
use Koha::Recalls;

use Date::Calc qw(
  Today


##################################################################################
# BUILD HTML
# show all recalls and reserves of this borrower, and the position of the reservation ....
if ($patron) {
    my $holds = Koha::Holds->search( { borrowernumber => $borrowernumber } ); # FIXME must be Koha::Patron->holds
    my $waiting_holds = $holds->waiting;

    my $recalls = Koha::Recalls->search({ borrowernumber => $borrowernumber });

    $template->param(
        holds_count  => $holds->count(),
        WaitingHolds => $waiting_holds,
        recalls => $recalls
    );
}





<div id="recalls">
[% IF recalls.count %]
    <table id="recalls-table" class="table table-bordered table-striped">
        <thead>
            <tr>
                <th class="recall-title anti-the">Title</th>
                <th class="recall-date psort title-string">Placed on</th>
                <th class="recall-expiry title-string">Expires on</th>
                <th class="recall-branch">Pickup location</th>
                <th class="recall-status">Status</th>
                <th class="recall-cancel">Cancel</th>
            </tr>
        </thead>

        <tbody>
            [% FOREACH recall IN recalls %]
                <tr>
                    <td class="recall-title">
                        <a class="recall-title" href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% recall.biblionumber %]">
                            [% recall.biblio.title %]
                            [% FOREACH s IN recall.biblio.subtitles %]
                                [% s %]
                            [% END %]
                            [% recall.item.enumchron %]
                        </a>
                        [% recall.biblio.author %]
                    </td>

                    <td class="recall-date">
                        [% recall.recalldate | $KohaDates %]
                    </td>

                    <td class="recall-expiry">
                        [% IF ( recall.is_waiting ) %]
                            [% IF ( recall.expirationdate ) %]
                                [% recall.expirationdate | $KohaDates %]
                            [% ELSE %]
                                Never expires
                            [% END %]
                        [% ELSIF ( recall.has_expired && recall.expirationdate ) %]
                            [% recall.expirationdate | $KohaDates %]
                        [% ELSE %]
                            -
                        [% END %]
                    </td>

                    <td class="recall-branch">
                        [% recall.branch.branchname %]
                    </td>

                    <td class="recall-status">
                        [% IF ( recall.is_requested ) %]
                            Requested
                        [% ELSIF ( recall.is_waiting ) %]
                            Ready for pickup
                        [% ELSIF ( recall.has_expired ) %]
                            Expired
                        [% END %]
                    </td>

                    <td class="recall-cancel">
                        [% IF ( !recall.cancellationdate ) %]
                            <a class="btn btn-sm btn-danger" id="cancel_recall" data-id="[% recall.recall_id %]"><i class="fa fa-times"></i> Cancel</a>
                        [% ELSE %]
                            Cancelled
                        [% END %]
                    </td>

                </tr>
            [% END %]
        </tbody>
    </table>
    [% ELSE %]
        Patron has no current recalls.
    [% END %]
</div>

Lines 819-824 No patron matched <span class="ex">[% message \| html %]</span> Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tt (+9 lines)
819	[% END %]	819	[% END %]
820	</li>	820	</li>
821		821
		822	[% IF recalls.count %]
		823	<li><a href="#recalls" id+"recalls-tab">[% recalls.count %] Recall(s)</a></li>
		824	[% END %]
		825
822	[% IF Koha.Preference('ArticleRequests') %]	826	[% IF Koha.Preference('ArticleRequests') %]
823	<li>	827	<li>
824	<a href="#article-requests" id="article-requests-tab"> [% patron.article_requests_current.count \| html %] Article requests</a>	828	<a href="#article-requests" id="article-requests-tab"> [% patron.article_requests_current.count \| html %] Article requests</a>
Lines 930-935 No patron matched <span class="ex">[% message \| html %]</span> Link Here
930	[% END %]	934	[% END %]
931	</div> <!-- reservesloop -->	935	</div> <!-- reservesloop -->
932		936
		937	[% IF recalls.count %]
		938	[% INCLUDE 'recalls.inc' %]
		939	[% END %]
		940
933	[% IF Koha.Preference('ArticleRequests') %]	941	[% IF Koha.Preference('ArticleRequests') %]
934	[% INCLUDE 'patron-article-requests.inc' %]	942	[% INCLUDE 'patron-article-requests.inc' %]
935	[% END %]	943	[% END %]
Lines 986-991 No patron matched <span class="ex">[% message \| html %]</span> Link Here
986	[% Asset.js("js/checkouts.js") \| $raw %]	994	[% Asset.js("js/checkouts.js") \| $raw %]
987	[% Asset.js("js/holds.js") \| $raw %]	995	[% Asset.js("js/holds.js") \| $raw %]
988	[% Asset.js("js/circ-patron-search-results.js") \| $raw %]	996	[% Asset.js("js/circ-patron-search-results.js") \| $raw %]
		997	[% Asset.js("js/recalls.js") \| $raw %]
989	<script type="text/javascript">	998	<script type="text/javascript">
990	/* Set some variable needed in circulation.js */	999	/* Set some variable needed in circulation.js */
991	var MSG_DT_LOADING_RECORDS = _("Loading... you may continue scanning.");	1000	var MSG_DT_LOADING_RECORDS = _("Loading... you may continue scanning.");

Lines 777-782 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt (+4 lines)
777	[% END %]	777	[% END %]
778	</div> [% # /div#reserves %]	778	</div> [% # /div#reserves %]
779	[% END %]	779	[% END %]
		780	[% IF recalls %]
		781	[% INCLUDE 'recalls.inc' %]
		782	[% END %]
780		783
781	[% IF Koha.Preference('ArticleRequests') %]	784	[% IF Koha.Preference('ArticleRequests') %]
782	[% INCLUDE 'patron-article-requests.inc' %]	785	[% INCLUDE 'patron-article-requests.inc' %]
Lines 806-811 Link Here
806	[% INCLUDE 'str/members-menu.inc' %]	809	[% INCLUDE 'str/members-menu.inc' %]
807	[% Asset.js("js/members-menu.js") \| $raw %]	810	[% Asset.js("js/members-menu.js") \| $raw %]
808	[% Asset.js("js/messaging-preference-form.js") \| $raw %]	811	[% Asset.js("js/messaging-preference-form.js") \| $raw %]
		812	[% Asset.js("js/recalls.js") \| $raw %]
809	<script>	813	<script>
810	/* Set some variable needed in circulation.js */	814	/* Set some variable needed in circulation.js */
811	var interface = "[% interface \| html %]";	815	var interface = "[% interface \| html %]";




$(document).ready(function() {

        $("#cancel_recall").click(function(e){
            if (confirmDelete(_("Are you sure you want to remove this recall?"))){
                var $self = $(this);
                var $recall_id = $(this).data('id');
                var ajaxData = {
                    'recall_id': $recall_id,
                };

                $.ajax({
                    url: '/cgi-bin/koha/svc/recall',
                    type: 'POST',
                    dataType: 'json',
                    data: ajaxData,
                })
                .done(function(data) {
                    var message = "";
                    if(data.success == 0) {
                        message = "The recall may have already been cancelled. Please refresh the page.";
                    } else {
                        message = "Cancelled"
                    }
                    $self.parent().html(message);
                });
            }
        });

});

Lines 55-60 use Koha::AuthorisedValues; Link Here

(-)a/members/moremember.pl (-2 / +6 lines)
55	use Koha::CsvProfiles;	55	use Koha::CsvProfiles;
56	use Koha::Patron::Debarments qw(GetDebarments);	56	use Koha::Patron::Debarments qw(GetDebarments);
57	use Koha::Patron::Messages;	57	use Koha::Patron::Messages;
		58	use Koha::Recalls;
58	#use Smart::Comments;	59	#use Smart::Comments;
59	#use Data::Dumper;	60	#use Data::Dumper;
60	use DateTime;	61	use DateTime;
Lines 230-240 if ( $data->{dateofbirth} ) { Link Here
230		231
231	### ###############################################################################	232	### ###############################################################################
232	# BUILD HTML	233	# BUILD HTML
233	# show all reserves of this borrower, and the position of the reservation ....	234	# show all recalls and reserves of this borrower, and the position of the reservation ....
234	if ($borrowernumber) {	235	if ($borrowernumber) {
		236	my $recalls = Koha::Recalls->search({ borrowernumber => $borrowernumber });
235	$template->param(	237	$template->param(
236	holds_count => Koha::Database->new()->schema()->resultset('Reserve')	238	holds_count => Koha::Database->new()->schema()->resultset('Reserve')
237	->count( { borrowernumber => $borrowernumber } ) );	239	->count( { borrowernumber => $borrowernumber } ),
		240	recalls => $recalls
		241	);
238	}	242	}
239		243
240	# Generate CSRF token for upload and delete image buttons	244	# Generate CSRF token for upload and delete image buttons




    # can't place recall if not logged in
        $error = 'notloggedin';
        print $query->redirect('/cgi-bin/koha/opac-detail.pl?biblionumber='.$item->biblionumber);
    } elsif ( defined $recalled && $recalled->borrowernumber == $borrowernumber && ($recalled->is_requested || $recalled->is_waiting || $recalled->is_overdue) ){
    # can't place a recall on an item that this borrower has already recalled
    # if recall is expired or cancelled, user may recall again
        $error = 'duplicate';
    } else {
    # can recall

    }
} elsif ($op eq 'cancel'){
    my $recall_id = $query->param('recall_id');
    Koha::Recalls->find($recall_id)->update({ cancellationdate => dt_from_string(), status => 'C' });
    print $query->redirect('/cgi-bin/koha/opac-user.pl');
}





#!/usr/bin/perl

# Copyright 2017 Aleisha Amohia <aleisha@catalyst.net.nz>
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 3 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# 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.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use CGI;
use JSON qw(encode_json);

use C4::Context;
use C4::Auth qw(check_cookie_auth);
use C4::Output qw(output_with_http_headers);
use Koha::Recalls;
use Koha::DateUtils;

my $input = new CGI;

my ( $auth_status, $sessionID ) =
  check_cookie_auth( $input->cookie('CGISESSID'), { circulate => 'circulate_remaining_permissions' } );

if ( $auth_status ne "ok" ) {
    print $input->header(-type => 'text/plain', -status => '403 Forbidden');
    exit 0;
}

my $recall_id = $input->param('recall_id');
my $recall = Koha::Recalls->find($recall_id);
unless ($recall) {
    my $json = encode_json( { success => 0 } );
    output_with_http_headers( $input, undef, $json, "json" );
    exit;
}

$recall->update({ cancellationdate => dt_from_string(), status => 'C' });
my $json = encode_json( { success => 1 } );
output_with_http_headers( $input, undef, $json, "json" );

Return to bug 19532

Lines 123-128 sub is_requested { Link Here

(-)a/Koha/Recall.pm (+26 lines)
123	return $status && $status eq 'R';	123	return $status && $status eq 'R';
124	}	124	}
125		125
		126	=head3 is_overdue
		127
		128	Returns true if recall is overdue
		129
		130	=cut
		131
		132	sub is_overdue {
		133	my ($self) = @_;
		134
		135	my $status = $self->status;
		136	return $status && $status eq 'O';
		137	}
		138
		139	=head3 is_cancelled
		140
		141	Returns true if recall is cancelled
		142
		143	=cut
		144
		145	sub is_cancelled {
		146	my ($self) = @_;
		147
		148	my $status = $self->status;
		149	return $status && $status eq 'C';
		150	}
		151
126	=head1 AUTHOR	152	=head1 AUTHOR
127		153
128	Aleisha Amohia <aleisha@catalyst.net.nz>	154	Aleisha Amohia <aleisha@catalyst.net.nz>

Lines 56-61 use Koha::Patron::Messages; Link Here

(-)a/circ/circulation.pl (-1 / +6 lines)
56	use Koha::SearchEngine;	56	use Koha::SearchEngine;
57	use Koha::SearchEngine::Search;	57	use Koha::SearchEngine::Search;
58	use Koha::Patron::Modifications;	58	use Koha::Patron::Modifications;
		59	use Koha::Recalls;
59		60
60	use Date::Calc qw(	61	use Date::Calc qw(
61	Today	62	Today
Lines 460-472 if (@$barcodes) { Link Here
460		461
461	##################################################################################	462	##################################################################################
462	# BUILD HTML	463	# BUILD HTML
463	# show all reserves of this borrower, and the position of the reservation ....	464	# show all recalls and reserves of this borrower, and the position of the reservation ....
464	if ($patron) {	465	if ($patron) {
465	my $holds = Koha::Holds->search( { borrowernumber => $borrowernumber } ); # FIXME must be Koha::Patron->holds	466	my $holds = Koha::Holds->search( { borrowernumber => $borrowernumber } ); # FIXME must be Koha::Patron->holds
466	my $waiting_holds = $holds->waiting;	467	my $waiting_holds = $holds->waiting;
		468
		469	my $recalls = Koha::Recalls->search({ borrowernumber => $borrowernumber });
		470
467	$template->param(	471	$template->param(
468	holds_count => $holds->count(),	472	holds_count => $holds->count(),
469	WaitingHolds => $waiting_holds,	473	WaitingHolds => $waiting_holds,
		474	recalls => $recalls
470	);	475	);
471	}	476	}
472		477

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/recalls.inc (+76 lines)
		1	<div id="recalls">
		2	[% IF recalls.count %]
		3	<table id="recalls-table" class="table table-bordered table-striped">
		4	<thead>
		5	<tr>
		6	<th class="recall-title anti-the">Title</th>
		7	<th class="recall-date psort title-string">Placed on</th>
		8	<th class="recall-expiry title-string">Expires on</th>
		9	<th class="recall-branch">Pickup location</th>
		10	<th class="recall-status">Status</th>
		11	<th class="recall-cancel">Cancel</th>
		12	</tr>
		13	</thead>
		14
		15	<tbody>
		16	[% FOREACH recall IN recalls %]
		17	<tr>
		18	<td class="recall-title">
		19	<a class="recall-title" href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% recall.biblionumber %]">
		20	[% recall.biblio.title %]
		21	[% FOREACH s IN recall.biblio.subtitles %]
		22	[% s %]
		23	[% END %]
		24	[% recall.item.enumchron %]
		25	</a>
		26	[% recall.biblio.author %]
		27	</td>
		28
		29	<td class="recall-date">
		30	[% recall.recalldate \| $KohaDates %]
		31	</td>
		32
		33	<td class="recall-expiry">
		34	[% IF ( recall.is_waiting ) %]
		35	[% IF ( recall.expirationdate ) %]
		36	[% recall.expirationdate \| $KohaDates %]
		37	[% ELSE %]
		38	Never expires
		39	[% END %]
		40	[% ELSIF ( recall.has_expired && recall.expirationdate ) %]
		41	[% recall.expirationdate \| $KohaDates %]
		42	[% ELSE %]
		43	-
		44	[% END %]
		45	</td>
		46
		47	<td class="recall-branch">
		48	[% recall.branch.branchname %]
		49	</td>
		50
		51	<td class="recall-status">
		52	[% IF ( recall.is_requested ) %]
		53	Requested
		54	[% ELSIF ( recall.is_waiting ) %]
		55	Ready for pickup
		56	[% ELSIF ( recall.has_expired ) %]
		57	Expired
		58	[% END %]
		59	</td>
		60
		61	<td class="recall-cancel">
		62	[% IF ( !recall.cancellationdate ) %]
		63	<a class="btn btn-sm btn-danger" id="cancel_recall" data-id="[% recall.recall_id %]"><i class="fa fa-times"></i> Cancel</a>
		64	[% ELSE %]
65	Cancelled
66	[% END %]
67	</td>
68
69	</tr>
70	[% END %]
71	</tbody>
72	</table>
73	[% ELSE %]
74	Patron has no current recalls.
75	[% END %]
76	</div>

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/js/recalls.js (+29 lines)
	1	$(document).ready(function() {
	2
	3	$("#cancel_recall").click(function(e){
	4	if (confirmDelete(_("Are you sure you want to remove this recall?"))){
	5	var $self = $(this);
	6	var $recall_id = $(this).data('id');
	7	var ajaxData = {
	8	'recall_id': $recall_id,
	9	};
	10
	11	$.ajax({
	12	url: '/cgi-bin/koha/svc/recall',
	13	type: 'POST',
	14	dataType: 'json',
	15	data: ajaxData,
	16	})
	17	.done(function(data) {
	18	var message = "";
	19	if(data.success == 0) {
	20	message = "The recall may have already been cancelled. Please refresh the page.";
	21	} else {
	22	message = "Cancelled"
	23	}
	24	$self.parent().html(message);
	25	});
	26	}
	27	});
	28
	29	});

Lines 53-60 if ($op eq 'request'){ Link Here

(-)a/opac/opac-recall.pl (-2 / +3 lines)
53	# can't place recall if not logged in	53	# can't place recall if not logged in
54	$error = 'notloggedin';	54	$error = 'notloggedin';
55	print $query->redirect('/cgi-bin/koha/opac-detail.pl?biblionumber='.$item->biblionumber);	55	print $query->redirect('/cgi-bin/koha/opac-detail.pl?biblionumber='.$item->biblionumber);
56	} elsif (defined $recalled && $recalled->borrowernumber == $borrowernumber){	56	} elsif ( defined $recalled && $recalled->borrowernumber == $borrowernumber && ($recalled->is_requested \|\| $recalled->is_waiting \|\| $recalled->is_overdue) ){
57	# can't place a recall on an item that this borrower has already recalled	57	# can't place a recall on an item that this borrower has already recalled
		58	# if recall is expired or cancelled, user may recall again
58	$error = 'duplicate';	59	$error = 'duplicate';
59	} else {	60	} else {
60	# can recall	61	# can recall
Lines 87-93 if ($op eq 'request'){ Link Here
87	}	88	}
88	} elsif ($op eq 'cancel'){	89	} elsif ($op eq 'cancel'){
89	my $recall_id = $query->param('recall_id');	90	my $recall_id = $query->param('recall_id');
90	Koha::Recalls->find($recall_id)->delete;	91	Koha::Recalls->find($recall_id)->update({ cancellationdate => dt_from_string(), status => 'C' });
91	print $query->redirect('/cgi-bin/koha/opac-user.pl');	92	print $query->redirect('/cgi-bin/koha/opac-user.pl');
92	}	93	}
93		94

Line 0 Link Here

(-)a/svc/recall (-1 / +51 lines)
0	-	1	#!/usr/bin/perl
		2
		3	# Copyright 2017 Aleisha Amohia <aleisha@catalyst.net.nz>
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 3 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
		20	use Modern::Perl;
		21
		22	use CGI;
		23	use JSON qw(encode_json);
		24
		25	use C4::Context;
		26	use C4::Auth qw(check_cookie_auth);
		27	use C4::Output qw(output_with_http_headers);
		28	use Koha::Recalls;
		29	use Koha::DateUtils;
		30
		31	my $input = new CGI;
		32
		33	my ( $auth_status, $sessionID ) =
		34	check_cookie_auth( $input->cookie('CGISESSID'), { circulate => 'circulate_remaining_permissions' } );
		35
		36	if ( $auth_status ne "ok" ) {
		37	print $input->header(-type => 'text/plain', -status => '403 Forbidden');
		38	exit 0;
		39	}
		40
		41	my $recall_id = $input->param('recall_id');
		42	my $recall = Koha::Recalls->find($recall_id);
		43	unless ($recall) {
		44	my $json = encode_json( { success => 0 } );
		45	output_with_http_headers( $input, undef, $json, "json" );
		46	exit;
		47	}
		48
		49	$recall->update({ cancellationdate => dt_from_string(), status => 'C' });
		50	my $json = encode_json( { success => 1 } );
		51	output_with_http_headers( $input, undef, $json, "json" );