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

(-)a/C4/Members.pm (-4 / +7 lines)
Lines 2126-2132 sub AddMessage { Link Here
2126
    my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )";
2126
    my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )";
2127
    my $sth = $dbh->prepare($query);
2127
    my $sth = $dbh->prepare($query);
2128
    $sth->execute( $borrowernumber, $branchcode, $message_type, $message );
2128
    $sth->execute( $borrowernumber, $branchcode, $message_type, $message );
2129
2129
    logaction("MEMBERS", "ADDCIRCMESSAGE", $borrowernumber, $message) if C4::Context->preference("BorrowersLog");
2130
    return 1;
2130
    return 1;
2131
}
2131
}
2132
2132
Lines 2216-2226 sub DeleteMessage { Link Here
2216
    my ( $message_id ) = @_;
2216
    my ( $message_id ) = @_;
2217
2217
2218
    my $dbh = C4::Context->dbh;
2218
    my $dbh = C4::Context->dbh;
2219
2219
    my $query = "SELECT * FROM messages WHERE message_id = ?";
2220
    my $query = "DELETE FROM messages WHERE message_id = ?";
2221
    my $sth = $dbh->prepare($query);
2220
    my $sth = $dbh->prepare($query);
2222
    $sth->execute( $message_id );
2221
    $sth->execute( $message_id );
2222
    my $message = $sth->fetchrow_hashref();
2223
2223
2224
    $query = "DELETE FROM messages WHERE message_id = ?";
2225
    $sth = $dbh->prepare($query);
2226
    $sth->execute( $message_id );
2227
    logaction("MEMBERS", "DELCIRCMESSAGE", $message->{'borrowernumber'}, $message->{'message'}) if C4::Context->preference("BorrowersLog");
2224
}
2228
}
2225
2229
2226
END { }    # module clean-up code here (global destructor)
2230
END { }    # module clean-up code here (global destructor)
2227
- 

Return to bug 7139