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

(-)a/C4/Members.pm (-4 / +7 lines)
Lines 2146-2152 sub AddMessage { Link Here
2146
    my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )";
2146
    my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )";
2147
    my $sth = $dbh->prepare($query);
2147
    my $sth = $dbh->prepare($query);
2148
    $sth->execute( $borrowernumber, $branchcode, $message_type, $message );
2148
    $sth->execute( $borrowernumber, $branchcode, $message_type, $message );
2149
2149
    logaction("MEMBERS", "Add Circulation Message", $borrowernumber, $message) if C4::Context->preference("BorrowersLog");
2150
    return 1;
2150
    return 1;
2151
}
2151
}
2152
2152
Lines 2236-2246 sub DeleteMessage { Link Here
2236
    my ( $message_id ) = @_;
2236
    my ( $message_id ) = @_;
2237
2237
2238
    my $dbh = C4::Context->dbh;
2238
    my $dbh = C4::Context->dbh;
2239
2239
    my $query = "SELECT * FROM messages WHERE message_id = ?";
2240
    my $query = "DELETE FROM messages WHERE message_id = ?";
2241
    my $sth = $dbh->prepare($query);
2240
    my $sth = $dbh->prepare($query);
2242
    $sth->execute( $message_id );
2241
    $sth->execute( $message_id );
2242
    my $message = $sth->fetchrow_hashref();
2243
2243
2244
    $query = "DELETE FROM messages WHERE message_id = ?";
2245
    $sth = $dbh->prepare($query);
2246
    $sth->execute( $message_id );
2247
    logaction("MEMBERS", "Remove Circulation Message", $message->{'borrowernumber'}, $message->{'message'}) if C4::Context->preference("BorrowersLog");
2244
}
2248
}
2245
2249
2246
END { }    # module clean-up code here (global destructor)
2250
END { }    # module clean-up code here (global destructor)
2247
- 

Return to bug 7139