From 708b4797e3fc253b8dac2a0fa0d16e30839196ef Mon Sep 17 00:00:00 2001 From: David Birmingham Date: Wed, 27 Jan 2010 12:36:53 -0500 Subject: [PATCH] Populated MARC 952$2 field for serials-edit.pl Signed-off-by: Galen Charlton --- C4/Biblio.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index ded50fc254..421010d1cb 100755 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -2370,6 +2370,22 @@ 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, "" -- 2.39.5