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

(-)a/Koha/UI/Form/Builder/Biblio.pm (-1 / +9 lines)
Lines 78-85 sub generate_subfield_form { Link Here
78
    my $breedingid = $params->{breedingid};
78
    my $breedingid = $params->{breedingid};
79
    my $tagslib = $params->{tagslib};
79
    my $tagslib = $params->{tagslib};
80
    my $mandatory_z3950 = $params->{mandatory_z3950} // {};
80
    my $mandatory_z3950 = $params->{mandatory_z3950} // {};
81
    my $subfield_counter = $params->{subfield_counter};
82
    if ( $subfield_counter->{$subfield} ){
83
        $subfield_counter->{$subfield}++;
84
    }
85
    else {
86
        $subfield_counter->{$subfield} = 1;
87
    }
88
    my $subfield_number = $subfield_counter->{$subfield};
81
89
82
    my $index_subfield = $self->create_key(); # create a specific key for each subfield
90
    my $index_subfield = $subfield_number; # create a specific key for each subfield
83
91
84
    # Apply optional framework default value when it is a new record,
92
    # Apply optional framework default value when it is a new record,
85
    # or when editing as new (duplicating a record),
93
    # or when editing as new (duplicating a record),
(-)a/cataloguing/addbiblio.pl (-2 / +6 lines)
Lines 289-296 sub build_tabs { Link Here
289
            $i++;
289
            $i++;
290
            next if ! $tag;
290
            next if ! $tag;
291
            my ($indicator1, $indicator2);
291
            my ($indicator1, $indicator2);
292
            my $index_tag = CreateKey($unique_keys);
292
            my $index_tag = $tag;
293
293
294
            my $subfield_counter = {};
294
            # if MARC::Record is not empty =>use it as master loop, then add missing subfields that should be in the tab.
295
            # if MARC::Record is not empty =>use it as master loop, then add missing subfields that should be in the tab.
295
            # if MARC::Record is empty => use tab as master loop.
296
            # if MARC::Record is empty => use tab as master loop.
296
            if ( $record ne -1 && ( $record->field($tag) || $tag eq '000' ) ) {
297
            if ( $record ne -1 && ( $record->field($tag) || $tag eq '000' ) ) {
Lines 334-339 sub build_tabs { Link Here
334
                                    breedingid        => scalar $input->param('breedingid'),
335
                                    breedingid        => scalar $input->param('breedingid'),
335
                                    tagslib           => $tagslib,
336
                                    tagslib           => $tagslib,
336
                                    mandatory_z3950   => $mandatory_z3950,
337
                                    mandatory_z3950   => $mandatory_z3950,
338
                                    subfield_counter  => $subfield_counter,
337
                                }
339
                                }
338
                            )
340
                            )
339
                        );
341
                        );
Lines 360-365 sub build_tabs { Link Here
360
                                        breedingid        => scalar $input->param('breedingid'),
362
                                        breedingid        => scalar $input->param('breedingid'),
361
                                        tagslib           => $tagslib,
363
                                        tagslib           => $tagslib,
362
                                        mandatory_z3950   => $mandatory_z3950,
364
                                        mandatory_z3950   => $mandatory_z3950,
365
                                        subfield_counter  => $subfield_counter,
363
                                    }
366
                                    }
364
                                )
367
                                )
365
                            );
368
                            );
Lines 401-406 sub build_tabs { Link Here
401
                                    breedingid        => scalar $input->param('breedingid'),
404
                                    breedingid        => scalar $input->param('breedingid'),
402
                                    tagslib           => $tagslib,
405
                                    tagslib           => $tagslib,
403
                                    mandatory_z3950   => $mandatory_z3950,
406
                                    mandatory_z3950   => $mandatory_z3950,
407
                                    subfield_counter  => $subfield_counter,
404
                                }
408
                                }
405
                            )
409
                            )
406
                        );
410
                        );
Lines 468-473 sub build_tabs { Link Here
468
                                    breedingid        => scalar $input->param('breedingid'),
472
                                    breedingid        => scalar $input->param('breedingid'),
469
                                    tagslib           => $tagslib,
473
                                    tagslib           => $tagslib,
470
                                    mandatory_z3950   => $mandatory_z3950,
474
                                    mandatory_z3950   => $mandatory_z3950,
475
                                    subfield_counter  => $subfield_counter,
471
                                }
476
                                }
472
                            )
477
                            )
473
                        );
478
                        );
474
- 

Return to bug 37675