## Deal with debarments
$template->param(
debarments => GetDebarments( { borrowernumber => $borrowernumber } ) );
debarments => scalar GetDebarments( { borrowernumber => $borrowernumber } ) );
my @debarments_to_remove = $input->multi_param('remove_debarment');
foreach my $d ( @debarments_to_remove ) {
DelDebarment( $d );
userdebarred => 1,
flagged => 1,
debarments => GetDebarments({ borrowernumber => $borrowernumber }),
debarments => scalar GetDebarments({ borrowernumber => $borrowernumber }),
);
my $debar = $data->{'debarred'};
if ( $debar ne "9999-12-31" ) {
-