[Koha-cvs] CVS: koha/C4 SimpleMarc.pm,1.1.2.3,1.1.2.4

[Alan Millar]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv23648

Modified Files:
      Tag: rel-1-2
        SimpleMarc.pm 
Log Message:
Fix broken logic on illustrator vs. add'l author

Index: SimpleMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Attic/SimpleMarc.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** SimpleMarc.pm       26 Jun 2002 20:54:32 -0000      1.1.2.3
--- SimpleMarc.pm       28 Jun 2002 14:36:47 -0000      1.1.2.4
***************
*** 256,263 ****
                    my $name=$field->{'subfields'}->{'a'};
                    if ( defined($field->{'subfields'}->{'e'}) 
!                       and  $field->{'subfields'}->{'e'}!~/ill/) {
!                       $additionalauthors.="$name\n";
!                   } else {
                        $illustrator=$name;
                    }
                }
--- 256,263 ----
                    my $name=$field->{'subfields'}->{'a'};
                    if ( defined($field->{'subfields'}->{'e'}) 
!                       and  $field->{'subfields'}->{'e'}=~/ill/) {
                        $illustrator=$name;
+                   } else {
+                       $additionalauthors.="$name\n";
                    }
                }
***************
*** 448,451 ****
--- 448,454 ----
  #---------------------------------------------
  # $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...