use CGI;
use Mail::Sendmail;
+use Encode;
use C4::Auth; # checkauth, getborrowernumber.
use C4::Context;
my $B_address2 = $borr->{'B_address2'} || '';
foreach my $field (@fields) {
- my $newfield = $query->param($field) || '';
+ my $newfield = decode('utf-8',$query->param($field)) || '';
my $borrowerfield = '';
if($borr->{$field}) {
$borrowerfield = $borr->{$field};
To => $updateemailaddress,
From => $patronemail,
Subject => "User Request for update of Record.",
- Message => $message,
- 'Content-Type' => 'text/plain; charset="utf8"',
+ Message => encode('utf-8', $message), # Mail::Sendmail doesn't like wide characters
+ 'Content-Type' => 'text/plain; charset="utf-8"',
);
if ( sendmail %mail ) {
}
}
-$borr->{'dateenrolled'} = format_date( $borr->{'dateenrolled'} );
-$borr->{'dateexpiry'} = format_date( $borr->{'dateexpiry'} );
-$borr->{'dateofbirth'} = format_date( $borr->{'dateofbirth'} );
$borr->{'ethnicity'} = fixEthnicity( $borr->{'ethnicity'} );
$borr->{'branchname'} = GetBranchName($borr->{'branchcode'});
borrowernumber => $borrowernumber,
message_name => 'Item Checkout'
});
-for (@{ $checkin_prefs->{transports} }) {
+for ( keys %{ $checkin_prefs->{transports} }) {
$borr->{"items_returned_$_"} = 1;
}
my $checkout_prefs = C4::Members::Messaging::GetMessagingPreferences({
borrowernumber => $borrowernumber,
message_name => 'Item Check-in'
});
-for (@{ $checkout_prefs->{transports} }) {
+for ( keys %{ $checkout_prefs->{transports} }) {
$borr->{"items_borrowed_$_"} = 1;
}
+if (C4::Context->preference('OPACpatronimages')) {
+ my ($image, $dberror) = GetPatronImage($borr->{'cardnumber'});
+ if ($image) {
+ $template->param(
+ display_patron_image => 1
+ );
+ }
+}
+
my @bordat;
$bordat[0] = $borr;