use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
-use C4::Branch;
use C4::Output;
use C4::Form::MessagingPreferences;
-use Koha::Borrowers;
+use Koha::Patrons;
use Koha::Database;
use Koha::DateUtils;
use Koha::Patron::Categories;
+use Koha::Libraries;
my $input = new CGI;
my $searchfield = $input->param('description') // q||;
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { parameters => 'parameters_remaining_permissions' },
+ flagsrequired => { parameters => 'manage_patron_categories' },
debug => 1,
}
);
$selected_branches = $category->branch_limitations;
}
- my $branches = GetBranches;
+ my $branches = Koha::Libraries->search( {}, { order_by => ['branchname'] } )->unblessed;
my @branches_loop;
- foreach my $branchcode ( sort { uc( $branches->{$a}->{branchname} ) cmp uc( $branches->{$b}->{branchname} ) } keys %$branches ) {
- my $selected = ( grep { $_ eq $branchcode } @$selected_branches ) ? 1 : 0;
+ foreach my $branch ( @$branches ) {
+ my $selected = ( grep { $_ eq $branch->{branchcode} } @$selected_branches ) ? 1 : 0;
push @branches_loop,
- { branchcode => $branchcode,
- branchname => $branches->{$branchcode}->{branchname},
+ { branchcode => $branch->{branchcode},
+ branchname => $branch->{branchname},
selected => $selected,
};
}
my $overduenoticerequired = $input->param('overduenoticerequired');
my $category_type = $input->param('category_type');
my $BlockExpiredPatronOpacActions = $input->param('BlockExpiredPatronOpacActions');
+ my $checkPrevCheckout = $input->param('checkprevcheckout');
my $default_privacy = $input->param('default_privacy');
- my @branches = grep { $_ ne q{} } $input->param('branches');
+ my @branches = grep { $_ ne q{} } $input->multi_param('branches');
my $is_a_modif = $input->param("is_a_modif");
- if ( $enrolmentperioddate ) {
- $enrolmentperioddate = output_pref({ dt => dt_from_string($enrolmentperioddate), dateformat => 'iso' });
+ if ($enrolmentperioddate) {
+ $enrolmentperioddate = output_pref(
+ {
+ dt => dt_from_string($enrolmentperioddate),
+ dateformat => 'iso',
+ dateonly => 1,
+ }
+ );
}
if ($is_a_modif) {
$category->overduenoticerequired($overduenoticerequired);
$category->category_type($category_type);
$category->BlockExpiredPatronOpacActions($BlockExpiredPatronOpacActions);
+ $category->checkprevcheckout($checkPrevCheckout);
$category->default_privacy($default_privacy);
eval {
$category->store;
overduenoticerequired => $overduenoticerequired,
category_type => $category_type,
BlockExpiredPatronOpacActions => $BlockExpiredPatronOpacActions,
+ checkprevcheckout => $checkPrevCheckout,
default_privacy => $default_privacy,
});
eval {
if ( C4::Context->preference('EnhancedMessagingPreferences') ) {
C4::Form::MessagingPreferences::handle_form_action( $input,
- { categorycode => $input->param('categorycode') }, $template );
+ { categorycode => scalar $input->param('categorycode') }, $template );
}
$searchfield = q||;
}
elsif ( $op eq 'delete_confirm' ) {
- my $count = Koha::Borrowers->search({
+ my $count = Koha::Patrons->search({
categorycode => $categorycode
})->count;