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