Bug 18137: List Mojolicious::Plugin::OpenAPI and JSON::Validator as dependencies
[koha.git] / opac / opac-account-pay-return.pl
blob73c5f566e04a4586c5e52ad317ab8af3f0c66fe0
1 #!/usr/bin/perl
3 # Copyright ByWater Solutions 2017
5 # This file is part of Koha.
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.
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.
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.
20 use Modern::Perl;
22 use CGI;
24 use C4::Auth;
25 use Koha::Plugins::Handler;
27 my $cgi = new CGI;
29 my ( $userid, $cookie, $sessionID, $flags ) = checkauth( $cgi, 0, {}, 'opac' );
31 # Check for payment method in both POST and GET vars
32 my $payment_method = $cgi->param('payment_method') || $cgi->url_param('payment_method');
34 my $can_handle_payment = Koha::Plugins::Handler->run(
36 class => $payment_method,
37 method => 'opac_online_payment',
38 cgi => $cgi,
42 if ($can_handle_payment) {
43 Koha::Plugins::Handler->run(
45 class => $payment_method,
46 method => 'opac_online_payment_end',
47 cgi => $cgi,
51 else {
52 print $cgi->redirect("/cgi-bin/koha/errors/404.pl");
53 exit;