gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Populated MARC 952$2 field for serials-edit.pl 

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
David Birmingham 2010-01-27 12:36:53 -05:00 committed by Galen Charlton
parent 1e8152fa9b
commit 708b4797e3
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
C4/Biblio.pm
View File

@ -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, ""