From f082f09c61b3f72a9ec3894e9cefc2e94da8a18e Mon Sep 17 00:00:00 2001 From: amillar Date: Fri, 28 Jun 2002 14:36:47 +0000 Subject: [PATCH] Fix broken logic on illustrator vs. add'l author --- C4/SimpleMarc.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/C4/SimpleMarc.pm b/C4/SimpleMarc.pm index 10bbf148c6..81dd5e35a9 100755 --- a/C4/SimpleMarc.pm +++ b/C4/SimpleMarc.pm @@ -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... # -- 2.39.5