Lines 89-95
BEGIN {
Link Here
|
89 |
GetBorrowerCategorycode |
89 |
GetBorrowerCategorycode |
90 |
&GetBorrowercategoryList |
90 |
&GetBorrowercategoryList |
91 |
|
91 |
|
92 |
&GetBorrowersWhoHaveNotBorrowedSince |
92 |
&GetBorrowersToExpunge |
93 |
&GetBorrowersWhoHaveNeverBorrowed |
93 |
&GetBorrowersWhoHaveNeverBorrowed |
94 |
&GetBorrowersWithIssuesHistoryOlderThan |
94 |
&GetBorrowersWithIssuesHistoryOlderThan |
95 |
|
95 |
|
Lines 1938-1946
WHERE roadtypeid=?|;
Link Here
|
1938 |
return ($roadtype); |
1938 |
return ($roadtype); |
1939 |
} |
1939 |
} |
1940 |
|
1940 |
|
1941 |
=head2 GetBorrowersWhoHaveNotBorrowedSince |
1941 |
=head2 GetBorrowersToExpunge |
1942 |
|
1942 |
|
1943 |
$borrowers = &GetBorrowersWhoHaveNotBorrowedSince( |
1943 |
$borrowers = &GetBorrowersToExpunge( |
1944 |
not_borrowered_since => $not_borrowered_since, |
1944 |
not_borrowered_since => $not_borrowered_since, |
1945 |
expired_before => $expired_before, |
1945 |
expired_before => $expired_before, |
1946 |
category_code => $category_code, |
1946 |
category_code => $category_code, |
Lines 1951-1957
WHERE roadtypeid=?|;
Link Here
|
1951 |
|
1951 |
|
1952 |
=cut |
1952 |
=cut |
1953 |
|
1953 |
|
1954 |
sub GetBorrowersWhoHaveNotBorrowedSince { |
1954 |
sub GetBorrowersToExpunge { |
1955 |
my $params = shift; |
1955 |
my $params = shift; |
1956 |
|
1956 |
|
1957 |
my $filterdate = $params->{'not_borrowered_since'}; |
1957 |
my $filterdate = $params->{'not_borrowered_since'}; |