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