DataCiteXML.pm

=head1 NAME
EPrints::Plugin::Export::DataCiteXML
=cut

package EPrints::Plugin::Export::DataCiteXML;
use EPrints::Plugin::Export::Feed;

@ISA = ('EPrints::Plugin::Export::Feed');

use strict;

use Data::Dumper;
sub new
{
        my ($class, %opts) = @_;

        my $self = $class->SUPER::new(%opts);

        $self->{name} = 'Data Cite XML';
        $self->{accept} = [ 'dataobj/eprint'];
        $self->{visible} = 'all';
        $self->{suffix} = '.xml';
        $self->{mimetype} = 'application/xml; charset=utf-8';
        $self->{arguments}->{doi} = undef;

      return $self;
}

sub output_dataobj
{
    my ($self, $dataobj, %opts) = @_;

    my $repo = $self->{repository};
    my $xml = $repo->xml;

    #reference the datacite schema from config
    our $entry = $xml->create_element( "resource",
                    xmlns=> $repo->get_conf( "datacitedoi", "xmlns"),
                    "xmlns:xsi"=>"http://www.w3.org/2001/XMLSchema-instance",
                    "xsi:schemaLocation" => $repo->get_conf( "datacitedoi", "schemaLocation"));

    #RM We pass in the DOI from Event::DataCite... or from --args on the cmd line

    # AH my $thisdoi = $opts{doi}; always returns undefined, even when DOI exists
    # Ideally coining should NOT happen in this script but opts{doi} should have it
    # but is always blank
    my $thisdoi = $dataobj->get_value("id_number");
    #RM coin a DOI if either
            # - not come via event or
            # - no doi arg passed in via cmd_line
    # ie when someone exports DataCiteXML from the Action tab
    if(!defined $thisdoi){
            #nick the coining sub from event plugin
            my $event = $repo->plugin("Event::DataCiteEvent");
            $thisdoi = $event->coin_doi($repo, $dataobj);
            #coin_doi may return an event error code if no prefix present assume this is the case
            my $prefix = $repo->get_conf( "datacitedoi", "prefix");
            return $thisdoi if($thisdoi !~ /^$prefix/);
    }
    $entry->appendChild( $xml->create_data_element( "identifier", $thisdoi , identifierType=>"DOI" ) );
    
    foreach my $field ( $dataobj->{dataset}->get_fields ){
            my $mapping_fn = "datacite_mapping_".$field->get_name;
            if($repo->can_call($mapping_fn) && $dataobj->exists_and_set($field->get_name)){
                    my $mapped_element = $repo->call( $mapping_fn, $xml, $dataobj, $repo, $dataobj->value($field->get_name) );
                    $entry->appendChild( $mapped_element ) if(defined $mapped_element);
            }
     }
       
       # There is no field for rights at EPrints leve so we derive rights from document
        # metadata and as such we need to call our derivation routine outside the above loop
        if($repo->can_call("datacite_mapping_rights_from_docs")){
                    my $mapped_element = $repo->call( "datacite_mapping_rights_from_docs", $xml, $dataobj, $repo );
                    $entry->appendChild( $mapped_element ) if(defined $mapped_element);
            }
####### From here on in you can redefine datacite_ampping_[fieldname] sub routines in lib/cfg.d/zzz_datacite_mapping.pl  #######################


            return '<?xml version="1.0" encoding="UTF-8"?>'."\n".$xml->to_string($entry);
}


1;