void do_clans( CHAR_DATA *ch, char *argument )
{
    CLAN_DATA *clan;
    PLANET_DATA *planet;
    int count = 0;
    int pCount = 0;
    int support;
    long revenue;

        ch_printf( ch, "\n\r&G&B--------------------+------------+------------+-----------+---------+----------+" );
        ch_printf( ch, "\n\r&G&CDivision            &G&B|&C Leader     &G&B|&G&C First      &G&B|&G&C Second    &G&B|&G&C Members &G&B|&G&C Funds\n\r" );
    for ( clan = first_clan; clan; clan = clan->next )
    {
        if ( clan->clan_type == CLAN_CRIME || clan->clan_type == CLAN_GUILD || clan->clan_type == CLAN_SUBCLAN )
          continue;

        pCount = 0;
        support = 0;
        revenue = 0;

        for ( planet = first_planet ; planet ; planet = planet->next )
          if ( clan == planet->governed_by )
          {
            support += planet->pop_support;
            pCount++;
            revenue += get_taxes(planet);
          }

        if ( pCount > 1 )
           support /= pCount;
        ch_printf( ch, "&G&B--------------------+------------+------------+-----------+---------+----------+\n\r" );
        ch_printf( ch, "&G&W%-20s&G&B|&z %-10s &G&B|&z %-10s &G&B|&z %-9s &G&B|&z %-7d &G&B|&Y %ld&W&C\n\r", clan->name, clan->leader, clan->number1, clan->number2, clan->members, clan->funds );
        if ( clan->first_subclan )
        {
           CLAN_DATA *subclan;

           for ( subclan = clan->first_subclan ; subclan ; subclan = subclan->next_subclan )
               ch_printf( ch, "&G&W%-20s&G&B|&z %-10s &G&B|&z %-10s &G&B|&z %-9s &G&B|&z %-7d &G&B|&Y %ld&W&C\n\r", subclan->name, subclan->leader, subclan->number1, subclan->number2, subclan->members, subclan->funds );
        }
        count++;
    }

        ch_printf( ch, "&G&B--------------------+------------+------------+-----------+---------+----------+\n\r" );

    for ( clan = first_clan; clan; clan = clan->next )
    {
        if ( clan->clan_type != CLAN_CRIME && clan->clan_type != CLAN_GUILD )
          continue;

        ch_printf( ch, "&G&W%-20s&G&B|&z %-10s &G&B|&z %-10s &G&B|&z %-9s &G&B|&z %-7d &G&B|&Y %ld&W&C", clan->name, clan->leader, clan->number1, clan->number2, clan->members, clan->funds );
        ch_printf( ch, "\n\r&G&B--------------------+------------+------------+-----------+---------+----------+\n\r" );
        count++;
    }
                                                                                                                                                            
    if ( !count )
    {
        set_char_color( AT_BLOOD, ch);
        send_to_char( "There are no organizations currently formed.\n\r", ch );
    }
}