[koha-Infos] Import UNIMARC

[Julien Berard]

paul POULAIN a écrit :
> Julien Berard a écrit :
>   
>> Concernant marcdump je ne le trouve pas non plus, pourtant dans la doc 
>> de koha ils parlent bien d'un dumpmarc.pl
>>
>> http://www.kohadocs.org/migrer_ses_donnees.html#d0e280
>>
>>
>> Je vais donc une erreur au niveau de koha?
>>   
>>     
> non, mais ca c'est un truc qui date de koha 2.2
> Depuis, marcdump a été ajouté dans une des bibliothèques (yaz ?) 
> qu'utilise Koha, donc on n'a plus besoin de dumpmarc.pl, et il a disparu 
> de Koha lui-même.
>
>   
Merci ;-).

****************A  propos de mon script*************

J'ai simplement repris un exemple de la doc pour la librairie qui crée 
du marc.


Le script donne ca -->

#!/usr/bin/perl
## Example W1

## create a MARC::Record object.
use MARC::Record;
my $record = MARC::Record->new();

## add the leader to the record. optional.
$record->leader('00903pam    2200265 a 4500');

## create an author field.
my $author = MARC::Field->new(
  '100',1,'',
    a => 'Logan, Robert K.',
     d => '1939-'
  );

## create a title field.
my $title = MARC::Field->new(
  '200','1','4',
     a => 'The alphabet effect /',
     c => 'Robert K. Logan.'
  );

$record->append_fields($author, $title);

## open a filehandle to write to 'record.dat'.
open(OUTPUT, '> record.dat') or die $!;
print OUTPUT $record->as_usmarc();
close(OUTPUT);


Ce qui me crée un fichier record.dat en format marc.

Si je fais un yaz-marcdump -v record.dat

J'ai un :

julienb at julien:~/mnei$ yaz-marcdump -v record.dat
(Record length           122)
(Indicator length          2)
(Identifier length         2)
(Base address             49)
(Length data entry         4)
(Length starting           5)
(Length implementation     0)
00122pam  220004965 4500
(Directory offset 24: Tag 001)
(Directory offset 36: Tag 002)
(Directory offset 48: Tag 28)
(Directory offset 48: Bad value for data length and/or length starting)


D'apres vous quel est le probleme?

-- 
Cordialement,

Julien Bérard

probeSys spécialist GNU/Linux
Tèl: 08-74-76-47-86