package EPrints::ORCID::Utils;

use strict;

sub get_normalised_orcid
{
	my( $value ) = @_;

	# what could a user try to search with:
	# Full URL: http://orcid.org/0000-1234-1234-123X
	# Full URL: https://orcid.org/0000-1234-1234-123X
	# Namespaced: orcid.org/0000-1234-1234-123X
	# or            : orcid:0000-1234-1234-123X
	# or value      : 0000-1234-1234-123X
	# or even       : 000012341234123X
	# ...?!
	#
	# The RegExp could be something horrible like:
	# m#^(?:\s*(?:https?:\/\/)?orcid(?:\.org\/|:))?(\d{4}\-?\d{4}\-?\d{4}\-?\d{3}(?:\d|X))(?:\s*)$# )
	# but I think using a word boundary before the ORCID itself is cleaner and just as good...
	#
	
	return 0 unless EPrints::Utils::is_set( $value );
	if( $value =~ m/\b(\d{4})\-?(\d{4})\-?(\d{4})\-?(\d{3}(?:\d|X))/ )
        {
		return "$1-$2-$3-$4";
	}
	else 
	{
		return 0;
	}
}

sub user_with_orcid
{
        my( $repo, $orcid ) = @_;
	
	print STDERR "get a user... $orcid\n";
        my $dataset = $repo->dataset( "user" );

        $orcid = $repo->get_database->ci_lookup(
                $dataset->field( "orcid" ),
                $orcid
        );

        my $results = $dataset->search(
                filters => [
                        {
                                meta_fields => [qw( orcid )],
                                value => $orcid, match => "EX"
                        }
                ]);

        return $results->item( 0 );
}

1;