|
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'}; |