summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2009-08-05 09:03:44 +0200
committerYorhel <git@yorhel.nl>2009-08-05 09:03:44 +0200
commitc1931bb98a0b0bacd82a9ce3cba22dbc32101677 (patch)
tree7c707304bac1560cf6c3668b15a208f770ebcfd7 /lib
parent688050329861546657b6a4bea5b85333b424a842 (diff)
Multi::IRC: Display edit summary on edit links
Diffstat (limited to 'lib')
-rw-r--r--lib/Multi/IRC.pm12
1 files changed, 9 insertions, 3 deletions
diff --git a/lib/Multi/IRC.pm b/lib/Multi/IRC.pm
index 17a82d5a..790ee293 100644
--- a/lib/Multi/IRC.pm
+++ b/lib/Multi/IRC.pm
@@ -292,9 +292,9 @@ sub vndbid { # dest, msg
# edit/insert of vn/release/producer or discussion board post
$_[KERNEL]->post(pg => query => 'SELECT ?::text AS type, ?::integer AS id, ?::integer AS rev, '.(
- $t eq 'v' ? 'vr.title, u.username FROM changes c JOIN vn_rev vr ON c.id = vr.id JOIN users u ON u.id = c.requester WHERE vr.vid = ? AND c.rev = ?' :
- $t eq 'r' ? 'rr.title, u.username FROM changes c JOIN releases_rev rr ON c.id = rr.id JOIN users u ON u.id = c.requester WHERE rr.rid = ? AND c.rev = ?' :
- $t eq 'p' ? 'pr.name AS title, u.username FROM changes c JOIN producers_rev pr ON c.id = pr.id JOIN users u ON u.id = c.requester WHERE pr.pid = ? AND c.rev = ?' :
+ $t eq 'v' ? 'vr.title, u.username, c.comments FROM changes c JOIN vn_rev vr ON c.id = vr.id JOIN users u ON u.id = c.requester WHERE vr.vid = ? AND c.rev = ?' :
+ $t eq 'r' ? 'rr.title, u.username, c.comments FROM changes c JOIN releases_rev rr ON c.id = rr.id JOIN users u ON u.id = c.requester WHERE rr.rid = ? AND c.rev = ?' :
+ $t eq 'p' ? 'pr.name AS title, u.username, c.comments FROM changes c JOIN producers_rev pr ON c.id = pr.id JOIN users u ON u.id = c.requester WHERE pr.pid = ? AND c.rev = ?' :
't.title, u.username, '.GETBOARDS.' FROM threads t JOIN threads_posts tp ON tp.tid = t.id JOIN users u ON u.id = tp.uid WHERE t.id = ? AND tp.num = ?'),
[ $t, $id, $rev, $id, $rev], 'formatid', $dest
) if $rev && $t =~ /[vprt]/;
@@ -325,6 +325,7 @@ sub vndbid { # dest, msg
# username (optional) relevant username
# section (optional, for d+.+) section title
# boards (optional) board titles the thread has been posted in
+# comments (optional) edit summary
sub formatid {
my($num, $res, $dest) = @_[ARG0..$#_];
@@ -360,6 +361,11 @@ sub formatid {
# (only if username key is present) By [username]
push @msg, RED.'By'.NORMAL.' '.$_->{username} if $_->{username};
+ # (only if comments key is present) Summary:
+ push @msg, RED.'Summary:'.NORMAL.' '.(
+ length $_->{comments} > 40 ? substr($_->{comments}, 0, 37).'...' : $_->{comments}
+ ) if defined $_->{comments};
+
# (for d+.+) -> section title
push @msg, RED.'->'.NORMAL.' '.$_->{section} if $_->{section};