On Thu, Jun 15, 2006 at 02:14:16PM +0200, Tobias Sahlman wrote:
> Hi folks,
>
> I'm looking for a way to change the label of a family record or an
> individual record to an identifer that I've chosen myself. For example, I
> would like to create a new individual by doing:
>
> $record = $ged->add_individual();
>
> And then set the label of the individual to e.g. "@I5144235@", rather than a
> running number automatically assigned by the Gedcom module. Is it possible?
>
> I would like to build a gedcom file for a population of banded birds, and
> it would be very convenient to use the individual band number of each bird
> as a label. The birds are already in a database, and I'm using perl to read
> a textfile export from the database with all the birds and their "families".
> I'm new to both gedcom and perl, and hopefully this question doesn't sound
> too stupid.
It doesn't sound stupid, and welcome to both GEDCOM and Perl.
What you want is possible:
$record = $ged->add_individual("I5144235");
should do the trick. (I may not have documented this, but you can see
it in action in the t/ged_create.t test.) But I would actually
recommend against it. Those index numbers are really for the program,
not the user. The recommended way to handle this is to add a standard
REFN tag to hold this data.
Good luck.
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
