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/00-strict.t (-24 lines)
Lines 1-24 Link Here
1
# This script is called by the pre-commit git hook to test modules compile
2
3
use strict;
4
use warnings;
5
use Test::More;
6
use Test::Strict;
7
use File::Spec;
8
use File::Find;
9
use lib("misc/translator");
10
use lib("installer");
11
12
my @dirs = ( 'acqui', 'admin', 'authorities', 'basket',
13
    'catalogue', 'cataloguing', 'changelanguage.pl', 'circ', 'debian', 'docs',
14
    'edithelp.pl', 'errors', 'fix-perl-path.PL', 'help.pl', 'installer',
15
    'koha_perl_deps.pl', 'kohaversion.pl', 'labels',
16
    'mainpage.pl', 'Makefile.PL', 'members', 'misc', 'offline_circ', 'opac',
17
    'patroncards', 'reports', 'reserve', 'reviews',
18
    'rewrite-config.PL', 'rotating_collections', 'serials', 'services', 'skel',
19
    'sms', 'suggestion', 'svc', 'tags', 'tools', 'virtualshelves' );
20
21
$Test::Strict::TEST_STRICT = 0;
22
$Test::Strict::TEST_SKIP = [ 'misc/kohalib.pl', 'sms/sms_listen_windows_start.pl', 'misc/plack/koha.psgi' ];
23
24
all_perl_files_ok(@dirs);
(-)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