use List::MoreUtils qw/any uniq/;
use Koha::DateUtils;
use C4::Members::Attributes qw(GetBorrowerAttributes);
-use Koha::Patron::Images;
+use Koha::Patrons;
use Koha::Patron::Categories;
my $input = CGI->new;
});
my $op = $input->param('op') || '';
+my $patron;
if ($input->param('cardnumber')) {
$cardnumber = $input->param('cardnumber');
- $data = GetMember(cardnumber => $cardnumber);
+ $patron = Koha::Patrons->find( { cardnumber => $cardnumber } );
+ $data = $patron->unblessed;
$borrowernumber = $data->{'borrowernumber'}; # we must define this as it is used to retrieve other data about the patron
}
if ($input->param('borrowernumber')) {
$borrowernumber = $input->param('borrowernumber');
- $data = GetMember(borrowernumber => $borrowernumber);
+ $patron = Koha::Patrons->find( $borrowernumber );
+ $data = $patron->unblessed;
}
my $order = 'date_due desc';
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
my @barcodes =
map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues};
- my $borrowercardnumber =
- GetMember( borrowernumber => $borrowernumber )->{'cardnumber'};
+ my $borrowercardnumber = $data->{cardnumber};
my $delimiter = "\n";
binmode( STDOUT, ":encoding(UTF-8)" );
print $input->header(
$limit = 'full';
}
-my $patron_image = Koha::Patron::Images->find($data->{borrowernumber});
-$template->param( picture => 1 ) if $patron_image;
+$template->param( picture => 1 ) if $patron->image;
if (C4::Context->preference('ExtendedPatronAttributes')) {
my $attributes = GetBorrowerAttributes($borrowernumber);