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 |
- |
|
|