Lines 53-58
my $params = $cgi->Vars;
Link Here
|
53 |
|
53 |
|
54 |
my $filterdate1; # the date which filter on issue history. |
54 |
my $filterdate1; # the date which filter on issue history. |
55 |
my $filterdate2; # the date which filter on borrowers last issue. |
55 |
my $filterdate2; # the date which filter on borrowers last issue. |
|
|
56 |
my $borrower_dateexpiry; |
57 |
my $borrower_categorycode; |
56 |
|
58 |
|
57 |
# getting the template |
59 |
# getting the template |
58 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
60 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
Lines 68-79
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
68 |
if ( $params->{'step2'} ) { |
70 |
if ( $params->{'step2'} ) { |
69 |
$filterdate1 = format_date_in_iso($params->{'filterdate1'}); |
71 |
$filterdate1 = format_date_in_iso($params->{'filterdate1'}); |
70 |
$filterdate2 = format_date_in_iso($params->{'filterdate2'}); |
72 |
$filterdate2 = format_date_in_iso($params->{'filterdate2'}); |
|
|
73 |
$borrower_dateexpiry = format_date_in_iso($params->{'borrower_dateexpiry'}); |
74 |
$borrower_categorycode = $params->{'borrower_categorycode'}; |
75 |
|
71 |
my %checkboxes = map { $_ => 1 } split /\0/, $params->{'checkbox'}; |
76 |
my %checkboxes = map { $_ => 1 } split /\0/, $params->{'checkbox'}; |
72 |
|
77 |
|
73 |
my $totalDel; |
78 |
my $totalDel; |
74 |
my $membersToDelete; |
79 |
my $membersToDelete; |
75 |
if ($checkboxes{borrower}) { |
80 |
if ($checkboxes{borrower}) { |
76 |
$membersToDelete = GetBorrowersWhoHaveNotBorrowedSince($filterdate1, 1); |
81 |
$membersToDelete = GetBorrowersWhoHaveNotBorrowedSince({ not_borrowered_since => $filterdate1, expired_before => $borrower_dateexpiry, category_code => $borrower_categorycode }); |
77 |
$totalDel = scalar @$membersToDelete; |
82 |
$totalDel = scalar @$membersToDelete; |
78 |
|
83 |
|
79 |
} |
84 |
} |
Lines 93-102
if ( $params->{'step2'} ) {
Link Here
|
93 |
memberstoanonymize_list => $membersToAnonymize, |
98 |
memberstoanonymize_list => $membersToAnonymize, |
94 |
filterdate1 => format_date($filterdate1), |
99 |
filterdate1 => format_date($filterdate1), |
95 |
filterdate2 => format_date($filterdate2), |
100 |
filterdate2 => format_date($filterdate2), |
|
|
101 |
borrower_dateexpiry => $borrower_dateexpiry, |
102 |
borrower_categorycode => $borrower_categorycode, |
96 |
); |
103 |
); |
97 |
### TODO : Use GetBorrowersNamesAndLatestIssue function in order to get the borrowers to delete or anonymize. |
104 |
|
98 |
### Now, we are only using total, which is not enough imlo |
105 |
### TODO : Use GetBorrowersNamesAndLatestIssue function in order to get the borrowers to delete or anonymize. |
99 |
#writing the template |
|
|
100 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
106 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
101 |
exit; |
107 |
exit; |
102 |
} |
108 |
} |
Lines 104-109
if ( $params->{'step2'} ) {
Link Here
|
104 |
if ( $params->{'step3'} ) { |
110 |
if ( $params->{'step3'} ) { |
105 |
$filterdate1 = format_date_in_iso($params->{'filterdate1'}); |
111 |
$filterdate1 = format_date_in_iso($params->{'filterdate1'}); |
106 |
$filterdate2 = format_date_in_iso($params->{'filterdate2'}); |
112 |
$filterdate2 = format_date_in_iso($params->{'filterdate2'}); |
|
|
113 |
$borrower_dateexpiry = format_date_in_iso($params->{'borrower_dateexpiry'}); |
114 |
$borrower_categorycode = $params->{'borrower_categorycode'}; |
115 |
|
107 |
my $do_delete = $params->{'do_delete'}; |
116 |
my $do_delete = $params->{'do_delete'}; |
108 |
my $do_anonym = $params->{'do_anonym'}; |
117 |
my $do_anonym = $params->{'do_anonym'}; |
109 |
|
118 |
|
Lines 111-117
if ( $params->{'step3'} ) {
Link Here
|
111 |
|
120 |
|
112 |
# delete members |
121 |
# delete members |
113 |
if ($do_delete) { |
122 |
if ($do_delete) { |
114 |
my $membersToDelete = GetBorrowersWhoHaveNotBorrowedSince($filterdate1, 1); |
123 |
my $membersToDelete = GetBorrowersWhoHaveNotBorrowedSince({ not_borrowered_since => $filterdate1, expired_before => $borrower_dateexpiry, category_code => $borrower_categorycode }); |
115 |
$totalDel = scalar(@$membersToDelete); |
124 |
$totalDel = scalar(@$membersToDelete); |
116 |
$radio = $params->{'radio'}; |
125 |
$radio = $params->{'radio'}; |
117 |
if ( $radio eq 'trash' ) { |
126 |
if ( $radio eq 'trash' ) { |
Lines 154-169
if ( $params->{'step3'} ) {
Link Here
|
154 |
exit; |
163 |
exit; |
155 |
} |
164 |
} |
156 |
|
165 |
|
157 |
#default value set to the template are the 'CNIL' value. |
|
|
158 |
my ( $year, $month, $day ) = &Today(); |
159 |
$filterdate1 = format_date(sprintf("%-04.4d-%-02.2d-%02.2d", Add_Delta_YM($year, $month, $day, -1, 0))); |
160 |
$filterdate2 = format_date(sprintf("%-04.4d-%-02.2d-%02.2d", Add_Delta_YM($year, $month, $day, 0, -3))); |
161 |
|
162 |
$template->param( |
166 |
$template->param( |
163 |
step1 => '1', |
167 |
step1 => '1', |
164 |
filterdate1 => $filterdate1, |
168 |
filterdate1 => $filterdate1, |
165 |
filterdate2 => $filterdate2, |
169 |
filterdate2 => $filterdate2, |
166 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
170 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
|
|
171 |
borrower_categorycodes => GetBorrowercategoryList(), |
167 |
); |
172 |
); |
168 |
|
173 |
|
169 |
#writing the template |
174 |
#writing the template |
170 |
- |
|
|