Lines 154-165
sub generate_subfield_form {
Link Here
|
154 |
|
154 |
|
155 |
my $pref_itemcallnumber = C4::Context->preference('itemcallnumber'); |
155 |
my $pref_itemcallnumber = C4::Context->preference('itemcallnumber'); |
156 |
if (!$value && $subfieldlib->{kohafield} eq 'items.itemcallnumber' && $pref_itemcallnumber) { |
156 |
if (!$value && $subfieldlib->{kohafield} eq 'items.itemcallnumber' && $pref_itemcallnumber) { |
157 |
my $CNtag = substr( $pref_itemcallnumber, 0, 3 ); # 3-digit tag number |
157 |
foreach my $pref_itemcallnumber_part (split(/,/, $pref_itemcallnumber)){ |
158 |
my $CNsubfields = substr( $pref_itemcallnumber, 3 ); # Any and all subfields |
158 |
my $CNtag = substr( $pref_itemcallnumber_part, 0, 3 ); # 3-digit tag number |
159 |
my $temp2 = $temp->field($CNtag); |
159 |
my $CNsubfields = substr( $pref_itemcallnumber_part, 3 ); # Any and all subfields |
|
|
160 |
my $temp2 = $temp->field($CNtag); |
160 |
|
161 |
|
161 |
if ($temp2) { |
162 |
next unless $temp2; |
162 |
$value = $temp2->as_string( $CNsubfields, ' ' ); |
163 |
$value = $temp2->as_string( $CNsubfields, ' ' ); |
|
|
164 |
last if $value; |
163 |
} |
165 |
} |
164 |
} |
166 |
} |
165 |
|
167 |
|
Lines 881-888
foreach my $subfield_code (sort keys(%witness)) {
Link Here
|
881 |
my @loop_data =(); |
883 |
my @loop_data =(); |
882 |
my $i=0; |
884 |
my $i=0; |
883 |
|
885 |
|
884 |
my $pref_itemcallnumber = C4::Context->preference('itemcallnumber'); |
|
|
885 |
|
886 |
my $branch = $input->param('branch') || C4::Context->userenv->{branch}; |
886 |
my $branch = $input->param('branch') || C4::Context->userenv->{branch}; |
887 |
my $libraries = Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed;# build once ahead of time, instead of multiple times later. |
887 |
my $libraries = Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed;# build once ahead of time, instead of multiple times later. |
888 |
for my $library ( @$libraries ) { |
888 |
for my $library ( @$libraries ) { |