From 64afbf1416b63728435244185402892a0d36bdd1 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 2 Jul 2010 15:13:30 -0400 Subject: [PATCH] bug 3902: item class source can now be set during serials receiving Signed-off-by: Galen Charlton --- C4/Biblio.pm | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 974f06867d..81ccfbb997 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -2272,6 +2272,19 @@ sub PrepareItemrecordDisplay { push @authorised_values, $itemtype; $authorised_lib{$itemtype} = $description; } + #---- class_sources + } elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) { + push @authorised_values, "" unless ( $tagslib->{$tag}->{$subfield}->{mandatory} ); + + 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 + ($class_source eq $default_source); + push @authorised_values, $class_source; + $authorised_lib{$class_source} = $class_sources->{$class_source}->{'description'}; + } #---- "true" authorised value } else { -- 2.39.5