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

(-)a/C4/Accounts.pm (+2 lines)
Lines 211-216 sub manualinvoice { Link Here
211
    my $accountno  = getnextacctno($borrowernumber);
211
    my $accountno  = getnextacctno($borrowernumber);
212
    my $amountleft = $amount;
212
    my $amountleft = $amount;
213
213
214
    $itemnum ||= undef;
215
214
    if (   ( $type eq 'L' )
216
    if (   ( $type eq 'L' )
215
        or ( $type eq 'F' )
217
        or ( $type eq 'F' )
216
        or ( $type eq 'A' )
218
        or ( $type eq 'A' )
(-)a/C4/Circulation.pm (-1 / +1 lines)
Lines 3223-3229 sub AddIssuingCharge { Link Here
3223
3223
3224
    my $branchcode = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef;
3224
    my $branchcode = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef;
3225
3225
3226
    Koha::Account::Line->new(
3226
    return Koha::Account::Line->new(
3227
        {
3227
        {
3228
            date              => dt_from_string(),
3228
            date              => dt_from_string(),
3229
            borrowernumber    => $borrowernumber,
3229
            borrowernumber    => $borrowernumber,
(-)a/t/db_dependent/Circulation/issue.t (-3 / +2 lines)
Lines 207-214 $sth = $dbh->prepare($query); Link Here
207
$sth->execute;
207
$sth->execute;
208
my $countaccount = $sth -> fetchrow_array;
208
my $countaccount = $sth -> fetchrow_array;
209
is ($countaccount,0,"0 accountline exists");
209
is ($countaccount,0,"0 accountline exists");
210
is( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ),
210
isa_ok( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ),
211
    1, "An issuing charge has been added" );
211
    'Koha::Account::Line', "An issuing charge has been added" );
212
my $account_id = $dbh->last_insert_id( undef, undef, 'accountlines', undef );
212
my $account_id = $dbh->last_insert_id( undef, undef, 'accountlines', undef );
213
$sth->execute;
213
$sth->execute;
214
$countaccount = $sth -> fetchrow_array;
214
$countaccount = $sth -> fetchrow_array;
215
- 

Return to bug 19066