Bugzilla – Attachment 61057 Details for
Bug 18242
Move of checkouts to old_issues is not handled correctly
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 18242: [SOLUTION 2]Handle correctly move to old_issues
Bug-18242-SOLUTION-2Handle-correctly-move-to-oldis.patch (text/plain), 4.92 KB, created by
Chris Cormack
on 2017-03-14 00:36:45 UTC
(
hide
)
Description:
Bug 18242: [SOLUTION 2]Handle correctly move to old_issues
Filename:
MIME Type:
Creator:
Chris Cormack
Created:
2017-03-14 00:36:45 UTC
Size:
4.92 KB
patch
obsolete
>From e1022342987748210685e4e14fef6b816a15e7d4 Mon Sep 17 00:00:00 2001 >From: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >Date: Thu, 9 Mar 2017 16:58:17 -0300 >Subject: [PATCH] Bug 18242: [SOLUTION 2]Handle correctly move to old_issues > >The table old_issues has a primary key defined on the issue_id column. >This issue_id comes from the issues table when an item is checked in. > >In some case the value of issue_id already exists in the table > >Basically this happens when an item is returned and mysqld is restarted: >The auto increment value for issues.issue_id will be reset to >MAX(issue_id)+1 (which is the value of the last entry of old_issues). >See also the description of bug 18003 for more informations. > >In this solution the change is done at code level instead of DB >structure: If old_issues.issue_id already exists before moving from >the issues table, the issue_id is updated (not on cascade for >accountlines.issue_id, should it?) before the move. > >Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz> >--- > C4/Circulation.pm | 74 ++++++++++++++++++++++++++++++++++--------------------- > 1 file changed, 46 insertions(+), 28 deletions(-) > >diff --git a/C4/Circulation.pm b/C4/Circulation.pm >index af5accebf5..2dcb1e9c84 100644 >--- a/C4/Circulation.pm >+++ b/C4/Circulation.pm >@@ -2145,7 +2145,15 @@ sub MarkIssueReturned { > die "Fatal error: the patron ($borrowernumber) has requested their circulation history be anonymized on check-in, but the AnonymousPatron system preference is empty or not set correctly." > unless C4::Members::GetMember( borrowernumber => $anonymouspatron ); > } >+ my $database = Koha::Database->new(); >+ my $schema = $database->schema; > my $dbh = C4::Context->dbh; >+ >+ my $issue_id = $dbh->selectrow_array( >+ q|SELECT issue_id FROM issues WHERE itemnumber = ?|, >+ undef, $itemnumber >+ ); >+ > my $query = 'UPDATE issues SET returndate='; > my @bind; > if ($dropbox_branch) { >@@ -2159,34 +2167,44 @@ sub MarkIssueReturned { > } else { > $query .= ' now() '; > } >- $query .= ' WHERE borrowernumber = ? AND itemnumber = ?'; >- push @bind, $borrowernumber, $itemnumber; >- # FIXME transaction >- my $sth_upd = $dbh->prepare($query); >- $sth_upd->execute(@bind); >- my $sth_copy = $dbh->prepare('INSERT INTO old_issues SELECT * FROM issues >- WHERE borrowernumber = ? >- AND itemnumber = ?'); >- $sth_copy->execute($borrowernumber, $itemnumber); >- # anonymise patron checkout immediately if $privacy set to 2 and AnonymousPatron is set to a valid borrowernumber >- if ( $privacy == 2) { >- my $sth_ano = $dbh->prepare("UPDATE old_issues SET borrowernumber=? >- WHERE borrowernumber = ? >- AND itemnumber = ?"); >- $sth_ano->execute($anonymouspatron, $borrowernumber, $itemnumber); >- } >- my $sth_del = $dbh->prepare("DELETE FROM issues >- WHERE borrowernumber = ? >- AND itemnumber = ?"); >- $sth_del->execute($borrowernumber, $itemnumber); >- >- ModItem( { 'onloan' => undef }, undef, $itemnumber ); >- >- if ( C4::Context->preference('StoreLastBorrower') ) { >- my $item = Koha::Items->find( $itemnumber ); >- my $patron = Koha::Patrons->find( $borrowernumber ); >- $item->last_returned_by( $patron ); >- } >+ $query .= ' WHERE issue_id = ?'; >+ push @bind, $issue_id; >+ >+ # FIXME Improve the return value and handle it from callers >+ $schema->txn_do(sub { >+ $dbh->do( $query, undef, @bind ); >+ >+ my $id_already_exists = $dbh->selectrow_array( >+ q|SELECT COUNT(*) FROM old_issues WHERE issue_id = ?|, >+ undef, $issue_id >+ ); >+ >+ if ( $id_already_exists ) { >+ my $new_issue_id = $dbh->selectrow_array(q|SELECT MAX(issue_id)+1 FROM old_issues|); >+ $dbh->do( >+ q|UPDATE issues SET issue_id = ? WHERE issue_id = ?|, >+ undef, $new_issue_id, $issue_id >+ ); >+ $issue_id = $new_issue_id; >+ } >+ >+ $dbh->do(q|INSERT INTO old_issues SELECT * FROM issues WHERE issue_id = ?|, undef, $issue_id); >+ >+ # anonymise patron checkout immediately if $privacy set to 2 and AnonymousPatron is set to a valid borrowernumber >+ if ( $privacy == 2) { >+ $dbh->do(q|UPDATE old_issues SET borrowernumber=? WHERE issue_id = ?|, undef, $anonymouspatron, $issue_id); >+ } >+ >+ $dbh->do(q|DELETE FROM issues WHERE issue_id = ?|, undef, $issue_id); >+ >+ ModItem( { 'onloan' => undef }, undef, $itemnumber ); >+ >+ if ( C4::Context->preference('StoreLastBorrower') ) { >+ my $item = Koha::Items->find( $itemnumber ); >+ my $patron = Koha::Patrons->find( $borrowernumber ); >+ $item->last_returned_by( $patron ); >+ } >+ }); > } > > =head2 _debar_user_on_return >-- >2.11.0
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 18242
:
60969
|
60970
|
60971
|
60972
|
60973
|
61056
|
61057
|
61254
|
61255
|
61794
|
63168
|
63169
|
63170