View | Details | Raw Unified | Return to bug 19493
Collapse All | Expand All

(-)a/members/memberentry.pl (-1 / +1 lines)
Lines 108-114 my $userenv = C4::Context->userenv; Link Here
108
108
109
## Deal with debarments
109
## Deal with debarments
110
$template->param(
110
$template->param(
111
    debarments => GetDebarments( { borrowernumber => $borrowernumber } ) );
111
    debarments => scalar GetDebarments( { borrowernumber => $borrowernumber } ) );
112
my @debarments_to_remove = $input->multi_param('remove_debarment');
112
my @debarments_to_remove = $input->multi_param('remove_debarment');
113
foreach my $d ( @debarments_to_remove ) {
113
foreach my $d ( @debarments_to_remove ) {
114
    DelDebarment( $d );
114
    DelDebarment( $d );
(-)a/members/moremember.pl (-2 / +1 lines)
Lines 158-164 if ( $patron->is_debarred ) { Link Here
158
    $template->param(
158
    $template->param(
159
        userdebarred => 1,
159
        userdebarred => 1,
160
        flagged => 1,
160
        flagged => 1,
161
        debarments => GetDebarments({ borrowernumber => $borrowernumber }),
161
        debarments => scalar GetDebarments({ borrowernumber => $borrowernumber }),
162
    );
162
    );
163
    my $debar = $data->{'debarred'};
163
    my $debar = $data->{'debarred'};
164
    if ( $debar ne "9999-12-31" ) {
164
    if ( $debar ne "9999-12-31" ) {
165
- 

Return to bug 19493