diff options
| author | Yorhel <git@yorhel.nl> | 2009-02-21 22:24:47 +0100 |
|---|---|---|
| committer | Yorhel <git@yorhel.nl> | 2009-02-21 22:24:47 +0100 |
| commit | 203509ffd8fc2fbbd76129d701a6c20110f6050d (patch) | |
| tree | a6267c49770f3d150c08edf343b6bfe2f451578f /lib/VNDB/DB/Producers.pm | |
| parent | 27029f4567c23dd5c11a7efe5a1c92c23e29bb5c (diff) | |
Small performance improvements: Don't always fetch all columns on dbProducerGet()
Added an 'extended' flag to the 'what' argument, which should be used
if more columns are desired.
Diffstat (limited to 'lib/VNDB/DB/Producers.pm')
| -rw-r--r-- | lib/VNDB/DB/Producers.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/VNDB/DB/Producers.pm b/lib/VNDB/DB/Producers.pm index 141639f9..5996283b 100644 --- a/lib/VNDB/DB/Producers.pm +++ b/lib/VNDB/DB/Producers.pm @@ -41,7 +41,8 @@ sub dbProducerGet { push @join, 'JOIN changes c ON c.id = pr.id' if $o{what} =~ /changes/ || $o{rev}; push @join, 'JOIN users u ON u.id = c.requester' if $o{what} =~ /changes/; - my $select = 'p.id, p.locked, p.hidden, pr.type, pr.name, pr.original, pr.website, pr.lang, pr.desc, pr.alias'; + my $select = 'p.id, pr.type, pr.name, pr.original, pr.lang'; + $select .= ', pr.desc, pr.alias, pr.website, p.hidden, p.locked' if $o{what} =~ /extended/; $select .= ', c.added, c.requester, c.comments, p.latest, pr.id AS cid, u.username, c.rev' if $o{what} =~ /changes/; my($r, $np) = $self->dbPage(\%o, q| |