Lines 1689-1694
sub PrepareItemrecordDisplay {
Link Here
|
1689 |
my $CNtag = substr( $itemcn_pref, 0, 3 ); |
1689 |
my $CNtag = substr( $itemcn_pref, 0, 3 ); |
1690 |
next unless my $field = $itemrecord->field($CNtag); |
1690 |
next unless my $field = $itemrecord->field($CNtag); |
1691 |
my $CNsubfields = substr( $itemcn_pref, 3 ); |
1691 |
my $CNsubfields = substr( $itemcn_pref, 3 ); |
|
|
1692 |
$CNsubfields = undef if $CNsubfields eq ''; |
1692 |
$defaultvalue = $field->as_string( $CNsubfields, ' '); |
1693 |
$defaultvalue = $field->as_string( $CNsubfields, ' '); |
1693 |
last if $defaultvalue; |
1694 |
last if $defaultvalue; |
1694 |
} |
1695 |
} |
1695 |
- |
|
|