[Patches] [PATCH] Bug 2346: Remove C4::Overdues::UpdateBorrowerDebarred in

koha-patchbot at kohaaloha.com koha-patchbot at kohaaloha.com
Tue Dec 6 09:00:03 NZDT 2011


From: Ian Walls <ian.walls at bywatersolutions.com>
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

Signed-off-by: Chris Cormack <chrisc at catalyst.net.nz>
---
 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.5.4


More information about the Patches mailing list