| Lines 912-920
          sub EnqueueLetter {
      
      
        Link Here | 
        
          | 912 |     my $dbh       = C4::Context->dbh(); | 912 |     my $dbh       = C4::Context->dbh(); | 
        
          | 913 |     my $statement = << 'ENDSQL'; | 913 |     my $statement = << 'ENDSQL'; | 
        
          | 914 | INSERT INTO message_queue | 914 | INSERT INTO message_queue | 
          
            
              | 915 | ( borrowernumber, subject, content, metadata, letter_code, message_transport_type, status, time_queued, to_address, from_address, content_type ) | 915 | ( borrowernumber, subject, content, metadata, letter_code, message_transport_type, status, time_queued, to_address, from_address, reply_address, content_type ) | 
        
          | 916 | VALUES | 916 | VALUES | 
          
            
              | 917 | ( ?,              ?,       ?,       ?,        ?,           ?,                      ?,      NOW(),       ?,          ?,            ? ) | 917 | ( ?,              ?,       ?,       ?,        ?,           ?,                      ?,      NOW(),       ?,          ?,            ?,           ? ) | 
        
          | 918 | ENDSQL | 918 | ENDSQL | 
        
          | 919 |  | 919 |  | 
        
          | 920 |     my $sth    = $dbh->prepare($statement); | 920 |     my $sth    = $dbh->prepare($statement); | 
  
    | Lines 928-933
          ENDSQL
      
      
        Link Here | 
        
          | 928 |         'pending',                                # status | 928 |         'pending',                                # status | 
        
          | 929 |         $params->{'to_address'},                  # to_address | 929 |         $params->{'to_address'},                  # to_address | 
        
          | 930 |         $params->{'from_address'},                # from_address | 930 |         $params->{'from_address'},                # from_address | 
            
              |  |  | 931 |         $params->{'reply_address'},               # reply_address | 
        
          | 931 |         $params->{'letter'}->{'content-type'},    # content_type | 932 |         $params->{'letter'}->{'content-type'},    # content_type | 
        
          | 932 |     ); | 933 |     ); | 
        
          | 933 |     return $dbh->last_insert_id(undef,undef,'message_queue', undef); | 934 |     return $dbh->last_insert_id(undef,undef,'message_queue', undef); | 
  
    | Lines 1124-1130
          sub GetMessage {
      
      
        Link Here | 
        
          | 1124 |     return unless $message_id; | 1125 |     return unless $message_id; | 
        
          | 1125 |     my $dbh = C4::Context->dbh; | 1126 |     my $dbh = C4::Context->dbh; | 
        
          | 1126 |     return $dbh->selectrow_hashref(q| | 1127 |     return $dbh->selectrow_hashref(q| | 
          
            
              | 1127 |         SELECT message_id, borrowernumber, subject, content, metadata, letter_code, message_transport_type, status, time_queued, updated_on, to_address, from_address, content_type | 1128 |         SELECT message_id, borrowernumber, subject, content, metadata, letter_code, message_transport_type, status, time_queued, updated_on, to_address, from_address, reply_address, content_type | 
        
          | 1128 |         FROM message_queue | 1129 |         FROM message_queue | 
        
          | 1129 |         WHERE message_id = ? | 1130 |         WHERE message_id = ? | 
        
          | 1130 |     |, {}, $message_id ); | 1131 |     |, {}, $message_id ); | 
  
    | Lines 1228-1234
          sub _get_unsent_messages {
      
      
        Link Here | 
        
          | 1228 |  | 1229 |  | 
        
          | 1229 |     my $dbh = C4::Context->dbh(); | 1230 |     my $dbh = C4::Context->dbh(); | 
        
          | 1230 |     my $statement = qq{ | 1231 |     my $statement = qq{ | 
          
            
              | 1231 |         SELECT mq.message_id, mq.borrowernumber, mq.subject, mq.content, mq.message_transport_type, mq.status, mq.time_queued, mq.from_address, mq.to_address, mq.content_type, b.branchcode, mq.letter_code | 1232 |         SELECT mq.message_id, mq.borrowernumber, mq.subject, mq.content, mq.message_transport_type, mq.status, mq.time_queued, mq.from_address, mq.reply_address, mq.to_address, mq.content_type, b.branchcode, mq.letter_code | 
        
          | 1232 |         FROM message_queue mq | 1233 |         FROM message_queue mq | 
        
          | 1233 |         LEFT JOIN borrowers b ON b.borrowernumber = mq.borrowernumber | 1234 |         LEFT JOIN borrowers b ON b.borrowernumber = mq.borrowernumber | 
        
          | 1234 |         WHERE status = ? | 1235 |         WHERE status = ? | 
  
    | Lines 1314-1320
          sub _send_message_by_email {
      
      
        Link Here | 
        
          | 1314 |                 : () | 1315 |                 : () | 
        
          | 1315 |             ), | 1316 |             ), | 
        
          | 1316 |             from    => $message->{'from_address'} || $branch_email, | 1317 |             from    => $message->{'from_address'} || $branch_email, | 
          
            
              | 1317 |             replyto => $branch_replyto, | 1318 |             replyto => $message->{'reply_address'} || $branch_replyto, | 
        
          | 1318 |             sender  => $branch_returnpath, | 1319 |             sender  => $branch_returnpath, | 
        
          | 1319 |             subject => $subject, | 1320 |             subject => $subject, | 
        
          | 1320 |             message => $is_html ? _wrap_html( $content, $subject ) : $content, | 1321 |             message => $is_html ? _wrap_html( $content, $subject ) : $content, | 
            
              | 1321 | -  |  |  |