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