Lines 2969-2974
sub PrepareItemrecordDisplay {
Link Here
|
2969 |
while ( my ( $itemtype, $description ) = $sth->fetchrow_array ) { |
2969 |
while ( my ( $itemtype, $description ) = $sth->fetchrow_array ) { |
2970 |
push @authorised_values, $itemtype; |
2970 |
push @authorised_values, $itemtype; |
2971 |
$authorised_lib{$itemtype} = $description; |
2971 |
$authorised_lib{$itemtype} = $description; |
|
|
2972 |
# If we have default value named itemtype or itemtypes, we use it |
2973 |
$defaultvalue = $itemtype if ($defaultvalues and ($defaultvalues->{'itemtypes'} eq $itemtype or $defaultvalues->{'itemtype'} eq $itemtype)); |
2974 |
|
2972 |
} |
2975 |
} |
2973 |
#---- class_sources |
2976 |
#---- class_sources |
2974 |
} elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) { |
2977 |
} elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) { |
2975 |
- |
|
|