|
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 610-616
sub ModMember {
Link Here
|
| 610 |
} |
608 |
} |
| 611 |
} |
609 |
} |
| 612 |
|
610 |
|
| 613 |
my $old_categorycode = GetBorrowerCategorycode( $data{borrowernumber} ); |
611 |
my $old_categorycode = Koha::Patrons->find( $data{borrowernumber} )->categorycode; |
| 614 |
|
612 |
|
| 615 |
# get only the columns of a borrower |
613 |
# get only the columns of a borrower |
| 616 |
my $schema = Koha::Database->new()->schema; |
614 |
my $schema = Koha::Database->new()->schema; |
|
Lines 1397-1422
sub GetUpcomingMembershipExpires {
Link Here
|
| 1397 |
return $results; |
1395 |
return $results; |
| 1398 |
} |
1396 |
} |
| 1399 |
|
1397 |
|
| 1400 |
=head2 GetBorrowerCategorycode |
|
|
| 1401 |
|
| 1402 |
$categorycode = &GetBorrowerCategoryCode( $borrowernumber ); |
| 1403 |
|
| 1404 |
Given the borrowernumber, the function returns the corresponding categorycode |
| 1405 |
|
| 1406 |
=cut |
| 1407 |
|
| 1408 |
sub GetBorrowerCategorycode { |
| 1409 |
my ( $borrowernumber ) = @_; |
| 1410 |
my $dbh = C4::Context->dbh; |
| 1411 |
my $sth = $dbh->prepare( qq{ |
| 1412 |
SELECT categorycode |
| 1413 |
FROM borrowers |
| 1414 |
WHERE borrowernumber = ? |
| 1415 |
} ); |
| 1416 |
$sth->execute( $borrowernumber ); |
| 1417 |
return $sth->fetchrow; |
| 1418 |
} |
| 1419 |
|
| 1420 |
=head2 GetAge |
1398 |
=head2 GetAge |
| 1421 |
|
1399 |
|
| 1422 |
$dateofbirth,$date = &GetAge($date); |
1400 |
$dateofbirth,$date = &GetAge($date); |