[Koha-cvs] CVS: koha/misc/migration_tools buildLANG.pl,1.1,1.2 bulkmarcimport.pl,1.1,1.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc/migration_tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21734/misc/migration_tools

Modified Files:
	buildLANG.pl bulkmarcimport.pl 
Log Message:
synch'ing 2.2 and head

Index: buildLANG.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/migration_tools/buildLANG.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** buildLANG.pl	3 Jan 2005 12:59:49 -0000	1.1
--- buildLANG.pl	4 Aug 2005 14:14:52 -0000	1.2
***************
*** 43,47 ****
   ./buildLANG -d -s "('101a','101b')"
  EOF
! ;#
  exit;
  }
--- 43,47 ----
   ./buildLANG -d -s "('101a','101b')"
  EOF
! ;#/
  exit;
  }
***************
*** 60,63 ****
--- 60,68 ----
  	'ger' => 'allemand',
  	'eng' => 'anglais',
+ 	'afr' => 'afrikaans',
+ 	'akk' => 'akkadien',
+ 	'amh' => 'amharique',
+ 	'ang' => 'anglo-saxon (ca. 450-1100)',
+ 	'arc' => 'araméen',
  	'ara' => 'arabe',
  	'arm' => 'arménien',
***************
*** 68,99 ****
  	'cat' => 'catalan',
  	'chi' => 'chinois',
  	'cro' => 'croate',
  	'dan' => 'danois',
  	'spa' => 'espagnol',
  	'esp' => 'espéranto',
  	'fin' => 'finnois',
  	'fra' => 'français ancien',
  	'fre' => 'français',
! 	'wel' => 'gallois',
  	'grc' => 'grec classique',
  	'gre' => 'grec moderne',
  	'heb' => 'hébreu',
  	'hun' => 'hongrois',
  	'ita' => 'italien',
  	'jap' => 'japonais',
  	'lat' => 'latin',
! 	'dut' => 'néerlandais',
  	'nor' => 'norvégien',
  	'pol' => 'polonais',
  	'por' => 'portugais',
  	'rum' => 'roumain',
  	'rus' => 'russe',
  	'ser' => 'serbe',
  	'swe' => 'suedois',
! 	'cze' => 'tchèque',
  	'tur' => 'turc',
  	'ukr' => 'ukraine',
! 	'slo' => 'slovène',
! 	'scr' => 'serbo-croate',
  	) if $language eq 'fr';
  
--- 73,131 ----
  	'cat' => 'catalan',
  	'chi' => 'chinois',
+ 	'cop' => 'copte',
  	'cro' => 'croate',
+ 	'cze' => 'tchèque',
  	'dan' => 'danois',
+ 	'dum' => 'néerlandais moyen (ca. 1050-1350)',
+ 	'dut' => 'néerlandais',
  	'spa' => 'espagnol',
+ 	'egy' => 'egyptien',
  	'esp' => 'espéranto',
  	'fin' => 'finnois',
  	'fra' => 'français ancien',
  	'fre' => 'français',
! 	'frm' => 'français moyen (ca. 1400-1600)',
! 	'fro' => 'français ancien (842-ca. 1400)',
! 	'gmh' => 'allemand, moyen haut (ca. 1050-1500)',
! 	'got' => 'gothique',
  	'grc' => 'grec classique',
  	'gre' => 'grec moderne',
  	'heb' => 'hébreu',
+ 	'hin' => 'hindi',
  	'hun' => 'hongrois',
+ 	'ind' => 'indonésien',
+ 	'ine' => 'indo-européennes, autres',
  	'ita' => 'italien',
  	'jap' => 'japonais',
+ 	'jpn' => 'japonais',
+ 	'kor' => 'coréen',
+ 	'lan' => 'occitan (post 1500)',
  	'lat' => 'latin',
! 	'map' => 'malayo-polynésiennes, autres',
! 	'mla' => 'malgache',
! 	'nic' => 'nigéro-congolaises, autres',
  	'nor' => 'norvégien',
+ 	'per' => 'persan',
+ 	'pro' => 'provencal ancien (jusqu\'à 1500)',
  	'pol' => 'polonais',
  	'por' => 'portugais',
+ 	'rom' => 'tzigane',
  	'rum' => 'roumain',
  	'rus' => 'russe',
+ 	'sam' => 'samaritain',
+ 	'san' => 'sanskrit',
+ 	'scr' => 'serbo-croate',
+ 	'sem' => 'sémitique, autres langues',
  	'ser' => 'serbe',
+ 	'sla' => 'slave, autres langues',
+ 	'slo' => 'slovène',
+ 	'syr' => 'syriaque',
  	'swe' => 'suedois',
! 	'tib' => 'tibétain',
  	'tur' => 'turc',
+ 	'uga' => 'ougaritique',
  	'ukr' => 'ukraine',
! 	'wel' => 'gallois',
! 	'yid' => 'yiddish',
  	) if $language eq 'fr';
  

Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/migration_tools/bulkmarcimport.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** bulkmarcimport.pl	3 Jan 2005 15:25:50 -0000	1.1
--- bulkmarcimport.pl	4 Aug 2005 14:14:53 -0000	1.2
***************
*** 83,86 ****
--- 83,87 ----
      ## create an empty record object to populate
      my $newRecord = MARC::Record->new();
+ 	$newRecord->leader($record->leader());
  
      # go through each field in the existing record