use C4::Biblio qw( AddBiblio TransformKohaToMarc GetMarcFromKohaField );

=head3 store

=cut

sub store {

    my ($self) = @_;

    # FIXME This is terrible and ugly, we need to:

    # * Provide a mapping for each attribute of title

    # * Create a txn

    # If the 'title' is alreay linked to a biblio, then we update the title subfield only

    if ( $self->biblio_id ){

        my $biblio = Koha::Biblios->find( $self->biblio_id );

        my ($title_tag, $title_subfield) = GetMarcFromKohaField( 'biblio.title' );

        my $record = $biblio->metadata->record();

        my $title_field = $record->field($title_tag);

        $title_field->update( $title_subfield => $self->publication_title );

        C4::Biblio::ModBiblio( $record, $self->biblio_id, '' );

    } else {

    # If it's not linked, we create a simple biblio and save the biblio id to the 'title'

        my $marc_record = TransformKohaToMarc(

            {

                'biblio.title' => $self->publication_title,

            }

        );

        my ( $biblio_id ) = C4::Biblio::AddBiblio($marc_record, '');

        $self->biblio_id($biblio_id);

    }

    $self = $self->SUPER::store;

    return $self;

}

use C4::Biblio qw( GetMarcFromKohaField );

    subtest 'update eholdings title linked to biblio tests' => sub {

        plan tests => 4;

        my $biblio = $builder->build_sample_biblio();

        my $record = $biblio->metadata->record();

        warn $record->as_formatted;

        my $ehtitle_id =

            $builder->build_object( { class => 'Koha::ERM::EHoldings::Titles', value => { biblio_id => $biblio->id } } )

                ->title_id;

        my $ehtitle_updated_title = { publication_title => "The journal of writing unit tests :" };

        $t->put_ok(

            "//$userid:$password@/api/v1/erm/eholdings/local/titles/$ehtitle_id" =>

              json => $ehtitle_updated_title )->status_is(200)

          ->json_is( '/publication_title' => 'The journal of writing unit tests :' );

        $biblio->discard_changes;

        warn $biblio->title;

        my $record_after = $biblio->metadata->record;

        my ( $title_tag, $title_subfield ) = GetMarcFromKohaField( 'biblio.title' );

        is( $record_after->subfield( $title_tag, $title_subfield), "The journal of writing unit tests :", "Biblio title is correctly update by eholding title update");

        is( $record->delete_field($title_tag)->as_formatted, $record_after->delete_field($title_tag)->as_formatted, "The record is other untouched" );

    };