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

(-)a/C4/Circulation.pm (-9 / +5 lines)
Lines 2129-2134 routine in C<C4::Accounts>. Link Here
2129
sub MarkIssueReturned {
2129
sub MarkIssueReturned {
2130
    my ( $borrowernumber, $itemnumber, $dropbox_branch, $returndate, $privacy ) = @_;
2130
    my ( $borrowernumber, $itemnumber, $dropbox_branch, $returndate, $privacy ) = @_;
2131
2131
2132
2133
    # Retrieve the issue
2134
    my $issue = Koha::Checkouts->find( { itemnumber => $itemnumber } ) or return;
2135
    my $issue_id = $issue->issue_id;
2136
2132
    my $anonymouspatron;
2137
    my $anonymouspatron;
2133
    if ( $privacy == 2 ) {
2138
    if ( $privacy == 2 ) {
2134
        # The default of 0 will not work due to foreign key constraints
2139
        # The default of 0 will not work due to foreign key constraints
Lines 2143-2153 sub MarkIssueReturned { Link Here
2143
    my $schema   = $database->schema;
2148
    my $schema   = $database->schema;
2144
    my $dbh   = C4::Context->dbh;
2149
    my $dbh   = C4::Context->dbh;
2145
2150
2146
    my $issue_id = $dbh->selectrow_array(
2147
        q|SELECT issue_id FROM issues WHERE itemnumber = ?|,
2148
        undef, $itemnumber
2149
    );
2150
2151
    my $query = 'UPDATE issues SET returndate=';
2151
    my $query = 'UPDATE issues SET returndate=';
2152
    my @bind;
2152
    my @bind;
2153
    if ($dropbox_branch) {
2153
    if ($dropbox_branch) {
Lines 2170-2178 sub MarkIssueReturned { Link Here
2170
        # Update the returndate
2170
        # Update the returndate
2171
        $dbh->do( $query, undef, @bind );
2171
        $dbh->do( $query, undef, @bind );
2172
2172
2173
        # Retrieve the issue
2174
        my $issue = Koha::Checkouts->find( $issue_id ); # FIXME should be fetched earlier
2175
2176
        # Create the old_issues entry
2173
        # Create the old_issues entry
2177
        my $old_checkout = Koha::Old::Checkout->new($issue->unblessed)->store;
2174
        my $old_checkout = Koha::Old::Checkout->new($issue->unblessed)->store;
2178
2175
2179
- 

Return to bug 19487