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

(-)a/C4/Members.pm (-29 lines)
Lines 99-105 BEGIN { Link Here
99
        &GetExpiryDate
99
        &GetExpiryDate
100
        &GetUpcomingMembershipExpires
100
        &GetUpcomingMembershipExpires
101
101
102
        &AddMessage
103
        &DeleteMessage
102
        &DeleteMessage
104
        &GetMessages
103
        &GetMessages
105
        &GetMessagesCount
104
        &GetMessagesCount
Lines 2191-2224 sub ModPrivacy { Link Here
2191
                      privacy        => $privacy );
2190
                      privacy        => $privacy );
2192
}
2191
}
2193
2192
2194
=head2 AddMessage
2195
2196
  AddMessage( $borrowernumber, $message_type, $message, $branchcode );
2197
2198
Adds a message to the messages table for the given borrower.
2199
2200
Returns:
2201
  True on success
2202
  False on failure
2203
2204
=cut
2205
2206
sub AddMessage {
2207
    my ( $borrowernumber, $message_type, $message, $branchcode ) = @_;
2208
2209
    my $dbh  = C4::Context->dbh;
2210
2211
    if ( ! ( $borrowernumber && $message_type && $message && $branchcode ) ) {
2212
      return;
2213
    }
2214
2215
    my $query = "INSERT INTO messages ( borrowernumber, branchcode, message_type, message ) VALUES ( ?, ?, ?, ? )";
2216
    my $sth = $dbh->prepare($query);
2217
    $sth->execute( $borrowernumber, $branchcode, $message_type, $message );
2218
    logaction("MEMBERS", "ADDCIRCMESSAGE", $borrowernumber, $message) if C4::Context->preference("BorrowersLog");
2219
    return 1;
2220
}
2221
2222
=head2 GetMessages
2193
=head2 GetMessages
2223
2194
2224
  GetMessages( $borrowernumber, $type );
2195
  GetMessages( $borrowernumber, $type );
(-)a/circ/add_message.pl (-11 / +10 lines)
Lines 17-36 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
23
25
use C4::Context;
26
use C4::Auth;
24
use C4::Auth;
27
use C4::Output;
25
use C4::Output;
28
use C4::Members;
26
use Koha::Patron::Message;
29
use C4::Accounts;
30
use C4::Stats;
31
use C4::Koha;
32
use C4::Overdues;
33
use C4::Branch;    # GetBranches
34
27
35
my $input = new CGI;
28
my $input = new CGI;
36
29
Lines 49-55 my $branchcode = $input->param('branchcode'); Link Here
49
my $message_type     = $input->param('message_type');
42
my $message_type     = $input->param('message_type');
50
my $borrower_message = $input->param('borrower_message');
43
my $borrower_message = $input->param('borrower_message');
51
44
52
AddMessage( $borrowernumber, $message_type, $borrower_message, $branchcode );
45
Koha::Patron::Message->new(
46
    {
47
        borrowernumber => $borrowernumber,
48
        branchcode     => $branchcode,
49
        message_type   => $message_type,
50
        message        => $borrower_message,
51
    }
52
);
53
53
54
print $input->redirect(
54
print $input->redirect(
55
    "/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber");
55
    "/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber");
56
- 

Return to bug 15632