Prints for division function

gistfile1.pl

=method prints_for_division

Returns an EPrints results set for all prints in a given division.

=cut

sub prints_for_division {
    my ($session, $division) = shift;

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

    my $search = EPrints::Search->new(
        session => $session,
        dataset => $dataset,
        satisfy_all => 1);

    $search->add_field(
        $dataset->get_field("divisions"),
        $division);

    return $search->perform_search;
}