Attachment #58284 for bug #16966

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




        &GetBranchItemRule
		&GetBiblioIssues
		&GetOpenIssue
		&AnonymiseIssueHistory
        &CheckIfIssuedToPatron
        &IsItemIssued
        GetTopIssues

    return $sth->execute($itemnumber);
}

=head2 AnonymiseIssueHistory

  ($rows,$err_history_not_deleted) = AnonymiseIssueHistory($date,$borrowernumber)

This function write NULL instead of C<$borrowernumber> given on input arg into the table issues.
if C<$borrowernumber> is not set, it will delete the issue history for all borrower older than C<$date>.

If c<$borrowernumber> is set, it will delete issue history for only that borrower, regardless of their opac privacy
setting (force delete).

return the number of affected rows and a value that evaluates to true if an error occurred deleting the history.

=cut

sub AnonymiseIssueHistory {
    my $date           = shift;
    my $borrowernumber = shift;
    my $dbh            = C4::Context->dbh;
    my $query          = "
        UPDATE old_issues
        SET    borrowernumber = ?
        WHERE  returndate < ?
          AND borrowernumber IS NOT NULL
    ";

    # The default of 0 does not work due to foreign key constraints
    # The anonymisation should not fail quietly if AnonymousPatron is not a valid entry
    # Set it to undef (NULL)
    my $anonymouspatron = C4::Context->preference('AnonymousPatron') || undef;
    my @bind_params = ($anonymouspatron, $date);
    if (defined $borrowernumber) {
       $query .= " AND borrowernumber = ?";
       push @bind_params, $borrowernumber;
    } else {
       $query .= " AND (SELECT privacy FROM borrowers WHERE borrowers.borrowernumber=old_issues.borrowernumber) <> 0";
    }
    my $sth = $dbh->prepare($query);
    $sth->execute(@bind_params);
    my $anonymisation_err = $dbh->err;
    my $rows_affected = $sth->rows;  ### doublecheck row count return function
    return ($rows_affected, $anonymisation_err);
}

=head2 SendCirculationAlert

Send out a C<check-in> or C<checkout> alert using the messaging system.





        &GetBorrowersToExpunge
        &GetBorrowersWhoHaveNeverBorrowed
        &GetBorrowersWithIssuesHistoryOlderThan

        &GetUpcomingMembershipExpires


    return \@results;
}

=head2 GetBorrowersWithIssuesHistoryOlderThan

  $results = &GetBorrowersWithIssuesHistoryOlderThan($date)

this function get all borrowers who has an issue history older than I<$date> given on input arg.

I<$result> is a ref to an array which all elements are a hashref.
This hashref is containt the number of time this borrowers has borrowed before I<$date> and the borrowernumber.

=cut

sub GetBorrowersWithIssuesHistoryOlderThan {
    my $dbh  = C4::Context->dbh;
    my $date = shift ||POSIX::strftime("%Y-%m-%d",localtime());
    my $filterbranch = shift || 
                        ((C4::Context->preference('IndependentBranches')
                             && C4::Context->userenv 
                             && !C4::Context->IsSuperLibrarian()
                             && C4::Context->userenv->{branch})
                         ? C4::Context->userenv->{branch}
                         : "");  
    my $query = "
       SELECT count(borrowernumber) as n,borrowernumber
       FROM old_issues
       WHERE returndate < ?
         AND borrowernumber IS NOT NULL 
    "; 
    my @query_params;
    push @query_params, $date;
    if ($filterbranch){
        $query.="   AND branchcode = ?";
        push @query_params, $filterbranch;
    }    
    $query.=" GROUP BY borrowernumber ";
    warn $query if $debug;
    my $sth = $dbh->prepare($query);
    $sth->execute(@query_params);
    my @results;

    while ( my $data = $sth->fetchrow_hashref ) {
        push @results, $data;
    }
    return \@results;
}

=head2 IssueSlip

  IssueSlip($branchcode, $borrowernumber, $quickslip)




package Koha::Patrons;

# Copyright 2014 ByWater Solutions
# Copyright 2016 Koha Development Team
#
# This file is part of Koha.
#

use Carp;

use Koha::Database;
use Koha::DateUtils;

use Koha::ArticleRequests;
use Koha::ArticleRequest::Status;

    return $self->{_article_requests_finished};
}

=head3 search_patrons_to_anonymise

    my $patrons = Koha::Patrons->search_patrons_to_anonymise( $date );

This method returns all patrons who has an issue history older than a given date.

=cut

sub search_patrons_to_anonymise {
    my ( $class, $older_than_date, $library ) = @_;
    $older_than_date = $older_than_date ? dt_from_string($older_than_date) : dt_from_string;
    $library ||=
      ( C4::Context->preference('IndependentBranches') && C4::Context->userenv && !C4::Context->IsSuperLibrarian() && C4::Context->userenv->{branch} )
      ? C4::Context->userenv->{branch}
      : undef;

    my $dtf = Koha::Database->new->schema->storage->datetime_parser;
    my $rs = $class->search(
        {   returndate                  => { '<'   =>  $dtf->format_datetime($older_than_date), },
            'old_issues.borrowernumber' => { 'not' => undef },
            privacy                     => { '<>'  => 0 },                  # Keep forever
            ( $library ? ( 'old_issues.branchcode' => $library ) : () ),
        },
        {   join     => ["old_issues"],
            group_by => 'borrowernumber'
        }
    );
    return Koha::Patrons->_new_from_dbic($rs);
}

=head3 anonymise_issue_history

    Koha::Patrons->search->anonymise_issue_history( $older_than_date );

Anonymise issue history (old_issues) for all patrons older than the given date.
To make sure all the conditions are met, the caller has the responsability to
call search_patrons_to_anonymise to filter the Koha::Patrons set

=cut

sub anonymise_issue_history {
    my ( $self, $older_than_date ) = @_;

    return unless $older_than_date;
    $older_than_date = dt_from_string $older_than_date;

    # The default of 0 does not work due to foreign key constraints
    # The anonymisation should not fail quietly if AnonymousPatron is not a valid entry
    # Set it to undef (NULL)
    my $dtf = Koha::Database->new->schema->storage->datetime_parser;
    my $old_issues_to_anonymise = $self->search_related( 'old_issues', { returndate => { '<' => $dtf->format_datetime($older_than_date) } } );
    my $anonymous_patron = C4::Context->preference('AnonymousPatron') || undef;
    $old_issues_to_anonymise->update( { 'old_issues.borrowernumber' => $anonymous_patron } );
}

=head3 type

=cut

Lines 217-224 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/cleanborrowers.tt (-2 / +2 lines)
217	<h4>No patron records have been removed</h4>	217	<h4>No patron records have been removed</h4>
218	[% END %]	218	[% END %]
219	[% END %]	219	[% END %]
220	[% IF ( do_anonym ) %]	220	[% IF do_anonym %]
221	<h4>All checkouts older than [% last_issue_date \| $KohaDates %] have been anonymized</h4>	221	<h4>All checkouts ([% do_anonym %]) older than [% last_issue_date \| $KohaDates %] have been anonymized</h4>
222	[% ELSE %]	222	[% ELSE %]
223	<h4>No patron records have been anonymized</h4>	223	<h4>No patron records have been anonymized</h4>
224	[% END %]	224	[% END %]

Lines 25-34 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-privacy.tt (-3 / +3 lines)
25	<div id="userprivacy">	25	<div id="userprivacy">
26	<h3>Your privacy management</h3>	26	<h3>Your privacy management</h3>
27		27
28	[% IF ( deleted ) %]	28	[% IF deleted %]
29	<div class="alert alert-success">Your reading history has been deleted.</div>	29	<div class="alert alert-success">Your reading history has been deleted.</div>
30	[% ELSIF ( err_history_not_deleted ) %]	30	[% ELSE %]
31	<div class="alert">The deletion of your reading history failed, because there is a problem with the configuration of this feature. Please help to fix the system by informing your library of this error.</div>	31	<div class="alert">No reading history to delete</div>
32	[% END %]	32	[% END %]
33		33
34	[% IF ( privacy_updated ) %]	34	[% IF ( privacy_updated ) %]

Lines 30-36 BEGIN { Link Here

(-)a/misc/cronjobs/batch_anonymise.pl (-4 / +3 lines)
30	}	30	}
31		31
32	use C4::Context;	32	use C4::Context;
33	use C4::Circulation;	33	use Koha::Patrons;
34	use Date::Calc qw(	34	use Date::Calc qw(
35	Today	35	Today
36	Add_Delta_Days	36	Add_Delta_Days
Lines 74-81 my ($newyear,$newmonth,$newday) = Add_Delta_Days ($year,$month,$day,(-1)*$days); Link Here
74	my $formatdate = sprintf "%4d-%02d-%02d",$newyear,$newmonth,$newday;	74	my $formatdate = sprintf "%4d-%02d-%02d",$newyear,$newmonth,$newday;
75	$verbose and print "Checkouts before $formatdate will be anonymised.\n";	75	$verbose and print "Checkouts before $formatdate will be anonymised.\n";
76		76
77	my ($rows, $err_history_not_deleted) = AnonymiseIssueHistory($formatdate);	77	my $rows = Koha::Patrons->search_patrons_to_anonymise( $formatdate )->anonymise_issue_history( $formatdate );
78	carp "Anonymisation of reading history failed." if ($err_history_not_deleted);	78	$verbose and print int($rows) . " checkouts anonymised.\n";
79	$verbose and print "$rows checkouts anonymised.\n";
80		79
81	exit(0);	80	exit(0);





use C4::Auth;    # checkauth, getborrowernumber.
use C4::Context;
use C4::Circulation;
use C4::Members;
use C4::Output;
use Koha::Patrons;


    # delete all reading records for items returned
    # uses a hardcoded date ridiculously far in the future
    my ( $rows, $err_history_not_deleted ) =
      AnonymiseIssueHistory( '2999-12-12', $borrowernumber );

    my $rows = eval {
        Koha::Patrons->search({ 'me.borrowernumber' => $borrowernumber })->anonymise_issue_history( '2999-12-12' );
    };
    $rows = $@ ? 0 : int($rows);
    $template->param( 'deleted' => $rows );
        $template->param( 'err_history_not_deleted' => 1 );
    }
}

# get borrower privacy ....




use C4::Auth;
use C4::Output;
use C4::Members;        # GetBorrowersWhoHavexxxBorrowed.
use C4::Circulation;    # AnonymiseIssueHistory.
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patron::Categories;
use Koha::Patrons;
use Date::Calc qw/Today Add_Delta_YM/;
use Koha::Patrons;
use Koha::List::Patron;

my $cgi = new CGI;

    }
    _skip_borrowers_with_nonzero_balance($patrons_to_delete);

    my $patrons_to_anonymize =
        $checkboxes{issue}
      ? $branch eq '*'
          ? Koha::Patrons->search_patrons_to_anonymise($last_issue_date)
          : Koha::Patrons->search_patrons_to_anonymise( $last_issue_date, $branch )
      : undef;
        }
    }

    $template->param(
        patrons_to_delete    => $patrons_to_delete,
        patrons_to_anonymize => $patrons_to_anonymize,
        patron_list_id       => $patron_list_id,
    );
}


    # Anonymising all members
    if ($do_anonym) {
        #FIXME: anonymisation errors are not handled
        my $rows = Koha::Patrons->search_patrons_to_anonymise( $last_issue_date )->anonymise_issue_history( $last_issue_date );
        $template->param(
            do_anonym   => $rows,
        );
    }

- 

Return to bug 16966

Lines 94-100 BEGIN { Link Here

(-)a/C4/Circulation.pm (-44 lines)
94	&GetBranchItemRule	94	&GetBranchItemRule
95	&GetBiblioIssues	95	&GetBiblioIssues
96	&GetOpenIssue	96	&GetOpenIssue
97	&AnonymiseIssueHistory
98	&CheckIfIssuedToPatron	97	&CheckIfIssuedToPatron
99	&IsItemIssued	98	&IsItemIssued
100	GetTopIssues	99	GetTopIssues
Lines 3369-3417 sub DeleteTransfer { Link Here
3369	return $sth->execute($itemnumber);	3368	return $sth->execute($itemnumber);
3370	}	3369	}
3371		3370
3372	=head2 AnonymiseIssueHistory
3373
3374	($rows,$err_history_not_deleted) = AnonymiseIssueHistory($date,$borrowernumber)
3375
3376	This function write NULL instead of C<$borrowernumber> given on input arg into the table issues.
3377	if C<$borrowernumber> is not set, it will delete the issue history for all borrower older than C<$date>.
3378
3379	If c<$borrowernumber> is set, it will delete issue history for only that borrower, regardless of their opac privacy
3380	setting (force delete).
3381
3382	return the number of affected rows and a value that evaluates to true if an error occurred deleting the history.
3383
3384	=cut
3385
3386	sub AnonymiseIssueHistory {
3387	my $date = shift;
3388	my $borrowernumber = shift;
3389	my $dbh = C4::Context->dbh;
3390	my $query = "
3391	UPDATE old_issues
3392	SET borrowernumber = ?
3393	WHERE returndate < ?
3394	AND borrowernumber IS NOT NULL
3395	";
3396
3397	# The default of 0 does not work due to foreign key constraints
3398	# The anonymisation should not fail quietly if AnonymousPatron is not a valid entry
3399	# Set it to undef (NULL)
3400	my $anonymouspatron = C4::Context->preference('AnonymousPatron') \|\| undef;
3401	my @bind_params = ($anonymouspatron, $date);
3402	if (defined $borrowernumber) {
3403	$query .= " AND borrowernumber = ?";
3404	push @bind_params, $borrowernumber;
3405	} else {
3406	$query .= " AND (SELECT privacy FROM borrowers WHERE borrowers.borrowernumber=old_issues.borrowernumber) <> 0";
3407	}
3408	my $sth = $dbh->prepare($query);
3409	$sth->execute(@bind_params);
3410	my $anonymisation_err = $dbh->err;
3411	my $rows_affected = $sth->rows; ### doublecheck row count return function
3412	return ($rows_affected, $anonymisation_err);
3413	}
3414
3415	=head2 SendCirculationAlert	3371	=head2 SendCirculationAlert
3416		3372
3417	Send out a C<check-in> or C<checkout> alert using the messaging system.	3373	Send out a C<check-in> or C<checkout> alert using the messaging system.

Lines 37-47 use CGI qw ( -utf8 ); Link Here

(-)a/tools/cleanborrowers.pl (-14 / +11 lines)
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; # GetBorrowersWhoHavexxxBorrowed.
40	use C4::Circulation; # AnonymiseIssueHistory.
41	use Koha::DateUtils qw( dt_from_string output_pref );	40	use Koha::DateUtils qw( dt_from_string output_pref );
42	use Koha::Patron::Categories;	41	use Koha::Patron::Categories;
43	use Koha::Patrons;	42	use Koha::Patrons;
44	use Date::Calc qw/Today Add_Delta_YM/;	43	use Date::Calc qw/Today Add_Delta_YM/;
		44	use Koha::Patrons;
45	use Koha::List::Patron;	45	use Koha::List::Patron;
46		46
47	my $cgi = new CGI;	47	my $cgi = new CGI;
Lines 106-124 if ( $step == 2 ) { Link Here
106	}	106	}
107	_skip_borrowers_with_nonzero_balance($patrons_to_delete);	107	_skip_borrowers_with_nonzero_balance($patrons_to_delete);
108		108
109	my $members_to_anonymize;	109	my $patrons_to_anonymize =
110	if ( $checkboxes{issue} ) {	110	$checkboxes{issue}
111	if ( $branch eq '*' ) {	111	? $branch eq '*'
112	$members_to_anonymize = GetBorrowersWithIssuesHistoryOlderThan($last_issue_date);	112	? Koha::Patrons->search_patrons_to_anonymise($last_issue_date)
113	} else {	113	: Koha::Patrons->search_patrons_to_anonymise( $last_issue_date, $branch )
114	$members_to_anonymize = GetBorrowersWithIssuesHistoryOlderThan($last_issue_date, $branch);	114	: undef;
115	}
116	}
117		115
118	$template->param(	116	$template->param(
119	patrons_to_delete => $patrons_to_delete,	117	patrons_to_delete => $patrons_to_delete,
120	patrons_to_anonymize => $members_to_anonymize,	118	patrons_to_anonymize => $patrons_to_anonymize,
121	patron_list_id => $patron_list_id	119	patron_list_id => $patron_list_id,
122	);	120	);
123	}	121	}
124		122
Lines 160-168 elsif ( $step == 3 ) { Link Here
160	# Anonymising all members	158	# Anonymising all members
161	if ($do_anonym) {	159	if ($do_anonym) {
162	#FIXME: anonymisation errors are not handled	160	#FIXME: anonymisation errors are not handled
163	($totalAno,my $anonymisation_error) = AnonymiseIssueHistory($last_issue_date);	161	my $rows = Koha::Patrons->search_patrons_to_anonymise( $last_issue_date )->anonymise_issue_history( $last_issue_date );
164	$template->param(	162	$template->param(
165	do_anonym => '1',	163	do_anonym => $rows,
166	);	164	);
167	}	165	}
168		166
169	-

Lines 74-80 BEGIN { Link Here

(-)a/C4/Members.pm (-46 lines)
74		74
75	&GetBorrowersToExpunge	75	&GetBorrowersToExpunge
76	&GetBorrowersWhoHaveNeverBorrowed	76	&GetBorrowersWhoHaveNeverBorrowed
77	&GetBorrowersWithIssuesHistoryOlderThan
78		77
79	&GetUpcomingMembershipExpires	78	&GetUpcomingMembershipExpires
80		79
Lines 1247-1297 sub GetBorrowersWhoHaveNeverBorrowed { Link Here
1247	return \@results;	1246	return \@results;
1248	}	1247	}
1249		1248
1250	=head2 GetBorrowersWithIssuesHistoryOlderThan
1251
1252	$results = &GetBorrowersWithIssuesHistoryOlderThan($date)
1253
1254	this function get all borrowers who has an issue history older than I<$date> given on input arg.
1255
1256	I<$result> is a ref to an array which all elements are a hashref.
1257	This hashref is containt the number of time this borrowers has borrowed before I<$date> and the borrowernumber.
1258
1259	=cut
1260
1261	sub GetBorrowersWithIssuesHistoryOlderThan {
1262	my $dbh = C4::Context->dbh;
1263	my $date = shift \|\|POSIX::strftime("%Y-%m-%d",localtime());
1264	my $filterbranch = shift \|\|
1265	((C4::Context->preference('IndependentBranches')
1266	&& C4::Context->userenv
1267	&& !C4::Context->IsSuperLibrarian()
1268	&& C4::Context->userenv->{branch})
1269	? C4::Context->userenv->{branch}
1270	: "");
1271	my $query = "
1272	SELECT count(borrowernumber) as n,borrowernumber
1273	FROM old_issues
1274	WHERE returndate < ?
1275	AND borrowernumber IS NOT NULL
1276	";
1277	my @query_params;
1278	push @query_params, $date;
1279	if ($filterbranch){
1280	$query.=" AND branchcode = ?";
1281	push @query_params, $filterbranch;
1282	}
1283	$query.=" GROUP BY borrowernumber ";
1284	warn $query if $debug;
1285	my $sth = $dbh->prepare($query);
1286	$sth->execute(@query_params);
1287	my @results;
1288
1289	while ( my $data = $sth->fetchrow_hashref ) {
1290	push @results, $data;
1291	}
1292	return \@results;
1293	}
1294
1295	=head2 IssueSlip	1249	=head2 IssueSlip
1296		1250
1297	IssueSlip($branchcode, $borrowernumber, $quickslip)	1251	IssueSlip($branchcode, $borrowernumber, $quickslip)

Lines 1-6 Link Here

(-)a/Koha/Patrons.pm (-1 / +58 lines)
1	package Koha::Patrons;	1	package Koha::Patrons;
2		2
3	# Copyright ByWater Solutions 2014	3	# Copyright 2014 ByWater Solutions
		4	# Copyright 2016 Koha Development Team
4	#	5	#
5	# This file is part of Koha.	6	# This file is part of Koha.
6	#	7	#
Lines 22-27 use Modern::Perl; Link Here
22	use Carp;	23	use Carp;
23		24
24	use Koha::Database;	25	use Koha::Database;
		26	use Koha::DateUtils;
25		27
26	use Koha::ArticleRequests;	28	use Koha::ArticleRequests;
27	use Koha::ArticleRequest::Status;	29	use Koha::ArticleRequest::Status;
Lines 148-153 sub article_requests_finished { Link Here
148	return $self->{_article_requests_finished};	150	return $self->{_article_requests_finished};
149	}	151	}
150		152
		153	=head3 search_patrons_to_anonymise
		154
		155	my $patrons = Koha::Patrons->search_patrons_to_anonymise( $date );
		156
		157	This method returns all patrons who has an issue history older than a given date.
		158
		159	=cut
		160
		161	sub search_patrons_to_anonymise {
		162	my ( $class, $older_than_date, $library ) = @_;
		163	$older_than_date = $older_than_date ? dt_from_string($older_than_date) : dt_from_string;
		164	$library \|\|=
		165	( C4::Context->preference('IndependentBranches') && C4::Context->userenv && !C4::Context->IsSuperLibrarian() && C4::Context->userenv->{branch} )
		166	? C4::Context->userenv->{branch}
		167	: undef;
		168
		169	my $dtf = Koha::Database->new->schema->storage->datetime_parser;
		170	my $rs = $class->search(
		171	{ returndate => { '<' => $dtf->format_datetime($older_than_date), },
		172	'old_issues.borrowernumber' => { 'not' => undef },
		173	privacy => { '<>' => 0 }, # Keep forever
		174	( $library ? ( 'old_issues.branchcode' => $library ) : () ),
		175	},
		176	{ join => ["old_issues"],
		177	group_by => 'borrowernumber'
		178	}
		179	);
		180	return Koha::Patrons->_new_from_dbic($rs);
		181	}
		182
		183	=head3 anonymise_issue_history
		184
		185	Koha::Patrons->search->anonymise_issue_history( $older_than_date );
		186
		187	Anonymise issue history (old_issues) for all patrons older than the given date.
		188	To make sure all the conditions are met, the caller has the responsability to
		189	call search_patrons_to_anonymise to filter the Koha::Patrons set
		190
		191	=cut
		192
		193	sub anonymise_issue_history {
		194	my ( $self, $older_than_date ) = @_;
		195
		196	return unless $older_than_date;
		197	$older_than_date = dt_from_string $older_than_date;
		198
		199	# The default of 0 does not work due to foreign key constraints
		200	# The anonymisation should not fail quietly if AnonymousPatron is not a valid entry
		201	# Set it to undef (NULL)
		202	my $dtf = Koha::Database->new->schema->storage->datetime_parser;
		203	my $old_issues_to_anonymise = $self->search_related( 'old_issues', { returndate => { '<' => $dtf->format_datetime($older_than_date) } } );
		204	my $anonymous_patron = C4::Context->preference('AnonymousPatron') \|\| undef;
		205	$old_issues_to_anonymise->update( { 'old_issues.borrowernumber' => $anonymous_patron } );
		206	}
		207
151	=head3 type	208	=head3 type
152		209
153	=cut	210	=cut

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/opac/opac-privacy.pl (-10 / +5 lines)
21		21
22	use C4::Auth; # checkauth, getborrowernumber.	22	use C4::Auth; # checkauth, getborrowernumber.
23	use C4::Context;	23	use C4::Context;
24	use C4::Circulation;
25	use C4::Members;	24	use C4::Members;
26	use C4::Output;	25	use C4::Output;
27	use Koha::Patrons;	26	use Koha::Patrons;
Lines 62-77 elsif ( $op eq "delete_record" ) { Link Here
62		61
63	# delete all reading records for items returned	62	# delete all reading records for items returned
64	# uses a hardcoded date ridiculously far in the future	63	# uses a hardcoded date ridiculously far in the future
65	my ( $rows, $err_history_not_deleted ) =
66	AnonymiseIssueHistory( '2999-12-12', $borrowernumber );
67		64
68	# confirm the user the deletion has been done	65	my $rows = eval {
69	if ( !$err_history_not_deleted ) {	66	Koha::Patrons->search({ 'me.borrowernumber' => $borrowernumber })->anonymise_issue_history( '2999-12-12' );
70	$template->param( 'deleted' => 1 );	67	};
71	}	68	$rows = $@ ? 0 : int($rows);
72	else {	69	$template->param( 'deleted' => $rows );
73	$template->param( 'err_history_not_deleted' => 1 );
74	}
75	}	70	}
76		71
77	# get borrower privacy ....	72	# get borrower privacy ....