Lines 2861-2875
sub AnonymiseIssueHistory {
Link Here
|
2861 |
my $dbh = C4::Context->dbh; |
2861 |
my $dbh = C4::Context->dbh; |
2862 |
my $query = " |
2862 |
my $query = " |
2863 |
UPDATE old_issues |
2863 |
UPDATE old_issues |
2864 |
SET borrowernumber = ? |
|
|
2865 |
WHERE returndate < ? |
2866 |
AND borrowernumber IS NOT NULL |
2867 |
"; |
2864 |
"; |
2868 |
|
2865 |
|
2869 |
# The default of 0 does not work due to foreign key constraints |
2866 |
# If there is no preference for 'AnonymousPatron' we update borrowernumber to NULL |
2870 |
# The anonymisation will fail quietly if AnonymousPatron is not a valid entry |
2867 |
my (@bind_params, $anonymouspatron); |
2871 |
my $anonymouspatron = (C4::Context->preference('AnonymousPatron')) ? C4::Context->preference('AnonymousPatron') : 0; |
2868 |
if ($anonymouspatron = (C4::Context->preference('AnonymousPatron'))){ |
2872 |
my @bind_params = ($anonymouspatron, $date); |
2869 |
$query .= " SET borrowernumber = ?"; |
|
|
2870 |
@bind_params = ($anonymouspatron, $date); |
2871 |
}else { |
2872 |
$query .= " SET borrowernumber = NULL"; |
2873 |
@bind_params = ($date); |
2874 |
} |
2875 |
|
2876 |
$query .= " WHERE returndate < ? |
2877 |
AND borrowernumber IS NOT NULL"; |
2878 |
|
2873 |
if (defined $borrowernumber) { |
2879 |
if (defined $borrowernumber) { |
2874 |
$query .= " AND borrowernumber = ?"; |
2880 |
$query .= " AND borrowernumber = ?"; |
2875 |
push @bind_params, $borrowernumber; |
2881 |
push @bind_params, $borrowernumber; |
2876 |
- |
|
|