[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...