Item4627: Subwebs were hard-coded to web.subweb.subsubweb delimiters.…

… This is a dumb fix to some dumb code. We should really work on TagsPlugin instead... git-svn-id: http://svn.foswiki.org/trunk/TagMePlugin@7275 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Apr 28, 2010 · bd19722 · bd19722
1 parent d107f77
commit bd19722
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lib/Foswiki/Plugins/TagMePlugin.pm b/lib/Foswiki/Plugins/TagMePlugin.pm
@@ -678,6 +678,11 @@ sub _showAllTags {
         }
 
         foreach $webTopic ( _getTagInfoList() ) {
+            # SMELL: Dumb fix to dumb code, Item4627: Subwebs are assumed
+            # to be separated with . instead of /
+            if ( $qWeb ) {
+                $qWeb =~ s!/!.!g;
+            }
             next if ( $qWeb        && $webTopic !~ /^$qWeb\./ );
             next if ( $topicsRegex && $webTopic !~ /$topicsRegex/ );
             my @tagInfo = _readTagInfo($webTopic);
@@ -823,6 +828,11 @@ sub _queryTag {
     my $webTopic = '';
 
     foreach $webTopic ( _getTagInfoList() ) {
+        # SMELL: Dumb fix to dumb code, Item4627: Subwebs are assumed
+        # to be separated with . instead of /
+        if ( $qWeb ) {
+            $qWeb =~ s!/!.!g;
+        }
         next if ( $qWeb        && $webTopic !~ /^$qWeb\./ );
         next if ( $topicsRegex && $webTopic !~ /$topicsRegex/ );
         my @tagInfo = _readTagInfo($webTopic);