@@ -, +, @@ itemcallnumebr system preference 1 - Edit a record, add an 082 field 082 0 0 ‡aalpha‡bbeta‡0delta 2 - Set itemcallnumber system preference to 082 3 - Attempt to add/edit items 4 - ISE 5 - Apply patch, restart all the things 6 - Add/edit items - no error 7 - Confirm the itemcallnumber field is populated with "alpha beta delta" 8 - Set itemcallnumber system preference to '0820' 9 - Add/edit items --- cataloguing/additem.pl | 1 + 1 file changed, 1 insertion(+) --- a/cataloguing/additem.pl +++ a/cataloguing/additem.pl @@ -144,6 +144,7 @@ sub generate_subfield_form { foreach my $pref_itemcallnumber_part (split(/,/, $pref_itemcallnumber)){ my $CNtag = substr( $pref_itemcallnumber_part, 0, 3 ); # 3-digit tag number my $CNsubfields = substr( $pref_itemcallnumber_part, 3 ); # Any and all subfields + $CNsubfields = undef if $CNsubfields eq ''; my $temp2 = $temp->field($CNtag); next unless $temp2; --