TTO-135 Identify item pool for UK and Australian authors (#112)

* TTO-135 Identify item pool for UK and Australian authors
- Re-enable in Commonwealth project country list.
- Update cutoff dates based on spec in TTO ticket.
- Relax English requirement.

cgi/CRMS.pm

@@ -65,7 +65,7 @@ sub new
   return $self;
 }
 
-our $VERSION = '8.5.15';
+our $VERSION = '8.5.16';
 sub Version
 {
   return $VERSION;

cgi/Project/Commonwealth.pm

@@ -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 ========== #
@@ -38,6 +37,8 @@ sub EvaluateCandidacy {
     my $type = substr($leader, 6, 1);
     my $date1 = substr($leader, 7, 4);
     my $date2 = substr($leader, 11, 4);
+    # Dates like "192u" could be handled like pub date ranges if we had an
+    # "actual pub date" UI.
     push @errs, "pub date not completely specified ($date1,$date2,'$type')";
   }
   # Check country of publication
@@ -52,8 +53,8 @@ sub EvaluateCandidacy {
   push @errs, 'non-BK format' unless $record->isFormatBK($id);
   return {'status' => 'no', 'msg' => join '; ', @errs} if scalar @errs;
   my $src;
-  my $lang = $record->language;
-  $src = 'language' if 'eng' ne $lang;
+  #my $lang = $record->language;
+  #$src = 'language' if 'eng' ne $lang;
   $src = 'translation' if $record->isTranslation;
   my $date = $self->{crms}->FormatPubDate($id, $record);
   $src = 'date range' if $date =~ m/^\d+-(\d+)?$/;
@@ -67,7 +68,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';

t/Project/Commonwealth.t

@@ -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]
   };