@@ -, +, @@ --- C4/Members.pm | 29 ----------------------------- circ/add_message.pl | 20 ++++++++++---------- 2 files changed, 10 insertions(+), 39 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -99,7 +99,6 @@ BEGIN { &GetExpiryDate &GetUpcomingMembershipExpires - &AddMessage &DeleteMessage &GetMessages &GetMessagesCount @@ -2191,34 +2190,6 @@ sub ModPrivacy { privacy => $privacy ); } -=head2 AddMessage - - AddMessage( $borrowernumber, $message_type, $message, $branchcode ); - -Adds a message to the messages table for the given borrower. - -Returns: - True on success - False on failure - -=cut - -sub AddMessage { - my ( $borrowernumber, $message_type, $message, $branchcode ) = @_; - - my $dbh = C4::Context->dbh; - - if ( ! ( $borrowernumber && $message_type && $message && $branchcode ) ) { - return; - } - - my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )"; - my $sth = $dbh->prepare($query); - $sth->execute( $borrowernumber, $branchcode, $message_type, $message ); - logaction("MEMBERS", "ADDCIRCMESSAGE", $borrowernumber, $message) if C4::Context->preference("BorrowersLog"); - return 1; -} - =head2 GetMessages GetMessages( $borrowernumber, $type ); --- a/circ/add_message.pl +++ a/circ/add_message.pl @@ -17,20 +17,13 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Auth; use C4::Output; -use C4::Members; -use C4::Accounts; -use C4::Stats; -use C4::Koha; -use C4::Overdues; -use C4::Branch; # GetBranches +use Koha::Patron::Message; my $input = new CGI; @@ -49,7 +42,14 @@ my $branchcode = $input->param('branchcode'); my $message_type = $input->param('message_type'); my $borrower_message = $input->param('borrower_message'); -AddMessage( $borrowernumber, $message_type, $borrower_message, $branchcode ); +Koha::Patron::Message->new( + { + borrowernumber => $borrowernumber, + branchcode => $branchcode, + message_type => $message_type, + message => $borrower_message, + } +); print $input->redirect( "/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber"); --