Lines 154-173
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, 0, 3 ); # 3-digit tag number |
159 |
my @subfields = ( $CNsubfields =~ m/./g ); # Split into single-character elements |
159 |
my $CNsubfields = substr( $pref_itemcallnumber, 3 ); # Any and all subfields |
160 |
my $temp2 = $temp->field($CNtag); |
160 |
my @subfields = ( $CNsubfields =~ m/./g ); # Split into single-character elements |
|
|
161 |
my $temp2 = $temp->field($CNtag); |
161 |
|
162 |
|
162 |
if ($temp2) { |
163 |
next unless $temp2; |
163 |
my @selectedsubfields; |
164 |
my @selectedsubfields; |
164 |
foreach my $subfieldcode( @subfields ){ |
165 |
foreach my $subfieldcode( @subfields ){ |
165 |
push @selectedsubfields, $temp2->subfield( $subfieldcode ); |
166 |
push @selectedsubfields, $temp2->subfield( $subfieldcode ); |
166 |
} |
167 |
} |
167 |
$value = join( ' ', @selectedsubfields ); |
168 |
$value = join( ' ', @selectedsubfields ); |
168 |
|
|
|
169 |
#remove any trailing space incase one subfield is used |
170 |
$value =~ s/^\s+|\s+$//g; |
169 |
$value =~ s/^\s+|\s+$//g; |
|
|
170 |
#remove any trailing space incase one subfield is used |
171 |
last if $value; |
171 |
} |
172 |
} |
172 |
} |
173 |
} |
173 |
|
174 |
|
Lines 889-896
foreach my $subfield_code (sort keys(%witness)) {
Link Here
|
889 |
my @loop_data =(); |
890 |
my @loop_data =(); |
890 |
my $i=0; |
891 |
my $i=0; |
891 |
|
892 |
|
892 |
my $pref_itemcallnumber = C4::Context->preference('itemcallnumber'); |
|
|
893 |
|
894 |
my $branch = $input->param('branch') || C4::Context->userenv->{branch}; |
893 |
my $branch = $input->param('branch') || C4::Context->userenv->{branch}; |
895 |
my $libraries = Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed;# build once ahead of time, instead of multiple times later. |
894 |
my $libraries = Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed;# build once ahead of time, instead of multiple times later. |
896 |
for my $library ( @$libraries ) { |
895 |
for my $library ( @$libraries ) { |