|
Lines 152-158
sub generate_subfield_form {
Link Here
|
| 152 |
&& !$value |
152 |
&& !$value |
| 153 |
&& $subfield->{kohafield} |
153 |
&& $subfield->{kohafield} |
| 154 |
&& $subfield->{kohafield} eq 'items.itemcallnumber' |
154 |
&& $subfield->{kohafield} eq 'items.itemcallnumber' |
| 155 |
&& $pref_itemcallnumber ) |
155 |
&& $pref_itemcallnumber |
|
|
156 |
&& $marc_record ) |
| 156 |
{ |
157 |
{ |
| 157 |
foreach |
158 |
foreach |
| 158 |
my $pref_itemcallnumber_part ( split( /,/, $pref_itemcallnumber ) ) |
159 |
my $pref_itemcallnumber_part ( split( /,/, $pref_itemcallnumber ) ) |
|
Lines 162-168
sub generate_subfield_form {
Link Here
|
| 162 |
my $CNsubfields = |
163 |
my $CNsubfields = |
| 163 |
substr( $pref_itemcallnumber_part, 3 ); # Any and all subfields |
164 |
substr( $pref_itemcallnumber_part, 3 ); # Any and all subfields |
| 164 |
$CNsubfields = undef if $CNsubfields eq ''; |
165 |
$CNsubfields = undef if $CNsubfields eq ''; |
| 165 |
my $temp2 = $marc_record ? $marc_record->field($CNtag) : undef; |
166 |
my $temp2 = $marc_record->field($CNtag); |
| 166 |
|
167 |
|
| 167 |
next unless $temp2; |
168 |
next unless $temp2; |
| 168 |
$value = $temp2->as_string( $CNsubfields, ' ' ); |
169 |
$value = $temp2->as_string( $CNsubfields, ' ' ); |
| 169 |
- |
|
|