Lines 154-170
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); |
157 |
my $CNtag = substr( $pref_itemcallnumber, 0, 3 ); # 3-digit tag number |
158 |
my $CNsubfield = substr($pref_itemcallnumber, 3, 1); |
158 |
my $CNsubfields = substr( $pref_itemcallnumber, 3 ); # Any and all subfields |
159 |
my $CNsubfield2 = substr($pref_itemcallnumber, 4, 1); |
159 |
my @subfields = ( $CNsubfields =~ m/./g ); # Split into single-character elements |
160 |
my $temp2 = $temp->field($CNtag); |
160 |
my $temp2 = $temp->field($CNtag); |
|
|
161 |
|
161 |
if ($temp2) { |
162 |
if ($temp2) { |
162 |
$value = join ' ', $temp2->subfield($CNsubfield) || q{}, $temp2->subfield($CNsubfield2) || q{}; |
163 |
my @selectedsubfields; |
|
|
164 |
foreach my $subfieldcode( @subfields ){ |
165 |
push @selectedsubfields, $temp2->subfield( $subfieldcode ); |
166 |
} |
167 |
$value = join( ' ', @selectedsubfields ); |
168 |
|
163 |
#remove any trailing space incase one subfield is used |
169 |
#remove any trailing space incase one subfield is used |
164 |
$value =~ s/^\s+|\s+$//g; |
170 |
$value =~ s/^\s+|\s+$//g; |
165 |
} |
171 |
} |
166 |
} |
172 |
} |
167 |
|
173 |
|
168 |
if ($frameworkcode eq 'FA' && $subfieldlib->{kohafield} eq 'items.barcode' && !$value){ |
174 |
if ($frameworkcode eq 'FA' && $subfieldlib->{kohafield} eq 'items.barcode' && !$value){ |
169 |
my $input = new CGI; |
175 |
my $input = new CGI; |
170 |
$value = $input->param('barcode'); |
176 |
$value = $input->param('barcode'); |
171 |
- |
|
|