package EPrints::Plugin::Export::REPOSITORYID::Titles;

use EPrints::Plugin::Export;
@ISA = ( "EPrints::Plugin::Export" );

use strict;

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

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

	# Register plugin
        $self->{name} = "Titles (REPOSITORYID)";
        $self->{accept} = [ "dataobj/eprint", "list/eprint" ];
        $self->{visible} = "all";
        $self->{suffix} = ".txt";
        $self->{mimetype} = "text/plain; charset=utf-8";

        return $self;
}

sub output_dataobj
{
        my( $plugin, $dataobj ) = @_;

	# Convert - print title
        my $title = $dataobj->get_value( "title" );
        return "TITLE: $title\n\n";
}

1;