View | Details | Raw Unified | Return to bug 9076
Collapse All | Expand All

(-)a/C4/Members.pm (-4 / +4 lines)
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'};
(-)a/t/db_dependent/lib/KohaTest/Members.pm (-1 / +1 lines)
Lines 48-54 sub methods : Test( 1 ) { Link Here
48
                      GetPatronImage 
48
                      GetPatronImage 
49
                      PutPatronImage 
49
                      PutPatronImage 
50
                      RmPatronImage 
50
                      RmPatronImage 
51
                      GetBorrowersWhoHaveNotBorrowedSince 
51
                      GetBorrowersToExpunge 
52
                      GetBorrowersWhoHaveNeverBorrowed 
52
                      GetBorrowersWhoHaveNeverBorrowed 
53
                      GetBorrowersWithIssuesHistoryOlderThan 
53
                      GetBorrowersWithIssuesHistoryOlderThan 
54
                      GetBorrowersNamesAndLatestIssue 
54
                      GetBorrowersNamesAndLatestIssue 
(-)a/tools/cleanborrowers.pl (-3 / +2 lines)
Lines 78-84 if ( $params->{'step2'} ) { Link Here
78
    my $membersToDelete;
78
    my $membersToDelete;
79
    if ( $checkboxes{borrower} ) {
79
    if ( $checkboxes{borrower} ) {
80
        $membersToDelete =
80
        $membersToDelete =
81
          GetBorrowersWhoHaveNotBorrowedSince( { not_borrowered_since => $filterdate1, expired_before => $borrower_dateexpiry, category_code => $borrower_categorycode } );
81
          GetBorrowersToExpunge( { not_borrowered_since => $filterdate1, expired_before => $borrower_dateexpiry, category_code => $borrower_categorycode } );
82
        $totalDel = scalar @$membersToDelete;
82
        $totalDel = scalar @$membersToDelete;
83
83
84
    }
84
    }
Lines 120-126 if ( $params->{'step3'} ) { Link Here
120
    # delete members
120
    # delete members
121
    if ($do_delete) {
121
    if ($do_delete) {
122
        my $membersToDelete =
122
        my $membersToDelete =
123
          GetBorrowersWhoHaveNotBorrowedSince( { not_borrowered_since => $filterdate1, expired_before => $borrower_dateexpiry, category_code => $borrower_categorycode } );
123
          GetBorrowersToExpunge( { not_borrowered_since => $filterdate1, expired_before => $borrower_dateexpiry, category_code => $borrower_categorycode } );
124
        $totalDel = scalar(@$membersToDelete);
124
        $totalDel = scalar(@$membersToDelete);
125
        $radio    = $params->{'radio'};
125
        $radio    = $params->{'radio'};
126
        if ( $radio eq 'trash' ) {
126
        if ( $radio eq 'trash' ) {
127
- 

Return to bug 9076