View | Details | Raw Unified | Return to bug 2346
Collapse All | Expand All

(-)a/C4/Overdues.pm (-23 lines)
Lines 79-85 BEGIN { Link Here
79
	# subs to move to Members.pm
79
	# subs to move to Members.pm
80
	push @EXPORT, qw(
80
	push @EXPORT, qw(
81
        &CheckBorrowerDebarred
81
        &CheckBorrowerDebarred
82
        &UpdateBorrowerDebarred
83
	);
82
	);
84
	# subs to move to Biblio.pm
83
	# subs to move to Biblio.pm
85
	push @EXPORT, qw(
84
	push @EXPORT, qw(
Lines 1085-1112 sub CheckBorrowerDebarred { Link Here
1085
    return $debarredstatus;
1084
    return $debarredstatus;
1086
}
1085
}
1087
1086
1088
=head2 UpdateBorrowerDebarred
1089
1090
($borrowerstatut) = &UpdateBorrowerDebarred($borrowernumber, $todate);
1091
1092
update status of borrowers in borrowers table (field debarred)
1093
1094
C<$borrowernumber> borrower number
1095
1096
=cut
1097
1098
sub UpdateBorrowerDebarred{
1099
    my ( $borrowernumber, $todate ) = @_;
1100
    my $dbh   = C4::Context->dbh;
1101
    my $query = qq|UPDATE borrowers
1102
             SET debarred=?
1103
                     WHERE borrowernumber=?
1104
            |;
1105
    my $sth = $dbh->prepare($query);
1106
    $sth->execute( $todate, $borrowernumber );
1107
    $sth->finish;
1108
    return 1;
1109
}
1110
1087
1111
=head2 CheckExistantNotifyid
1088
=head2 CheckExistantNotifyid
1112
1089
(-)a/t/db_dependent/lib/KohaTest/Overdues.pm (-2 lines)
Lines 34-40 sub methods : Test( 1 ) { Link Here
34
                       CheckAccountLineLevelInfo 
34
                       CheckAccountLineLevelInfo 
35
                       GetOverduerules
35
                       GetOverduerules
36
                       CheckBorrowerDebarred
36
                       CheckBorrowerDebarred
37
                       UpdateBorrowerDebarred
38
                       CheckExistantNotifyid 
37
                       CheckExistantNotifyid 
39
                       CheckAccountLineItemInfo 
38
                       CheckAccountLineItemInfo 
40
                       CheckItemNotify 
39
                       CheckItemNotify 
41
- 

Return to bug 2346