From fae76a8ecb22c1559bd30f4577a2277b7d49cef8 Mon Sep 17 00:00:00 2001 From: Ian Walls Date: Sun, 4 Dec 2011 12:19:29 -0500 Subject: [PATCH] Bug 2346: Remove C4::Overdues::UpdateBorrowerDebarred in favour of C4::Members::DebarMember Removes now-unused subroutine from C4::Overdues, as well as the db_dependent unit test --- C4/Overdues.pm | 23 ----------------------- t/db_dependent/lib/KohaTest/Overdues.pm | 1 - 2 files changed, 0 insertions(+), 24 deletions(-) diff --git a/C4/Overdues.pm b/C4/Overdues.pm index 7e9b9c9..4897b41 100644 --- a/C4/Overdues.pm +++ b/C4/Overdues.pm @@ -79,7 +79,6 @@ BEGIN { # subs to move to Members.pm push @EXPORT, qw( &CheckBorrowerDebarred - &UpdateBorrowerDebarred ); # subs to move to Biblio.pm push @EXPORT, qw( @@ -1085,28 +1084,6 @@ sub CheckBorrowerDebarred { return $debarredstatus; } -=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; -} =head2 CheckExistantNotifyid diff --git a/t/db_dependent/lib/KohaTest/Overdues.pm b/t/db_dependent/lib/KohaTest/Overdues.pm index 949c670..13eb1f2 100644 --- a/t/db_dependent/lib/KohaTest/Overdues.pm +++ b/t/db_dependent/lib/KohaTest/Overdues.pm @@ -34,7 +34,6 @@ sub methods : Test( 1 ) { CheckAccountLineLevelInfo GetOverduerules CheckBorrowerDebarred - UpdateBorrowerDebarred CheckExistantNotifyid CheckAccountLineItemInfo CheckItemNotify -- 1.7.4