=head1 NAME

EPrints::Plugin::Screen::EPrint::PCIRequestReview

=cut

package EPrints::Plugin::Screen::EPrint::PCIRequestReview;

@ISA = ( 'EPrints::Plugin::Screen::EPrint' );

use strict;

use PCI_Review::Utils;

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

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

	#	$self->{priv} = # no specific priv - one per action

	$self->{actions} = [qw/ request_review /];

	$self->{appears} = [ { place => "eprint_actions",
			       position => 500, },
	];

	$self->{disable}  = 0;

	return $self;
}

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

    my $repo = $self->repository;
    $self->SUPER::properties_from;

    my $eprint = $self->{processor}->{eprint};

    # get some handy values for this screen
    my $latest_pci = $eprint->get_latest_pci_ldn;
    if( defined $latest_pci )
    {
        # get our current status
        $self->{processor}->{status} = $eprint->get_pci_status;

        # get our latest response
        $self->{processor}->{latest_response} = $latest_pci->get_latest_response;
    }

    # and get all the requests we may have ever sent
    $self->{processor}->{ldns} = PCI_Review::Utils::get_pci_requests( $repo, $eprint );
}

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

    # the eprint must be in the live archive
    return 0 unless $self->{processor}->{eprint}->value( "eprint_status" ) eq "archive";

    # and it must have an openly accessible full text
    return 0 unless $self->{processor}->{eprint}->value( "full_text_status" ) eq "public";

	return 1; #$self->allow( "eprint/derive_version" );
}

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

    return $self->can_be_viewed;
}

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

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

	my $frag = $xml->create_document_fragment;

	$frag->appendChild( $self->html_phrase( "help" ) );

    # status
    if( defined $self->{processor}->{status} )
    {
        $frag->appendChild( $self->render_status );    
}

    # present option to request review if no status or last response was tentative reject
    if( !defined $self->{processor}->{status} || $self->{processor}->{status} eq "TentativeReject" || $self->{processor}->{status}eq "fail" )
    {
        # form
	    $frag->appendChild( $self->render_request_form );
    }
    
    # requests
    $frag->appendChild( $self->render_requests );

	return $frag;
}

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

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

	my $div = $xml->create_element( "div", class => "ep_block ep_sr_component pci_status" );

    my $status = $self->{processor}->{status};
 	my $title = $xml->create_element( "h2", id => "status_label" );
    $title->appendChild( $self->html_phrase( "status" ) );
    $title->appendChild( $self->html_phrase( "pci_$status" ) );
   	$div->appendChild( $title );

    $div->appendChild( my $info_div = $xml->create_element( "div", class => "pci_status_info" ) );

    $info_div->appendChild( my $help_div = $xml->create_element( "div", class => "pci_status_help" ) );
    $help_div->appendChild( $self->html_phrase( "pci_$status:help" ) );

    # show summary info
    if( defined $self->{processor}->{latest_response} )
    {
        my $summary = $self->{processor}->{latest_response}->get_content_value( "summary" );
        if( defined $summary )
        {
            $info_div->appendChild( my $summary_div = $xml->create_element( "div", class => "pci_status_summary" ) );
            $summary_div->appendChild( $self->html_phrase( "pci_status:summary", summary => $repo->make_text( $summary ) ) );
        }
        elsif( $status eq "AnnounceReview" || $status eq "AnnounceEndorsement" )
        {   
            my $result = "Review";
            $result = "Endorsement" if $status eq "AnnounceEndorsement";

            my $review = $self->{processor}->{latest_response}->get_content_value( "object" )->{id};
            my $link = $xml->create_element( "a", href => $review );
            $link->appendChild( $repo->make_text( $review ) );

            $info_div->appendChild( my $summary_div = $xml->create_element( "div", class => "pci_status_summary" ) );
            $summary_div->appendChild( $self->html_phrase( "pci_status:$result", link => $link ) );
        }
    }

    return $div;
}

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

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

	my $div = $xml->create_element( "div", class => "ep_block ep_sr_component pci_request_review_form" );

	my $title = $xml->create_element( "h2", id => "data_label" );
	$title->appendChild( $self->html_phrase( "data" ) );
	$div->appendChild( $title );

	my $help = $xml->create_element( "p", id => "data_help" );
        $help->appendChild( $self->html_phrase( "data_help" ) );
	$div->appendChild( $help );

	my $form = $div->appendChild( $self->{processor}->screen->render_form( "request_review" ) );

	my @inboxes = keys %{$repo->get_conf("ldn_inboxes", "pci_review")};
	my %labels;
	foreach my $key(@inboxes){
	   $labels{$key} = $repo->phrase("pci_review/inbox:label_".$key);
	}

	$form->appendChild($repo->render_option_list( 
			name => 'pci_community', 
			values => \@inboxes,
			labels => \%labels
			) );

	#$form->appendChild( $self->render_actions );
	$form->appendChild( $repo->render_action_buttons(
		request_review => $repo->phrase( "Plugin/Screen/PCIRequestReview:action_request" ),
	) );

	return $div;
}


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

    my $session = $self->{session};
    my $eprint =  $self->{processor}->{eprint};
    my $ldn_ds = $session->dataset( "ldn" );

    my $ldn = EPrints::DataObj::LDN->create_from_data(
        $session,
        {
            from => $session->get_conf("base_url"),
            to => $session->param("pci_community"),
            type => "OfferEndorsement",
            subject_id => $eprint->id,
            subject_dataset => "eprint",        
        },
        $ldn_ds
    );

    my @docs = $eprint->get_all_documents;
    my $document = $docs[0];
    my $user = $self->{session}->current_user;
    my @type = ( "Offer", "coar-notify:EndorsementAction" );
 
    # was our last response a tentative reject? If so we need to include this 
    my $in_reply_to = undef;
    if( $self->{processor}->{status} eq "TentativeReject" )
    {
        $in_reply_to = $self->{processor}->{latest_response}->value( "uuid" );
    }

    $ldn->create_payload_and_send(
        $eprint, # OBJECT
        $user, # ACTOR
        $document, # SUB OBJECT
        $in_reply_to,
        \@type,
    );
}

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

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

	my $div = $xml->create_element( "div", class => "ep_block ep_sr_component pci_requests" );

	my $title = $xml->create_element( "h2", id => "requests" );
	$title->appendChild( $self->html_phrase( "requests" ) );
	$div->appendChild( $title );

	my $help = $xml->create_element( "p", id => "requests_help" );
    $help->appendChild( $self->html_phrase( "requests_help" ) );
	$div->appendChild( $help );

    $self->{processor}->{ldns}->map( sub {
        (undef, undef, my $ldn ) = @_;

        my $status = $ldn->get_pci_status;

        $div->appendChild( my $ldn_div = $xml->create_element( "div", class => "pci_ldn_request pci_$status" ) );
        $ldn_div->appendChild( $ldn->render_citation( "pci_ldn_request" ) );

        # get responses
        my $responses = $ldn->get_responses;
        if( $responses->count > 0 )
        {        
            $ldn_div->appendChild( my $responses_div = $xml->create_element( "div", class=>"pci_ldn_responses" ) );
            $responses_div->appendChild( my $responses_header = $xml->create_element( "span", class=>"pci_ldn_responses_header" ) );
            $responses_header->appendChild( $self->html_phrase( "responses_header" ) );

            $responses->map( sub {
                (undef, undef, my $response ) = @_;
                $responses_div->appendChild( my $response_div = $xml->create_element( "div", class => "pci_ldn_response" ) );
                $response_div->appendChild( $response->render_citation( "pci_ldn_response" ) );
            } );
        }
        else # no responses to show...
        {
            $ldn_div->appendChild( my $responses_div = $xml->create_element( "div", class=>"pci_ldn_responses" ) );
            $responses_div->appendChild( my $responses_header = $xml->create_element( "span", class=>"pci_ldn_responses_header" ) );

            if( $status eq "fail" )
            {
                $responses_header->appendChild( $self->html_phrase( "request_failed" ) );
            }
            else
            {
                $responses_header->appendChild( $self->html_phrase( "awaiting_response" ) );
            }
           
        }

    } );

    # javascript for showing/hiding LDN payloads
    $div->appendChild( $repo->make_javascript( 'initLDNListener();' ) );

	return $div;
}

1;