some refactoring

[ndwebbie.git] / ND / Include.pm

diff --git a/ND/Include.pm b/ND/Include.pm
index bec7dd5b1e75bb5f3c053b30843c5e344115e309..5df59fc2c110ed5cd5f09718c5a9ba487a8c12e5 100644 (file)
--- a/ND/Include.pm
+++ b/ND/Include.pm
@@ -20,6 +20,7 @@
 package ND::Include;
 use strict;
 use warnings FATAL => 'all';
+use CGI qw{:standard};
 require Exporter;
 
 our @ISA = qw/Exporter/;
@@ -63,10 +64,11 @@ sub parseMarkup {
        my ($text) = @_;
 
        $text =~ s{\n}{\n<br/>}g;
-       $text =~ s{\[B\](.*?)\[/B\]}{<b>$1</b>};
+       $text =~ s{\[B\](.*?)\[/B\]}{<b>$1</b>}gi;
        return $text;
 }
 
+
 sub min {
     my ($x,$y) = @_;
     return ($x > $y ? $y : $x);