+=item lata
+
+=cut
+
+sub lata {
+ my $self = shift;
+ return '' unless $self->latanum;
+ qsearchs('lata', { 'latanum' => $self->latanum });
+}
+
+=item msa2msanum
+
+Translate free-form MSA name to a msa.msanum
+
+=cut
+
+sub msa2msanum {
+ my $self = shift;
+ my $msa = shift;
+ my @msas = qsearch('msa', { 'description' => { 'op' => 'ILIKE',
+ 'value' => "%$msa%", }
+ });
+ return 0 unless scalar(@msas);
+ my @msa = grep { $self->msatest($msa,$_->description) } @msas;
+ return 0 unless scalar(@msa) == 1;
+ $msa[0]->msanum;
+}
+
+sub msatest {
+ my $self = shift;
+ my ($their,$our) = (shift,shift);
+ my $a = $our;
+ $a =~ s/,.*?$//;
+ return 1 if $a eq $their;
+ return 1 if ($our =~ /^([\w\s]+)-/ && $1 eq $their);
+ 0;
+}