use Scalar::Util qw(blessed);

=head castToBorrower

    my $borrower = Koha::Borrowers::castToBorrower('cardnumber');

    my $borrower = Koha::Borrowers::castToBorrower($Koha::Borrower);

    my $borrower = Koha::Borrowers::castToBorrower('userid');

    my $borrower = Koha::Borrowers::castToBorrower('borrowernumber');

    my $borrower = Koha::Borrowers::castToBorrower({borrowernumber => 123,

                                                });

    my $borrower = Koha::Borrowers::castToBorrower({firstname => 'Olli-Antti',

                                                    surname => 'Kivi',

                                                    address => 'Koskikatu 25',

                                                });

Because there are gazillion million ways in Koha to invoke a Borrower, this is a

omnibus for easily creating a Borrower-object from all the arcane invocations present

in many parts of Koha.

Just throw the crazy and unpredictable return values from myriad subroutines returning

some kind of an borrowerish value to this casting function to get a brand new Koha::Borrower.

@PARAM1 Scalar, or HASHRef.

@RETURNS Koha::Borrower, possibly already in DB or a completely new one if nothing was

                         inferred from the DB.

@THROWS Koha::Exception::BadParameter, if no idea what to do with the input.

=cut

sub castToBorrower {

    my ($input) = @_;

    unless ($input) {

        Koha::Exception::BadParameter->throw(error => __PACKAGE__."::castToBorrower():> No parameter given!");

    }

    if (blessed($input) && $input->isa('Koha::Borrower')) {

        return $input;

    }

    if (blessed($input) && $input->isa('Koha::Schema::Result::Borrower')) {

        return Koha::Borrower->_new_from_dbic($input);

    }

    my ($borrowernumber, $cardnumber, $userid, $borrower);

    #Extract unique keys and try to get the borrower from them.

    if (ref($input) eq 'HASH') {

        $borrowernumber = $input->{borrowernumber};

        $cardnumber = $input->{cardnumber};

        $userid = $input->{userid};

    }

    elsif (not(ref($input))) { #We have a scalar

        $borrowernumber = $input;

        $cardnumber = $input;

        $userid = $input;

    }

    if ($borrowernumber || $cardnumber || $userid) {

        $borrower = Koha::Borrowers->search({'-or' => [{borrowernumber => $borrowernumber},

                                                     {cardnumber => $cardnumber},

                                                     {userid => $userid},

                                                    ]

                                        })->next();

        unless ($borrower) {

            Koha::Exception::UnknownObject->throw(error => "Koha::Borrower::castToBorrower->new():> Cannot find an existing Borrower from borrowernumber|cardnumber|userid '$borrowernumber|$cardnumber|$userid'.");

        }

    }

#    ##If we have a borrower now, overwrite it with given hash keys

#    #if not, try to make one if we have a hash as input.

#    if (ref($input) eq 'HASH') {

#        $borrower = Koha::Borrower->new() unless $borrower;

#        my $columns = $borrower->_columns();

#        my $setHash = {};

#        foreach my $columnName (@$columns) {

#            $setHash->{$columnName} = $input->{$columnName};

#        }

#        Koha::Exception::BadParameter->throw(error => __PACKAGE__."::castToBorrower():> Given HASH contains no Borrower column parameters, cannot build a Borrower out of them.")

#                        unless scalar($setHash);

#        $borrower->set($setHash);

#    }

#

#    unless ($borrower) {

#        Koha::Exception::BadParameter->throw(error => __PACKAGE__."::castToBorrower():> Cannot find an existing Borrower from borrowernumber|cardnumber|userid '$borrowernumber|$cardnumber|$userid'.");

#    }

}