|
Lines 700-707
sub EnqueueLetter {
Link Here
|
| 700 |
} |
700 |
} |
| 701 |
if( $params->{'letter'}->{'content-type'} and ($params->{'letter'}->{'content-type'}=~/html/i )) |
701 |
if( $params->{'letter'}->{'content-type'} and ($params->{'letter'}->{'content-type'}=~/html/i )) |
| 702 |
{ |
702 |
{ |
| 703 |
$content=~s/\n/<br \/>/g; |
703 |
$params->{letter}->{content} =~ s/\n/<br \/>/g; |
| 704 |
$content=~s/\r//g; |
704 |
$params->{letter}->{content} =~ s/\r//g; |
| 705 |
} |
705 |
} |
| 706 |
my $dbh = C4::Context->dbh(); |
706 |
my $dbh = C4::Context->dbh(); |
| 707 |
my $statement = << 'ENDSQL'; |
707 |
my $statement = << 'ENDSQL'; |
|
Lines 715-721
ENDSQL
Link Here
|
| 715 |
my $result = $sth->execute( |
715 |
my $result = $sth->execute( |
| 716 |
$params->{'borrowernumber'}, # borrowernumber |
716 |
$params->{'borrowernumber'}, # borrowernumber |
| 717 |
$params->{'letter'}->{'title'}, # subject |
717 |
$params->{'letter'}->{'title'}, # subject |
| 718 |
$content, # content |
718 |
$params->{letter}->{content}, # content |
| 719 |
$params->{'letter'}->{'metadata'} || '', # metadata |
719 |
$params->{'letter'}->{'metadata'} || '', # metadata |
| 720 |
$params->{'letter'}->{'code'} || '', # letter_code |
720 |
$params->{'letter'}->{'code'} || '', # letter_code |
| 721 |
$params->{'message_transport_type'}, # message_transport_type |
721 |
$params->{'message_transport_type'}, # message_transport_type |
| 722 |
- |
|
|