Lines 28-35
use C4::Biblio;
Link Here
|
28 |
use C4::Items; |
28 |
use C4::Items; |
29 |
use C4::Context; |
29 |
use C4::Context; |
30 |
use C4::Circulation; |
30 |
use C4::Circulation; |
31 |
use C4::Koha; # XXX subfield_is_koha_internal_p |
31 |
use C4::Koha; |
32 |
use C4::Branch; # XXX subfield_is_koha_internal_p |
32 |
use C4::Branch; |
33 |
use C4::ClassSource; |
33 |
use C4::ClassSource; |
34 |
use Koha::DateUtils; |
34 |
use Koha::DateUtils; |
35 |
use List::MoreUtils qw/any/; |
35 |
use List::MoreUtils qw/any/; |
Lines 606-612
if ($op eq "additem") {
Link Here
|
606 |
my $tag = $field->{_tag}; |
606 |
my $tag = $field->{_tag}; |
607 |
foreach my $subfield ($field->subfields()){ |
607 |
foreach my $subfield ($field->subfields()){ |
608 |
my $subfieldtag = $subfield->[0]; |
608 |
my $subfieldtag = $subfield->[0]; |
609 |
if (subfield_is_koha_internal_p($subfieldtag) || $tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10" |
609 |
if ($tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10" |
610 |
|| abs($tagslib->{$tag}->{$subfieldtag}->{hidden})>4 ){ |
610 |
|| abs($tagslib->{$tag}->{$subfieldtag}->{hidden})>4 ){ |
611 |
my $fieldItem = $itemrecord->field($tag); |
611 |
my $fieldItem = $itemrecord->field($tag); |
612 |
$itemrecord->delete_field($fieldItem); |
612 |
$itemrecord->delete_field($fieldItem); |
Lines 871-877
if($itemrecord){
Link Here
|
871 |
my $value = $subfield->[1]; |
871 |
my $value = $subfield->[1]; |
872 |
my $subfieldlib = $tagslib->{$tag}->{$subfieldtag}; |
872 |
my $subfieldlib = $tagslib->{$tag}->{$subfieldtag}; |
873 |
|
873 |
|
874 |
next if subfield_is_koha_internal_p($subfieldtag); |
|
|
875 |
next if ($tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10"); |
874 |
next if ($tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10"); |
876 |
|
875 |
|
877 |
my $subfield_data = generate_subfield_form($tag, $subfieldtag, $value, $tagslib, $subfieldlib, $branches, $biblionumber, $temp, \@loop_data, $i, $restrictededition); |
876 |
my $subfield_data = generate_subfield_form($tag, $subfieldtag, $value, $tagslib, $subfieldlib, $branches, $biblionumber, $temp, \@loop_data, $i, $restrictededition); |
Lines 891-897
$itemrecord = $cookieitemrecord if ($prefillitem and not $justaddeditem and $op
Link Here
|
891 |
# We generate form, and fill with values if defined |
890 |
# We generate form, and fill with values if defined |
892 |
foreach my $tag ( keys %{$tagslib}){ |
891 |
foreach my $tag ( keys %{$tagslib}){ |
893 |
foreach my $subtag (keys %{$tagslib->{$tag}}){ |
892 |
foreach my $subtag (keys %{$tagslib->{$tag}}){ |
894 |
next if subfield_is_koha_internal_p($subtag); |
893 |
next unless ref $tagslib->{$tag}{$subtag}; # Not a valid subfield (mandatory, tab, lib) |
895 |
next if ($tagslib->{$tag}->{$subtag}->{'tab'} ne "10"); |
894 |
next if ($tagslib->{$tag}->{$subtag}->{'tab'} ne "10"); |
896 |
next if any { /^$tag$subtag$/ } @fields; |
895 |
next if any { /^$tag$subtag$/ } @fields; |
897 |
|
896 |
|