Attachment #164992 for bug #36618

View | Details | Raw Unified | Return to bug 36618
Collapse All | Expand All




=cut

sub store {
    my ($self, $args) = @_;

    my $create_linked_biblio = $args->{create_linked_biblio} || 0;
    # FIXME This is terrible and ugly, we need to:
    # * Provide a mapping for each attribute of title
    # * Create a txn

    if($create_linked_biblio) {
        # If the 'title' is already 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;





                my $body = $c->req->json;

                my $resources            = delete $body->{resources}            // [];
                my $create_linked_biblio = delete $body->{create_linked_biblio} // 0;

                my $title = Koha::ERM::EHoldings::Title->new_from_api($body)->store({ create_linked_biblio => $create_linked_biblio});

                $title->resources($resources);


                my $body = $c->req->json;

                my $resources = delete $body->{resources} // [];
                my $create_linked_biblio = delete $body->{create_linked_biblio} // 0;

                $title->set_from_api($body)->store( { create_linked_biblio => $create_linked_biblio } );

                $title->resources($resources);


Lines 144-149 properties: Link Here

(-)a/api/v1/swagger/definitions/erm_eholdings_title.yaml (+5 lines)
144	description: Resource containing this title	144	description: Resource containing this title
145	items:	145	items:
146	$ref: erm_eholdings_resource.yaml	146	$ref: erm_eholdings_resource.yaml
		147	create_linked_biblio:
		148	description: should a linked biblio be created
		149	type:
		150	- boolean
		151	- "null"
147		152
148	additionalProperties: false	153	additionalProperties: false
149	required:	154	required:




                        </li>
                    </ol>
                </fieldset>
                <fieldset class="rows">
                    <legend>
                        {{
                            $__("%s linked biblio record").format(
                                title.title_id ? "Update" : "Create"
                            )
                        }}:
                    </legend>
                    <label for="create_linked_biblio"
                        >{{
                            $__("%s record").format(
                                title.title_id ? "Update" : "Create"
                            )
                        }}:</label
                    >
                    <input
                        type="checkbox"
                        id="create_linked_biblio"
                        v-model="title.create_linked_biblio"
                    />
                </fieldset>
                <EHoldingsTitlesFormAddResources :resources="title.resources" />
                <fieldset class="action">
                    <input type="submit" :value="$__('Submit')" />

                preceding_publication_title_id: "",
                access_type: "",
                resources: [],
                create_linked_biblio: false,
            },
            initialized: false,
        }
- 

Return to bug 36618

Lines 91-99 sub add { Link Here

(-)a/Koha/REST/V1/ERM/EHoldings/Titles/Local.pm (-3 / +5 lines)
91		91
92	my $body = $c->req->json;	92	my $body = $c->req->json;
93		93
94	my $resources = delete $body->{resources} // [];	94	my $resources = delete $body->{resources} // [];
		95	my $create_linked_biblio = delete $body->{create_linked_biblio} // 0;
95		96
96	my $title = Koha::ERM::EHoldings::Title->new_from_api($body)->store;	97	my $title = Koha::ERM::EHoldings::Title->new_from_api($body)->store({ create_linked_biblio => $create_linked_biblio});
97		98
98	$title->resources($resources);	99	$title->resources($resources);
99		100
Lines 167-174 sub update { Link Here
167	my $body = $c->req->json;	168	my $body = $c->req->json;
168		169
169	my $resources = delete $body->{resources} // [];	170	my $resources = delete $body->{resources} // [];
		171	my $create_linked_biblio = delete $body->{create_linked_biblio} // 0;
170		172
171	$title->set_from_api($body)->store;	173	$title->set_from_api($body)->store( { create_linked_biblio => $create_linked_biblio } );
172		174
173	$title->resources($resources);	175	$title->resources($resources);
174		176

Lines 366-371 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/js/vue/components/ERM/EHoldingsLocalTitlesFormAdd.vue (-1 / +22 lines)
366	</li>	366	</li>
367	</ol>	367	</ol>
368	</fieldset>	368	</fieldset>
		369	<fieldset class="rows">
		370	<legend>
		371	{{
		372	$__("%s linked biblio record").format(
		373	title.title_id ? "Update" : "Create"
		374	)
		375	}}:
		376	</legend>
		377	<label for="create_linked_biblio"
		378	>{{
		379	$__("%s record").format(
		380	title.title_id ? "Update" : "Create"
		381	)
		382	}}:</label
		383	>
		384	<input
		385	type="checkbox"
		386	id="create_linked_biblio"
		387	v-model="title.create_linked_biblio"
		388	/>
		389	</fieldset>
369	<EHoldingsTitlesFormAddResources :resources="title.resources" />	390	<EHoldingsTitlesFormAddResources :resources="title.resources" />
370	<fieldset class="action">	391	<fieldset class="action">
371	<input type="submit" :value="$__('Submit')" />	392	<input type="submit" :value="$__('Submit')" />
Lines 429-434 export default { Link Here
429	preceding_publication_title_id: "",	450	preceding_publication_title_id: "",
430	access_type: "",	451	access_type: "",
431	resources: [],	452	resources: [],
		453	create_linked_biblio: false,
432	},	454	},
433	initialized: false,	455	initialized: false,
434	}	456	}
435	-

Lines 38-67 Koha::ERM::EHoldings::Title - Koha ERM Title Object class Link Here

(-)a/Koha/ERM/EHoldings/Title.pm (-19 / +21 lines)
38	=cut	38	=cut
39		39
40	sub store {	40	sub store {
41	my ($self) = @_;	41	my ($self, $args) = @_;
42		42
		43	my $create_linked_biblio = $args->{create_linked_biblio} \|\| 0;
43	# FIXME This is terrible and ugly, we need to:	44	# FIXME This is terrible and ugly, we need to:
44	# * Provide a mapping for each attribute of title	45	# * Provide a mapping for each attribute of title
45	# * Create a txn	46	# * Create a txn
46		47
47	# If the 'title' is already linked to a biblio, then we update the title subfield only	48	if($create_linked_biblio) {
48	if ( $self->biblio_id ) {	49	# If the 'title' is already linked to a biblio, then we update the title subfield only
49	my $biblio = Koha::Biblios->find( $self->biblio_id );	50	if ( $self->biblio_id ) {
50	my ( $title_tag, $title_subfield ) = GetMarcFromKohaField('biblio.title');	51	my $biblio = Koha::Biblios->find( $self->biblio_id );
51	my $record = $biblio->metadata->record();	52	my ( $title_tag, $title_subfield ) = GetMarcFromKohaField('biblio.title');
52	my $title_field = $record->field($title_tag);	53	my $record = $biblio->metadata->record();
53	$title_field->update( $title_subfield => $self->publication_title );	54	my $title_field = $record->field($title_tag);
54	C4::Biblio::ModBiblio( $record, $self->biblio_id, '' );	55	$title_field->update( $title_subfield => $self->publication_title );
55	} else {	56	C4::Biblio::ModBiblio( $record, $self->biblio_id, '' );
56		57	} else {
57	# If it's not linked, we create a simple biblio and save the biblio id to the 'title'	58	# If it's not linked, we create a simple biblio and save the biblio id to the 'title'
58	my $marc_record = TransformKohaToMarc(	59	my $marc_record = TransformKohaToMarc(
59	{	60	{
60	'biblio.title' => $self->publication_title,	61	'biblio.title' => $self->publication_title,
61	}	62	}
62	);	63	);
63	my ($biblio_id) = C4::Biblio::AddBiblio( $marc_record, '' );	64	my ($biblio_id) = C4::Biblio::AddBiblio( $marc_record, '' );
64	$self->biblio_id($biblio_id);	65	$self->biblio_id($biblio_id);
		66	}
65	}	67	}
66		68
67	$self = $self->SUPER::store;	69	$self = $self->SUPER::store;