Post count rank module

Helo. I'm trying to port the post count rank module to drupal 4.7. I think is almost finish all the porting, but I can't make the settings page saves the postcount_rank_fieldid and postcount_rank_metrics vars.

I'm a little noob whit drupal so I can't figure where I'm wrong. Here is the code please help me.

<?php
define('PROFILE_HIDDEN',4);

function postcount_rank_help($section)  {
  switch($section) {
    case 'admin/modules#description':
      return t("This module allows you to give users a custom rank based on postcount and assign it to a custom 'list' type profile field");
      break;
  }
}

function postcount_rank_settings()  {
  $result = db_query("SELECT fid, title, options FROM {profile_fields} WHERE visibility = %d AND type = 'selection'",PROFILE_HIDDEN); 
  $fid = variable_get('postcount_rank_fieldid',-1);
  $list_values = '';
  while($field = db_fetch_array($result))  {
    $options[$field['fid']] = $field['title'];
    if ($field['fid'] == $fid)
      $list_values = $field['options'];
  }

  $form['profile_field'] = array(
    '#type' => 'fieldset',
    '#title' => t('Postcount rank settings'),
  );

  if ($options){
    $form['profile_field']['field'] = array(
       '#type'          => 'select',
       '#title'         => t('Profile Field'),
       '#default_value' => $fid,
       '#options'       => $options,
       '#description'   => t('The profile field that contains a list of ranks' . $fid),
    );
  }
  else { 
    $form['profile_field']['field'] = array(
       '#type'  => 'markup',
       '#value' => t('You need to have at least one hidden list selection field in your user profiles for this module to function'),
    );
  }

  $form['custom_ranks'] = array(
    '#type' => 'fieldset',
    '#title' => t('Custom ranks'),
  );

  $form['custom_ranks']['rank_metrics'] = array(
     '#type'  => 'markup',
     '#value' => t('Enter the minimum number of posts required to attain each rank'),
  );

  if ($list_values)  {
    $list_metrics = variable_get('postcount_rank_metrics',array(''));
    $values = split("[,\n\r]",$list_values);

    foreach ($values as $value)  {
        if ($value = trim($value))  {
             $form['custom_ranks']['rank_metrics' . $value] = array(
               '#type'         => 'textfield',
               '#title'        => $value,
               '#size'         => 5,
               '#maxlength'    => 10,
               '#defaultvalue' => array_shift($list_metrics),
             );
        }
    }
  }
  return $form;

}

function postcount_rank_nodeapi(&$node,$op,$arg = 0)  {
  if ($op == "insert")
    postcount_rank_update();
}

function postcount_rank_update()  {

  global $user;

  profile_load_profile($user);
  if (isset($user->uid) && ($fid = variable_get('postcount_rank_fieldid',-1)) != -1) {
    $name = db_result(db_query("SELECT name FROM {profile_fields} where fid=%d",$fid));
    if (!$name)
      return;
    $count = db_result(db_query("SELECT COUNT(*) from {node} where uid=%d",$user->uid));
    $count += db_result(db_query("SELECT COUNT(*) from {comments} where uid=%d",$user->uid));
    $ranks = variable_get('postcount_rank_metrics',array(''));
    while (current($ranks) !== FALSE && current($ranks) < $count) next($ranks);
    prev($ranks);
    if (key($ranks) != $user->{$name})  { // if the calculated rank isn't what's set
      if (!isset($user->{$name}))
        db_query("INSERT INTO {profile_values} (fid,uid,value) VALUES (%d,%d,'%s')",$fid,$user->uid,key($ranks));
      else db_query("UPDATE {profile_values} SET value='%s' WHERE fid=%d AND uid=%d",key($ranks),$fid,$user->uid);
    }
  }
}

function postcount_rank_comment($op,&$node)  {
  if ($op == "insert")
    postcount_rank_update();
}

?>