EPScript to limit authors in citation

z_wrro_epscript_additions.pl

{
package EPrints::Script::Compiled;

use strict;

sub run_wrro_people_limited
{
        my( $self, $state, $value, $limit ) = @_;

        my $session = $state->{session};
        my $r = $state->{session}->make_doc_fragment;

        my $creators = $value->[0];

        if( defined $limit ){
                if( $limit->[1] ne "INTEGER" )
                {
                        EPrints::abort( "Usage: wrro_people_limited( PERSON_FIELD, max )" );
                }
                $limit = $limit->[0];
        }

        if( defined $limit && $limit > 0 ){
                $limit--;
        }
        if( !defined $limit || $limit > $#$creators ){
                $limit = $#$creators;
        }

        foreach my $i (0..$limit){

                my $creator = @$creators[$i];

                if( $i > 0 ){
                        #not first item (or only one item)
                        if( $i == $#$creators ){
                                #last item
                                $r->appendChild( $session->make_text( " and " ) );
                        } else {
                                $r->appendChild( $session->make_text( ", " ) );
                        }
                }

                my $person_span = $session->make_element( "span", "class" => "person" );
                $person_span->appendChild( $session->render_name( $creator->{name} ) );

                $r->appendChild( $person_span );
        }

        if( $limit < $#$creators ){
                my $more_authors = $#$creators - $limit;
                my $s = ( $more_authors > 1 ? 's' : '' );
                $r->appendChild( $session->make_text( " et al. ($more_authors more author$s)" ) );
        }
        return [ $r, "XHTML" ];
}

}