function jquery_teszt_menu($may_cache) {
  global $user;
  $items = array();
 
    $items[] = array(
      'path' => 'jquery_teszt',
      'callback' => 'jquery_teszt_page',
      'title' => 'Jquery teszt',
      'access' => user_access('access content'),
      );
  return $items;
}
 
function jquery_teszt_page(){
  drupal_add_js(drupal_get_path('module','jquery_teszt').'/jquery_teszt.js');
  return drupal_get_form('jquery_teszt_form');
}
 
 
function jquery_teszt_form() {
   $form['jquery_teszt'] = array(
      '#type' => 'fieldset',
      '#title' => 'JQuery teszt mező',
      '#collapsible' => TRUE,
      '#collapsed' => FALSE,
   );
   $form['jquery_teszt']['teszt_radio'] = array (
      '#type' => 'radios',
      '#title' => 'teszt radio doboz',
      '#default_value' => 0, //az elso elem lesz az alapertelmezett
      '#options' => array('alma', 'banan', 'citrom'),
   );
   $form['jquery_teszt']['teszt_select'] = array (
      '#type' => 'select',
      '#title' => 'teszt select doboz',
      '#default_value' => 0,
      '#options' => array('0', '1', '2'),
   );
   return $form;
}

function tagadelic_get_weighted_tags($vids, $steps = 6, $size = 60) {
  // build the options so we can cache multiple versions
  $options = implode($vids) .'_'. $steps .'_'. $size;
  // + Get current language
  global $language;
  // Check if the cache exists
  $cache_name = 'tagadelic_cache_'. $options .'_'. $language->language;
  $cache = cache_get($cache_name);
 
  // make sure cache has data
  if (isset($cache->data)) {
    $tags = $cache->data;
  }
  else {
 
    if (!is_array($vids) || count($vids) == 0) {
      return array();
    }
 
    $result = db_query_range('SELECT COUNT(*) AS count, d.tid, d.name, d.vid, d.language FROM {term_data} d INNER JOIN {term_node} n ON d.tid = n.tid WHERE d.language="%s" AND d.vid IN ('. substr(str_repeat('%d,', count($vids)), 0, -1) .') GROUP BY d.tid, d.name, d.vid ORDER BY count DESC', $language->language, $vids, 0, $size);
 
    $tags = tagadelic_build_weighted_tags($result, $steps);
 
    cache_set($cache_name, $tags);
  }
 
  return $tags;
}

/**
 * Implementation of hook_block().
 */
function newuser_block($op = 'list', $delta = 0, $edit = array()) {
  global $user;
 
  if ($op == 'list') {
    // Too dynamic to cache.
    $blocks[0]['info'] = t('Who\'s online');
    $blocks[0]['cache'] = BLOCK_NO_CACHE;
    return $blocks;
  }
  else if ($op == 'view') {
    $block = array();
 
    if (user_access('access content')) {
      // Count users active within the defined period.
      $interval = time() - 900;
 
      // Perform database queries to gather online user lists.  We use s.timestamp
      // rather than u.access because it is much faster.
      $anonymous_count = sess_count($interval);
      $authenticated_users = db_query('SELECT DISTINCT u.uid, u.name, s.timestamp FROM {users} u INNER JOIN {sessions} s ON u.uid = s.uid WHERE s.timestamp >= %d AND s.uid > 0 ORDER BY s.timestamp DESC', $interval);
      $authenticated_count = db_affected_rows($authenticated_users);
      $full_count = $authenticated_count + $anonymous_count;
 
      // Format the output with proper grammar.
      $output = 'Jelenleg ' . $full_count . ' felhasználó van a webhelyen.';
 
 
      $block['subject'] = t('Who\'s online');
      $block['content'] = $output;
    }
    return $block;
  }
}
 
Mielőtt éles oldalra teszed, teszteld, mert csak sietve ütöttem össze munka közben (és nem ez a munkám).

--
-- Tábla szerkezet: `languages`
--
CREATE TABLE IF NOT EXISTS `languages` (
  `language` varchar(12) NOT NULL default '',
  `name` varchar(64) NOT NULL default '',
  `native` varchar(64) NOT NULL default '',
  `direction` int(11) NOT NULL default '0',
  `enabled` int(11) NOT NULL default '0',
  `plurals` int(11) NOT NULL default '0',
  `formula` varchar(128) NOT NULL default '',
  `domain` varchar(128) NOT NULL default '',
  `prefix` varchar(128) NOT NULL default '',
  `weight` int(11) NOT NULL default '0',
  `javascript` varchar(32) NOT NULL default '',
  PRIMARY KEY  (`language`),
  KEY `list` (`weight`,`name`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
 
--
-- A tábla adatainak kiíratása `languages`
--
 
INSERT INTO `languages` (`language`, `name`, `native`, `direction`, `enabled`, `plurals`, `formula`, `domain`, `prefix`, `weight`, `javascript`) VALUES
('en', 'English', 'English', 0, 1, 0, '', '', '', 0, ''),
('hu', 'Hungarian', 'Magyar', 0, 1, 0, '', '', 'hu', 0, '8582a244f490b74610256ab428690e24');