View | Details | Raw Unified | Return to bug 31154
Collapse All | Expand All

(-)a/Koha/UI/Form/Builder/Item.pm (-3 / +3 lines)
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
- 

Return to bug 31154