|
Lines 69-74
sub store {
Link Here
|
| 69 |
|
69 |
|
| 70 |
my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions"); |
70 |
my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions"); |
| 71 |
|
71 |
|
|
|
72 |
my $new_suggestion = !$self->in_storage; |
| 73 |
|
| 72 |
my $result = $self->SUPER::store(); |
74 |
my $result = $self->SUPER::store(); |
| 73 |
|
75 |
|
| 74 |
if( $emailpurchasesuggestions ){ |
76 |
if( $emailpurchasesuggestions ){ |
|
Lines 112-119
sub store {
Link Here
|
| 112 |
) or warn "can't enqueue letter $letter"; |
114 |
) or warn "can't enqueue letter $letter"; |
| 113 |
} |
115 |
} |
| 114 |
} |
116 |
} |
| 115 |
if (C4::Context->preference("NewsLog")) { |
117 |
my $suggestion_object = Koha::Suggestions->find( $result->suggestionid ); |
| 116 |
logaction('SUGGESTION', 'CREATE', $result->suggestionid, '' ); |
118 |
if ( $new_suggestion && C4::Context->preference("SuggestionsLog") ) { |
|
|
119 |
logaction('SUGGESTION', 'CREATE', $result->suggestionid, $suggestion_object ); |
| 117 |
} |
120 |
} |
| 118 |
return $result; |
121 |
return $result; |
| 119 |
} |
122 |
} |
| 120 |
- |
|
|