|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 96; |
20 |
use Test::More tests => 98; |
| 21 |
|
21 |
|
| 22 |
use DateTime; |
22 |
use DateTime; |
| 23 |
|
23 |
|
|
Lines 455-461
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
| 455 |
$biblionumber |
455 |
$biblionumber |
| 456 |
); |
456 |
); |
| 457 |
my $datedue6 = AddIssue( $renewing_borrower, $barcode6); |
457 |
my $datedue6 = AddIssue( $renewing_borrower, $barcode6); |
| 458 |
is (defined $datedue6, 1, "Item 2 checked out, due date: $datedue6"); |
458 |
is (defined $datedue6, 1, "Item 2 checked out, due date: ".$datedue6->date_due); |
| 459 |
|
459 |
|
| 460 |
my $now = dt_from_string(); |
460 |
my $now = dt_from_string(); |
| 461 |
my $five_weeks = DateTime::Duration->new(weeks => 5); |
461 |
my $five_weeks = DateTime::Duration->new(weeks => 5); |
|
Lines 489-494
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
| 489 |
$new_log_size = scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } ); |
489 |
$new_log_size = scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } ); |
| 490 |
is ($new_log_size, $old_log_size + 1, 'renew log successfully added'); |
490 |
is ($new_log_size, $old_log_size + 1, 'renew log successfully added'); |
| 491 |
|
491 |
|
|
|
492 |
my $old_issue_log_size = scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["ISSUE"]) } ); |
| 493 |
my $old_renew_log_size = scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } ); |
| 494 |
print $datedue6->date_due."\n"; |
| 495 |
AddIssue( $renewing_borrower,$barcode7,Koha::DateUtils::output_pref({str=>$datedue6->date_due, dateformat =>'iso'}),0,$date, 0, undef ); |
| 496 |
$new_log_size = scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEWAL"]) } ); |
| 497 |
is ($new_log_size, $old_renew_log_size + 1, 'renew log successfully added when renewed via issuing'); |
| 498 |
$new_log_size = scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["ISSUE"]) } ); |
| 499 |
is ($new_log_size, $old_issue_log_size, 'renew not logged as issue when renewed via issuing'); |
| 500 |
|
| 501 |
|
| 492 |
|
502 |
|
| 493 |
$fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } ); |
503 |
$fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } ); |
| 494 |
is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' ); |
504 |
is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' ); |
| 495 |
- |
|
|