Attachment #118452 for bug #17499

View | Details | Raw Unified | Return to bug 17499
Collapse All | Expand All




package Koha::Exceptions::Patron::MessagePreference;

# This file is part of Koha.
#


use Exception::Class (

    'Koha::Exceptions::Patron::MessagePreference' => {
        description => 'Something went wrong'
    },
    'Koha::Exceptions::Patron::MessagePreference::AttributeNotFound' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Message attribute not found",
        fields => ['message_attribute_id']
    },
    'Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceOutOfRange' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Days in advance is out of range",
        fields => ['min','max', 'message_name']
    },
    'Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceNotAvailable' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Days in advance cannot be selected for this preference",
        fields => ['message_name']
    },
    'Koha::Exceptions::Patron::MessagePreference::DigestNotAvailable' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Digest is not available for this message type",
        fields => ['message_name']
    },
    'Koha::Exceptions::Patron::MessagePreference::DigestRequired' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Digest must be selected for this message type",
        fields => ['message_name']
    },
    'Koha::Exceptions::Patron::MessagePreference::EmailAddressRequired' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Patron has no email address, cannot use email transport type.",
        fields => ['message_name', 'borrowernumber' ]
    },
    'Koha::Exceptions::Patron::MessagePreference::NoTransportType' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Transport type not available for this message.",
        fields => ['message_name', 'transport_type']
    },
    'Koha::Exceptions::Patron::MessagePreference::PhoneNumberRequired' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Patron has no phone number, cannot use phone transport type.",
        fields => ['message_name', 'borrowernumber' ]
    },
    'Koha::Exceptions::Patron::MessagePreference::SMSNumberRequired' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "Patron has no SMS number, cannot use sms transport type.",
        fields => ['message_name', 'borrowernumber' ]
    },
    'Koha::Exceptions::Patron::MessagePreference::TalkingTechItivaPhoneNotificationRequired' => {
        isa => 'Koha::Exceptions::Patron::MessagePreference',
        description => "System preference TalkingTechItivaPhoneNotification is disabled, cannot use itiva transport type.",
        fields => ['message_name', 'borrowernumber' ]
    },

Lines 1-4 Link Here

(-)a/Koha/Exceptions/Patron/Message/Transport.pm (-4 / +4 lines)
1	package Koha::Exceptions::Patron::Message::Transport;	1	package Koha::Exceptions::Patron::MessagePreference::Transport;
2		2
3	# This file is part of Koha.	3	# This file is part of Koha.
4	#	4	#
Lines 19-29 use Modern::Perl; Link Here
19		19
20	use Exception::Class (	20	use Exception::Class (
21		21
22	'Koha::Exceptions::Patron::Message::Transport' => {	22	'Koha::Exceptions::Patron::MessagePreference::Transport' => {
23	description => 'Something went wrong'	23	description => 'Something went wrong'
24	},	24	},
25	'Koha::Exceptions::Patron::Message::Transport::TypeNotFound' => {	25	'Koha::Exceptions::Patron::MessagePreference::Transport::TypeNotFound' => {
26	isa => 'Koha::Exceptions::Patron::Message::Transport',	26	isa => 'Koha::Exceptions::Patron::MessagePreference::Transport',
27	description => "Transport type does not exist.",	27	description => "Transport type does not exist.",
28	fields => ['transport_type']	28	fields => ['transport_type']
29	},	29	},




use Koha::Patron::HouseboundRole;
use Koha::Patron::Images;
use Koha::Patron::Modifications;
use Koha::Patron::MessagePreferences;
use Koha::Patron::Relationships;
use Koha::Patrons;
use Koha::Plugins;


Sets default messaging preferences on patron.

See Koha::Patron::MessagePreference(s) for more documentation, especially on
thrown exceptions.

=cut

sub set_default_messaging_preferences {
    my ($self, $categorycode) = @_;

    my $options = Koha::Patron::MessagePreferences->get_options;

    foreach my $option (@$options) {
        # Check that this option has preference configuration for this category
        unless (Koha::Patron::MessagePreferences->search({
            message_attribute_id => $option->{message_attribute_id},
            categorycode         => $categorycode || $self->categorycode,
        })->count) {

        }

        # Delete current setting
        Koha::Patron::MessagePreferences->search({
             borrowernumber => $self->borrowernumber,
             message_attribute_id => $option->{message_attribute_id},
        })->delete;

        Koha::Patron::MessagePreference->new_from_default({
            borrowernumber => $self->borrowernumber,
            categorycode   => $categorycode || $self->categorycode,
            message_attribute_id => $option->{message_attribute_id},




package Koha::Patron::MessagePreference;

# Copyright Koha-Suomi Oy 2016
#


use Koha::Database;
use Koha::Exceptions;
use Koha::Exceptions::Patron::MessagePreference;
use Koha::Exceptions::Patron::MessagePreference::Transport;
use Koha::Exceptions::Patron::Category;
use Koha::Patron::Categories;
use Koha::Patron::MessagePreference::Attributes;
use Koha::Patron::MessagePreferences;
use Koha::Patron::MessagePreference::Transport::Preferences;
use Koha::Patron::MessagePreference::Transport::Types;
use Koha::Patron::MessagePreference::Transports;
use Koha::Patrons;

use base qw(Koha::Object);

=head1 NAME

Koha::Patron::MessagePreference - Koha Patron Message Preference object class

=head1 API



=head3 new

my $preference = Koha::Patron::MessagePreference->new({
   borrowernumber => 123,
   #categorycode => 'ABC',
   message_attribute_id => 4,


=head3 new_from_default

my $preference = Koha::Patron::MessagePreference->new_from_default({
    borrowernumber => 123,
    categorycode   => 'ABC',   # if not given, patron's categorycode will be used
    message_attribute_id => 1,

        $params->{'categorycode'} = $patron->categorycode;
    }

    my $default = Koha::Patron::MessagePreferences->find({
        categorycode => $params->{'categorycode'},
        message_attribute_id => $params->{'message_attribute_id'},
    });


    # Set default messaging transport types
    my $default_transport_types =
    Koha::Patron::MessagePreference::Transport::Preferences->search({
        borrower_message_preference_id =>
                    $default->{'borrower_message_preference_id'}
    });
    while (my $transport = $default_transport_types->next) {
        Koha::Patron::MessagePreference::Transport::Preference->new({
            borrower_message_preference_id => $self->borrower_message_preference_id,
            message_transport_type => $transport->message_transport_type,
        })->store;

    if ($self->{'_message_name'}) {
        return $self->{'_message_name'};
    }
    $self->{'_message_name'} = Koha::Patron::MessagePreference::Attributes->find({
        message_attribute_id => $self->message_attribute_id,
    })->message_name;
    return $self->{'_message_name'};

            return $self->{'_message_transport_types'};
        }
        map {
            my $transport = Koha::Patron::MessagePreference::Transports->find({
                message_attribute_id => $self->message_attribute_id,
                message_transport_type => $_->message_transport_type,
                is_digest => $self->wants_digest

            $self->{'_message_transport_types'}->{$_->message_transport_type}
                = $transport ? $transport->letter_code : ' ';
        }
        Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $self->borrower_message_preference_id,
        })->as_list;
        return $self->{'_message_transport_types'} || {};


    # store message transport types
    if (exists $self->{'_message_transport_types'}) {
        Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id =>
                $self->borrower_message_preference_id,
        })->delete;
        foreach my $type (keys %{$self->{'_message_transport_types'}}) {
            Koha::Patron::MessagePreference::Transport::Preference->new({
                borrower_message_preference_id =>
                    $self->borrower_message_preference_id,
                message_transport_type => $type,


Makes a basic validation for object.

Returns Koha::Patron::MessagePreference object, or throws and exception.

=cut


    }

    if (!$self->in_storage) {
        my $previous = Koha::Patron::MessagePreferences->search({
            borrowernumber => $self->borrowernumber,
            categorycode   => $self->categorycode,
            message_attribute_id => $self->message_attribute_id,

        }
    }

    my $attr = Koha::Patron::MessagePreference::Attributes->find(
        $self->message_attribute_id
    );
    unless ($attr) {
        Koha::Exceptions::Patron::MessagePreference::AttributeNotFound->throw(
            error => 'Message attribute with id '.$self->message_attribute_id
            .' not found',
            message_attribute_id => $self->message_attribute_id,

    }
    if (defined $self->days_in_advance) {
        if ($attr && $attr->takes_days == 0) {
            Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceNotAvailable->throw(
                error => 'days_in_advance cannot be defined for '.
                $attr->message_name . '.',
                message_name => $attr->message_name,
            );
        }
        elsif ($self->days_in_advance < 0 || $self->days_in_advance > 30) {
            Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceOutOfRange->throw(
                error => 'days_in_advance has to be a value between 0-30 for '.
                $attr->message_name . '.',
                message_name => $attr->message_name,

        }
    }
    if (defined $self->wants_digest) {
        my $transports = Koha::Patron::MessagePreference::Transports->search({
            message_attribute_id => $self->message_attribute_id,
            is_digest            => $self->wants_digest ? 1 : 0,
        });
        unless ($transports->count) {
            if (!$self->wants_digest) {
                Koha::Exceptions::Patron::MessagePreference::DigestRequired->throw(
                    error => 'Digest must be selected for '.$attr->message_name.'.',
                    message_name => $attr->message_name
                );
            } else {
                Koha::Exceptions::Patron::MessagePreference::DigestNotAvailable->throw(
                    error => 'Digest cannot be selected for '.$attr->message_name.'.',
                    message_name => $attr->message_name
                );

    $self->_validate_message_transport_types({ message_transport_types => $types });
    foreach my $type (@$types) {
        unless (exists $self->{'_message_transport_types'}->{$type}) {
            my $transport = Koha::Patron::MessagePreference::Transports->search({
                message_attribute_id => $self->message_attribute_id,
                message_transport_type => $type
            })->next;
            unless ($transport) {
                Koha::Exceptions::Patron::MessagePreference::NoTransportType->throw(
                    error => 'No transport configured for '.$self->message_name.
                        " transport type $type.",
                    message_name => $self->message_name,

            }
            if (defined $self->borrowernumber) {
                if ( ! $self->mtt_deliverable($type) ) {
                    Koha::Exceptions::Patron::MessagePreference::EmailAddressRequired->throw(
                        error => 'Patron has not set email address, '.
                                  'cannot use email as message transport',
                        message_name => $self->message_name,
                        borrowernumber => $self->borrowernumber,
                    ) if $type eq 'email';
                    Koha::Exceptions::Patron::MessagePreference::TalkingTechItivaPhoneNotificationRequired->throw(
                        error => 'System preference TalkingTechItivaPhoneNotification disabled'.
                                 'cannot use itiva as message transport',
                        message_name => $self->message_name,
                        borrowernumber => $self->borrowernumber,
                    ) if $type eq 'itiva';
                    Koha::Exceptions::Patron::MessagePreference::PhoneNumberRequired->throw(
                        error => 'Patron has not set phone number'.
                                 'cannot use phone as message transport',
                        message_name => $self->message_name,
                        borrowernumber => $self->borrowernumber,
                    ) if $type eq 'phone';
                    Koha::Exceptions::Patron::MessagePreference::SMSNumberRequired->throw(
                        error => 'Patron has not set SMS number'.
                                 'cannot use sms as message transport',
                        message_name => $self->message_name,

        my $types = $params->{'message_transport_types'};

        foreach my $type (@{$types}) {
            unless (Koha::Patron::MessagePreference::Transport::Types->find({
                message_transport_type => $type
            })) {
                Koha::Exceptions::Patron::MessagePreference::Transport::TypeNotFound->throw(
                    error => "Message transport type '$type' does not exist",
                    transport_type => $type,
                );

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Attribute.pm (-2 / +2 lines)
1	package Koha::Patron::Message::Attribute;	1	package Koha::Patron::MessagePreference::Attribute;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 25-31 use base qw(Koha::Object); Link Here
25		25
26	=head1 NAME	26	=head1 NAME
27		27
28	Koha::Patron::Message::Attribute - Koha Patron Message Attribute object class	28	Koha::Patron::MessagePreference::Attribute - Koha Patron Message Attribute object class
29		29
30	=head1 API	30	=head1 API
31		31




package Koha::Patron::MessagePreference::Attributes;

# Copyright Koha-Suomi Oy 2016
#

use Modern::Perl;

use Koha::Database;
use Koha::Patron::MessagePreference::Attribute;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::MessagePreference::Attributes - Koha Patron Message Attributes object class

=head1 API


=cut

sub object_class {
    return 'Koha::Patron::MessagePreference::Attribute';
}

=head1 AUTHOR

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Transport.pm (-2 / +2 lines)
1	package Koha::Patron::Message::Transport;	1	package Koha::Patron::MessagePreference::Transport;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 25-31 use base qw(Koha::Object); Link Here
25		25
26	=head1 NAME	26	=head1 NAME
27		27
28	Koha::Patron::Message::Transport - Koha Patron Message Transport object class	28	Koha::Patron::MessagePreference::Transport - Koha Patron Message Transport object class
29		29
30	=head1 API	30	=head1 API
31		31

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Transport/Preference.pm (-2 / +2 lines)
1	package Koha::Patron::Message::Transport::Preference;	1	package Koha::Patron::MessagePreference::Transport::Preference;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 25-31 use base qw(Koha::Object); Link Here
25		25
26	=head1 NAME	26	=head1 NAME
27		27
28	Koha::Patron::Message::Transport::Preference - Koha Patron Message Transport	28	Koha::Patron::MessagePreference::Transport::Preference - Koha Patron Message Transport
29	Preference object class	29	Preference object class
30		30
31	=head1 API	31	=head1 API




package Koha::Patron::MessagePreference::Transport::Preferences;

# Copyright Koha-Suomi Oy 2016
#

use Modern::Perl;

use Koha::Database;
use Koha::Patron::MessagePreference::Transport::Preference;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::MessagePreference::Transport::Preferences - Koha Patron Message Transport
Preferences object class

=head1 API

=cut

sub object_class {
    return 'Koha::Patron::MessagePreference::Transport::Preference';
}

=head1 AUTHOR

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Transport/Type.pm (-2 / +2 lines)
1	package Koha::Patron::Message::Transport::Type;	1	package Koha::Patron::MessagePreference::Transport::Type;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 25-31 use base qw(Koha::Object); Link Here
25		25
26	=head1 NAME	26	=head1 NAME
27		27
28	Koha::Patron::Message::Transport::Type - Koha Patron Message Transport Type	28	Koha::Patron::MessagePreference::Transport::Type - Koha Patron Message Transport Type
29	object class	29	object class
30		30
31	=head1 API	31	=head1 API




package Koha::Patron::MessagePreference::Transport::Types;

# Copyright Koha-Suomi Oy 2016
#

use Modern::Perl;

use Koha::Database;
use Koha::Patron::MessagePreference::Transport::Type;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::MessagePreference::Transport::Types - Koha Patron Message Transport Types
object class

=head1 API

=cut

sub object_class {
    return 'Koha::Patron::MessagePreference::Transport::Type';
}

=head1 AUTHOR




package Koha::Patron::MessagePreference::Transports;

# Copyright Koha-Suomi Oy 2016
#

use Modern::Perl;

use Koha::Database;
use Koha::Patron::MessagePreference::Transport;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::MessagePreference::Transports - Koha Patron Message Transports object class

=head1 API


=cut

sub object_class {
    return 'Koha::Patron::MessagePreference::Transport';
}

=head1 AUTHOR




package Koha::Patron::MessagePreferences;

# Copyright Koha-Suomi Oy 2016
#

use Modern::Perl;

use Koha::Database;
use Koha::Patron::MessagePreference::Attributes;
use Koha::Patron::MessagePreference;
use Koha::Patron::MessagePreference::Transports;

use base qw(Koha::Objects);

=head1 NAME

Koha::Patron::MessagePreferences - Koha Patron Message Preferences object class

=head1 API



=head3 find_with_message_name

Koha::Patron::MessagePreferences->find_with_message_name({
    borrowernumber => 123,
    message_name => 'Hold_Filled',
});

    my ($self, $id) = @_;

    if (ref($id) eq "HASH" && $id->{'message_name'}) {
        my $attr = Koha::Patron::MessagePreference::Attributes->find({
            message_name => $id->{'message_name'},
        });
        $id->{'message_attribute_id'} = ($attr) ?


=head3 get_options

my $messaging_options = Koha::Patron::MessagePreferences->get_options

Returns an ARRAYref of HASHrefs on available messaging options.


sub get_options {
    my ($self) = @_;

    my $transports = Koha::Patron::MessagePreference::Transports->search(undef,
        {
            join => ['message_attribute'],
            '+select' => ['message_attribute.message_name', 'message_attribute.takes_days'],


=head3 search_with_message_name

Koha::Patron::MessagePreferences->search_with_message_name({
    borrowernumber => 123,
    message_name => 'Hold_Filled',
});

Converts C<message_name> into C<message_attribute_id> and continues search. Use
Koha::Patron::MessagePreferences->search with a proper join for more complicated
searches.

=cut

    my ($self, $params, $attributes) = @_;

    if (ref($params) eq "HASH" && $params->{'message_name'}) {
        my $attr = Koha::Patron::MessagePreference::Attributes->find({
            message_name => $params->{'message_name'},
        });
        $params->{'message_attribute_id'} = ($attr) ?

=cut

sub object_class {
    return 'Koha::Patron::MessagePreference';
}

=head1 AUTHOR

Lines 196-205 __PACKAGE__->many_to_many( Link Here

(-)a/Koha/Schema/Result/BorrowerMessagePreference.pm (-2 / +2 lines)
196	# You can replace this text with custom content, and it will be preserved on regeneration	196	# You can replace this text with custom content, and it will be preserved on regeneration
197		197
198	sub koha_object_class {	198	sub koha_object_class {
199	'Koha::Patron::Message::Preference';	199	'Koha::Patron::MessagePreference';
200	}	200	}
201	sub koha_objects_class {	201	sub koha_objects_class {
202	'Koha::Patron::Message::Preferences';	202	'Koha::Patron::MessagePreferences';
203	}	203	}
204		204
205	1;	205	1;

Lines 114-123 __PACKAGE__->belongs_to( Link Here

(-)a/Koha/Schema/Result/BorrowerMessageTransportPreference.pm (-2 / +2 lines)
114	# You can replace this text with custom content, and it will be preserved on regeneration	114	# You can replace this text with custom content, and it will be preserved on regeneration
115		115
116	sub koha_object_class {	116	sub koha_object_class {
117	'Koha::Patron::Message::Transport::Preference';	117	'Koha::Patron::MessagePreference::Transport::Preference';
118	}	118	}
119	sub koha_objects_class {	119	sub koha_objects_class {
120	'Koha::Patron::Message::Transport::Preferences';	120	'Koha::Patron::MessagePreference::Transport::Preferences';
121	}	121	}
122		122
123	1;	123	1;

Lines 119-128 __PACKAGE__->has_many( Link Here

(-)a/Koha/Schema/Result/MessageAttribute.pm (-2 / +2 lines)
119	# You can replace this text with custom content, and it will be preserved on regeneration	119	# You can replace this text with custom content, and it will be preserved on regeneration
120		120
121	sub koha_object_class {	121	sub koha_object_class {
122	'Koha::Patron::Message::Attribute';	122	'Koha::Patron::MessagePreference::Attribute';
123	}	123	}
124	sub koha_objects_class {	124	sub koha_objects_class {
125	'Koha::Patron::Message::Attributes';	125	'Koha::Patron::MessagePreference::Attributes';
126	}	126	}
127		127
128	1;	128	1;

Lines 136-145 __PACKAGE__->belongs_to( Link Here

(-)a/Koha/Schema/Result/MessageTransport.pm (-2 / +2 lines)
136	# You can replace this text with custom content, and it will be preserved on regeneration	136	# You can replace this text with custom content, and it will be preserved on regeneration
137		137
138	sub koha_object_class {	138	sub koha_object_class {
139	'Koha::Patron::Message::Transport';	139	'Koha::Patron::MessagePreference::Transport';
140	}	140	}
141	sub koha_objects_class {	141	sub koha_objects_class {
142	'Koha::Patron::Message::Transports';	142	'Koha::Patron::MessagePreference::Transports';
143	}	143	}
144		144
145	1;	145	1;

Lines 157-166 __PACKAGE__->many_to_many( Link Here

(-)a/Koha/Schema/Result/MessageTransportType.pm (-2 / +2 lines)
157	# You can replace this text with custom content, and it will be preserved on regeneration	157	# You can replace this text with custom content, and it will be preserved on regeneration
158		158
159	sub koha_object_class {	159	sub koha_object_class {
160	'Koha::Patron::Message::Transport::Type';	160	'Koha::Patron::MessagePreference::Transport::Type';
161	}	161	}
162	sub koha_objects_class {	162	sub koha_objects_class {
163	'Koha::Patron::Message::Transport::Types';	163	'Koha::Patron::MessagePreference::Transport::Types';
164	}	164	}
165		165
166	1;	166	1;




subtest 'Test class imports' => sub {
    plan tests => 2;

    use_ok('Koha::Patron::MessagePreference::Attribute');
    use_ok('Koha::Patron::MessagePreference::Attributes');
};

subtest 'Test Koha::Patron::MessagePreference::Attributes' => sub {
    plan tests => 6;

    $schema->storage->txn_begin;

    Koha::Patron::MessagePreference::Attribute->new({
        message_name => 'Test_Attribute'
    })->store;
    Koha::Patron::MessagePreference::Attribute->new({
        message_name => 'Test_Attribute2',
        takes_days   => 1
    })->store;

    my $attribute  = Koha::Patron::MessagePreference::Attributes->find({
        message_name => 'Test_Attribute' });
    my $attribute2 = Koha::Patron::MessagePreference::Attributes->find({
        message_name => 'Test_Attribute2' });

    is($attribute->message_name, 'Test_Attribute',


    $attribute->delete;
    $attribute2->delete;
    is(Koha::Patron::MessagePreference::Attributes->find({
        message_name => 'Test_Attribute' }), undef,
       'Deleted the first message attribute.');
    is(Koha::Patron::MessagePreference::Attributes->find({
        message_name => 'Test_Attribute2' }), undef,
       'Deleted the second message attribute.');






use Koha::Notice::Templates;
use Koha::Patron::Categories;
use Koha::Patron::MessagePreference::Attributes;
use Koha::Patron::MessagePreferences;
use Koha::Patron::MessagePreference::Transport::Types;
use Koha::Patron::MessagePreference::Transports;
use Koha::Patrons;

my $schema  = Koha::Database->new->schema;

subtest 'Test class imports' => sub {
    plan tests => 2;

    use_ok('Koha::Patron::MessagePreference::Transport::Preference');
    use_ok('Koha::Patron::MessagePreference::Transport::Preferences');
};

subtest 'Test Koha::Patron::MessagePreference::Transport::Preferences' => sub {
    plan tests => 2;

    $schema->storage->txn_begin;

    my $attribute = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Attributes' });
    my $mtt       = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
    my $letter    = build_a_test_letter({
        mtt => $mtt->message_transport_type
    });
    Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $attribute->message_attribute_id,
        message_transport_type => $mtt->message_transport_type,
        is_digest              => 0,


    subtest 'For a patron' => sub {
        my $patron    = $builder->build_object({ class => 'Koha::Patrons' });
        my $preference = Koha::Patron::MessagePreference->new({
            borrowernumber       => $patron->borrowernumber,
            message_attribute_id => $attribute->message_attribute_id,
            wants_digest         => 0,

        })->store;

        my $pref_id = $preference->borrower_message_preference_id;
        my $transport_pref = Koha::Patron::MessagePreference::Transport::Preference->new({
            borrower_message_preference_id => $pref_id,
            message_transport_type => $mtt->message_transport_type,
        })->store;
        is(ref($transport_pref), 'Koha::Patron::MessagePreference::Transport::Preference',
           'Added a new messaging transport preference for patron.');

        $transport_pref->delete;
        is(Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $pref_id,
            message_transport_type => $mtt->message_transport_type,
        })->count, 0, 'Deleted the messaging transport preference.');


    subtest 'For a category' => sub {
        my $category   = $builder->build_object({ class => 'Koha::Patron::Categories' });
        my $preference = Koha::Patron::MessagePreference->new({
            categorycode         => $category->categorycode,
            message_attribute_id => $attribute->message_attribute_id,
            wants_digest         => 0,

        })->store;

        my $pref_id = $preference->borrower_message_preference_id;
        my $transport_pref = Koha::Patron::MessagePreference::Transport::Preference->new({
            borrower_message_preference_id => $pref_id,
            message_transport_type => $mtt->message_transport_type,
        })->store;
        is(ref($transport_pref), 'Koha::Patron::MessagePreference::Transport::Preference',
           'Added a new messaging transport preference for category.');

        $transport_pref->delete;
        is(Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $pref_id,
            message_transport_type => $mtt->message_transport_type,
        })->count, 0, 'Deleted the messaging transport preference.');




subtest 'Test class imports' => sub {
    plan tests => 2;

    use_ok('Koha::Patron::MessagePreference::Transport::Type');
    use_ok('Koha::Patron::MessagePreference::Transport::Types');
};

subtest 'Test Koha::Patron::MessagePreference::Transport::Types' => sub {
    plan tests => 2;

    $schema->storage->txn_begin;

    my $transport_type = Koha::Patron::MessagePreference::Transport::Type->new({
        message_transport_type => 'test'
    })->store;


       'Added a new message transport type.');

    $transport_type->delete;
    is(Koha::Patron::MessagePreference::Transport::Types->find('test'), undef,
       'Deleted the message transport type.');

    $schema->storage->txn_rollback;




use t::lib::TestBuilder;

use Koha::Notice::Templates;
use Koha::Patron::MessagePreference::Attributes;
use Koha::Patron::MessagePreference::Transport::Types;

my $schema  = Koha::Database->new->schema;
my $builder = t::lib::TestBuilder->new;

subtest 'Test class imports' => sub {
    plan tests => 2;

    use_ok('Koha::Patron::MessagePreference::Transport');
    use_ok('Koha::Patron::MessagePreference::Transports');
};

subtest 'Test Koha::Patron::MessagePreference::Transports' => sub {
    plan tests => 2;

    $schema->storage->txn_begin;

    my $attribute = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Attributes' });
    my $mtt       = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
    my $letter    = build_a_test_letter({
        mtt => $mtt->message_transport_type
    });

    my $transport = Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $attribute->message_attribute_id,
        message_transport_type => $mtt->message_transport_type,
        is_digest              => 0,

       'Added a new messaging transport.');

    $transport->delete;
    is(Koha::Patron::MessagePreference::Transports->search({
        message_attribute_id => $attribute->message_attribute_id,
        message_transport_type => $mtt->message_transport_type,
        is_digest => 0





use Koha::Notice::Templates;
use Koha::Patron::Categories;
use Koha::Patron::MessagePreference::Attributes;
use Koha::Patron::MessagePreference::Transport::Types;
use Koha::Patron::MessagePreference::Transports;
use Koha::Patrons;

use File::Temp qw/tempfile/;

subtest 'Test class imports' => sub {
    plan tests => 2;

    use_ok('Koha::Patron::MessagePreference');
    use_ok('Koha::Patron::MessagePreferences');
};

subtest 'Test Koha::Patron::MessagePreferences' => sub {
    plan tests => 2;

    $schema->storage->txn_begin;

    my $attribute = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Attributes' });
    my $letter = build_a_test_letter();
    my $mtt = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
    Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $attribute->message_attribute_id,
        message_transport_type => $mtt->message_transport_type,
        is_digest              => 0,

        plan tests => 3;

        my $patron = $builder->build_object({ class => 'Koha::Patrons' });
        Koha::Patron::MessagePreference->new({
            borrowernumber       => $patron->borrowernumber,
            message_attribute_id => $attribute->message_attribute_id,
            wants_digest         => 0,
            days_in_advance      => undef,
        })->store;

        my $preference = Koha::Patron::MessagePreferences->find({
            borrowernumber       => $patron->borrowernumber,
            message_attribute_id => $attribute->message_attribute_id
        });

        subtest 'Test set not throwing an exception on duplicate object' => sub {
            plan tests => 1;

            Koha::Patron::MessagePreference::Attributes->find({
                message_attribute_id => $attribute->message_attribute_id
            })->set({ takes_days => 1 })->store;
            $preference->set({ days_in_advance => 1 })->store;
            is(ref($preference), 'Koha::Patron::MessagePreference',
             'Updating the preference does not cause duplicate object exception');
        };

        $preference->delete;
        is(Koha::Patron::MessagePreferences->search({
            borrowernumber       => $patron->borrowernumber,
            message_attribute_id => $attribute->message_attribute_id
        })->count, 0, 'Deleted the messaging preference.');


    subtest 'Test for a category' => sub {
        my $category = $builder->build_object({ class => 'Koha::Patron::Categories' });
        Koha::Patron::MessagePreference->new({
            categorycode         => $category->categorycode,
            message_attribute_id => $attribute->message_attribute_id,
            wants_digest         => 0,
            days_in_advance      => undef,
        })->store;

        my $preference = Koha::Patron::MessagePreferences->find({
            categorycode         => $category->categorycode,
            message_attribute_id => $attribute->message_attribute_id
        });

           'Added a new messaging preference for category.');

        $preference->delete;
        is(Koha::Patron::MessagePreferences->search({
            categorycode         => $category->categorycode,
            message_attribute_id => $attribute->message_attribute_id
        })->count, 0, 'Deleted the messaging preference.');

    $schema->storage->txn_rollback;
};

subtest 'Test Koha::Patron::MessagePreferences->get_options' => sub {
    plan tests => 2;

    subtest 'Test method availability and return value' => sub {
        plan tests => 3;

        ok(Koha::Patron::MessagePreferences->can('get_options'),
            'Method get_options is available.');
        ok(my $options = Koha::Patron::MessagePreferences->get_options,
            'Called get_options successfully.');
        is(ref($options), 'ARRAY', 'get_options returns a ARRAYref');
    };

    subtest 'Make sure options are correct' => sub {
        $schema->storage->txn_begin;
        my $options = Koha::Patron::MessagePreferences->get_options;

        foreach my $option (@$options) {
            my $n = $option->{'message_name'};
            my $attr = Koha::Patron::MessagePreference::Attributes->find($option->{'message_attribute_id'});
            is($option->{'message_attribute_id'}, $attr->message_attribute_id,
               '$n: message_attribute_id is set');
            is($option->{'message_name'}, $attr->message_name, '$n: message_name is set');
            is($option->{'takes_days'}, $attr->takes_days, '$n: takes_days is set');
            my $transports = Koha::Patron::MessagePreference::Transports->search({
                message_attribute_id => $option->{'message_attribute_id'},
                is_digest => $option->{'has_digest'} || 0,
            });

    my ($default, $mtt1, $mtt2) = build_a_test_category_preference({
        patron => $patron,
    });
    ok(Koha::Patron::MessagePreference->new_from_default({
        borrowernumber       => $patron->borrowernumber,
        categorycode         => $patron->categorycode,
        message_attribute_id => $default->message_attribute_id,
    })->store, 'Added a default preference to patron.');
    ok(my $pref = Koha::Patron::MessagePreferences->find({
        borrowernumber       => $patron->borrowernumber,
        message_attribute_id => $default->message_attribute_id,
    }), 'Found the default preference from patron.');
    is(Koha::Patron::MessagePreference::Transport::Preferences->search({
        borrower_message_preference_id => $pref->borrower_message_preference_id
    })->count, 2, 'Found the two transport types that we set earlier');

    $schema->storage->txn_rollback;
};

subtest 'Test Koha::Patron::MessagePreference->message_transport_types' => sub {
    plan tests => 4;

    ok(Koha::Patron::MessagePreference->can('message_transport_types'),
       'Method message_transport_types available');

    subtest 'get message_transport_types' => sub {

        my ($preference, $mtt1, $mtt2) = build_a_test_complete_preference({
            patron => $patron
        });
        Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
        })->delete;
        Koha::Patron::MessagePreference::Transport::Preference->new({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
            message_transport_type => $mtt1->message_transport_type,
        })->store;
        Koha::Patron::MessagePreference::Transport::Preference->new({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
            message_transport_type => $mtt2->message_transport_type,
        })->store;
        my $stored_transports = Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
        });
        my $transport1 = Koha::Patron::MessagePreference::Transports->find({
            message_attribute_id => $preference->message_attribute_id,
            message_transport_type => $mtt1->message_transport_type,
        });
        my $transport2 = Koha::Patron::MessagePreference::Transports->find({
            message_attribute_id => $preference->message_attribute_id,
            message_transport_type => $mtt2->message_transport_type,
        });

            my $appenders = Log::Log4perl->appenders;
            my $appender = Log::Log4perl->appenders->{OPAC};

            my $pref = Koha::Patron::MessagePreferences->find(
                $preference->borrower_message_preference_id
            );
            my $transports = $pref->message_transport_types;
            is($appender, undef, 'Nothing in buffer yet');

            my $mtt_new = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
            Koha::Patron::MessagePreference::Transport::Preference->new({
                borrower_message_preference_id =>
                                $pref->borrower_message_preference_id,
                message_transport_type => $mtt_new->message_transport_type,
            })->store;
            $pref = Koha::Patron::MessagePreferences->find(
                $pref->borrower_message_preference_id
            );
            $transports = $pref->message_transport_types;

        my $mtt1_str = $mtt1->message_transport_type;
        my $mtt2_str = $mtt2->message_transport_type;
        # 1/3, use message_transport_types(list)
        Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
        })->delete;
        ok($preference->message_transport_types($mtt1_str, $mtt2_str)->store,
           '1/3 Set returned true.');
        my $stored_transports = Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
            '-or' => [
                message_transport_type => $mtt1_str,

        is($stored_transports->count, 2, 'Two transports selected');

        # 2/3, use message_transport_types(ARRAYREF)
        Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
        })->delete;
        ok($preference->message_transport_types([$mtt1_str, $mtt2_str])->store,
           '2/3 Set returned true.');
        $stored_transports = Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
            '-or' => [
                message_transport_type => $mtt1_str,

        is($stored_transports->count, 2, 'Two transports selected');

        # 3/3, use set({ message_transport_types => ARRAYREF })
        Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
        })->delete;
        ok($preference->set({
            message_transport_types => [$mtt1_str, $mtt2_str]})->store,
           '3/3 Set returned true.');
        $stored_transports = Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
            '-or' => [
                message_transport_type => $mtt1_str,

        is($stored_transports->count, 2, 'Two transports selected');

        # Test contact information validation
        eval { Koha::Patron::MessagePreference::Transport::Types->new({
                message_transport_type => 'email'
            })->store };
        eval { Koha::Patron::MessagePreference::Transport::Types->new({
                message_transport_type => 'itiva'
            })->store };
        eval { Koha::Patron::MessagePreference::Transport::Types->new({
                message_transport_type => 'phone'
            })->store };
        eval { Koha::Patron::MessagePreference::Transport::Types->new({
                message_transport_type => 'sms'
            })->store };
        Koha::Patron::MessagePreference::Transport->new({
            message_attribute_id   => $preference->message_attribute_id,
            message_transport_type => 'email',
            is_digest              => 1
        })->store;
        Koha::Patron::MessagePreference::Transport->new({
            message_attribute_id   => $preference->message_attribute_id,
            message_transport_type => 'itiva',
            is_digest              => 1
        })->store;
        Koha::Patron::MessagePreference::Transport->new({
            message_attribute_id   => $preference->message_attribute_id,
            message_transport_type => 'phone',
            is_digest              => 1
        })->store;
        Koha::Patron::MessagePreference::Transport->new({
            message_attribute_id   => $preference->message_attribute_id,
            message_transport_type => 'sms',
            is_digest              => 1

        eval {
            $preference->message_transport_types('email')->store;
        };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::EmailAddressRequired',
            'Adding a message preference with invalid message_transport_type'
            .' => Koha::Exceptions::Patron::MessagePreference::EmailAddressRequired');
        is ($@->message_name, $preference->message_name, 'The previous exception '
            .' tells us it which message name it was.');
        is ($@->borrowernumber, $patron->borrowernumber, 'The previous exception '

        eval {
            $preference->message_transport_types('itiva')->store;
        };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::TalkingTechItivaPhoneNotificationRequired',
            'Adding a message preference with invalid message_transport_type'
            .' => Koha::Exceptions::Patron::MessagePreference::TalkingTechItivaPhoneNotificationRequired');
        is ($@->message_name, $preference->message_name, 'The previous exception '
            .' tells us it which message name it was.');
        is ($@->borrowernumber, $patron->borrowernumber, 'The previous exception '

        eval {
            $preference->message_transport_types('phone')->store;
        };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::PhoneNumberRequired',
            'Adding a message preference with invalid message_transport_type'
            .' => Koha::Exceptions::Patron::MessagePreference::PhoneNumberRequired');
        is ($@->message_name, $preference->message_name, 'The previous exception '
            .' tells us it which message name it was.');
        is ($@->borrowernumber, $patron->borrowernumber, 'The previous exception '

        eval {
            $preference->message_transport_types('sms')->store;
        };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::SMSNumberRequired',
            'Adding a message preference with invalid message_transport_type'
            .' => Koha::Exceptions::Patron::MessagePreference::SMSNumberRequired');
        is ($@->message_name, $preference->message_name, 'The previous exception '
            .' tells us it which message name it was.');
        is ($@->borrowernumber, $patron->borrowernumber, 'The previous exception '


        my $patron    = $builder->build_object({ class => 'Koha::Patrons' });
        my $letter    = build_a_test_letter();
        my $attribute = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Attributes' });
        my $mtt       = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
        Koha::Patron::MessagePreference::Transport->new({
            message_attribute_id   => $attribute->message_attribute_id,
            message_transport_type => $mtt->message_transport_type,
            is_digest              => 0,
            letter_module          => $letter->module,
            letter_code            => $letter->code,
        })->store;
        ok(my $preference = Koha::Patron::MessagePreference->new({
            borrowernumber => $patron->borrowernumber,
            message_attribute_id => $attribute->message_attribute_id,
            wants_digest => 0,

        })->store, 'Added a new messaging preference and transport types to patron.');
        ok($preference->message_transport_types->{$mtt->message_transport_type},
           'The transport type is stored in the object.');
        my $stored_transports = Koha::Patron::MessagePreference::Transport::Preferences->search({
            borrower_message_preference_id => $preference->borrower_message_preference_id,
        });
        is($stored_transports->next->message_transport_type, $mtt->message_transport_type,

    };
};

subtest 'Test Koha::Patron::MessagePreference->message_name' => sub {
    plan tests => 1;

    $schema->storage->txn_begin;

    my $patron      = $builder->build_object({ class => 'Koha::Patrons' });
    my $attribute   = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Attributes' });
    my ($preference, $mtt1, $mtt2) = build_a_test_complete_preference({
        patron => $patron,
        attr   => $attribute,
    });
    my $message_name_pref = Koha::Patron::MessagePreferences->search_with_message_name({
        borrowernumber => $patron->{'borrowernumber'},
        message_name => $attribute->message_name,
    })->next;

    $schema->storage->txn_rollback;
};

subtest 'Test Koha::Patron::MessagePreference->mtt_deliverable' => sub {
    plan tests => 10;

    $schema->storage->txn_begin;

    });

    # Test email and smsalertnumber validation
    eval { Koha::Patron::MessagePreference::Transport::Types->new({
            message_transport_type => 'email'
        })->store };
    eval { Koha::Patron::MessagePreference::Transport::Types->new({
            message_transport_type => 'sms'
        })->store };
    eval { Koha::Patron::MessagePreference::Transport::Types->new({
            message_transport_type => 'phone'
        })->store };
    eval { Koha::Patron::MessagePreference::Transport::Types->new({
            message_transport_type => 'itiva'
        })->store };
    Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $preference->message_attribute_id,
        message_transport_type => 'email',
        is_digest              => 1
    })->store;
    Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $preference->message_attribute_id,
        message_transport_type => 'sms',
        is_digest              => 1
    })->store;
    Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $preference->message_attribute_id,
        message_transport_type => 'phone',
        is_digest              => 1
    })->store;
    Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $preference->message_attribute_id,
        message_transport_type => 'itiva',
        is_digest              => 1

    subtest 'Missing parameters' => sub {
        plan tests => 1;

        eval { Koha::Patron::MessagePreference->new->store };
        is(ref $@, 'Koha::Exceptions::MissingParameter',
            'Adding a message preference without parameters'
            .' => Koha::Exceptions::MissingParameter');

        $schema->storage->txn_begin;

        my $patron = $builder->build_object({ class => 'Koha::Patrons' });
        eval { Koha::Patron::MessagePreference->new({
            borrowernumber => $patron->borrowernumber,
            categorycode   => $patron->categorycode,
        })->store };


        $schema->storage->txn_begin;

        eval { Koha::Patron::MessagePreference->new({
                borrowernumber => -999,
            })->store };
        is(ref $@, 'Koha::Exceptions::Patron::NotFound',
            'Adding a message preference with invalid borrowernumber'
            .' => Koha::Exceptions::Patron::NotFound');

        eval { Koha::Patron::MessagePreference->new({
                categorycode => 'nonexistent',
            })->store };
        is(ref $@, 'Koha::Exceptions::Patron::Category::NotFound',


        my $attribute = build_a_test_attribute({ takes_days => 0 });
        my $patron    = $builder->build_object({ class => 'Koha::Patrons' });
        eval { Koha::Patron::MessagePreference->new({
                borrowernumber => $patron->borrowernumber,
                message_attribute_id => $attribute->message_attribute_id,
                days_in_advance => 10,
            })->store };
        is(ref $@, 'Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceNotAvailable',
            'Adding a message preference with days in advance option when not'
            .' available => Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceNotAvailable');

        $attribute->set({ takes_days => 1 })->store;
        eval { Koha::Patron::MessagePreference->new({
                borrowernumber => $patron->borrowernumber,
                message_attribute_id => $attribute->message_attribute_id,
                days_in_advance => -1,
            })->store };
        is(ref $@, 'Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceOutOfRange',
            'Adding a message preference with days in advance option is out of range'
            .' => Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceOutOfRange');
        is ($@->min, 0, 'The previous exception min value is 0.');

        eval { Koha::Patron::MessagePreference->new({
                borrowernumber => $patron->borrowernumber,
                message_attribute_id => $attribute->message_attribute_id,
                days_in_advance => 31,
            })->store };
        is(ref $@, 'Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceOutOfRange',
            'Adding a message preference with days in advance option is out of range'
            .' => Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceOutOfRange');
        is ($@->max, 30, 'The previous exception max value is 30.');

        eval { Koha::Patron::MessagePreference->new({
                borrowernumber => $patron->borrowernumber,
                message_transport_types => ['nonexistent']
            })->store };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::Transport::TypeNotFound',
            'Adding a message preference with invalid message_transport_type'
            .' => Koha::Exceptions::Patron::MessagePreference::Transport::TypeNotFound');
        is ($@->transport_type, 'nonexistent', 'The previous exception '
            .'tells us it which transport type it was.');

        my $mtt_new = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
        eval {
            Koha::Patron::MessagePreference->new({
                borrowernumber => $patron->borrowernumber,
                message_attribute_id => $attribute->message_attribute_id,
                message_transport_types => [$mtt_new->message_transport_type],
                wants_digest => 1,
            })->store };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::NoTransportType',
            'Adding a message preference with invalid message_transport_type'
           .' => Koha::Exceptions::Patron::MessagePreference::NoTransportType');
        is ($@->message_name, $attribute->message_name, 'The previous exception '
            .'tells us which message it was.');
        is ($@->transport_type, $mtt_new->message_transport_type, 'The previous exception '
            .'tells us which message transport type it was.');

        eval {
            Koha::Patron::MessagePreference->new({
                borrowernumber => $patron->borrowernumber,
                message_attribute_id => $attribute->message_attribute_id,
                message_transport_types => [],
                wants_digest => 1,
            })->store };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::DigestNotAvailable',
            'Adding a message preference that has no digest setting'
            .' => Koha::Exceptions::Patron::MessagePreference::DigestNotAvailable');
        is ($@->message_name, $attribute->message_name, 'The previous exception tells us'
            .' which message it was');

        eval {
            Koha::Patron::MessagePreference->new({
                borrowernumber => $patron->borrowernumber,
                message_attribute_id => $attribute->message_attribute_id,
                message_transport_types => [],
                wants_digest => 0,
            })->store };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::DigestRequired',
            'Adding a message preference, that requires digest, with no digest'
            .' => Koha::Exceptions::Patron::MessagePreference::DigestRequired');
        is ($@->message_name, $attribute->message_name, 'The previous exception tells us'
            .' which message it was');
        eval {
            Koha::Patron::MessagePreference->new({
                borrowernumber => $patron->borrowernumber,
                message_attribute_id => -1,
                message_transport_types => [],
            })->store };
        is (ref $@, 'Koha::Exceptions::Patron::MessagePreference::AttributeNotFound',
            'Adding a message preference with invalid message_transport_type'
            .' => KKoha::Exceptions::Patron::MessagePreference::AttributeNotFound');
        is ($@->message_attribute_id, -1, 'The previous exception tells'
            .' us which message attribute id it was.');



        $schema->storage->txn_begin;

        my $attribute = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Attributes' });
        my $letter = build_a_test_letter();
        my $mtt = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
        Koha::Patron::MessagePreference::Transport->new({
            message_attribute_id   => $attribute->message_attribute_id,
            message_transport_type => $mtt->message_transport_type,
            is_digest              => 0,

            letter_code            => $letter->code,
        })->store;
        my $patron    = $builder->build_object({ class => 'Koha::Patrons' });
        my $preference = Koha::Patron::MessagePreference->new({
            borrowernumber => $patron->borrowernumber,
            message_attribute_id => $attribute->message_attribute_id,
            wants_digest => 0,

        })->store;
        ok($preference->borrower_message_preference_id,
           'Added a new messaging preference for patron.');
        eval { Koha::Patron::MessagePreference->new({
            borrowernumber => $patron->borrowernumber,
            message_attribute_id => $attribute->message_attribute_id,
            wants_digest => 0,

        value => $params,
    });

    return Koha::Patron::MessagePreference::Attributes->find(
        $attribute->{message_attribute_id}
    );
}

                    : build_a_test_attribute($params->{days_in_advance});

    my $letter = $params->{letter} ? $params->{letter} : build_a_test_letter();
    my $mtt1 = $params->{mtt1} ? $params->{mtt1} : $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
    my $mtt2 = $params->{mtt2} ? $params->{mtt2} : $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });

    Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $attr->message_attribute_id,
        message_transport_type => $mtt1->message_transport_type,
        is_digest              => $params->{digest} ? 1 : 0,

        letter_code            => $letter->code,
    })->store;

    Koha::Patron::MessagePreference::Transport->new({
        message_attribute_id   => $attr->message_attribute_id,
        message_transport_type => $mtt2->message_transport_type,
        is_digest              => $params->{digest} ? 1 : 0,

        letter_code            => $letter->code,
    })->store;

    my $default = Koha::Patron::MessagePreference->new({
        categorycode         => $patron->categorycode,
        message_attribute_id => $attr->message_attribute_id,
        wants_digest         => $params->{digest} ? 1 : 0,

                                 ? $params->{days_in_advance} : undef,
    })->store;

    Koha::Patron::MessagePreference::Transport::Preference->new({
        borrower_message_preference_id => $default->borrower_message_preference_id,
        message_transport_type         => $mtt1->message_transport_type,
    })->store;
    Koha::Patron::MessagePreference::Transport::Preference->new({
        borrower_message_preference_id => $default->borrower_message_preference_id,
        message_transport_type         => $mtt2->message_transport_type,
    })->store;

    my ($default, $mtt1, $mtt2) = build_a_test_category_preference($params);
    my $patron = $params->{patron};
    $patron->set_default_messaging_preferences;
    return (Koha::Patron::MessagePreferences->search({
        borrowernumber => $patron->borrowernumber
    })->next, $mtt1, $mtt2);
}
- 

Return to bug 17499

Lines 44-50 use Koha::Patron::HouseboundProfile; Link Here

(-)a/Koha/Patron.pm (-6 / +6 lines)
44	use Koha::Patron::HouseboundRole;	44	use Koha::Patron::HouseboundRole;
45	use Koha::Patron::Images;	45	use Koha::Patron::Images;
46	use Koha::Patron::Modifications;	46	use Koha::Patron::Modifications;
47	use Koha::Patron::Message::Preferences;	47	use Koha::Patron::MessagePreferences;
48	use Koha::Patron::Relationships;	48	use Koha::Patron::Relationships;
49	use Koha::Patrons;	49	use Koha::Patrons;
50	use Koha::Plugins;	50	use Koha::Plugins;
Lines 1714-1720 sub get_extended_attribute { Link Here
1714		1714
1715	Sets default messaging preferences on patron.	1715	Sets default messaging preferences on patron.
1716		1716
1717	See Koha::Patron::Message::Preference(s) for more documentation, especially on	1717	See Koha::Patron::MessagePreference(s) for more documentation, especially on
1718	thrown exceptions.	1718	thrown exceptions.
1719		1719
1720	=cut	1720	=cut
Lines 1722-1732 thrown exceptions. Link Here
1722	sub set_default_messaging_preferences {	1722	sub set_default_messaging_preferences {
1723	my ($self, $categorycode) = @_;	1723	my ($self, $categorycode) = @_;
1724		1724
1725	my $options = Koha::Patron::Message::Preferences->get_options;	1725	my $options = Koha::Patron::MessagePreferences->get_options;
1726		1726
1727	foreach my $option (@$options) {	1727	foreach my $option (@$options) {
1728	# Check that this option has preference configuration for this category	1728	# Check that this option has preference configuration for this category
1729	unless (Koha::Patron::Message::Preferences->search({	1729	unless (Koha::Patron::MessagePreferences->search({
1730	message_attribute_id => $option->{message_attribute_id},	1730	message_attribute_id => $option->{message_attribute_id},
1731	categorycode => $categorycode \|\| $self->categorycode,	1731	categorycode => $categorycode \|\| $self->categorycode,
1732	})->count) {	1732	})->count) {
Lines 1734-1745 sub set_default_messaging_preferences { Link Here
1734	}	1734	}
1735		1735
1736	# Delete current setting	1736	# Delete current setting
1737	Koha::Patron::Message::Preferences->search({	1737	Koha::Patron::MessagePreferences->search({
1738	borrowernumber => $self->borrowernumber,	1738	borrowernumber => $self->borrowernumber,
1739	message_attribute_id => $option->{message_attribute_id},	1739	message_attribute_id => $option->{message_attribute_id},
1740	})->delete;	1740	})->delete;
1741		1741
1742	Koha::Patron::Message::Preference->new_from_default({	1742	Koha::Patron::MessagePreference->new_from_default({
1743	borrowernumber => $self->borrowernumber,	1743	borrowernumber => $self->borrowernumber,
1744	categorycode => $categorycode \|\| $self->categorycode,	1744	categorycode => $categorycode \|\| $self->categorycode,
1745	message_attribute_id => $option->{message_attribute_id},	1745	message_attribute_id => $option->{message_attribute_id},

Lines 1-4 Link Here

(-)a/Koha/Exceptions/Patron/Message/Preference.pm (-22 / +22 lines)
1	package Koha::Exceptions::Patron::Message::Preference;	1	package Koha::Exceptions::Patron::MessagePreference;
2		2
3	# This file is part of Koha.	3	# This file is part of Koha.
4	#	4	#
Lines 19-74 use Modern::Perl; Link Here
19		19
20	use Exception::Class (	20	use Exception::Class (
21		21
22	'Koha::Exceptions::Patron::Message::Preference' => {	22	'Koha::Exceptions::Patron::MessagePreference' => {
23	description => 'Something went wrong'	23	description => 'Something went wrong'
24	},	24	},
25	'Koha::Exceptions::Patron::Message::Preference::AttributeNotFound' => {	25	'Koha::Exceptions::Patron::MessagePreference::AttributeNotFound' => {
26	isa => 'Koha::Exceptions::Patron::Message::Preference',	26	isa => 'Koha::Exceptions::Patron::MessagePreference',
27	description => "Message attribute not found",	27	description => "Message attribute not found",
28	fields => ['message_attribute_id']	28	fields => ['message_attribute_id']
29	},	29	},
30	'Koha::Exceptions::Patron::Message::Preference::DaysInAdvanceOutOfRange' => {	30	'Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceOutOfRange' => {
31	isa => 'Koha::Exceptions::Patron::Message::Preference',	31	isa => 'Koha::Exceptions::Patron::MessagePreference',
32	description => "Days in advance is out of range",	32	description => "Days in advance is out of range",
33	fields => ['min','max', 'message_name']	33	fields => ['min','max', 'message_name']
34	},	34	},
35	'Koha::Exceptions::Patron::Message::Preference::DaysInAdvanceNotAvailable' => {	35	'Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceNotAvailable' => {
36	isa => 'Koha::Exceptions::Patron::Message::Preference',	36	isa => 'Koha::Exceptions::Patron::MessagePreference',
37	description => "Days in advance cannot be selected for this preference",	37	description => "Days in advance cannot be selected for this preference",
38	fields => ['message_name']	38	fields => ['message_name']
39	},	39	},
40	'Koha::Exceptions::Patron::Message::Preference::DigestNotAvailable' => {	40	'Koha::Exceptions::Patron::MessagePreference::DigestNotAvailable' => {
41	isa => 'Koha::Exceptions::Patron::Message::Preference',	41	isa => 'Koha::Exceptions::Patron::MessagePreference',
42	description => "Digest is not available for this message type",	42	description => "Digest is not available for this message type",
43	fields => ['message_name']	43	fields => ['message_name']
44	},	44	},
45	'Koha::Exceptions::Patron::Message::Preference::DigestRequired' => {	45	'Koha::Exceptions::Patron::MessagePreference::DigestRequired' => {
46	isa => 'Koha::Exceptions::Patron::Message::Preference',	46	isa => 'Koha::Exceptions::Patron::MessagePreference',
47	description => "Digest must be selected for this message type",	47	description => "Digest must be selected for this message type",
48	fields => ['message_name']	48	fields => ['message_name']
49	},	49	},
50	'Koha::Exceptions::Patron::Message::Preference::EmailAddressRequired' => {	50	'Koha::Exceptions::Patron::MessagePreference::EmailAddressRequired' => {
51	isa => 'Koha::Exceptions::Patron::Message::Preference',	51	isa => 'Koha::Exceptions::Patron::MessagePreference',
52	description => "Patron has no email address, cannot use email transport type.",	52	description => "Patron has no email address, cannot use email transport type.",
53	fields => ['message_name', 'borrowernumber' ]	53	fields => ['message_name', 'borrowernumber' ]
54	},	54	},
55	'Koha::Exceptions::Patron::Message::Preference::NoTransportType' => {	55	'Koha::Exceptions::Patron::MessagePreference::NoTransportType' => {
56	isa => 'Koha::Exceptions::Patron::Message::Preference',	56	isa => 'Koha::Exceptions::Patron::MessagePreference',
57	description => "Transport type not available for this message.",	57	description => "Transport type not available for this message.",
58	fields => ['message_name', 'transport_type']	58	fields => ['message_name', 'transport_type']
59	},	59	},
60	'Koha::Exceptions::Patron::Message::Preference::PhoneNumberRequired' => {	60	'Koha::Exceptions::Patron::MessagePreference::PhoneNumberRequired' => {
61	isa => 'Koha::Exceptions::Patron::Message::Preference',	61	isa => 'Koha::Exceptions::Patron::MessagePreference',
62	description => "Patron has no phone number, cannot use phone transport type.",	62	description => "Patron has no phone number, cannot use phone transport type.",
63	fields => ['message_name', 'borrowernumber' ]	63	fields => ['message_name', 'borrowernumber' ]
64	},	64	},
65	'Koha::Exceptions::Patron::Message::Preference::SMSNumberRequired' => {	65	'Koha::Exceptions::Patron::MessagePreference::SMSNumberRequired' => {
66	isa => 'Koha::Exceptions::Patron::Message::Preference',	66	isa => 'Koha::Exceptions::Patron::MessagePreference',
67	description => "Patron has no SMS number, cannot use sms transport type.",	67	description => "Patron has no SMS number, cannot use sms transport type.",
68	fields => ['message_name', 'borrowernumber' ]	68	fields => ['message_name', 'borrowernumber' ]
69	},	69	},
70	'Koha::Exceptions::Patron::Message::Preference::TalkingTechItivaPhoneNotificationRequired' => {	70	'Koha::Exceptions::Patron::MessagePreference::TalkingTechItivaPhoneNotificationRequired' => {
71	isa => 'Koha::Exceptions::Patron::Message::Preference',	71	isa => 'Koha::Exceptions::Patron::MessagePreference',
72	description => "System preference TalkingTechItivaPhoneNotification is disabled, cannot use itiva transport type.",	72	description => "System preference TalkingTechItivaPhoneNotification is disabled, cannot use itiva transport type.",
73	fields => ['message_name', 'borrowernumber' ]	73	fields => ['message_name', 'borrowernumber' ]
74	},	74	},

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Preference.pm (-36 / +36 lines)
1	package Koha::Patron::Message::Preference;	1	package Koha::Patron::MessagePreference;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 21-42 use Modern::Perl; Link Here
21		21
22	use Koha::Database;	22	use Koha::Database;
23	use Koha::Exceptions;	23	use Koha::Exceptions;
24	use Koha::Exceptions::Patron::Message::Preference;	24	use Koha::Exceptions::Patron::MessagePreference;
25	use Koha::Exceptions::Patron::Message::Transport;	25	use Koha::Exceptions::Patron::MessagePreference::Transport;
26	use Koha::Exceptions::Patron::Category;	26	use Koha::Exceptions::Patron::Category;
27	use Koha::Patron::Categories;	27	use Koha::Patron::Categories;
28	use Koha::Patron::Message::Attributes;	28	use Koha::Patron::MessagePreference::Attributes;
29	use Koha::Patron::Message::Preferences;	29	use Koha::Patron::MessagePreferences;
30	use Koha::Patron::Message::Transport::Preferences;	30	use Koha::Patron::MessagePreference::Transport::Preferences;
31	use Koha::Patron::Message::Transport::Types;	31	use Koha::Patron::MessagePreference::Transport::Types;
32	use Koha::Patron::Message::Transports;	32	use Koha::Patron::MessagePreference::Transports;
33	use Koha::Patrons;	33	use Koha::Patrons;
34		34
35	use base qw(Koha::Object);	35	use base qw(Koha::Object);
36		36
37	=head1 NAME	37	=head1 NAME
38		38
39	Koha::Patron::Message::Preference - Koha Patron Message Preference object class	39	Koha::Patron::MessagePreference - Koha Patron Message Preference object class
40		40
41	=head1 API	41	=head1 API
42		42
Lines 46-52 Koha::Patron::Message::Preference - Koha Patron Message Preference object class Link Here
46		46
47	=head3 new	47	=head3 new
48		48
49	my $preference = Koha::Patron::Message::Preference->new({	49	my $preference = Koha::Patron::MessagePreference->new({
50	borrowernumber => 123,	50	borrowernumber => 123,
51	#categorycode => 'ABC',	51	#categorycode => 'ABC',
52	message_attribute_id => 4,	52	message_attribute_id => 4,
Lines 89-95 sub new { Link Here
89		89
90	=head3 new_from_default	90	=head3 new_from_default
91		91
92	my $preference = Koha::Patron::Message::Preference->new_from_default({	92	my $preference = Koha::Patron::MessagePreference->new_from_default({
93	borrowernumber => 123,	93	borrowernumber => 123,
94	categorycode => 'ABC', # if not given, patron's categorycode will be used	94	categorycode => 'ABC', # if not given, patron's categorycode will be used
95	message_attribute_id => 1,	95	message_attribute_id => 1,
Lines 125-131 sub new_from_default { Link Here
125	$params->{'categorycode'} = $patron->categorycode;	125	$params->{'categorycode'} = $patron->categorycode;
126	}	126	}
127		127
128	my $default = Koha::Patron::Message::Preferences->find({	128	my $default = Koha::Patron::MessagePreferences->find({
129	categorycode => $params->{'categorycode'},	129	categorycode => $params->{'categorycode'},
130	message_attribute_id => $params->{'message_attribute_id'},	130	message_attribute_id => $params->{'message_attribute_id'},
131	});	131	});
Lines 145-156 sub new_from_default { Link Here
145		145
146	# Set default messaging transport types	146	# Set default messaging transport types
147	my $default_transport_types =	147	my $default_transport_types =
148	Koha::Patron::Message::Transport::Preferences->search({	148	Koha::Patron::MessagePreference::Transport::Preferences->search({
149	borrower_message_preference_id =>	149	borrower_message_preference_id =>
150	$default->{'borrower_message_preference_id'}	150	$default->{'borrower_message_preference_id'}
151	});	151	});
152	while (my $transport = $default_transport_types->next) {	152	while (my $transport = $default_transport_types->next) {
153	Koha::Patron::Message::Transport::Preference->new({	153	Koha::Patron::MessagePreference::Transport::Preference->new({
154	borrower_message_preference_id => $self->borrower_message_preference_id,	154	borrower_message_preference_id => $self->borrower_message_preference_id,
155	message_transport_type => $transport->message_transport_type,	155	message_transport_type => $transport->message_transport_type,
156	})->store;	156	})->store;
Lines 175-181 sub message_name { Link Here
175	if ($self->{'_message_name'}) {	175	if ($self->{'_message_name'}) {
176	return $self->{'_message_name'};	176	return $self->{'_message_name'};
177	}	177	}
178	$self->{'_message_name'} = Koha::Patron::Message::Attributes->find({	178	$self->{'_message_name'} = Koha::Patron::MessagePreference::Attributes->find({
179	message_attribute_id => $self->message_attribute_id,	179	message_attribute_id => $self->message_attribute_id,
180	})->message_name;	180	})->message_name;
181	return $self->{'_message_name'};	181	return $self->{'_message_name'};
Lines 202-208 sub message_transport_types { Link Here
202	return $self->{'_message_transport_types'};	202	return $self->{'_message_transport_types'};
203	}	203	}
204	map {	204	map {
205	my $transport = Koha::Patron::Message::Transports->find({	205	my $transport = Koha::Patron::MessagePreference::Transports->find({
206	message_attribute_id => $self->message_attribute_id,	206	message_attribute_id => $self->message_attribute_id,
207	message_transport_type => $_->message_transport_type,	207	message_transport_type => $_->message_transport_type,
208	is_digest => $self->wants_digest	208	is_digest => $self->wants_digest
Lines 218-224 sub message_transport_types { Link Here
218	$self->{'_message_transport_types'}->{$_->message_transport_type}	218	$self->{'_message_transport_types'}->{$_->message_transport_type}
219	= $transport ? $transport->letter_code : ' ';	219	= $transport ? $transport->letter_code : ' ';
220	}	220	}
221	Koha::Patron::Message::Transport::Preferences->search({	221	Koha::Patron::MessagePreference::Transport::Preferences->search({
222	borrower_message_preference_id => $self->borrower_message_preference_id,	222	borrower_message_preference_id => $self->borrower_message_preference_id,
223	})->as_list;	223	})->as_list;
224	return $self->{'_message_transport_types'} \|\| {};	224	return $self->{'_message_transport_types'} \|\| {};
Lines 296-307 sub store { Link Here
296		296
297	# store message transport types	297	# store message transport types
298	if (exists $self->{'_message_transport_types'}) {	298	if (exists $self->{'_message_transport_types'}) {
299	Koha::Patron::Message::Transport::Preferences->search({	299	Koha::Patron::MessagePreference::Transport::Preferences->search({
300	borrower_message_preference_id =>	300	borrower_message_preference_id =>
301	$self->borrower_message_preference_id,	301	$self->borrower_message_preference_id,
302	})->delete;	302	})->delete;
303	foreach my $type (keys %{$self->{'_message_transport_types'}}) {	303	foreach my $type (keys %{$self->{'_message_transport_types'}}) {
304	Koha::Patron::Message::Transport::Preference->new({	304	Koha::Patron::MessagePreference::Transport::Preference->new({
305	borrower_message_preference_id =>	305	borrower_message_preference_id =>
306	$self->borrower_message_preference_id,	306	$self->borrower_message_preference_id,
307	message_transport_type => $type,	307	message_transport_type => $type,
Lines 316-322 sub store { Link Here
316		316
317	Makes a basic validation for object.	317	Makes a basic validation for object.
318		318
319	Returns Koha::Patron::Message::Preference object, or throws and exception.	319	Returns Koha::Patron::MessagePreference object, or throws and exception.
320		320
321	=cut	321	=cut
322		322
Lines 347-353 sub validate { Link Here
347	}	347	}
348		348
349	if (!$self->in_storage) {	349	if (!$self->in_storage) {
350	my $previous = Koha::Patron::Message::Preferences->search({	350	my $previous = Koha::Patron::MessagePreferences->search({
351	borrowernumber => $self->borrowernumber,	351	borrowernumber => $self->borrowernumber,
352	categorycode => $self->categorycode,	352	categorycode => $self->categorycode,
353	message_attribute_id => $self->message_attribute_id,	353	message_attribute_id => $self->message_attribute_id,
Lines 360-370 sub validate { Link Here
360	}	360	}
361	}	361	}
362		362
363	my $attr = Koha::Patron::Message::Attributes->find(	363	my $attr = Koha::Patron::MessagePreference::Attributes->find(
364	$self->message_attribute_id	364	$self->message_attribute_id
365	);	365	);
366	unless ($attr) {	366	unless ($attr) {
367	Koha::Exceptions::Patron::Message::Preference::AttributeNotFound->throw(	367	Koha::Exceptions::Patron::MessagePreference::AttributeNotFound->throw(
368	error => 'Message attribute with id '.$self->message_attribute_id	368	error => 'Message attribute with id '.$self->message_attribute_id
369	.' not found',	369	.' not found',
370	message_attribute_id => $self->message_attribute_id,	370	message_attribute_id => $self->message_attribute_id,
Lines 372-385 sub validate { Link Here
372	}	372	}
373	if (defined $self->days_in_advance) {	373	if (defined $self->days_in_advance) {
374	if ($attr && $attr->takes_days == 0) {	374	if ($attr && $attr->takes_days == 0) {
375	Koha::Exceptions::Patron::Message::Preference::DaysInAdvanceNotAvailable->throw(	375	Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceNotAvailable->throw(
376	error => 'days_in_advance cannot be defined for '.	376	error => 'days_in_advance cannot be defined for '.
377	$attr->message_name . '.',	377	$attr->message_name . '.',
378	message_name => $attr->message_name,	378	message_name => $attr->message_name,
379	);	379	);
380	}	380	}
381	elsif ($self->days_in_advance < 0 \|\| $self->days_in_advance > 30) {	381	elsif ($self->days_in_advance < 0 \|\| $self->days_in_advance > 30) {
382	Koha::Exceptions::Patron::Message::Preference::DaysInAdvanceOutOfRange->throw(	382	Koha::Exceptions::Patron::MessagePreference::DaysInAdvanceOutOfRange->throw(
383	error => 'days_in_advance has to be a value between 0-30 for '.	383	error => 'days_in_advance has to be a value between 0-30 for '.
384	$attr->message_name . '.',	384	$attr->message_name . '.',
385	message_name => $attr->message_name,	385	message_name => $attr->message_name,
Lines 389-406 sub validate { Link Here
389	}	389	}
390	}	390	}
391	if (defined $self->wants_digest) {	391	if (defined $self->wants_digest) {
392	my $transports = Koha::Patron::Message::Transports->search({	392	my $transports = Koha::Patron::MessagePreference::Transports->search({
393	message_attribute_id => $self->message_attribute_id,	393	message_attribute_id => $self->message_attribute_id,
394	is_digest => $self->wants_digest ? 1 : 0,	394	is_digest => $self->wants_digest ? 1 : 0,
395	});	395	});
396	unless ($transports->count) {	396	unless ($transports->count) {
397	if (!$self->wants_digest) {	397	if (!$self->wants_digest) {
398	Koha::Exceptions::Patron::Message::Preference::DigestRequired->throw(	398	Koha::Exceptions::Patron::MessagePreference::DigestRequired->throw(
399	error => 'Digest must be selected for '.$attr->message_name.'.',	399	error => 'Digest must be selected for '.$attr->message_name.'.',
400	message_name => $attr->message_name	400	message_name => $attr->message_name
401	);	401	);
402	} else {	402	} else {
403	Koha::Exceptions::Patron::Message::Preference::DigestNotAvailable->throw(	403	Koha::Exceptions::Patron::MessagePreference::DigestNotAvailable->throw(
404	error => 'Digest cannot be selected for '.$attr->message_name.'.',	404	error => 'Digest cannot be selected for '.$attr->message_name.'.',
405	message_name => $attr->message_name	405	message_name => $attr->message_name
406	);	406	);
Lines 422-433 sub _set_message_transport_types { Link Here
422	$self->_validate_message_transport_types({ message_transport_types => $types });	422	$self->_validate_message_transport_types({ message_transport_types => $types });
423	foreach my $type (@$types) {	423	foreach my $type (@$types) {
424	unless (exists $self->{'_message_transport_types'}->{$type}) {	424	unless (exists $self->{'_message_transport_types'}->{$type}) {
425	my $transport = Koha::Patron::Message::Transports->search({	425	my $transport = Koha::Patron::MessagePreference::Transports->search({
426	message_attribute_id => $self->message_attribute_id,	426	message_attribute_id => $self->message_attribute_id,
427	message_transport_type => $type	427	message_transport_type => $type
428	})->next;	428	})->next;
429	unless ($transport) {	429	unless ($transport) {
430	Koha::Exceptions::Patron::Message::Preference::NoTransportType->throw(	430	Koha::Exceptions::Patron::MessagePreference::NoTransportType->throw(
431	error => 'No transport configured for '.$self->message_name.	431	error => 'No transport configured for '.$self->message_name.
432	" transport type $type.",	432	" transport type $type.",
433	message_name => $self->message_name,	433	message_name => $self->message_name,
Lines 436-460 sub _set_message_transport_types { Link Here
436	}	436	}
437	if (defined $self->borrowernumber) {	437	if (defined $self->borrowernumber) {
438	if ( ! $self->mtt_deliverable($type) ) {	438	if ( ! $self->mtt_deliverable($type) ) {
439	Koha::Exceptions::Patron::Message::Preference::EmailAddressRequired->throw(	439	Koha::Exceptions::Patron::MessagePreference::EmailAddressRequired->throw(
440	error => 'Patron has not set email address, '.	440	error => 'Patron has not set email address, '.
441	'cannot use email as message transport',	441	'cannot use email as message transport',
442	message_name => $self->message_name,	442	message_name => $self->message_name,
443	borrowernumber => $self->borrowernumber,	443	borrowernumber => $self->borrowernumber,
444	) if $type eq 'email';	444	) if $type eq 'email';
445	Koha::Exceptions::Patron::Message::Preference::TalkingTechItivaPhoneNotificationRequired->throw(	445	Koha::Exceptions::Patron::MessagePreference::TalkingTechItivaPhoneNotificationRequired->throw(
446	error => 'System preference TalkingTechItivaPhoneNotification disabled'.	446	error => 'System preference TalkingTechItivaPhoneNotification disabled'.
447	'cannot use itiva as message transport',	447	'cannot use itiva as message transport',
448	message_name => $self->message_name,	448	message_name => $self->message_name,
449	borrowernumber => $self->borrowernumber,	449	borrowernumber => $self->borrowernumber,
450	) if $type eq 'itiva';	450	) if $type eq 'itiva';
451	Koha::Exceptions::Patron::Message::Preference::PhoneNumberRequired->throw(	451	Koha::Exceptions::Patron::MessagePreference::PhoneNumberRequired->throw(
452	error => 'Patron has not set phone number'.	452	error => 'Patron has not set phone number'.
453	'cannot use phone as message transport',	453	'cannot use phone as message transport',
454	message_name => $self->message_name,	454	message_name => $self->message_name,
455	borrowernumber => $self->borrowernumber,	455	borrowernumber => $self->borrowernumber,
456	) if $type eq 'phone';	456	) if $type eq 'phone';
457	Koha::Exceptions::Patron::Message::Preference::SMSNumberRequired->throw(	457	Koha::Exceptions::Patron::MessagePreference::SMSNumberRequired->throw(
458	error => 'Patron has not set SMS number'.	458	error => 'Patron has not set SMS number'.
459	'cannot use sms as message transport',	459	'cannot use sms as message transport',
460	message_name => $self->message_name,	460	message_name => $self->message_name,
Lines 479-488 sub _validate_message_transport_types { Link Here
479	my $types = $params->{'message_transport_types'};	479	my $types = $params->{'message_transport_types'};
480		480
481	foreach my $type (@{$types}) {	481	foreach my $type (@{$types}) {
482	unless (Koha::Patron::Message::Transport::Types->find({	482	unless (Koha::Patron::MessagePreference::Transport::Types->find({
483	message_transport_type => $type	483	message_transport_type => $type
484	})) {	484	})) {
485	Koha::Exceptions::Patron::Message::Transport::TypeNotFound->throw(	485	Koha::Exceptions::Patron::MessagePreference::Transport::TypeNotFound->throw(
486	error => "Message transport type '$type' does not exist",	486	error => "Message transport type '$type' does not exist",
487	transport_type => $type,	487	transport_type => $type,
488	);	488	);

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Attributes.pm (-4 / +4 lines)
1	package Koha::Patron::Message::Attributes;	1	package Koha::Patron::MessagePreference::Attributes;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 20-32 package Koha::Patron::Message::Attributes; Link Here
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Koha::Database;	22	use Koha::Database;
23	use Koha::Patron::Message::Attribute;	23	use Koha::Patron::MessagePreference::Attribute;
24		24
25	use base qw(Koha::Objects);	25	use base qw(Koha::Objects);
26		26
27	=head1 NAME	27	=head1 NAME
28		28
29	Koha::Patron::Message::Attributes - Koha Patron Message Attributes object class	29	Koha::Patron::MessagePreference::Attributes - Koha Patron Message Attributes object class
30		30
31	=head1 API	31	=head1 API
32		32
Lines 49-55 sub _type { Link Here
49	=cut	49	=cut
50		50
51	sub object_class {	51	sub object_class {
52	return 'Koha::Patron::Message::Attribute';	52	return 'Koha::Patron::MessagePreference::Attribute';
53	}	53	}
54		54
55	=head1 AUTHOR	55	=head1 AUTHOR

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Transport/Types.pm (-4 / +4 lines)
1	package Koha::Patron::Message::Transport::Types;	1	package Koha::Patron::MessagePreference::Transport::Types;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 20-32 package Koha::Patron::Message::Transport::Types; Link Here
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Koha::Database;	22	use Koha::Database;
23	use Koha::Patron::Message::Transport::Type;	23	use Koha::Patron::MessagePreference::Transport::Type;
24		24
25	use base qw(Koha::Objects);	25	use base qw(Koha::Objects);
26		26
27	=head1 NAME	27	=head1 NAME
28		28
29	Koha::Patron::Message::Transport::Types - Koha Patron Message Transport Types	29	Koha::Patron::MessagePreference::Transport::Types - Koha Patron Message Transport Types
30	object class	30	object class
31		31
32	=head1 API	32	=head1 API
Lines 50-56 sub _type { Link Here
50	=cut	50	=cut
51		51
52	sub object_class {	52	sub object_class {
53	return 'Koha::Patron::Message::Transport::Type';	53	return 'Koha::Patron::MessagePreference::Transport::Type';
54	}	54	}
55		55
56	=head1 AUTHOR	56	=head1 AUTHOR

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Transports.pm (-4 / +4 lines)
1	package Koha::Patron::Message::Transports;	1	package Koha::Patron::MessagePreference::Transports;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 20-32 package Koha::Patron::Message::Transports; Link Here
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Koha::Database;	22	use Koha::Database;
23	use Koha::Patron::Message::Transport;	23	use Koha::Patron::MessagePreference::Transport;
24		24
25	use base qw(Koha::Objects);	25	use base qw(Koha::Objects);
26		26
27	=head1 NAME	27	=head1 NAME
28		28
29	Koha::Patron::Message::Transports - Koha Patron Message Transports object class	29	Koha::Patron::MessagePreference::Transports - Koha Patron Message Transports object class
30		30
31	=head1 API	31	=head1 API
32		32
Lines 49-55 sub _type { Link Here
49	=cut	49	=cut
50		50
51	sub object_class {	51	sub object_class {
52	return 'Koha::Patron::Message::Transport';	52	return 'Koha::Patron::MessagePreference::Transport';
53	}	53	}
54		54
55	=head1 AUTHOR	55	=head1 AUTHOR

Lines 1-4 Link Here

(-)a/Koha/Patron/Message/Preferences.pm (-13 / +13 lines)
1	package Koha::Patron::Message::Preferences;	1	package Koha::Patron::MessagePreferences;
2		2
3	# Copyright Koha-Suomi Oy 2016	3	# Copyright Koha-Suomi Oy 2016
4	#	4	#
Lines 20-34 package Koha::Patron::Message::Preferences; Link Here
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Koha::Database;	22	use Koha::Database;
23	use Koha::Patron::Message::Attributes;	23	use Koha::Patron::MessagePreference::Attributes;
24	use Koha::Patron::Message::Preference;	24	use Koha::Patron::MessagePreference;
25	use Koha::Patron::Message::Transports;	25	use Koha::Patron::MessagePreference::Transports;
26		26
27	use base qw(Koha::Objects);	27	use base qw(Koha::Objects);
28		28
29	=head1 NAME	29	=head1 NAME
30		30
31	Koha::Patron::Message::Preferences - Koha Patron Message Preferences object class	31	Koha::Patron::MessagePreferences - Koha Patron Message Preferences object class
32		32
33	=head1 API	33	=head1 API
34		34
Lines 38-44 Koha::Patron::Message::Preferences - Koha Patron Message Preferences object clas Link Here
38		38
39	=head3 find_with_message_name	39	=head3 find_with_message_name
40		40
41	Koha::Patron::Message::Preferences->find_with_message_name({	41	Koha::Patron::MessagePreferences->find_with_message_name({
42	borrowernumber => 123,	42	borrowernumber => 123,
43	message_name => 'Hold_Filled',	43	message_name => 'Hold_Filled',
44	});	44	});
Lines 51-57 sub find_with_message_name { Link Here
51	my ($self, $id) = @_;	51	my ($self, $id) = @_;
52		52
53	if (ref($id) eq "HASH" && $id->{'message_name'}) {	53	if (ref($id) eq "HASH" && $id->{'message_name'}) {
54	my $attr = Koha::Patron::Message::Attributes->find({	54	my $attr = Koha::Patron::MessagePreference::Attributes->find({
55	message_name => $id->{'message_name'},	55	message_name => $id->{'message_name'},
56	});	56	});
57	$id->{'message_attribute_id'} = ($attr) ?	57	$id->{'message_attribute_id'} = ($attr) ?
Lines 64-70 sub find_with_message_name { Link Here
64		64
65	=head3 get_options	65	=head3 get_options
66		66
67	my $messaging_options = Koha::Patron::Message::Preferences->get_options	67	my $messaging_options = Koha::Patron::MessagePreferences->get_options
68		68
69	Returns an ARRAYref of HASHrefs on available messaging options.	69	Returns an ARRAYref of HASHrefs on available messaging options.
70		70
Lines 73-79 Returns an ARRAYref of HASHrefs on available messaging options. Link Here
73	sub get_options {	73	sub get_options {
74	my ($self) = @_;	74	my ($self) = @_;
75		75
76	my $transports = Koha::Patron::Message::Transports->search(undef,	76	my $transports = Koha::Patron::MessagePreference::Transports->search(undef,
77	{	77	{
78	join => ['message_attribute'],	78	join => ['message_attribute'],
79	'+select' => ['message_attribute.message_name', 'message_attribute.takes_days'],	79	'+select' => ['message_attribute.message_name', 'message_attribute.takes_days'],
Lines 99-111 sub get_options { Link Here
99		99
100	=head3 search_with_message_name	100	=head3 search_with_message_name
101		101
102	Koha::Patron::Message::Preferences->search_with_message_name({	102	Koha::Patron::MessagePreferences->search_with_message_name({
103	borrowernumber => 123,	103	borrowernumber => 123,
104	message_name => 'Hold_Filled',	104	message_name => 'Hold_Filled',
105	});	105	});
106		106
107	Converts C<message_name> into C<message_attribute_id> and continues search. Use	107	Converts C<message_name> into C<message_attribute_id> and continues search. Use
108	Koha::Patron::Message::Preferences->search with a proper join for more complicated	108	Koha::Patron::MessagePreferences->search with a proper join for more complicated
109	searches.	109	searches.
110		110
111	=cut	111	=cut
Lines 114-120 sub search_with_message_name { Link Here
114	my ($self, $params, $attributes) = @_;	114	my ($self, $params, $attributes) = @_;
115		115
116	if (ref($params) eq "HASH" && $params->{'message_name'}) {	116	if (ref($params) eq "HASH" && $params->{'message_name'}) {
117	my $attr = Koha::Patron::Message::Attributes->find({	117	my $attr = Koha::Patron::MessagePreference::Attributes->find({
118	message_name => $params->{'message_name'},	118	message_name => $params->{'message_name'},
119	});	119	});
120	$params->{'message_attribute_id'} = ($attr) ?	120	$params->{'message_attribute_id'} = ($attr) ?
Lines 138-144 sub _type { Link Here
138	=cut	138	=cut
139		139
140	sub object_class {	140	sub object_class {
141	return 'Koha::Patron::Message::Preference';	141	return 'Koha::Patron::MessagePreference';
142	}	142	}
143		143
144	=head1 AUTHOR	144	=head1 AUTHOR

Lines 28-53 my $schema = Koha::Database->new->schema; Link Here

(-)a/t/db_dependent/Koha/Patron/Message/Attributes.t (-9 / +9 lines)
28	subtest 'Test class imports' => sub {	28	subtest 'Test class imports' => sub {
29	plan tests => 2;	29	plan tests => 2;
30		30
31	use_ok('Koha::Patron::Message::Attribute');	31	use_ok('Koha::Patron::MessagePreference::Attribute');
32	use_ok('Koha::Patron::Message::Attributes');	32	use_ok('Koha::Patron::MessagePreference::Attributes');
33	};	33	};
34		34
35	subtest 'Test Koha::Patron::Message::Attributes' => sub {	35	subtest 'Test Koha::Patron::MessagePreference::Attributes' => sub {
36	plan tests => 6;	36	plan tests => 6;
37		37
38	$schema->storage->txn_begin;	38	$schema->storage->txn_begin;
39		39
40	Koha::Patron::Message::Attribute->new({	40	Koha::Patron::MessagePreference::Attribute->new({
41	message_name => 'Test_Attribute'	41	message_name => 'Test_Attribute'
42	})->store;	42	})->store;
43	Koha::Patron::Message::Attribute->new({	43	Koha::Patron::MessagePreference::Attribute->new({
44	message_name => 'Test_Attribute2',	44	message_name => 'Test_Attribute2',
45	takes_days => 1	45	takes_days => 1
46	})->store;	46	})->store;
47		47
48	my $attribute = Koha::Patron::Message::Attributes->find({	48	my $attribute = Koha::Patron::MessagePreference::Attributes->find({
49	message_name => 'Test_Attribute' });	49	message_name => 'Test_Attribute' });
50	my $attribute2 = Koha::Patron::Message::Attributes->find({	50	my $attribute2 = Koha::Patron::MessagePreference::Attributes->find({
51	message_name => 'Test_Attribute2' });	51	message_name => 'Test_Attribute2' });
52		52
53	is($attribute->message_name, 'Test_Attribute',	53	is($attribute->message_name, 'Test_Attribute',
Lines 61-70 subtest 'Test Koha::Patron::Message::Attributes' => sub { Link Here
61		61
62	$attribute->delete;	62	$attribute->delete;
63	$attribute2->delete;	63	$attribute2->delete;
64	is(Koha::Patron::Message::Attributes->find({	64	is(Koha::Patron::MessagePreference::Attributes->find({
65	message_name => 'Test_Attribute' }), undef,	65	message_name => 'Test_Attribute' }), undef,
66	'Deleted the first message attribute.');	66	'Deleted the first message attribute.');
67	is(Koha::Patron::Message::Attributes->find({	67	is(Koha::Patron::MessagePreference::Attributes->find({
68	message_name => 'Test_Attribute2' }), undef,	68	message_name => 'Test_Attribute2' }), undef,
69	'Deleted the second message attribute.');	69	'Deleted the second message attribute.');
70		70

Lines 26-35 use t::lib::TestBuilder; Link Here

(-)a/t/db_dependent/Koha/Patron/Message/Transport/Preferences.t (-18 / +18 lines)
26		26
27	use Koha::Notice::Templates;	27	use Koha::Notice::Templates;
28	use Koha::Patron::Categories;	28	use Koha::Patron::Categories;
29	use Koha::Patron::Message::Attributes;	29	use Koha::Patron::MessagePreference::Attributes;
30	use Koha::Patron::Message::Preferences;	30	use Koha::Patron::MessagePreferences;
31	use Koha::Patron::Message::Transport::Types;	31	use Koha::Patron::MessagePreference::Transport::Types;
32	use Koha::Patron::Message::Transports;	32	use Koha::Patron::MessagePreference::Transports;
33	use Koha::Patrons;	33	use Koha::Patrons;
34		34
35	my $schema = Koha::Database->new->schema;	35	my $schema = Koha::Database->new->schema;
Lines 38-58 my $builder = t::lib::TestBuilder->new; Link Here
38	subtest 'Test class imports' => sub {	38	subtest 'Test class imports' => sub {
39	plan tests => 2;	39	plan tests => 2;
40		40
41	use_ok('Koha::Patron::Message::Transport::Preference');	41	use_ok('Koha::Patron::MessagePreference::Transport::Preference');
42	use_ok('Koha::Patron::Message::Transport::Preferences');	42	use_ok('Koha::Patron::MessagePreference::Transport::Preferences');
43	};	43	};
44		44
45	subtest 'Test Koha::Patron::Message::Transport::Preferences' => sub {	45	subtest 'Test Koha::Patron::MessagePreference::Transport::Preferences' => sub {
46	plan tests => 2;	46	plan tests => 2;
47		47
48	$schema->storage->txn_begin;	48	$schema->storage->txn_begin;
49		49
50	my $attribute = $builder->build_object({ class => 'Koha::Patron::Message::Attributes' });	50	my $attribute = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Attributes' });
51	my $mtt = $builder->build_object({ class => 'Koha::Patron::Message::Transport::Types' });	51	my $mtt = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
52	my $letter = build_a_test_letter({	52	my $letter = build_a_test_letter({
53	mtt => $mtt->message_transport_type	53	mtt => $mtt->message_transport_type
54	});	54	});
55	Koha::Patron::Message::Transport->new({	55	Koha::Patron::MessagePreference::Transport->new({
56	message_attribute_id => $attribute->message_attribute_id,	56	message_attribute_id => $attribute->message_attribute_id,
57	message_transport_type => $mtt->message_transport_type,	57	message_transport_type => $mtt->message_transport_type,
58	is_digest => 0,	58	is_digest => 0,
Lines 62-68 subtest 'Test Koha::Patron::Message::Transport::Preferences' => sub { Link Here
62		62
63	subtest 'For a patron' => sub {	63	subtest 'For a patron' => sub {
64	my $patron = $builder->build_object({ class => 'Koha::Patrons' });	64	my $patron = $builder->build_object({ class => 'Koha::Patrons' });
65	my $preference = Koha::Patron::Message::Preference->new({	65	my $preference = Koha::Patron::MessagePreference->new({
66	borrowernumber => $patron->borrowernumber,	66	borrowernumber => $patron->borrowernumber,
67	message_attribute_id => $attribute->message_attribute_id,	67	message_attribute_id => $attribute->message_attribute_id,
68	wants_digest => 0,	68	wants_digest => 0,
Lines 70-84 subtest 'Test Koha::Patron::Message::Transport::Preferences' => sub { Link Here
70	})->store;	70	})->store;
71		71
72	my $pref_id = $preference->borrower_message_preference_id;	72	my $pref_id = $preference->borrower_message_preference_id;
73	my $transport_pref = Koha::Patron::Message::Transport::Preference->new({	73	my $transport_pref = Koha::Patron::MessagePreference::Transport::Preference->new({
74	borrower_message_preference_id => $pref_id,	74	borrower_message_preference_id => $pref_id,
75	message_transport_type => $mtt->message_transport_type,	75	message_transport_type => $mtt->message_transport_type,
76	})->store;	76	})->store;
77	is(ref($transport_pref), 'Koha::Patron::Message::Transport::Preference',	77	is(ref($transport_pref), 'Koha::Patron::MessagePreference::Transport::Preference',
78	'Added a new messaging transport preference for patron.');	78	'Added a new messaging transport preference for patron.');
79		79
80	$transport_pref->delete;	80	$transport_pref->delete;
81	is(Koha::Patron::Message::Transport::Preferences->search({	81	is(Koha::Patron::MessagePreference::Transport::Preferences->search({
82	borrower_message_preference_id => $pref_id,	82	borrower_message_preference_id => $pref_id,
83	message_transport_type => $mtt->message_transport_type,	83	message_transport_type => $mtt->message_transport_type,
84	})->count, 0, 'Deleted the messaging transport preference.');	84	})->count, 0, 'Deleted the messaging transport preference.');
Lines 86-92 subtest 'Test Koha::Patron::Message::Transport::Preferences' => sub { Link Here
86		86
87	subtest 'For a category' => sub {	87	subtest 'For a category' => sub {
88	my $category = $builder->build_object({ class => 'Koha::Patron::Categories' });	88	my $category = $builder->build_object({ class => 'Koha::Patron::Categories' });
89	my $preference = Koha::Patron::Message::Preference->new({	89	my $preference = Koha::Patron::MessagePreference->new({
90	categorycode => $category->categorycode,	90	categorycode => $category->categorycode,
91	message_attribute_id => $attribute->message_attribute_id,	91	message_attribute_id => $attribute->message_attribute_id,
92	wants_digest => 0,	92	wants_digest => 0,
Lines 94-108 subtest 'Test Koha::Patron::Message::Transport::Preferences' => sub { Link Here
94	})->store;	94	})->store;
95		95
96	my $pref_id = $preference->borrower_message_preference_id;	96	my $pref_id = $preference->borrower_message_preference_id;
97	my $transport_pref = Koha::Patron::Message::Transport::Preference->new({	97	my $transport_pref = Koha::Patron::MessagePreference::Transport::Preference->new({
98	borrower_message_preference_id => $pref_id,	98	borrower_message_preference_id => $pref_id,
99	message_transport_type => $mtt->message_transport_type,	99	message_transport_type => $mtt->message_transport_type,
100	})->store;	100	})->store;
101	is(ref($transport_pref), 'Koha::Patron::Message::Transport::Preference',	101	is(ref($transport_pref), 'Koha::Patron::MessagePreference::Transport::Preference',
102	'Added a new messaging transport preference for category.');	102	'Added a new messaging transport preference for category.');
103		103
104	$transport_pref->delete;	104	$transport_pref->delete;
105	is(Koha::Patron::Message::Transport::Preferences->search({	105	is(Koha::Patron::MessagePreference::Transport::Preferences->search({
106	borrower_message_preference_id => $pref_id,	106	borrower_message_preference_id => $pref_id,
107	message_transport_type => $mtt->message_transport_type,	107	message_transport_type => $mtt->message_transport_type,
108	})->count, 0, 'Deleted the messaging transport preference.');	108	})->count, 0, 'Deleted the messaging transport preference.');

Lines 24-31 use Test::More tests => 2; Link Here

(-)a/t/db_dependent/Koha/Patron/Message/Transports.t (-9 / +9 lines)
24	use t::lib::TestBuilder;	24	use t::lib::TestBuilder;
25		25
26	use Koha::Notice::Templates;	26	use Koha::Notice::Templates;
27	use Koha::Patron::Message::Attributes;	27	use Koha::Patron::MessagePreference::Attributes;
28	use Koha::Patron::Message::Transport::Types;	28	use Koha::Patron::MessagePreference::Transport::Types;
29		29
30	my $schema = Koha::Database->new->schema;	30	my $schema = Koha::Database->new->schema;
31	my $builder = t::lib::TestBuilder->new;	31	my $builder = t::lib::TestBuilder->new;
Lines 33-54 my $builder = t::lib::TestBuilder->new; Link Here
33	subtest 'Test class imports' => sub {	33	subtest 'Test class imports' => sub {
34	plan tests => 2;	34	plan tests => 2;
35		35
36	use_ok('Koha::Patron::Message::Transport');	36	use_ok('Koha::Patron::MessagePreference::Transport');
37	use_ok('Koha::Patron::Message::Transports');	37	use_ok('Koha::Patron::MessagePreference::Transports');
38	};	38	};
39		39
40	subtest 'Test Koha::Patron::Message::Transports' => sub {	40	subtest 'Test Koha::Patron::MessagePreference::Transports' => sub {
41	plan tests => 2;	41	plan tests => 2;
42		42
43	$schema->storage->txn_begin;	43	$schema->storage->txn_begin;
44		44
45	my $attribute = $builder->build_object({ class => 'Koha::Patron::Message::Attributes' });	45	my $attribute = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Attributes' });
46	my $mtt = $builder->build_object({ class => 'Koha::Patron::Message::Transport::Types' });	46	my $mtt = $builder->build_object({ class => 'Koha::Patron::MessagePreference::Transport::Types' });
47	my $letter = build_a_test_letter({	47	my $letter = build_a_test_letter({
48	mtt => $mtt->message_transport_type	48	mtt => $mtt->message_transport_type
49	});	49	});
50		50
51	my $transport = Koha::Patron::Message::Transport->new({	51	my $transport = Koha::Patron::MessagePreference::Transport->new({
52	message_attribute_id => $attribute->message_attribute_id,	52	message_attribute_id => $attribute->message_attribute_id,
53	message_transport_type => $mtt->message_transport_type,	53	message_transport_type => $mtt->message_transport_type,
54	is_digest => 0,	54	is_digest => 0,
Lines 60-66 subtest 'Test Koha::Patron::Message::Transports' => sub { Link Here
60	'Added a new messaging transport.');	60	'Added a new messaging transport.');
61		61
62	$transport->delete;	62	$transport->delete;
63	is(Koha::Patron::Message::Transports->search({	63	is(Koha::Patron::MessagePreference::Transports->search({
64	message_attribute_id => $attribute->message_attribute_id,	64	message_attribute_id => $attribute->message_attribute_id,
65	message_transport_type => $mtt->message_transport_type,	65	message_transport_type => $mtt->message_transport_type,
66	is_digest => 0	66	is_digest => 0