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

(-)a/Koha/Review.pm (-16 / +17 lines)
Lines 43-49 Approve a review Link Here
43
=cut
43
=cut
44
44
45
sub approve {
45
sub approve {
46
    my ( $self ) = @_;
46
    my ($self) = @_;
47
    $self->approved(1)->store;
47
    $self->approved(1)->store;
48
}
48
}
49
49
Lines 56-62 Unapprove a review Link Here
56
=cut
56
=cut
57
57
58
sub unapprove {
58
sub unapprove {
59
    my ( $self ) = @_;
59
    my ($self) = @_;
60
    $self->approved(0)->store;
60
    $self->approved(0)->store;
61
}
61
}
62
62
Lines 81-116 sub send_review_alert { Link Here
81
    my ( $self, $params ) = @_;
81
    my ( $self, $params ) = @_;
82
82
83
    my $borrowernumber = $params->{borrowernumber};
83
    my $borrowernumber = $params->{borrowernumber};
84
    my $reviewid = $params->{reviewid};
84
    my $reviewid       = $params->{reviewid};
85
    my $biblionumber = $params->{biblionumber};
85
    my $biblionumber   = $params->{biblionumber};
86
86
87
    my $moderator_email = C4::Context->preference('CommentModeratorsEmail');
87
    my $moderator_email = C4::Context->preference('CommentModeratorsEmail');
88
    if (!$moderator_email) {
88
    if ( !$moderator_email ) {
89
        carp 'CommentModeratorsEmail is not set!';
89
        carp 'CommentModeratorsEmail is not set!';
90
        return;
90
        return;
91
    }
91
    }
92
92
93
    my $letter =  C4::Letters::GetPreparedLetter (
93
    my $letter = C4::Letters::GetPreparedLetter(
94
        module => 'members',
94
        module      => 'members',
95
        letter_code => 'COMMENT_CREATED',
95
        letter_code => 'COMMENT_CREATED',
96
        tables => {
96
        tables      => {
97
            'reviews'     => $reviewid,
97
            'reviews'     => $reviewid,
98
            'borrowers'   => $borrowernumber,
98
            'borrowers'   => $borrowernumber,
99
            'biblio'      => $biblionumber,
99
            'biblio'      => $biblionumber,
100
            'biblioitems' => $biblionumber,
100
            'biblioitems' => $biblionumber,
101
        }
101
        }
102
    );
102
    );
103
    if (!$letter) {
103
    if ( !$letter ) {
104
        carp 'COMMENT_CREATED member letter not found!';
104
        carp 'COMMENT_CREATED member letter not found!';
105
        return;
105
        return;
106
    }
106
    }
107
107
108
    C4::Letters::EnqueueLetter({
108
    C4::Letters::EnqueueLetter(
109
        letter                 => $letter,
109
        {
110
        borrowernumber         => $borrowernumber,
110
            letter                 => $letter,
111
        message_transport_type => 'email',
111
            borrowernumber         => $borrowernumber,
112
        to_address             => $moderator_email,
112
            message_transport_type => 'email',
113
    });
113
            to_address             => $moderator_email,
114
        }
115
    );
114
116
115
    return 1;
117
    return 1;
116
}
118
}
117
- 

Return to bug 1985