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

(-)a/C4/Accounts.pm (-5 lines)
Lines 225-235 sub makepayment { Link Here
225
    if ( $data->{'accounttype'} eq 'Rep' || $data->{'accounttype'} eq 'L' ) {
225
    if ( $data->{'accounttype'} eq 'Rep' || $data->{'accounttype'} eq 'L' ) {
226
        C4::Circulation::ReturnLostItem( $borrowernumber, $data->{'itemnumber'} );
226
        C4::Circulation::ReturnLostItem( $borrowernumber, $data->{'itemnumber'} );
227
    }
227
    }
228
    my $sthr = $dbh->prepare("SELECT max(accountlines_id) AS lastinsertid FROM accountlines");
229
    $sthr->execute();
230
    my $datalastinsertid = $sthr->fetchrow_hashref;
231
    $sthr->finish;
232
    return $datalastinsertid->{'lastinsertid'};
233
}
228
}
234
229
235
=head2 getnextacctno
230
=head2 getnextacctno
(-)a/installer/data/mysql/updatedatabase.pl (-2 / +1 lines)
Lines 5655-5661 if (C4::Context->preference("Version") < TransformToNum($DBversion)) { Link Here
5655
    $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'OPACdefaultSortField' AND value = 'callnumber'");
5655
    $dbh->do("UPDATE systempreferences SET value = 'call_number' WHERE variable = 'OPACdefaultSortField' AND value = 'callnumber'");
5656
    print "Upgrade to $DBversion done (Bug 8657 - Default sort by call number does not work. Correcting system preference value.)\n";
5656
    print "Upgrade to $DBversion done (Bug 8657 - Default sort by call number does not work. Correcting system preference value.)\n";
5657
    SetVersion ($DBversion);
5657
    SetVersion ($DBversion);
5658
5658
}
5659
5659
5660
$DBversion = "XXX";
5660
$DBversion = "XXX";
5661
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5661
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5662
- 

Return to bug 7671