Revert "Populated MARC 952$2 field for serials-edit.pl"
This reverts commit 708b4797e3
.
Had introduced following error:
Global symbol "$value" requires explicit package name at C4/Biblio.pm line 2381.
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
parent
844f63f1f8
commit
8b4501f7c7
1 changed files with 0 additions and 16 deletions
16
C4/Biblio.pm
16
C4/Biblio.pm
|
@ -2370,22 +2370,6 @@ sub PrepareItemrecordDisplay {
|
|||
}
|
||||
|
||||
#---- "true" authorised value
|
||||
}
|
||||
elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq
|
||||
"cn_source" )
|
||||
{
|
||||
my $class_sources = GetClassSources();
|
||||
my $default_source = C4::Context->preference("DefaultClassificationSource");
|
||||
foreach my $class_source (sort keys %$class_sources) {
|
||||
next unless $class_sources->{$class_source}->{'used'} or
|
||||
($value and $class_source eq $value) or
|
||||
($class_source eq $default_source);
|
||||
push @authorised_values, $class_source;
|
||||
$authorised_lib{$class_source} = $class_sources->{$class_source}->{'description'};
|
||||
}
|
||||
$value = $default_source unless ($value);
|
||||
|
||||
#---- "true" authorised value
|
||||
} else {
|
||||
$authorised_values_sth->execute( $tagslib->{$tag}->{$subfield}->{authorised_value} );
|
||||
push @authorised_values, ""
|
||||
|
|
Loading…
Reference in a new issue