|
Lines 69-76
sub store {
Link Here
|
| 69 |
|
69 |
|
| 70 |
my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions"); |
70 |
my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions"); |
| 71 |
|
71 |
|
|
|
72 |
my %updated_columns = $self->_result->get_dirty_columns; |
| 72 |
my $result = $self->SUPER::store(); |
73 |
my $result = $self->SUPER::store(); |
| 73 |
if ( $emailpurchasesuggestions && $self->STATUS eq 'ASKED' ) { |
74 |
if ( $emailpurchasesuggestions && $self->STATUS eq 'ASKED' && exists $updated_columns{STATUS} ) { |
| 74 |
|
75 |
|
| 75 |
if ( |
76 |
if ( |
| 76 |
my $letter = C4::Letters::GetPreparedLetter( |
77 |
my $letter = C4::Letters::GetPreparedLetter( |
| 77 |
- |
|
|