|
Lines 568-575
END_SQL
Link Here
|
| 568 |
if (@misses) { |
568 |
if (@misses) { |
| 569 |
$verbose and warn "The following terms were not matched and replaced: \n\t" . join "\n\t", @misses; |
569 |
$verbose and warn "The following terms were not matched and replaced: \n\t" . join "\n\t", @misses; |
| 570 |
} |
570 |
} |
| 571 |
$letter->{'content'} =~ s/\<[^<>]*?\>//g; # Now that we've warned about them, remove them. |
571 |
#$letter->{'content'} =~ s/\<[^<>]*?\>//g; # Now that we've warned about them, remove them. |
| 572 |
$letter->{'content'} =~ s/\<[^<>]*?\>//g; # 2nd pass for the double nesting. |
572 |
#$letter->{'content'} =~ s/\<[^<>]*?\>//g; # 2nd pass for the double nesting. |
| 573 |
|
573 |
|
| 574 |
if ( !$nomail && scalar @emails_to_use ) { |
574 |
if ( !$nomail && scalar @emails_to_use ) { |
| 575 |
C4::Letters::EnqueueLetter( |
575 |
C4::Letters::EnqueueLetter( |
| 576 |
- |
|
|