| Lines 250-282
          subtest 'test_updateClaim' => sub {
      
      
        Link Here | 
        
          | 250 |     is($result_0, undef, 'Got the expected undef from update claim with nothin'); | 250 |     is($result_0, undef, 'Got the expected undef from update claim with nothin'); | 
        
          | 251 |  | 251 |  | 
        
          | 252 |     # Given ... 3 serial. 2 of them updated. | 252 |     # Given ... 3 serial. 2 of them updated. | 
            
              | 253 |     my $serialids_1   = [90980, 90981]; |  |  | 
        
          | 254 |     my $claimdate_1   = dt_from_string('2001-01-13'); # arbitrary date some time in the past. | 253 |     my $claimdate_1   = dt_from_string('2001-01-13'); # arbitrary date some time in the past. | 
        
          | 255 |     my $claim_count_1 = 5; | 254 |     my $claim_count_1 = 5; | 
          
            
              | 256 |     Koha::Serial->new( { serialid => $serialids_1->[0], serialseq => 'serialseq', subscriptionid => $subscriptionid, status => 3, | 255 |     my $biblio = $builder->build_sample_biblio; | 
            
              | 257 |                          biblionumber => 12345, claimdate => $claimdate_1, claims_count => $claim_count_1, } )->store(); | 256 |     my $serial1 = $builder->build_object( | 
            
              | 258 |     Koha::Serial->new( { serialid => $serialids_1->[1], serialseq => 'serialseq', subscriptionid => $subscriptionid, status => 3, | 257 |         { | 
            
              | 259 |                          biblionumber => 12345, claimdate => $claimdate_1, claims_count => $claim_count_1,  } )->store(); | 258 |             class => 'Koha::Serials', | 
            
              | 260 |     Koha::Serial->new( { serialid => 90982, serialseq => 'serialseq', subscriptionid => $subscriptionid, status => 3, | 259 |             value => { | 
            
              | 261 |                          biblionumber => 12345, claimdate => $claimdate_1, claims_count => $claim_count_1,  } )->store(); | 260 |                 serialseq      => 'serialseq', | 
            
              |  |  | 261 |                 subscriptionid => $subscriptionid, | 
            
              | 262 |                 status         => 3, | 
            
              | 263 |                 biblionumber   => $biblio->biblionumber, | 
            
              | 264 |                 claimdate      => $claimdate_1, | 
            
              | 265 |                 claims_count   => $claim_count_1, | 
            
              | 266 |             } | 
            
              | 267 |         } | 
            
              | 268 |     ); | 
            
              | 269 |     my $serial2 = $builder->build_object( | 
            
              | 270 |         { | 
            
              | 271 |             class => 'Koha::Serials', | 
            
              | 272 |             value => { | 
            
              | 273 |                 serialseq      => 'serialseq', | 
            
              | 274 |                 subscriptionid => $subscriptionid, | 
            
              | 275 |                 status         => 3, | 
            
              | 276 |                 biblionumber   => $biblio->biblionumber, | 
            
              | 277 |                 claimdate      => $claimdate_1, | 
            
              | 278 |                 claims_count   => $claim_count_1, | 
            
              | 279 |             } | 
            
              | 280 |         } | 
            
              | 281 |     ); | 
            
              | 282 |     my $serial3 = $builder->build_object( | 
            
              | 283 |         { | 
            
              | 284 |             class => 'Koha::Serials', | 
            
              | 285 |             value => { | 
            
              | 286 |                 serialseq      => 'serialseq', | 
            
              | 287 |                 subscriptionid => $subscriptionid, | 
            
              | 288 |                 status         => 3, | 
            
              | 289 |                 biblionumber   => $biblio->biblionumber, | 
            
              | 290 |                 claimdate      => $claimdate_1, | 
            
              | 291 |                 claims_count   => $claim_count_1, | 
            
              | 292 |             } | 
            
              | 293 |         } | 
            
              | 294 |     ); | 
        
          | 262 |  | 295 |  | 
        
          | 263 |     # When ... | 296 |     # When ... | 
          
            
              | 264 |     my $result_1 = C4::Serials::updateClaim($serialids_1); | 297 |     my $result_1 = C4::Serials::updateClaim([$serial1->serialid, $serial2->serialid]); | 
        
          | 265 |  | 298 |  | 
        
          | 266 |     # Then ... | 299 |     # Then ... | 
        
          | 267 |     is($result_1, 2, 'Got the expected 2 from update claim with 2 serial ids'); | 300 |     is($result_1, 2, 'Got the expected 2 from update claim with 2 serial ids'); | 
        
          | 268 |  | 301 |  | 
          
            
              | 269 |     my @late_or_missing_issues_1_0 = C4::Serials::GetLateOrMissingIssues(undef, $serialids_1->[0]); | 302 |     my @late_or_missing_issues_1_0 = C4::Serials::GetLateOrMissingIssues(undef, $serial1->serialid); | 
        
          | 270 |     is($late_or_missing_issues_1_0[0]->{claimdate}, $today, 'Got the expected first different claim date from update claim'); | 303 |     is($late_or_missing_issues_1_0[0]->{claimdate}, $today, 'Got the expected first different claim date from update claim'); | 
        
          | 271 |     is($late_or_missing_issues_1_0[0]->{claims_count}, $claim_count_1+1, 'Got the expected first claim count from update claim'); | 304 |     is($late_or_missing_issues_1_0[0]->{claims_count}, $claim_count_1+1, 'Got the expected first claim count from update claim'); | 
        
          | 272 |     is($late_or_missing_issues_1_0[0]->{status}, 7, 'Got the expected first claim status from update claim'); | 305 |     is($late_or_missing_issues_1_0[0]->{status}, 7, 'Got the expected first claim status from update claim'); | 
        
          | 273 |  | 306 |  | 
          
            
              | 274 |     my @late_or_missing_issues_1_1 = C4::Serials::GetLateOrMissingIssues(undef, $serialids_1->[1]); | 307 |     my @late_or_missing_issues_1_1 = C4::Serials::GetLateOrMissingIssues(undef, $serial2->serialid); | 
        
          | 275 |     is($late_or_missing_issues_1_1[0]->{claimdate}, $today, 'Got the expected second different claim date from update claim'); | 308 |     is($late_or_missing_issues_1_1[0]->{claimdate}, $today, 'Got the expected second different claim date from update claim'); | 
        
          | 276 |     is($late_or_missing_issues_1_1[0]->{claims_count}, $claim_count_1+1, 'Got the expected second claim count from update claim'); | 309 |     is($late_or_missing_issues_1_1[0]->{claims_count}, $claim_count_1+1, 'Got the expected second claim count from update claim'); | 
        
          | 277 |     is($late_or_missing_issues_1_1[0]->{status}, 7, 'Got the expected second claim status from update claim'); | 310 |     is($late_or_missing_issues_1_1[0]->{status}, 7, 'Got the expected second claim status from update claim'); | 
        
          | 278 |  | 311 |  | 
          
            
              | 279 |     my @late_or_missing_issues_1_2 = C4::Serials::GetLateOrMissingIssues(undef, 90982); | 312 |     my @late_or_missing_issues_1_2 = C4::Serials::GetLateOrMissingIssues(undef, $serial3->serialid); | 
        
          | 280 |     is($late_or_missing_issues_1_2[0]->{claimdate}, output_pref({ dt => $claimdate_1, dateonly => 1}), 'Got the expected unchanged claim date from update claim'); | 313 |     is($late_or_missing_issues_1_2[0]->{claimdate}, output_pref({ dt => $claimdate_1, dateonly => 1}), 'Got the expected unchanged claim date from update claim'); | 
        
          | 281 |     is($late_or_missing_issues_1_2[0]->{claims_count}, $claim_count_1, 'Got the expected unchanged claim count from update claim'); | 314 |     is($late_or_missing_issues_1_2[0]->{claims_count}, $claim_count_1, 'Got the expected unchanged claim count from update claim'); | 
        
          | 282 |     is($late_or_missing_issues_1_2[0]->{status}, 3, 'Got the expected unchanged claim status from update claim'); | 315 |     is($late_or_missing_issues_1_2[0]->{status}, 3, 'Got the expected unchanged claim status from update claim'); | 
            
              | 283 | -  |  |  |