View | Details | Raw Unified | Return to bug 15429
Collapse All | Expand All

(-)a/C4/Letters.pm (-3 / +6 lines)
Lines 790-803 sub _parseletter_sth { Link Here
790
    parameters :
790
    parameters :
791
    - $letter : a hash to letter fields (title & content useful)
791
    - $letter : a hash to letter fields (title & content useful)
792
    - $table : the Koha table to parse.
792
    - $table : the Koha table to parse.
793
    - $values : table record hashref
793
    - $values_in : table record hashref
794
    parse all fields from a table, and replace values in title & content with the appropriate value
794
    parse all fields from a table, and replace values in title & content with the appropriate value
795
    (not exported sub, used only internally)
795
    (not exported sub, used only internally)
796
796
797
=cut
797
=cut
798
798
799
sub _parseletter {
799
sub _parseletter {
800
    my ( $letter, $table, $values ) = @_;
800
    my ( $letter, $table, $values_in ) = @_;
801
802
    # Work on a local copy of $values_in (passed by reference) to avoid side effects
803
    # in callers ( by changing / formatting values )
804
    my $values = { %$values_in };
801
805
802
    if ( $table eq 'borrowers' && $values->{'dateexpiry'} ){
806
    if ( $table eq 'borrowers' && $values->{'dateexpiry'} ){
803
        $values->{'dateexpiry'} = format_sqldatetime( $values->{'dateexpiry'} );
807
        $values->{'dateexpiry'} = format_sqldatetime( $values->{'dateexpiry'} );
804
- 

Return to bug 15429