return exists $ND::GROUPS{BC};
}
+sub isOfficer {
+ return exists $ND::GROUPS{Officers};
+}
+
+sub isScanner {
+ return exists $ND::GROUPS{Scanner};
+}
+
sub parseMarkup {
my ($text) = @_;
$text =~ s{\n}{\n<br/>}g;
- $text =~ s{\[B\](.*?)\[B\]}{<b>$1</b>};
+ $text =~ s{\[B\](.*?)\[/B\]}{<b>$1</b>};
return $text;
}