Lines 2782-2787
sub PrepareItemrecordDisplay {
Link Here
|
2782 |
while ( my ( $itemtype, $description ) = $sth->fetchrow_array ) { |
2782 |
while ( my ( $itemtype, $description ) = $sth->fetchrow_array ) { |
2783 |
push @authorised_values, $itemtype; |
2783 |
push @authorised_values, $itemtype; |
2784 |
$authorised_lib{$itemtype} = $description; |
2784 |
$authorised_lib{$itemtype} = $description; |
|
|
2785 |
# If we have default value named itemtype or itemtypes, we use it |
2786 |
$defaultvalue = $itemtype if ($defaultvalues and ($defaultvalues->{'itemtypes'} eq $itemtype or $defaultvalues->{'itemtype'} eq $itemtype)); |
2787 |
|
2785 |
} |
2788 |
} |
2786 |
#---- class_sources |
2789 |
#---- class_sources |
2787 |
} elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) { |
2790 |
} elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) { |
2788 |
- |
|
|