use Debbugs::Control::Service qw(:all);
use Debbugs::Log qw(:misc);
use Debbugs::Text qw(:templates);
use Debbugs::Control::Service qw(:all);
use Debbugs::Log qw(:misc);
use Debbugs::Text qw(:templates);
my %chtags;
if (defined $tags and length $tags) {
for my $t (split /[,\s]+/, $tags) {
my %chtags;
if (defined $tags and length $tags) {
for my $t (split /[,\s]+/, $tags) {
- print {$transcript} "Usertags are now: " . join(" ", @newtags) . ".\n";
+ if (@newtags == 0) {
+ print {$transcript} "There are now no usertags set.\n";
+ } else {
+ print {$transcript} "Usertags are now: " . join(" ", @newtags) . ".\n";
+ }