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

(-)a/tools/letter.pl (-2 / +11 lines)
Lines 430-436 sub get_columns_for { Link Here
430
        push @fields, {
430
        push @fields, {
431
            value => $table_prefix . $row->{Field},
431
            value => $table_prefix . $row->{Field},
432
            text  => $table_prefix . $row->{Field},
432
            text  => $table_prefix . $row->{Field},
433
        }
433
        };
434
        push @fields, _add_date_due2($table_prefix) if $table eq 'issues' &&
435
            $row->{Field} eq 'date_due';
434
    }
436
    }
435
    if ($table eq 'borrowers') {
437
    if ($table eq 'borrowers') {
436
        if ( my $attributes = C4::Members::Attributes::GetAttributes() ) {
438
        if ( my $attributes = C4::Members::Attributes::GetAttributes() ) {
Lines 444-446 sub get_columns_for { Link Here
444
    }
446
    }
445
    return @fields;
447
    return @fields;
446
}
448
}
447
- 
449
450
sub _add_date_due2 {
451
    # This adds a second date due (without time) to the available columns
452
    # when editing a notice. See also _parseletter_sth in Letters.pm.
453
    my ( $pfx ) = @_;
454
    my $str =  $pfx . 'date_due_without_time';
455
    return { value => $str, text  => $str };
456
}

Return to bug 13536