if ( $subs_rst == 0){
                print "<tr><td colspan=2 align=center>None.</td></tr>";
                print "</table></td></tr>";
        } else {
                while ( @row = $subs_rst->fetchrow_array ) {
>>                      recursive_print_traversal($row[0]);
                }
        }