| Lines 17-23
          
      
      
        Link Here | 
        
          | 17 |  | 17 |  | 
        
          | 18 | use Modern::Perl; | 18 | use Modern::Perl; | 
        
          | 19 |  | 19 |  | 
          
            
              | 20 | use Test::More tests => 50; | 20 | use Test::More tests => 53; | 
        
          | 21 |  | 21 |  | 
        
          | 22 | use MARC::Record; | 22 | use MARC::Record; | 
        
          | 23 | use DateTime::Duration; | 23 | use DateTime::Duration; | 
  
    | Lines 471-476
          is($cancancel, 0, 'Reserve in waiting status cant be canceled');
      
      
        Link Here | 
        
          | 471 |  | 471 |  | 
        
          | 472 | # End of tests for bug 12876 | 472 | # End of tests for bug 12876 | 
        
          | 473 |  | 473 |  | 
            
              |  |  | 474 |        #### | 
            
              | 475 | ####### Testing Bug 13113 - Prevent juvenile/children from reserving ageRestricted material >>> | 
            
              | 476 |        #### | 
            
              | 477 |  | 
            
              | 478 | C4::Context->set_preference( 'AgeRestrictionMarker', 'FSK|PEGI|Age|K' ); | 
            
              | 479 |  | 
            
              | 480 | #Reserving an not-agerestricted Biblio by a Borrower with no dateofbirth is tested previously. | 
            
              | 481 |  | 
            
              | 482 | #Set the ageRestriction for the Biblio | 
            
              | 483 | my $record = GetMarcBiblio( $bibnum ); | 
            
              | 484 | my ( $ageres_tagid, $ageres_subfieldid ) = GetMarcFromKohaField( "biblioitems.agerestriction", '' ); | 
            
              | 485 | $record->append_fields(  MARC::Field->new($ageres_tagid, '', '', $ageres_subfieldid => 'PEGI 16')  ); | 
            
              | 486 | C4::Biblio::ModBiblio( $record, $bibnum, '' ); | 
            
              | 487 |  | 
            
              | 488 | is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber) , 1, "Reserving an ageRestricted Biblio without a borrower dateofbirth succeeds" ); | 
            
              | 489 |  | 
            
              | 490 | #Set the dateofbirth for the Borrower making him "too young". | 
            
              | 491 | my $now = DateTime->now(); | 
            
              | 492 | C4::Members::SetAge( $borrower, '0015-00-00' ); | 
            
              | 493 | C4::Members::ModMember( borrowernumber => $borrowernumber, dateofbirth => $borrower->{dateofbirth} ); | 
            
              | 494 |  | 
            
              | 495 | is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber) , 0, "Reserving a 'PEGI 16' Biblio by a 15 year old borrower fails"); | 
            
              | 496 |  | 
            
              | 497 | #Set the dateofbirth for the Borrower making him "too old". | 
            
              | 498 | C4::Members::SetAge( $borrower, '0030-00-00' ); | 
            
              | 499 | C4::Members::ModMember( borrowernumber => $borrowernumber, dateofbirth => $borrower->{dateofbirth} ); | 
            
              | 500 |  | 
            
              | 501 | is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber) , 1, "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds"); | 
            
              | 502 |        #### | 
            
              | 503 | ####### EO Bug 13113 <<< | 
            
              | 504 |        #### | 
            
              | 505 |  | 
        
          | 474 | $dbh->rollback; | 506 | $dbh->rollback; | 
        
          | 475 |  | 507 |  | 
        
          | 476 | sub count_hold_print_messages { | 508 | sub count_hold_print_messages { | 
            
              | 477 | -  |  |  |