@@ -, +, @@ column list --- tools/letter.pl | 12 +++++++++++- 1 files changed, 11 insertions(+), 1 deletions(-) --- a/tools/letter.pl +++ a/tools/letter.pl @@ -430,7 +430,9 @@ sub get_columns_for { push @fields, { value => $table_prefix . $row->{Field}, text => $table_prefix . $row->{Field}, - } + }; + push @fields, _add_date_due2($table_prefix) if $table eq 'issues' && + $row->{Field} eq 'date_due'; } if ($table eq 'borrowers') { if ( my $attributes = C4::Members::Attributes::GetAttributes() ) { @@ -444,3 +446,11 @@ sub get_columns_for { } return @fields; } + +sub _add_date_due2 { + # This adds a second date due (without time) to the available columns + # when editing a notice. See also _parseletter_sth in Letters.pm. + my ( $pfx ) = @_; + my $str = $pfx . 'date_due_without_time'; + return { value => $str, text => $str }; +} --