[EP-tech] Re: Setting a date (as a sub-field)

Ian Stuart Ian.Stuart at ed.ac.uk
Thu May 28 15:49:59 BST 2015

On 28/05/15 15:32, Timothy Miles-Board wrote:
> Hi Ian,
> Have you seen https://github.com/eprintsug/datesdatesdates

I hadn't... and it's almost identical to what I created

it worked fine for you, yes?

   my $ds = $session->dataset( 'archive' );

   my $list = $ds->search;
   $list->map( sub {
     my( $session, $dataset, $eprint ) = @_;
     my ($date, $type);
     ($date, $type) = ($eprint->value('date'),
     if ($date) {
       my $new_date = {date => $date}; #, dates_type => $type};
   print "Date: $date; Dates: ", Dumper $new_date;
       if ( $date =~ /\d+\-\d+\-\d+/ ) {
   print "Altering the date recording on #".$eprint->id."\n";
         $eprint->set_value( 'dates', [$new_date] );
           } );

Interestingly..... if I add a "sleep 2" after the commit, the ERRORs 
don't appear for 6 or 7 iterations!


Ian Stuart.
Developer: ORI, RJ-Broker, and OpenDepot.org
Bibliographics and Multimedia Service Delivery team,
The University of Edinburgh.


This email was sent via the University of Edinburgh.

The University of Edinburgh is a charitable body, registered in
Scotland, with registration number SC005336.

More information about the Eprints-tech mailing list