Lines 156-162
sub generate_subfield_form {
Link Here
|
156 |
my $CNsubfield2 = substr($pref_itemcallnumber, 4, 1); |
156 |
my $CNsubfield2 = substr($pref_itemcallnumber, 4, 1); |
157 |
my $temp2 = $temp->field($CNtag); |
157 |
my $temp2 = $temp->field($CNtag); |
158 |
if ($temp2) { |
158 |
if ($temp2) { |
159 |
my $value = join ' ', $temp2->subfield($CNsubfield) || q{}, $temp2->subfield($CNsubfield2) || q{}; |
159 |
$value = join ' ', $temp2->subfield($CNsubfield) || q{}, $temp2->subfield($CNsubfield2) || q{}; |
160 |
#remove any trailing space incase one subfield is used |
160 |
#remove any trailing space incase one subfield is used |
161 |
$value =~ s/^\s+|\s+$//g; |
161 |
$value =~ s/^\s+|\s+$//g; |
162 |
} |
162 |
} |
163 |
- |
|
|