bbcode: Replace [vcpgi][0-9]+ links with a [url] tag

Patch from https://vndb.org/t5564.13

1 files changed, 12 insertions, 1 deletions

diff --git a/lib/VNDB/DB/VN.pm b/lib/VNDB/DB/VN.pm
index 090f9ecb..ecf49f96 100644
--- a/lib/VNDB/DB/VN.pm
+++ b/lib/VNDB/DB/VN.pm
@@ -7,7 +7,7 @@ use Exporter 'import';
 use VNDB::Func 'gtintype', 'normalize_query';
 use Encode 'decode_utf8';
 
-our @EXPORT = qw|dbVNGet dbVNRevisionInsert dbVNImageId dbScreenshotAdd dbScreenshotGet dbScreenshotRandom dbVNHasChar|;
+our @EXPORT = qw|dbVNGet dbVNRevisionInsert dbVNImageId dbScreenshotAdd dbScreenshotGet dbScreenshotRandom dbVNHasChar dbVNTitles|;
 
 
 # Options: id, rev, char, search, length, lang, olang, plat, tag_inc, tag_exc, tagspoil,
@@ -290,5 +290,16 @@ sub dbVNHasChar {
   )->{exists};
 }
 
+
+sub dbVNTitles {
+  my ($self, @vids) = @_;
+  return $self->dbAll(q|
+    SELECT v.id, vr.title
+      FROM vn v
+      JOIN vn_rev vr ON vr.id = v.latest
+      WHERE v.id IN (!l)|, \@vids
+  );
+}
+
 1;