Re: Custom record label

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