package EPrints::Plugin::Screen::Hello;

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

use strict;
# Make the plug-in
sub new
{
	my( $class, %params ) = @_;

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

# Where the button to access the screen appears if anywhere, and what priority
	$self->{appears} = [
	{
		place => "admin_actions",
		position => 1247,
	},
		];

	return $self;
}

# Anyone can see this screen
sub can_be_viewed { 1 }

# What to display
sub render
{
	my( $self ) = @_;

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

	my $frag = $repository->xml->create_document_fragment();
	
	$frag->appendChild($repository->xml->create_text_node( "Hello, World!" ));

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

	return $frag;
}

1