#!/usr/bin/perl -w -I/opt/eprints2/perl_lib

# script to bulk erase results of a search
my $ARCHIVEID = 'raedemo';
my $DATASETID = 'archive';

use EPrints::Session;

use strict;

my $session = new EPrints::Session( 1 , $ARCHIVEID );
Apache::exit( 0 ) unless( defined $session );

my $ds = $session->get_archive()->get_dataset( $DATASETID );
my $searchexp = EPrints::SearchExpression->new( dataset => $ds , session => $session );

# add your rules here
$searchexp->add_field( $ds->get_field( "date_effective" ), "2002" );

$searchexp->perform_search;
$searchexp->map( \&deal );
$session->terminate();
exit;

exit;

sub deal
{
        my( $session, $dataset, $eprint, $info ) = @_;

        print "Delete: #".$eprint->get_value('eprintid')." - ".$eprint->get_value('title')."\n";

        # uncomment this when you feel brave:
        # this is the line which really erases things
        # $eprint->remove;
}