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

(-)a/t/db_dependent/Circulation.t (-11 / +10 lines)
Lines 338-344 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
338
    my $barcode2 = 'R00000343';
338
    my $barcode2 = 'R00000343';
339
    my $barcode3 = 'R00000344';
339
    my $barcode3 = 'R00000344';
340
    my $branch   = 'MPL';
340
    my $branch   = 'MPL';
341
    
341
342
    #Create another record
342
    #Create another record
343
    my $biblio2 = MARC::Record->new();
343
    my $biblio2 = MARC::Record->new();
344
    my $title2 = 'Something is worng here';
344
    my $title2 = 'Something is worng here';
Lines 347-353 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
347
        MARC::Field->new('245', ' ', ' ', a => $title2),
347
        MARC::Field->new('245', ' ', ' ', a => $title2),
348
    );
348
    );
349
    my ($biblionumber2, $biblioitemnumber2) = AddBiblio($biblio2, '');
349
    my ($biblionumber2, $biblioitemnumber2) = AddBiblio($biblio2, '');
350
    
350
351
    #Create third item
351
    #Create third item
352
    AddItem(
352
    AddItem(
353
        {
353
        {
Lines 375-390 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
375
375
376
    my $datedue  = AddIssue( $a_borrower, $barcode, $yesterday );
376
    my $datedue  = AddIssue( $a_borrower, $barcode, $yesterday );
377
    my $datedue2 = AddIssue( $a_borrower, $barcode2, $two_days_ahead );
377
    my $datedue2 = AddIssue( $a_borrower, $barcode2, $two_days_ahead );
378
    
378
379
    my $upcoming_dues;
379
    my $upcoming_dues;
380
380
381
    diag( "GetUpcomingDueIssues tests" );
381
    diag( "GetUpcomingDueIssues tests" );
382
    
382
383
    for my $i(0..1) {
383
    for my $i(0..1) {
384
        $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => $i } );
384
        $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => $i } );
385
        is ( scalar( @$upcoming_dues ), 0, "No items due in less than one day ($i days in advance)" );
385
        is ( scalar( @$upcoming_dues ), 0, "No items due in less than one day ($i days in advance)" );
386
    }
386
    }
387
    
387
388
    #days_in_advance needs to be inclusive, so 1 matches items due tomorrow, 0 items due today etc.
388
    #days_in_advance needs to be inclusive, so 1 matches items due tomorrow, 0 items due today etc.
389
        $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 2 } );
389
        $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 2 } );
390
    is ( scalar ( @$upcoming_dues), 1, "Only one item due in 2 days or less" );
390
    is ( scalar ( @$upcoming_dues), 1, "Only one item due in 2 days or less" );
Lines 397-416 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
397
397
398
    # Bug 11218 - Due notices not generated - GetUpcomingDueIssues needs to select due today items as well
398
    # Bug 11218 - Due notices not generated - GetUpcomingDueIssues needs to select due today items as well
399
399
400
    my $datedue2 = AddIssue( $a_borrower, $barcode3, $today );
400
    my $datedue3 = AddIssue( $a_borrower, $barcode3, $today );
401
    
401
402
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => -1 } );
402
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => -1 } );
403
    is ( scalar ( @$upcoming_dues), 0, "Overdues can not be selected" );
403
    is ( scalar ( @$upcoming_dues), 0, "Overdues can not be selected" );
404
404
405
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 0 } );
405
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 0 } );
406
    is ( scalar ( @$upcoming_dues), 1, "1 item is due today" );
406
    is ( scalar ( @$upcoming_dues), 1, "1 item is due today" );
407
    
407
408
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 1 } );
408
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 1 } );
409
    is ( scalar ( @$upcoming_dues), 1, "1 item is due today, none tomorrow" );
409
    is ( scalar ( @$upcoming_dues), 1, "1 item is due today, none tomorrow" );
410
    
410
411
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 2 }  );
411
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 2 }  );
412
    is ( scalar ( @$upcoming_dues), 2, "2 items are due withing 2 days" );
412
    is ( scalar ( @$upcoming_dues), 2, "2 items are due withing 2 days" );
413
    
413
414
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 3 } );
414
    $upcoming_dues = C4::Circulation::GetUpcomingDueIssues( { days_in_advance => 3 } );
415
    is ( scalar ( @$upcoming_dues), 2, "2 items are due withing 2 days" );
415
    is ( scalar ( @$upcoming_dues), 2, "2 items are due withing 2 days" );
416
416
417
- 

Return to bug 11218