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 |
- |
|
|