diff options
author | Yorhel <git@yorhel.nl> | 2020-08-17 13:20:53 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-08-17 13:20:53 +0200 |
commit | 34b93633eda046680c28bc1fb619d995c5acca14 (patch) | |
tree | c92a5d67116b674dcdbbbd74b325135be8108121 | |
parent | d540915d4996ecfd1664e3bb4998aa56476dfd43 (diff) |
reports: Add object ID in PM subject
-rw-r--r-- | lib/VNWeb/Misc/Reports.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/VNWeb/Misc/Reports.pm b/lib/VNWeb/Misc/Reports.pm index 309650f5..b932cd31 100644 --- a/lib/VNWeb/Misc/Reports.pm +++ b/lib/VNWeb/Misc/Reports.pm @@ -113,6 +113,7 @@ TUWF::get qr{/report/(?<object>[vrpcsdtw]$RE{num})(?:\.(?<subid>$RE{num}))?}, su sub report_ { my($r, $url) = @_; + my $objid = $r->{object}.(defined $r->{objectnum} ? ".$r->{objectnum}" : ''); td_ style => 'padding: 3px 5px 5px 20px', sub { a_ href => "?id=$r->{id}", "#$r->{id}"; b_ class => 'grayedout', ' '.fmtdate $r->{date}, 'full'; @@ -120,7 +121,7 @@ sub report_ { if($r->{uid}) { a_ href => "/u$r->{uid}", $r->{username}; txt_ ' ('; - a_ href => "/t/u$r->{uid}/new?title=Regarding your report&priv=1", 'pm'; + a_ href => "/t/u$r->{uid}/new?title=Regarding your report on $objid&priv=1", 'pm'; txt_ ')'; } else { txt_ $r->{ip}||'[anonymous]'; |