Signed-off-by: Galen Charlton <[email protected]>
---
C4/Biblio.pm | 13 +++++++++++++
1 files changed, 13 insertions(+), 0 deletions(-)
diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 974f068..81ccfbb 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 {
--
1.7.0
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
