package EPrints::Plugin::Screen::User::Download_cv;

use EPrints::Plugin::Screen;
#use EPrints::Plugin::Screen::User;

#@ISA = ( 'EPrints::Plugin::Screen::User' );
@ISA = ( 'EPrints::Plugin::Screen' );

use Fcntl qw(:DEFAULT :seek);
use File::Temp qw/ tempfile /;

use strict;

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

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

	if( defined $self->{session} && !defined $self->{session}->get_repository->get_conf( "meprints_enabled" ) )
	{
		return $self;
	}

	$self->{appears} = [
		{
			place => "user_actions",
			position => 910,
		}
	];

	return $self;
}

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

	return 0 unless( defined $self->{processor}->{user} && defined $self->{session}->current_user );

	return 0 unless( $self->{processor}->{user}->get_id == $self->{session}->current_user->get_id );
	
	return $self->allow( "user/view" );
}


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

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

        my $session = $self->{session};

	my $chunk = $session->make_doc_fragment;

	my $cv_link = $session->render_link( "/cgi/meprints/cv.doc?userid=".$user->get_value( "userid") );
	$cv_link->appendChild( $session->make_text("Download C.V.") );
	$chunk->appendChild( $cv_link );

        return $chunk;
}



1;