I meant:

my @creators = @{ $eprint->value( 'creators' ) || [] };

foreach my $creator (@creators)

...

Seb

On 17.10.2014 16:31, sf2 wrote:

Hola Lizz,

I would do something like:

my $creators = @{ $eprint->value( 'creators' ) || [] };

...

push @newcreators, { name => ... , etc };

...

 

in your example you push an array-ref onto the array rather than pushing a single record/row:

push @foo, [ { ... } ] vs push @foo, { ... }

Seb

On 17.10.2014 16:33, Lizz Jennings wrote:

Hi all,

I'm getting in a bit of a tangle.

I'd like to be able to add a function to eprint_fields_automatic for the 
creators field to generate affiliation information based on email 
addresses (where it's obvious e.g. academic institutions). I've hit a 
stumbling block immediately - I can't seem to get this to work without 
overwriting the whole thing with a single row (I've managed several 
variations on this particular theme).

This currently works to overwrite the whole list with the first creator 
and does add in or change the affiliation.

     if ( $type eq "data_collection" ) {
             my $creators = $eprint->get_value( "creators" );
         my @newcreators;
         foreach my $creator (@$creators) {
             push @newcreators, [{ name => $creator->{name}, id => 
$creator->{id}, orcid => $creator->{orcid}, affiliation => "bibble", 
contact => $creator->{contact} }];
         }
         $eprint->set_value( "creators", @newcreators );

     }

Any ideas on how to do this properly would be much appreciated.

Lizz

 

 

*** Options: http://mailman.ecs.soton.ac.uk/mailman/listinfo/eprints-tech
*** Archive: http://www.eprints.org/tech.php/
*** EPrints community wiki: http://wiki.eprints.org/
*** EPrints developers Forum: http://forum.eprints.org/