# get title of the record (to store the 10 first letters with the index)
my ($titletag,$titlesubfield) = GetMarcFromKohaField('biblio.title');
my $title = lc($record->subfield($titletag,$titlesubfield));
# get title of the record (to store the 10 first letters with the index)
my ($titletag,$titlesubfield) = GetMarcFromKohaField('biblio.title');
my $title = lc($record->subfield($titletag,$titlesubfield));