[!                sub allYourBase { # returns arrayref of all mid's under a given base
<snip>
                }
!]
[-      $rBelong = $fdat{mode}; 
        $toUs = $fdat{baseid}; -]
[$ if ($fdat{mode} eq 'category') $]
[+              $escmode=0; showThreaded(allYourBase($rBelong, $toUs)); +]
[$ endif $]