|
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 |
- |
|
|