diff options
Diffstat (limited to 'lib/VNDB/DB/ULists.pm')
-rw-r--r-- | lib/VNDB/DB/ULists.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/VNDB/DB/ULists.pm b/lib/VNDB/DB/ULists.pm index a0cf4f18..6831e579 100644 --- a/lib/VNDB/DB/ULists.pm +++ b/lib/VNDB/DB/ULists.pm @@ -101,18 +101,17 @@ sub dbVNListList { ); if(@$rel) { - my %rel = map { - $_->{languages}=[]; - $_->{latest}, $_->{languages} - } @$rel; - + my %rel = map { $_->{latest} => [] } @$rel; push(@{$rel{$_->{rid}}}, $_->{lang}) for (@{$self->dbAll(q| SELECT rid, lang FROM releases_lang WHERE rid IN(!l)|, [ keys %rel ] )}); - push @{$vns{$_->{vid}}}, $_ for @$rel; + for(@$rel) { + $_->{languages} = $rel{$_->{latest}}; + push @{$vns{$_->{vid}}}, $_; + } } } |