Lines 684-690
sub EnqueueLetter ($) {
Link Here
|
684 |
} |
684 |
} |
685 |
); |
685 |
); |
686 |
} |
686 |
} |
687 |
|
687 |
my $content = $params->{'letter'}->{'content'}; |
|
|
688 |
if( $params->{'letter'}->{'content-type'} and ($params->{'letter'}->{'content-type'}=~/html/i )) |
689 |
{ |
690 |
$content=~s/\n/<br \/>/g; |
691 |
$content=~s/\r//g; |
692 |
} |
688 |
my $dbh = C4::Context->dbh(); |
693 |
my $dbh = C4::Context->dbh(); |
689 |
my $statement = << 'ENDSQL'; |
694 |
my $statement = << 'ENDSQL'; |
690 |
INSERT INTO message_queue |
695 |
INSERT INTO message_queue |
Lines 697-703
ENDSQL
Link Here
|
697 |
my $result = $sth->execute( |
702 |
my $result = $sth->execute( |
698 |
$params->{'borrowernumber'}, # borrowernumber |
703 |
$params->{'borrowernumber'}, # borrowernumber |
699 |
$params->{'letter'}->{'title'}, # subject |
704 |
$params->{'letter'}->{'title'}, # subject |
700 |
$params->{'letter'}->{'content'}, # content |
705 |
$content, # content |
701 |
$params->{'letter'}->{'metadata'} || '', # metadata |
706 |
$params->{'letter'}->{'metadata'} || '', # metadata |
702 |
$params->{'letter'}->{'code'} || '', # letter_code |
707 |
$params->{'letter'}->{'code'} || '', # letter_code |
703 |
$params->{'message_transport_type'}, # message_transport_type |
708 |
$params->{'message_transport_type'}, # message_transport_type |
704 |
- |
|
|