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

(-)a/opac/opac-userupdate.pl (-4 / +4 lines)
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
- 

Return to bug 8953