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

Fix broken logic on illustrator vs. add'l author

This commit is contained in:
amillar 2002-06-28 14:36:47 +00:00
parent 57a75ea5da
commit f082f09c61
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C4/SimpleMarc.pm
View File

@ -255,10 +255,10 @@ sub extractmarcfields {
if ($field->{'tag'} eq '700') {
my $name=$field->{'subfields'}->{'a'};
if ( defined($field->{'subfields'}->{'e'})
and $field->{'subfields'}->{'e'}!~/ill/) {
$additionalauthors.="$name\n";
} else {
and $field->{'subfields'}->{'e'}=~/ill/) {
$illustrator=$name;
} else {
$additionalauthors.="$name\n";
}
}
if ($field->{'tag'} =~/^5/) {
@ -447,6 +447,9 @@ sub taglabel {
#---------------------------------------------
# $Log$
# Revision 1.1.2.4 2002/06/28 14:36:47 amillar
# Fix broken logic on illustrator vs. add'l author
#
# Revision 1.1.2.3 2002/06/26 20:54:32 tonnesen
# use warnings breaks on perl 5.005...
#