-=head2 UpdateBorrowerDebarred
-
-($borrowerstatut) = &UpdateBorrowerDebarred($borrowernumber, $todate);
-
-update status of borrowers in borrowers table (field debarred)
-
-C<$borrowernumber> borrower number
-
-=cut
-
-sub UpdateBorrowerDebarred{
- my ( $borrowernumber, $todate ) = @_;
- my $dbh = C4::Context->dbh;
- my $query = qq|UPDATE borrowers
- SET debarred=?
- WHERE borrowernumber=?
- |;
- my $sth = $dbh->prepare($query);
- $sth->execute( $todate, $borrowernumber );
- $sth->finish;
- return 1;
-}