Skip to content

Commit

Permalink
TTO-135 Identify item pool for UK and Australian authors
Browse files Browse the repository at this point in the history
- Re-enable in Commonwealth project country list.
- Update cutoff dates based on spec in TTO ticket.
  • Loading branch information
moseshll committed Oct 9, 2023
1 parent 38fed4a commit 48bc79a
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 7 deletions.
2 changes: 1 addition & 1 deletion cgi/CRMS.pm
Original file line number Diff line number Diff line change
Expand Up @@ -65,7 +65,7 @@ sub new
return $self;
}

our $VERSION = '8.5.15';
our $VERSION = '8.5.16';
sub Version
{
return $VERSION;
Expand Down
7 changes: 3 additions & 4 deletions cgi/Project/Commonwealth.pm
Original file line number Diff line number Diff line change
Expand Up @@ -10,11 +10,10 @@ sub new
return $class->SUPER::new(@_);
}

# 2023 Commonwealth reactivation only for Canada
my $CANDIDATE_COUNTRIES = {
# 'Australia' => 1,
'Australia' => 1,
'Canada' => 1,
# 'United Kingdom' => 1
'United Kingdom' => 1
};

# ========== CANDIDACY ========== #
Expand Down Expand Up @@ -67,7 +66,7 @@ sub year_range {
my $year = shift || $self->{crms}->GetTheYear();

if ($country eq 'United Kingdom' || $country eq 'Australia') {
return [$year - 125, $year - 71]
return [$year - 124, $year - 83]
}
# Magic hardcoded 1971 based on regime changes, not rolling wall.
return [$year - 125, 1971] if $country eq 'Canada';
Expand Down
4 changes: 2 additions & 2 deletions t/Project/Commonwealth.t
Original file line number Diff line number Diff line change
Expand Up @@ -25,8 +25,8 @@ ok(defined $proj);
subtest 'Commonwealth::year_range' => sub {
my $year = 2020;
my $test_data = {
'United Kingdom' => [1895, 1949],
'Australia' => [1895, 1949],
'United Kingdom' => [1896, 1937],
'Australia' => [1896, 1937],
'Canada' => [1895, 1971],
'Undetermined' => [0, 0]
};
Expand Down

0 comments on commit 48bc79a

Please sign in to comment.