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