View | Details | Raw Unified | Return to bug 35597
Collapse All | Expand All

(-)a/Koha/Suggestion.pm (-3 / +5 lines)
Lines 70-75 sub store { Link Here
70
70
71
    my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions");
71
    my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions");
72
72
73
    my $new_suggestion = !$self->in_storage;
74
73
    my $result = $self->SUPER::store();
75
    my $result = $self->SUPER::store();
74
    if ( $emailpurchasesuggestions && $self->STATUS eq 'ASKED' ) {
76
    if ( $emailpurchasesuggestions && $self->STATUS eq 'ASKED' ) {
75
77
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
- 

Return to bug 35597