Lines 144-149
sub generate_subfield_form {
Link Here
|
144 |
foreach my $pref_itemcallnumber_part (split(/,/, $pref_itemcallnumber)){ |
144 |
foreach my $pref_itemcallnumber_part (split(/,/, $pref_itemcallnumber)){ |
145 |
my $CNtag = substr( $pref_itemcallnumber_part, 0, 3 ); # 3-digit tag number |
145 |
my $CNtag = substr( $pref_itemcallnumber_part, 0, 3 ); # 3-digit tag number |
146 |
my $CNsubfields = substr( $pref_itemcallnumber_part, 3 ); # Any and all subfields |
146 |
my $CNsubfields = substr( $pref_itemcallnumber_part, 3 ); # Any and all subfields |
|
|
147 |
$CNsubfields = undef if $CNsubfields eq ''; |
147 |
my $temp2 = $temp->field($CNtag); |
148 |
my $temp2 = $temp->field($CNtag); |
148 |
|
149 |
|
149 |
next unless $temp2; |
150 |
next unless $temp2; |
150 |
- |
|
|