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

(-)a/C4/Members.pm (-48 lines)
Lines 73-79 BEGIN { Link Here
73
        &GetBorNotifyAcctRecord
73
        &GetBorNotifyAcctRecord
74
74
75
        &GetBorrowersToExpunge
75
        &GetBorrowersToExpunge
76
        &GetBorrowersWhoHaveNeverBorrowed
77
        &GetBorrowersWithIssuesHistoryOlderThan
76
        &GetBorrowersWithIssuesHistoryOlderThan
78
77
79
        &IssueSlip
78
        &IssueSlip
Lines 1156-1208 sub GetBorrowersToExpunge { Link Here
1156
    return \@results;
1155
    return \@results;
1157
}
1156
}
1158
1157
1159
=head2 GetBorrowersWhoHaveNeverBorrowed
1160
1161
  $results = &GetBorrowersWhoHaveNeverBorrowed
1162
1163
This function get all borrowers who have never borrowed.
1164
1165
I<$result> is a ref to an array which all elements are a hasref.
1166
1167
=cut
1168
1169
sub GetBorrowersWhoHaveNeverBorrowed {
1170
    my $filterbranch = shift || 
1171
                        ((C4::Context->preference('IndependentBranches')
1172
                             && C4::Context->userenv 
1173
                             && !C4::Context->IsSuperLibrarian()
1174
                             && C4::Context->userenv->{branch})
1175
                         ? C4::Context->userenv->{branch}
1176
                         : "");  
1177
    my $dbh   = C4::Context->dbh;
1178
    my $query = "
1179
        SELECT borrowers.borrowernumber,max(timestamp) as latestissue
1180
        FROM   borrowers
1181
          LEFT JOIN issues ON borrowers.borrowernumber = issues.borrowernumber
1182
        WHERE issues.borrowernumber IS NULL
1183
   ";
1184
    my @query_params;
1185
    if ($filterbranch && $filterbranch ne ""){ 
1186
        $query.=" AND borrowers.branchcode= ?";
1187
        push @query_params,$filterbranch;
1188
    }
1189
    warn $query if $debug;
1190
  
1191
    my $sth = $dbh->prepare($query);
1192
    if (scalar(@query_params)>0){  
1193
        $sth->execute(@query_params);
1194
    } 
1195
    else {
1196
        $sth->execute;
1197
    }      
1198
    
1199
    my @results;
1200
    while ( my $data = $sth->fetchrow_hashref ) {
1201
        push @results, $data;
1202
    }
1203
    return \@results;
1204
}
1205
1206
=head2 GetBorrowersWithIssuesHistoryOlderThan
1158
=head2 GetBorrowersWithIssuesHistoryOlderThan
1207
1159
1208
  $results = &GetBorrowersWithIssuesHistoryOlderThan($date)
1160
  $results = &GetBorrowersWithIssuesHistoryOlderThan($date)
(-)a/tools/cleanborrowers.pl (-2 / +1 lines)
Lines 36-42 use Modern::Perl; Link Here
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
use C4::Auth;
37
use C4::Auth;
38
use C4::Output;
38
use C4::Output;
39
use C4::Members;        # GetBorrowersWhoHavexxxBorrowed.
39
use C4::Members;
40
use C4::Circulation;    # AnonymiseIssueHistory.
40
use C4::Circulation;    # AnonymiseIssueHistory.
41
use Koha::DateUtils qw( dt_from_string output_pref );
41
use Koha::DateUtils qw( dt_from_string output_pref );
42
use Koha::Patron::Categories;
42
use Koha::Patron::Categories;
43
- 

Return to bug 17824