use C4::Output;
use C4::Log;
use C4::Debug;
-use C4::Branch;
use C4::Members;
-use Koha::Borrower::Discharge;
+use Koha::Patron::Discharge;
use Koha::DateUtils;
my $input = new CGI;
+unless ( C4::Context->preference('useDischarge') ) {
+ print $input->redirect("/cgi-bin/koha/errors/404.pl");
+ exit;
+}
+
my $op = $input->param("op");
# Getting the template and auth
});
if ( $op eq 'request' ) {
- my $success = Koha::Borrower::Discharge::request({
+ my $success = Koha::Patron::Discharge::request({
borrowernumber => $loggedinuser,
});
# Getting member data
my $data = GetMember( borrowernumber => $loggedinuser );
- my $pdf_path = Koha::Borrower::Discharge::generate_as_pdf({
+ my $pdf_path = Koha::Patron::Discharge::generate_as_pdf({
borrowernumber => $loggedinuser,
branchcode => $data->{'branchcode'},
});
}
}
else {
- my $pending = Koha::Borrower::Discharge::count({
+ my $pending = Koha::Patron::Discharge::count({
borrowernumber => $loggedinuser,
pending => 1,
});
- my $available = Koha::Borrower::Discharge::count({
+ # FIXME looks like $available is not needed
+ # If a user is discharged they have a validated discharge available
+ my $available = Koha::Patron::Discharge::count({
borrowernumber => $loggedinuser,
validated => 1,
});
$template->param(
- available => $available && Koha::Borrower::Discharge::is_discharged({borrowernumber => $loggedinuser}),
+ available => $available && Koha::Patron::Discharge::is_discharged({borrowernumber => $loggedinuser}),
pending => $pending,
);
}