
package EPrints::Plugin::Screen::FirstTool;

use EPrints::Plugin::Screen::EPrint;

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

use strict;


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

	my @tools = ( $self->list_items( "key_tools" ), $self->list_items( "other_tools" ) );
	if( scalar @tools )
	{
		$self->{processor}->{screenid} = substr( $tools[0]->{screen}->{id}, 8 );
		$self->SUPER::from;
	}
}

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

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

	$chunk->appendChild( $self->html_phrase( "no_tools" ) );

	return $chunk;
}

1;

