Lines 206-213
$sth = $dbh->prepare($query);
Link Here
|
206 |
$sth->execute; |
206 |
$sth->execute; |
207 |
my $countaccount = $sth -> fetchrow_array; |
207 |
my $countaccount = $sth -> fetchrow_array; |
208 |
is ($countaccount,0,"0 accountline exists"); |
208 |
is ($countaccount,0,"0 accountline exists"); |
209 |
is( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ), |
209 |
is( ref( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ) ), |
210 |
1, "An issuing charge has been added" ); |
210 |
'Koha::Account::Offset', "An issuing charge has been added" ); |
211 |
my $account_id = $dbh->last_insert_id( undef, undef, 'accountlines', undef ); |
211 |
my $account_id = $dbh->last_insert_id( undef, undef, 'accountlines', undef ); |
212 |
$sth->execute; |
212 |
$sth->execute; |
213 |
$countaccount = $sth -> fetchrow_array; |
213 |
$countaccount = $sth -> fetchrow_array; |
214 |
- |
|
|