return Koha::Library->_new_from_dbic($self->_result->branchcode);
}
+=head3 sms_provider
+
+Returns a Koha::SMS::Provider object representing the patron's SMS provider.
+
+=cut
+
+sub sms_provider {
+ my ( $self ) = @_;
+ return Koha::SMS::Provider->_new_from_dbic($self->_result->sms_provider);
+}
+
=head3 guarantor_relationships
Returns Koha::Patron::Relationships object for this patron's guarantors
<span class="label">SMS number:</span>
<a href="sms:[% patron.smsalertnumber | uri %]">[% patron.smsalertnumber | html %]</a>
</li>
+ <li>
+ <span class="label">SMS provider:</span>
+ [% patron.sms_provider.name | html %]
+ </li>
</ol>
</div>
[% END %]
use Modern::Perl;
-use Test::More tests => 40;
+use Test::More tests => 41;
use Test::Warn;
use Test::Exception;
use Test::MockModule;
is( ref($retrieved_patron_1->library), 'Koha::Library', 'Koha::Patron->library should return a Koha::Library object' );
};
+subtest 'sms_provider' => sub {
+ plan tests => 2;
+ my $sms_provider = $builder->build({source => 'SmsProvider' });
+ $retrieved_patron_1->sms_provider_id( $sms_provider->{id} )->store;
+ is_deeply( $retrieved_patron_1->sms_provider->unblessed, $sms_provider, 'Koha::Patron->sms_provider returns the correct SMS provider' );
+ is( ref($retrieved_patron_1->sms_provider), 'Koha::SMS::Provider', 'Koha::Patron->sms_provider should return a Koha::SMS::Provider object' );
+};
+
subtest 'guarantees' => sub {
plan tests => 13;