package EPrints::Plugin::EPrintSneep;

our @ISA = qw/ EPrints::Plugin /;

package EPrints::DataObj::EPrint;

sub get_sneeps
{
        my( $self, $type, $opts) = @_;

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

	my $dataset = $session->get_repository->get_dataset("sneep");

	my $userid = $opts->{userid};

        my $search = EPrints::Search->new(session=>$session, dataset=>$dataset, custom_order=>"-datestamp" );
        $search->add_field($dataset->get_field("eprintid"), $self->get_id());
        if(defined $type){
		$search->add_field($dataset->get_field("type"), $type);
	}
	
	if(defined $userid){
		$search->add_field($dataset->get_field("userid"), $userid);
	}
	
	my $sneep_list = $search->perform_search;

	#$search->dispose;
	
	return $sneep_list;

}

1;