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 |
|