Lines 88-94
BEGIN {
Link Here
|
88 |
GetBorrowerCategorycode |
88 |
GetBorrowerCategorycode |
89 |
&GetBorrowercategoryList |
89 |
&GetBorrowercategoryList |
90 |
|
90 |
|
91 |
&GetBorrowersWhoHaveNotBorrowedSince |
91 |
&GetBorrowersToExpunge |
92 |
&GetBorrowersWhoHaveNeverBorrowed |
92 |
&GetBorrowersWhoHaveNeverBorrowed |
93 |
&GetBorrowersWithIssuesHistoryOlderThan |
93 |
&GetBorrowersWithIssuesHistoryOlderThan |
94 |
|
94 |
|
Lines 1922-1930
WHERE roadtypeid=?|;
Link Here
|
1922 |
return ($roadtype); |
1922 |
return ($roadtype); |
1923 |
} |
1923 |
} |
1924 |
|
1924 |
|
1925 |
=head2 GetBorrowersWhoHaveNotBorrowedSince |
1925 |
=head2 GetBorrowersToExpunge |
1926 |
|
1926 |
|
1927 |
$borrowers = &GetBorrowersWhoHaveNotBorrowedSince( |
1927 |
$borrowers = &GetBorrowersToExpunge( |
1928 |
not_borrowered_since => $not_borrowered_since, |
1928 |
not_borrowered_since => $not_borrowered_since, |
1929 |
expired_before => $expired_before, |
1929 |
expired_before => $expired_before, |
1930 |
category_code => $category_code, |
1930 |
category_code => $category_code, |
Lines 1935-1941
WHERE roadtypeid=?|;
Link Here
|
1935 |
|
1935 |
|
1936 |
=cut |
1936 |
=cut |
1937 |
|
1937 |
|
1938 |
sub GetBorrowersWhoHaveNotBorrowedSince { |
1938 |
sub GetBorrowersToExpunge { |
1939 |
my $params = shift; |
1939 |
my $params = shift; |
1940 |
|
1940 |
|
1941 |
my $filterdate = $params->{'not_borrowered_since'}; |
1941 |
my $filterdate = $params->{'not_borrowered_since'}; |