"Fossies" - the Fresh Open Source Software Archive

Member "koha-19.11.15/opac/svc/club/cancel_enrollment" (23 Feb 2021, 1350 Bytes) of package /linux/misc/koha-19.11.15.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "cancel_enrollment": 20.05.06_vs_20.11.00.

    1 #!/usr/bin/perl
    2 
    3 # Copyright 2014 ByWater Solutions
    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 2 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 
   21 use Modern::Perl;
   22 
   23 use CGI;
   24 use JSON qw(to_json);
   25 
   26 use C4::Auth qw(check_cookie_auth);
   27 use Koha::Club::Enrollments;
   28 
   29 my $cgi = new CGI;
   30 
   31 my ( $auth_status, $sessionID ) =
   32   check_cookie_auth( $cgi->cookie('CGISESSID') );
   33 if ( $auth_status ne "ok" ) {
   34     exit 0;
   35 }
   36 
   37 my $borrowernumber = C4::Context->userenv->{'number'};
   38 
   39 my $id = $cgi->param('id');
   40 
   41 my $enrollment = Koha::Club::Enrollments->find($id);
   42 $enrollment->cancel();
   43 
   44 binmode STDOUT, ':encoding(UTF-8)';
   45 print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );
   46 
   47 print to_json( { success => $enrollment ? 1 : 0 } );