|
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 |
|