Provide token support for WBM states

OK, I've hacked a *_tokens.inc file so that the WB moderation status is available as a token. I don't think if I've adhered to Best Drupal Practices as there are extra tokens there that aren't needed, but it does the job for me and I'm moving on. I thought I'd contribute it here in case anyone else wants the hack. Just drop the following file in place and clear the cache.

Thanks for all the fish!

-- Cronin

../sites/all/modules/workbench_moderation/workbench_moderation.tokens.inc

/**
 * @file
 * Token integration for the workbench_moderation module.
 */

/**
 * Implements hook_token_info().
 */
function workbench_moderation_token_info() {
  // Node tokens.
  $info['tokens']['node']['workbench-moderation-new-state'] = array(
    'name' => t('Current Workbench moderation state'),
    'description' => t('Current Workbench moderation for the node.'),
    'type' => 'array',
  );

  $info['tokens']['node']['workbench-moderation-previous-state'] = array(
    'name' => t('Previous Workbench moderation state'),
    'description' => t('Previous Workbench moderation for the node.'),
    'type' => 'array',
  );


  return $info;
}

/**
 * Implements hook_tokens().
 */
function workbench_moderation_tokens($type, $tokens, array $data = array(), array $options = array()) {
  $replacements = array();

  // Node tokens.
  if ($type == 'node' && !empty($data['node'])) {
    $node = $data['node'];
    $state = '';
    if (is_object($node) && property_exists($node, 'workbench_moderation') && isset($node->workbench_moderation['current'])){
       $state = $node->workbench_moderation['current'];
    } 
    foreach ($tokens as $name => $original) {
      switch ($name) {
        case 'workbench-moderation-new-state':
            $replacements[$original] = $state->state;
            break;
        case 'workbench-moderation-previous-state':
            $replacements[$original] = $state->from_state;
            break;
       }
    }

  }

  return $replacements;
}