From d6f12d9cad50811d8931d82d20139bf0f36b773a Mon Sep 17 00:00:00 2001 From: Moses Hall Date: Mon, 29 Jan 2024 15:58:49 -0500 Subject: [PATCH] TTO-173 Transfer the Crown items into Commonwealth (CRMS) - Disable candidacy check in CrownCopyright.pm, reverting to default (reject) behavior. - Project scope may migrate into Commonwealth project in future, for now we will let this project run dry. --- cgi/Project/CrownCopyright.pm | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) diff --git a/cgi/Project/CrownCopyright.pm b/cgi/Project/CrownCopyright.pm index 13fc6c0d..addb4630 100644 --- a/cgi/Project/CrownCopyright.pm +++ b/cgi/Project/CrownCopyright.pm @@ -10,24 +10,17 @@ sub new return $class->SUPER::new(@_); } -#my %TEST_HTIDS = ( -# 'coo.31924000029250' => 'Australia', -# 'bc.ark:/13960/t02z7k303' => 'Canada', -# 'bc.ark:/13960/t0bw4939s' => 'UK'); - -#sub tests -#{ -# my $self = shift; -# -# my @tests = keys %TEST_HTIDS; -# return \@tests; -#} +# Note: this project is being folded into Commonwealth starting January 2024. +# By renaming EvaluateCandidacy the project should revert to the default +# behavior of not allowing candidates. Any volumes that qualify for both projects should +# get picked up by Commonwealth, and anything that falls through the cracks can +# be recovered by looking at the metadata if and when Commonwealth scope is changed. # ========== CANDIDACY ========== # # Returns undef for failure, or hashref with two fields: # status in {'yes', 'no', 'filter'} # msg potentially empty explanation. -sub EvaluateCandidacy +sub EvaluateCandidacy_DISABLED { my $self = shift; my $id = shift;