Lines 644-649
sub parse_letter { # FIXME: this code should probably be moved to C4::Letters:pa
Link Here
|
644 |
return unless exists $params->{$required}; |
644 |
return unless exists $params->{$required}; |
645 |
} |
645 |
} |
646 |
|
646 |
|
|
|
647 |
my $todaysdate = C4::Dates->new()->output("syspref"); |
648 |
$params->{'letter'}->{title} =~ s/<<today>>/$todaysdate/g; |
649 |
$params->{'letter'}->{content} =~ s/<<today>>/$todaysdate/g; |
647 |
|
650 |
|
648 |
if ( $params->{'substitute'} ) { |
651 |
if ( $params->{'substitute'} ) { |
649 |
while ( my ( $key, $replacedby ) = each %{ $params->{'substitute'} } ) { |
652 |
while ( my ( $key, $replacedby ) = each %{ $params->{'substitute'} } ) { |
650 |
- |
|
|