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