package Koha::Exceptions::Patron::Attribute;

use Modern::Perl;

use Exception::Class (

    'Koha::Exceptions::Patron::Attribute' => {

        description => 'Something went wrong'

    },

    'Koha::Exceptions::Patron::Attribute::UniqueIDConstraint' => {

        isa => 'Koha::Exceptions::Patron::Attribute',

        description => "unique_id set for attribute type and tried to add a new attribute for the same code"

    }

);

1;

use Koha::Database;

use Koha::Exceptions::Patron::Attribute;

=head3 store

    my $attribute = Koha::Patron::Attribute->new({ code => 'a_code', ... });

    try { $attribute->store }

    catch { handle_exception };

=cut

sub store {

    my $self = shift;

    if ( Koha::Patron::Attribute::Types->find( $self->code )->unique_id ) {

        my $attr_count

            = Koha::Database->new->schema->resultset( $self->_type )->search(

            {   borrowernumber => $self->borrowernumber,

                code           => $self->code

            }

            )->count;

        Koha::Exceptions::Patron::Attribute::UniqueIDConstraint->throw()

            if $attr_count > 0;

    }

    return $self->SUPER::store();

}