[Patches] [PATCH] Bug 2346: Remove C4::Overdues::UpdateBorrowerDebarred in favour of C4::Members::DebarMember
koha-patchbot at kohaaloha.com
koha-patchbot at kohaaloha.com
Mon Dec 5 06:25:02 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
---
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
More information about the Patches
mailing list