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