|
Lines 25-31
use warnings;
Link Here
|
| 25 |
# external modules |
25 |
# external modules |
| 26 |
use CGI qw ( -utf8 ); |
26 |
use CGI qw ( -utf8 ); |
| 27 |
use List::MoreUtils qw/uniq/; |
27 |
use List::MoreUtils qw/uniq/; |
| 28 |
|
28 |
use HTML::Entities; |
| 29 |
# internal modules |
29 |
# internal modules |
| 30 |
use C4::Auth; |
30 |
use C4::Auth; |
| 31 |
use C4::Context; |
31 |
use C4::Context; |
|
Lines 81-86
if ( C4::Context->preference('SMSSendDriver') eq 'Email' ) {
Link Here
|
| 81 |
} |
81 |
} |
| 82 |
|
82 |
|
| 83 |
my $guarantorid = $input->param('guarantorid'); |
83 |
my $guarantorid = $input->param('guarantorid'); |
|
|
84 |
$guarantorid = HTML::Entities::encode($guarantorid); |
| 84 |
my $borrowernumber = $input->param('borrowernumber'); |
85 |
my $borrowernumber = $input->param('borrowernumber'); |
| 85 |
my $actionType = $input->param('actionType') || ''; |
86 |
my $actionType = $input->param('actionType') || ''; |
| 86 |
my $modify = $input->param('modify'); |
87 |
my $modify = $input->param('modify'); |
| 87 |
- |
|
|