Lines 22-27
use warnings;
Link Here
|
22 |
|
22 |
|
23 |
use CGI; |
23 |
use CGI; |
24 |
use Mail::Sendmail; |
24 |
use Mail::Sendmail; |
|
|
25 |
use Encode; |
25 |
|
26 |
|
26 |
use C4::Auth; # checkauth, getborrowernumber. |
27 |
use C4::Auth; # checkauth, getborrowernumber. |
27 |
use C4::Context; |
28 |
use C4::Context; |
Lines 102-108
EOF
Link Here
|
102 |
my $B_address2 = $borr->{'B_address2'} || ''; |
103 |
my $B_address2 = $borr->{'B_address2'} || ''; |
103 |
|
104 |
|
104 |
foreach my $field (@fields) { |
105 |
foreach my $field (@fields) { |
105 |
my $newfield = $query->param($field) || ''; |
106 |
my $newfield = decode('utf-8',$query->param($field)) || ''; |
106 |
my $borrowerfield = ''; |
107 |
my $borrowerfield = ''; |
107 |
if($borr->{$field}) { |
108 |
if($borr->{$field}) { |
108 |
$borrowerfield = $borr->{$field}; |
109 |
$borrowerfield = $borr->{$field}; |
Lines 124-131
EOF
Link Here
|
124 |
To => $updateemailaddress, |
125 |
To => $updateemailaddress, |
125 |
From => $patronemail, |
126 |
From => $patronemail, |
126 |
Subject => "User Request for update of Record.", |
127 |
Subject => "User Request for update of Record.", |
127 |
Message => $message, |
128 |
Message => encode('utf-8', $message), # Mail::Sendmail doesn't like wide characters |
128 |
'Content-Type' => 'text/plain; charset="utf8"', |
129 |
'Content-Type' => 'text/plain; charset="utf-8"', |
129 |
); |
130 |
); |
130 |
|
131 |
|
131 |
if ( sendmail %mail ) { |
132 |
if ( sendmail %mail ) { |
132 |
- |
|
|