[Koha-cvs] CVS: koha/C4 AuthoritiesMarc.pm,1.17,1.18

Paul POULAIN tipaul at users.sourceforge.net
Tue Jun 7 12:00:51 CEST 2005


Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24420/C4

Modified Files:
	AuthoritiesMarc.pm 
Log Message:
adding $b to mainentry (in UNIMARC, for personal names, $a is the surname, $b is the firstname)

Index: AuthoritiesMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** AuthoritiesMarc.pm	1 Jun 2005 12:51:02 -0000	1.17
--- AuthoritiesMarc.pm	7 Jun 2005 10:00:47 -0000	1.18
***************
*** 184,188 ****
  		$newline{biblio_fields} = $tags_using_authtype;
  		$newline{even} = $counter % 2;
! 		$newline{mainentry} = $record->field($mainentrytag)->subfield('a') if $record->field($mainentrytag);
  		$counter++;
  		push @finalresult, \%newline;
--- 184,188 ----
  		$newline{biblio_fields} = $tags_using_authtype;
  		$newline{even} = $counter % 2;
! 		$newline{mainentry} = $record->field($mainentrytag)->subfield('a')." ".$record->field($mainentrytag)->subfield('b') if $record->field($mainentrytag);
  		$counter++;
  		push @finalresult, \%newline;
***************
*** 922,925 ****
--- 922,928 ----
  # $Id$
  # $Log$
+ # Revision 1.18  2005/06/07 10:00:47  tipaul
+ # adding $b to mainentry (in UNIMARC, for personal names, $a is the surname, $b is the firstname)
+ #
  # Revision 1.17  2005/06/01 12:51:02  tipaul
  # some fixes & improvements for dictionnary search in librarian interface





More information about the Koha-cvs mailing list