# ... then send mail

        # ... then send mail

        my $library = Koha::Libraries->find( $userenv->{branch} );

        my $library = Koha::Libraries->find( $userenv->{branch} );

                            ? _wrap_html( Encode::encode( "UTF-8", $letter->{'content'} ),

                            ? _wrap_html( Encode::encode( "UTF-8", $letter->{'content'} ),

                                          Encode::encode( "UTF-8", "" . $letter->{'title'} ))

                                          Encode::encode( "UTF-8", "" . $letter->{'title'} ))

                            : Encode::encode( "UTF-8", "" . $letter->{'content'} ),

                            : Encode::encode( "UTF-8", "" . $letter->{'content'} ),

                                ? 'text/html; charset="utf-8"'

                                ? 'text/html; charset="utf-8"'

                                : 'text/plain; charset="utf-8"',

                                : 'text/plain; charset="utf-8"',

        );

        );

        if ($type eq 'claimacquisition' || $type eq 'claimissues' ) {

        if ($type eq 'claimacquisition' || $type eq 'claimissues' ) {

            $mail{'Sender'} = C4::Context->preference('ReturnpathDefault')

            $mail{'Sender'} = C4::Context->preference('ReturnpathDefault')

              if C4::Context->preference('ReturnpathDefault');

              if C4::Context->preference('ReturnpathDefault');

            $mail{'Bcc'} = $userenv->{emailaddress}

            $mail{'Bcc'} = $userenv->{emailaddress}

        }

        }

        unless ( Mail::Sendmail::sendmail(%mail) ) {

        unless ( Mail::Sendmail::sendmail(%mail) ) {

    $sendmail_params{'Auth'} = {user => $username, pass => $password, method => $method} if $username;

    $sendmail_params{'Auth'} = {user => $username, pass => $password, method => $method} if $username;

    if ( my $bcc = C4::Context->preference('NoticeBcc') ) {

    if ( my $bcc = C4::Context->preference('NoticeBcc') ) {

    }

    }

    _update_message_to_address($message->{'message_id'},$to_address) unless $message->{to_address}; #if initial message address was empty, coming here means that a to address was found and queue should be updated

    _update_message_to_address($message->{'message_id'},$to_address) unless $message->{to_address}; #if initial message address was empty, coming here means that a to address was found and queue should be updated

package Koha::Email;

package Koha::Email;

use Modern::Perl;

use Modern::Perl;

use base qw(Class::Accessor);

use base qw(Class::Accessor);

use C4::Context;

use C4::Context;

        From    => $params->{from},

        From    => $params->{from},

        charset => $params->{charset}

        charset => $params->{charset}

    );

    );

    if ( C4::Context->preference('ReplytoDefault') ) {

    if ( C4::Context->preference('ReplytoDefault') ) {

        $params->{replyto} ||= C4::Context->preference('ReplytoDefault');

        $params->{replyto} ||= C4::Context->preference('ReplytoDefault');

    }

    }

('AccountAutoReconcile','0',NULL,'If enabled, patron balances will get reconciled automatically on each transaction.','YesNo'),

('AccountAutoReconcile','0',NULL,'If enabled, patron balances will get reconciled automatically on each transaction.','YesNo'),

('AcqCreateItem','ordering','ordering|receiving|cataloguing','Define when the item is created : when ordering, when receiving, or in cataloguing module','Choice'),

('AcqCreateItem','ordering','ordering|receiving|cataloguing','Define when the item is created : when ordering, when receiving, or in cataloguing module','Choice'),

('AcqEnableFiles','0',NULL,'If enabled, allows librarians to upload and attach arbitrary files to invoice records.','YesNo'),

('AcqEnableFiles','0',NULL,'If enabled, allows librarians to upload and attach arbitrary files to invoice records.','YesNo'),

('SelfCheckoutByLogin','1',NULL,'Have patrons login into the web-based self checkout system with their username/password or their cardnumber','YesNo'),

('SelfCheckoutByLogin','1',NULL,'Have patrons login into the web-based self checkout system with their username/password or their cardnumber','YesNo'),

('SelfCheckReceiptPrompt','1','NULL','If ON, print receipt dialog pops up when self checkout is finished','YesNo'),

('SelfCheckReceiptPrompt','1','NULL','If ON, print receipt dialog pops up when self checkout is finished','YesNo'),

('SelfCheckTimeout','120','','Define the number of seconds before the Web-based Self Checkout times out a patron','Integer'),

('SelfCheckTimeout','120','','Define the number of seconds before the Web-based Self Checkout times out a patron','Integer'),

('SeparateHoldings','0',NULL,'Separate current branch holdings from other holdings','YesNo'),

('SeparateHoldings','0',NULL,'Separate current branch holdings from other holdings','YesNo'),

('SeparateHoldingsBranch','homebranch','homebranch|holdingbranch','Branch used to separate holdings','Choice'),

('SeparateHoldingsBranch','homebranch','homebranch|holdingbranch','Branch used to separate holdings','Choice'),

('SessionRestrictionByIP','1','Check for change in remote IP address for session security. Disable only when remote IP address changes frequently.','','YesNo'),

('SessionRestrictionByIP','1','Check for change in remote IP address for session security. Disable only when remote IP address changes frequently.','','YesNo'),

              class: email

              class: email

            - "If you leave this empty, the From address will be used (often defaulting to the admin address)."

            - "If you leave this empty, the From address will be used (often defaulting to the admin address)."

        -

        -

            - "How much debugging information to show in the browser when an internal error occurs: "

            - "How much debugging information to show in the browser when an internal error occurs: "

            - pref: DebugLevel

            - pref: DebugLevel

              default: 0

              default: 0

# GetPreparedLetter

# GetPreparedLetter

t::lib::Mocks::mock_preference('OPACBaseURL', 'http://thisisatest.com');

t::lib::Mocks::mock_preference('OPACBaseURL', 'http://thisisatest.com');

my $sms_content = 'This is a SMS for an <<status>>';

my $sms_content = 'This is a SMS for an <<status>>';

$dbh->do( q|INSERT INTO letter(branchcode,module,code,name,is_html,title,content,message_transport_type) VALUES (?,'my module','my code','my name',1,'my title',?,'sms')|, undef, $library->{branchcode}, $sms_content );

$dbh->do( q|INSERT INTO letter(branchcode,module,code,name,is_html,title,content,message_transport_type) VALUES (?,'my module','my code','my name',1,'my title',?,'sms')|, undef, $library->{branchcode}, $sms_content );

is($err2, 1, "Successfully sent serial notification");

is($err2, 1, "Successfully sent serial notification");

is($mail{'To'}, 'john.smith@test.de', "mailto correct in sent serial notification");

is($mail{'To'}, 'john.smith@test.de', "mailto correct in sent serial notification");

is($mail{'Message'}, 'Silence in the library,'.$subscriptionid.',No. 0', 'Serial notification text constructed successfully');

is($mail{'Message'}, 'Silence in the library,'.$subscriptionid.',No. 0', 'Serial notification text constructed successfully');

}

}

subtest 'SendAlerts - claimissue' => sub {

subtest 'SendAlerts - claimissue' => sub {

    plan tests => 8;

    plan tests => 8;