| Line 0
          
      
      
        Link Here | 
          
            
              | 0 | -  | 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 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 |  | 
            
              | 24 | use C4::Auth; | 
            
              | 25 | use C4::Context; | 
            
              | 26 | use Koha::Database; | 
            
              | 27 |  | 
            
              | 28 | use JSON qw( to_json ); | 
            
              | 29 |  | 
            
              | 30 | my $cgi = CGI->new(); | 
            
              | 31 |  | 
            
              | 32 | my $privacy_relative_checkouts = $cgi->param('privacy_relative_checkouts'); | 
            
              | 33 |  | 
            
              | 34 | my ( $userid, $cookie, $sessionID, $flags ) = checkauth( $cgi, 1, {}, 'opac' ); | 
            
              | 35 |  | 
            
              | 36 | my $borrowernumber = | 
            
              | 37 |   C4::Context->userenv ? C4::Context->userenv->{number} : undef; | 
            
              | 38 |  | 
            
              | 39 | my $success = 0; | 
            
              | 40 | if ( $borrowernumber && defined($privacy_relative_checkouts) ) { | 
            
              | 41 |     my $patron = | 
            
              | 42 |       Koha::Database->new()->schema()->resultset('Borrower') | 
            
              | 43 |       ->find($borrowernumber); | 
            
              | 44 |  | 
            
              | 45 |     $success = $patron->update( | 
            
              | 46 |         { privacy_relative_checkouts => $privacy_relative_checkouts } ); | 
            
              | 47 | } | 
            
              | 48 |  | 
            
              | 49 | binmode STDOUT, ":encoding(UTF-8)"; | 
            
              | 50 | print $cgi->header( | 
            
              | 51 |     -type    => 'application/json', | 
            
              | 52 |     -charset => 'UTF-8' | 
            
              | 53 | ); | 
            
              | 54 |  | 
            
              | 55 | print to_json( | 
            
              | 56 |     { | 
            
              | 57 |         success => $success ? 1 : 0, | 
            
              | 58 |         privacy_relative_checkouts => $privacy_relative_checkouts, | 
            
              | 59 |     } | 
            
              | 60 | ); |