|
Lines 79-86
BEGIN {
Link Here
|
| 79 |
&GetMemberAccountRecords |
79 |
&GetMemberAccountRecords |
| 80 |
&GetBorNotifyAcctRecord |
80 |
&GetBorNotifyAcctRecord |
| 81 |
|
81 |
|
| 82 |
GetBorrowerCategorycode |
|
|
| 83 |
|
| 84 |
&GetBorrowersToExpunge |
82 |
&GetBorrowersToExpunge |
| 85 |
&GetBorrowersWhoHaveNeverBorrowed |
83 |
&GetBorrowersWhoHaveNeverBorrowed |
| 86 |
&GetBorrowersWithIssuesHistoryOlderThan |
84 |
&GetBorrowersWithIssuesHistoryOlderThan |
|
Lines 572-578
sub ModMember {
Link Here
|
| 572 |
} |
570 |
} |
| 573 |
} |
571 |
} |
| 574 |
|
572 |
|
| 575 |
my $old_categorycode = GetBorrowerCategorycode( $data{borrowernumber} ); |
573 |
my $old_categorycode = Koha::Patrons->find( $data{borrowernumber} )->categorycode; |
| 576 |
|
574 |
|
| 577 |
# get only the columns of a borrower |
575 |
# get only the columns of a borrower |
| 578 |
my $schema = Koha::Database->new()->schema; |
576 |
my $schema = Koha::Database->new()->schema; |
|
Lines 1263-1288
sub GetUpcomingMembershipExpires {
Link Here
|
| 1263 |
return $results; |
1261 |
return $results; |
| 1264 |
} |
1262 |
} |
| 1265 |
|
1263 |
|
| 1266 |
=head2 GetBorrowerCategorycode |
|
|
| 1267 |
|
| 1268 |
$categorycode = &GetBorrowerCategoryCode( $borrowernumber ); |
| 1269 |
|
| 1270 |
Given the borrowernumber, the function returns the corresponding categorycode |
| 1271 |
|
| 1272 |
=cut |
| 1273 |
|
| 1274 |
sub GetBorrowerCategorycode { |
| 1275 |
my ( $borrowernumber ) = @_; |
| 1276 |
my $dbh = C4::Context->dbh; |
| 1277 |
my $sth = $dbh->prepare( qq{ |
| 1278 |
SELECT categorycode |
| 1279 |
FROM borrowers |
| 1280 |
WHERE borrowernumber = ? |
| 1281 |
} ); |
| 1282 |
$sth->execute( $borrowernumber ); |
| 1283 |
return $sth->fetchrow; |
| 1284 |
} |
| 1285 |
|
| 1286 |
=head2 GetAge |
1264 |
=head2 GetAge |
| 1287 |
|
1265 |
|
| 1288 |
$dateofbirth,$date = &GetAge($date); |
1266 |
$dateofbirth,$date = &GetAge($date); |