use C4::Koha;
use C4::Context;
use C4::Scrubber;
-use C4::Members;
use C4::Output;
use C4::Auth;
use C4::Biblio;
use C4::Letters;
use Koha::Checkouts;
use Koha::DateUtils;
+use Koha::Patrons;
my $query = new CGI;
}
);
-my $member = C4::Members::GetMember( borrowernumber => $borrowernumber );
+my $patron = Koha::Patrons->find( $borrowernumber );
$template->param(
- firstname => $member->{'firstname'},
- surname => $member->{'surname'},
+ firstname => $patron->firstname,
+ surname => $patron->surname,
borrowernumber => $borrowernumber,
);
branchcode => $branch,
tables => {
'biblio' => $biblio->biblionumber,
- 'borrowers' => $member->{borrowernumber},
+ 'borrowers' => $borrowernumber,
},
);
- C4::Message->enqueue($letter, $member, 'email');
+ C4::Message->enqueue($letter, $patron->unblessed, 'email');
}
}
print $query->redirect("/cgi-bin/koha/opac-user.pl");
use C4::Output qw(:DEFAULT :ajax);
use C4::Scrubber;
use C4::Circulation;
-use C4::Members;
use C4::Biblio;
use Koha::Checkouts;
use Koha::DateUtils;
+use Koha::Patrons;
=head1 NAME
my $issue_id = $query->param('issue_id');
my $clean_note = $scrubber->scrub($note);
my $status = "saved";
- my ($member, $issue);
+ my ($patron, $issue);
my ( $template, $borrowernumber, $cookie ) = C4::Auth::get_template_and_user({
template_name => "opac-user.tt",
# verify issue_id
if ( $issue_id =~ /\d+/ ) {
- $member = GetMember(borrowernumber => $borrowernumber);
+ $patron = Koha::Patrons->find( $borrowernumber );
$issue = Koha::Checkouts->find($issue_id);
if ( $issue->borrowernumber != $borrowernumber ) {
$status = "fail";
branchcode => $branch,
tables => {
'biblio' => $biblionumber,
- 'borrowers' => $member->{borrowernumber},
+ 'borrowers' => $borrowernumber,
},
);
- C4::Message->enqueue($letter, $member, 'email');
+ C4::Message->enqueue($letter, $patron->unblessed, 'email');
} else { # note empty, i.e removed
$status = "removed";
}