use C4::Auth qw(&check_api_auth);

use C4::Auth qw(&check_api_auth);

use Koha::Patron::Attributes;

use Koha::Patron::Attributes;

use Koha::Items;

use Koha::Items;

use UNIVERSAL::can;

use UNIVERSAL::can;

    $fields = $self->{fields};

    $fields = $self->{fields};

    $patron_id = $fields->{ (FID_PATRON_ID) };

    $patron_id = $fields->{ (FID_PATRON_ID) };

    $item_id   = $fields->{ (FID_ITEM_ID) };

    $item_id   = $fields->{ (FID_ITEM_ID) };

    my $fee_ack = $fields->{ (FID_FEE_ACK) };

    my $fee_ack = $fields->{ (FID_FEE_ACK) };

    $patron_id        = $fields->{ (FID_PATRON_ID) };

    $patron_id        = $fields->{ (FID_PATRON_ID) };

    $terminal_pwd     = $fields->{ (FID_TERMINAL_PWD) };

    $terminal_pwd     = $fields->{ (FID_TERMINAL_PWD) };

    # Terminal passwords are different from account login

    # Terminal passwords are different from account login

    # passwords, but I have no idea what to do with them.  So,

    # passwords, but I have no idea what to do with them.  So,

    # I'll just ignore them for now.

    # I'll just ignore them for now.

    $start        = $fields->{ (FID_START_ITEM) };

    $start        = $fields->{ (FID_START_ITEM) };

    $end          = $fields->{ (FID_END_ITEM) };

    $end          = $fields->{ (FID_END_ITEM) };

    $patron = $ils->find_patron($patron_id);

    $patron = $ils->find_patron($patron_id);

    $resp = (PATRON_INFO_RESP);

    $resp = (PATRON_INFO_RESP);

    $fee_id     = $fields->{ (FID_FEE_ID) };

    $fee_id     = $fields->{ (FID_FEE_ID) };

    $trans_id   = $fields->{ (FID_TRANSACTION_ID) };

    $trans_id   = $fields->{ (FID_TRANSACTION_ID) };

    $ils->check_inst_id( $inst_id, "handle_fee_paid" );

    $ils->check_inst_id( $inst_id, "handle_fee_paid" );

    my $pay_result = $ils->pay_fee( $patron_id, $patron_pwd, $fee_amt, $fee_type, $pay_type, $fee_id, $trans_id, $currency, $is_writeoff, $disallow_overpayment, $register_id );

    my $pay_result = $ils->pay_fee( $patron_id, $patron_pwd, $fee_amt, $fee_type, $pay_type, $fee_id, $trans_id, $currency, $is_writeoff, $disallow_overpayment, $register_id );

    $patron_id  = $fields->{ (FID_PATRON_ID) };

    $patron_id  = $fields->{ (FID_PATRON_ID) };

    $patron_pwd = $fields->{ (FID_PATRON_PWD) };

    $patron_pwd = $fields->{ (FID_PATRON_PWD) };

    siplog( "LOG_DEBUG", "handle_patron_enable: patron_id: '%s', patron_pwd: '%s'", $patron_id, $patron_pwd );

    siplog( "LOG_DEBUG", "handle_patron_enable: patron_id: '%s', patron_pwd: '%s'", $patron_id, $patron_pwd );

    $patron = $ils->find_patron($patron_id);

    $patron = $ils->find_patron($patron_id);

    $title_id    = $fields->{ (FID_TITLE_ID) } || '';

    $title_id    = $fields->{ (FID_TITLE_ID) } || '';

    $fee_ack     = $fields->{ (FID_FEE_ACK) } || 'N';

    $fee_ack     = $fields->{ (FID_FEE_ACK) } || 'N';

    if ( $hold_mode eq '+' ) {

    if ( $hold_mode eq '+' ) {

        $status = $ils->add_hold( $patron_id, $patron_pwd, $item_id, $title_id, $expiry_date, $pickup_locn, $hold_type, $fee_ack );

        $status = $ils->add_hold( $patron_id, $patron_pwd, $item_id, $title_id, $expiry_date, $pickup_locn, $hold_type, $fee_ack );

    } elsif ( $hold_mode eq '-' ) {

    } elsif ( $hold_mode eq '-' ) {

    $item_props = $fields->{ (FID_ITEM_PROPS) };

    $item_props = $fields->{ (FID_ITEM_PROPS) };

    $fee_ack    = $fields->{ (FID_FEE_ACK) };

    $fee_ack    = $fields->{ (FID_FEE_ACK) };

    $status = $ils->renew( $patron_id, $patron_pwd, $item_id, $title_id, $no_block, $nb_due_date, $third_party, $item_props, $fee_ack );

    $status = $ils->renew( $patron_id, $patron_pwd, $item_id, $title_id, $no_block, $nb_due_date, $third_party, $item_props, $fee_ack );

    $patron = $status->patron;

    $patron = $status->patron;

    $terminal_pwd = $fields->{ (FID_TERMINAL_PWD) };

    $terminal_pwd = $fields->{ (FID_TERMINAL_PWD) };

    $fee_ack      = $fields->{ (FID_FEE_ACK) };

    $fee_ack      = $fields->{ (FID_FEE_ACK) };

    $status = $ils->renew_all( $patron_id, $patron_pwd, $fee_ack );

    $status = $ils->renew_all( $patron_id, $patron_pwd, $fee_ack );

    $resp .= $status->ok ? '1' : '0';

    $resp .= $status->ok ? '1' : '0';

sub fixup_cardnumber {

sub fixup_cardnumber {

    my ( $self ) = @_;

    my ( $self ) = @_;

        cardnumber => {-regexp => '^-?[0-9]+$'}

        cardnumber => {-regexp => '^-?[0-9]+$'}

    }, {

    }, {

        select => \'CAST(cardnumber AS SIGNED)',

        select => \'CAST(cardnumber AS SIGNED)',

            $self->trim_whitespaces;

            $self->trim_whitespaces;

            # Set surname to uppercase if uppercasesurname is true

            # Set surname to uppercase if uppercasesurname is true

            $self->surname( uc($self->surname) )

            $self->surname( uc($self->surname) )

                if C4::Context->preference("uppercasesurnames");

                if C4::Context->preference("uppercasesurnames");

my $borrowernumber = $query->param('borrowernumber');

my $borrowernumber = $query->param('borrowernumber');

if (C4::Context->preference("AutoSwitchPatron") && $barcode) {

if (C4::Context->preference("AutoSwitchPatron") && $barcode) {

        $findborrower = $barcode;

        $findborrower = $barcode;

        undef $barcode;

        undef $barcode;

        undef $borrowernumber;

        undef $borrowernumber;

#

#

my $message;

my $message;

if ($findborrower) {

if ($findborrower) {

    my $patron = Koha::Patrons->find( { cardnumber => $findborrower } );

    my $patron = Koha::Patrons->find( { cardnumber => $findborrower } );

    if ( $patron ) {

    if ( $patron ) {

        $borrowernumber = $patron->borrowernumber;

        $borrowernumber = $patron->borrowernumber;

use Koha::Patron::Categories;

use Koha::Patron::Categories;

use Koha::Patron::HouseboundRole;

use Koha::Patron::HouseboundRole;

use Koha::Patron::HouseboundRoles;

use Koha::Patron::HouseboundRoles;

use Koha::Token;

use Koha::Token;

use Email::Valid;

use Email::Valid;

use Koha::SMS::Providers;

use Koha::SMS::Providers;

    # If the cardnumber is blank, treat it as null.

    # If the cardnumber is blank, treat it as null.

    $newdata{'cardnumber'} = undef if $newdata{'cardnumber'} =~ /^\s*$/;

    $newdata{'cardnumber'} = undef if $newdata{'cardnumber'} =~ /^\s*$/;

    if (my $error_code = checkcardnumber($newdata{cardnumber},$newdata{borrowernumber})){

    if (my $error_code = checkcardnumber($newdata{cardnumber},$newdata{borrowernumber})){

        push @errors, $error_code == 1

        push @errors, $error_code == 1

            ? 'ERROR_cardnumber_already_exists'

            ? 'ERROR_cardnumber_already_exists'

my ( $borrower, $patron );

my ( $borrower, $patron );

if ( $patronid ) {

if ( $patronid ) {

    $patron = Koha::Patrons->find( { cardnumber => $patronid } );

    $patron = Koha::Patrons->find( { cardnumber => $patronid } );

    $borrower = $patron->unblessed if $patron;

    $borrower = $patron->unblessed if $patron;

}

}