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