|
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 |
- |
|
|