package EPrints::Plugin::Screen::Report::Orcid::UserOrcid;

use EPrints::Plugin::Screen::Report::Orcid;
our @ISA = ( 'EPrints::Plugin::Screen::Report::Orcid' );

use strict;

sub new
{
        my( $class, %params ) = @_;

        my $self = $class->SUPER::new( %params );

        $self->{datasetid} = 'user';
        $self->{custom_order} = '-name';
        $self->{report} = 'orcid-user';

	$self->{exportfields} = {
                orcid_user => [ qw(
			userid
			username
			email
			name
			orcid
                )],
	};

        return $self;
}

sub items
{
	my( $self ) = @_;

	my $list = $self->SUPER::items();

	if( defined $list )
        {
                my @ids = ();

		$list->map(sub{
                        my($session, $dataset, $user) = @_;

                        if( $user->is_set("orcid") )
                        {
                                push @ids, $user->id;
                        }
                });
		my $ds = $self->{session}->dataset( $self->{datasetid} );
                my $results = $ds->list(\@ids);
                return $results;

        }
        # we can't return an EPrints::List if {dataset} is not defined
        return undef;
 }

sub ajax_user
{
        my( $self ) = @_;

        my $repo = $self->repository;

        my $json = { data => [] };

        $repo->dataset( "user" )
        ->list( [$repo->param( "user" )] )
        ->map(sub {
                (undef, undef, my $user) = @_;

                return if !defined $user; # odd

                my $frag = $user->render_citation_link;
                push @{$json->{data}}, {
                        datasetid => $user->dataset->base_id,
                        dataobjid => $user->id,
                        summary => EPrints::XML::to_string( $frag ),
#                       grouping => sprintf( "%s", $user->value( SOME_FIELD ) ),
                        problems => [ $self->validate_dataobj( $user ) ],
                };
        });
        print $self->to_json( $json );
}

sub validate_dataobj
{
        my( $self, $user ) = @_;

        my $repo = $self->{repository};

        my @problems;

        return @problems;
}