modules/chipin/chipin.module

<?php
// $Id: chipin.module,v 1.2 2006/08/28 20:19:33 robroy Exp $

/**
 * @file
 *   Lets users easily insert a ChipIn Flash widget into content.
 */

define('CHIPIN_ACCESS_PAGES_DEFAULT', "node/*\nadmin/block/*");

/**
 * Implementation of hook_help().
 */
function chipin_help($section) {
  switch ($section) {
    case 'admin/modules#description':
      return t('Enable users to insert a ChipIn widget to enable group money collection for any purpose.');
    case 'admin/help#chipin':
      return t('<h2 id="about">About ChipIn</h2>
<p>ChipIn empowers individuals to connect with people in their social network to collect money for a personal cause, to purchase a gift, or for community fundraising. ChipIn makes this <strong>social ecommerce</strong><sup>SM</sup> process of connecting and collecting fun, easy and secure. ChipIn believes that positive change will result from enabling groups to harness the power of giving. That\'s the ChipIn mission.</p>
<p><strong>ChipIn helps people:</strong></p>
<ul>
  <li>Organize and collaborate with each other to collect money for a group purchase</li>
  <li>Raise money for personal and community causes</li>
  <li>Collect money to make a difference for a recipient</li>
  <li>Connect with people who share a common goal for collecting funds</li>
  <li>Get people involved in giving together</li>
  <li>Actually enjoy being an organizer</li>
  <li>Account for money collected</li>
</ul>

<p><strong>Want to learn more about ChipIn?</strong></p>
<ul>
  <li><a href="http://www.chipin.com/overview">Take the ChipIn quick tour</a> of how the ChipIn process works</li>
  <li>Read the <a href="http://faq.chipin.com/">ChipIn FAQ</a> for frequently asked questions about ChipIn</li>
</ul>
<h2 id="widget">What\'s a widget?</h2>
<img src="'. base_path() . drupal_get_path('module', 'chipin') .'/images/widget.mini.png" alt="An example of a ChipIn widget." style="margin: 0 20px; float: right;" height="200" width="204" />
<p>The <strong>ChipIn widget</strong> is a small indicator of the progress of your event that you can add to your Web pages.</p>
<ul>
  <li>The ChipIn widget can be easily added to your Web page and helps to promote your ChipIn event to your site visitors.</li>
  <li>The widget provides real-time updates on the amount contributed to date, the percentage of the goal reached, and the number of people contributing.</li>
  <li>By clicking on the "ChipIn!" button on the widget, visitors will be taken to your event invitation page where they can contribute to your ChipIn.</li>
</ul>
<br class="clear" />');
  }
}

/**
 * Implementation of hook_filter().
 */
function chipin_filter($op, $delta = 0, $format = -1, $text = '') {
  switch ($op) {
    case 'list':
      return array(0 => t('ChipIn Flash widget'));

    case 'description':
      return t('Add a ChipIn Flash widget to your posts.');

    case 'process':
      foreach(chipin_get_macros($text) as $unexpanded_macro => $macro) {
        $expanded_macro = chipin_render_widget($macro);
        $text = str_replace($unexpanded_macro, $expanded_macro, $text);
      }
      return $text;

    default:
      return $text;
  }
}

/**
 * Implementation of hook_filter_tips().
 */
function chipin_filter_tips($delta, $format, $long = FALSE) {
  if (variable_get('chipin_link', 'icon') == 'icon') {
    $type = t('icon');
  }
  else {
    $type = t('link');
  }
  switch ($long) {
    case 0:
      return t('Click the ChipIn %type above to add a ChipIn widget to this post.', array('%type' => $type));
    case 1:
      return t('Click the ChipIn %type below any text box to add a ChipIn widget to that post.', array('%type' => $type));
  }
}

/**
 * Implementation of hook_menu().
 */
function chipin_menu($may_cache) {
  $items = array();
  if ($may_cache) {
    $items[] = array(
      'path' => 'chipin/wizard',
      'title' => t('ChipIn Flash Widget Wizard'),
      'callback' => 'chipin_wizard',
      'access' => user_access('access content'),
      'type' => MENU_CALLBACK,
    );
  }
  return $items;
}

/**
 * Implementation of hook_perm().
 */
function chipin_perm() {
  return array('access ChipIn widget wizard');
}

/**
 * Implementation of hook_settings().
 *
 * Based on the hook_settings() in TinyMCE.
 */
function chipin_settings() {
  $form = array();

  $form['info'] = array(
    '#type' => 'markup',
    '#value' => '<p>'
      . t('ChipIn empowers individuals to connect with people in their social network to collect money for a personal cause, to purchase a gift, or for community fundraising. ChipIn makes this <strong>social ecommerce</strong><sup>SM</sup> process of connecting and collecting fun, easy and secure. ChipIn believes that positive change will result from enabling groups to harness the power of giving. That\'s the ChipIn mission.')
      . ' ' . t('Learn more on the %chipin-link.', array('%chipin-link' => l(t('ChipIn help page'), 'admin/help/chipin')))
      . '</p>',
  );

  $form['visibility'] = array(
    '#type' => 'fieldset',
    '#title' => t('Visibility'),
    '#collapsible' => FALSE,
    '#collapsed' => FALSE,
  );

  $access = user_access('use PHP for block visibility');

  // If the visibility is set to PHP mode but the user doesn't have this block
  // permission, don't allow them to edit nor see this PHP code.
  if (variable_get('chipin_access', 1) == 2 && !$access) {
    $form['visibility'] = array();
    $form['visibility']['chipin_access'] = array(
      '#type' => 'value',
      '#value' => 2,
    );
    $form['visibility']['chipin_access_pages'] = array(
      '#type' => 'value',
      '#value' => variable_get('chipin_access_pages', CHIPIN_ACCESS_PAGES_DEFAULT),
    );
  }
  else {
    $options = array(t('Show on every page except the listed pages.'), t('Show on only the listed pages.'));
    $description = t("Enter one page per line as Drupal paths. The '*' character is a wildcard. Example paths are '%blog' for the blog page and %blog-wildcard for every personal blog. %front is the front page.", array('%blog' => theme('placeholder', 'blog'), '%blog-wildcard' =>  theme('placeholder', 'blog/*'), '%front' => theme('placeholder', '<front>')));

    if ($access) {
      $options[] = t('Show if the following PHP code returns <code>TRUE</code> (PHP-mode, experts only).');
      $description .= t(' If the PHP-mode is chosen, enter PHP code between %php. Note that executing incorrect PHP-code can break your Drupal site.', array('%php' => theme('placeholder', '<?php ?>')));
    }
    $form['visibility']['chipin_access'] = array(
      '#type' => 'radios',
      '#title' => t('Show ChipIn wizard on specific pages'),
      '#default_value' => variable_get('chipin_access', 1),
      '#options' => $options,
    );
    $form['visibility']['chipin_access_pages'] = array(
      '#type' => 'textarea',
      '#title' => t('Pages'),
      '#default_value' => variable_get('chipin_access_pages', CHIPIN_ACCESS_PAGES_DEFAULT),
      '#description' => $description,
    );
  }

  $form['visibility']['chipin_link'] = array(
    '#type' => 'select',
    '#title' => t('Textarea widget link'),
    '#default_value' => variable_get('chipin_link', 'icon'),
    '#options' => array('icon' => t('Show icon'), 'text' => t('Show text link')),
    '#description' => t('Choose what to show under the textareas for which the ChipIn widget wizard is enabled.'),
  );
  return $form;
}

/**
 * Menu callback; print the ChipIn Flash widget wizard interface.
 *
 * @param $editor
 *   Specify with what type of editor (if any) we are working. Planned for
 * future use as a TinyMCE plugin.
 */
function chipin_wizard($editor = 'textarea') {
  //drupal_set_title(t('ChipIn Flash Widget Wizard'));

  $text_attributes = array(
    'onchange' => 'setWidget();',
    'onkeypress' => 'return returnFilter(this, event);',
  );
  $color_attributes = array(
    'onchange' => 'setWidget();',
    'onblur' => 'setWidget();',
    'onkeypress' => 'return hexFilter(this, event);',
  );

  $form = array();
  $form['#id'] = 'widgetform';

  /**
   * Construct the event text fields.
   */
  $form['event'] = array();
  $form['event']['label'] = array();
  $form['event']['field'] = array();

  $form['event']['label']['event_id'] = array('#value' => '<label for="edit-event_id">'. t('Event ID') .'</label>');
  $form['event']['field']['event_id'] = array(
    '#type' => 'textfield',
    '#default_value' => '',
    '#maxlength' => 127,
    '#attributes' => $text_attributes,
  );

  $form['event']['label']['event_title'] = array('#value' => '<label for="edit-event_title">'. t('Event Title') .'</label>');
  $form['event']['field']['event_title'] = array(
    '#type' => 'textfield',
    '#default_value' => '',
    '#maxlength' => 127,
    '#attributes' => $text_attributes,
  );
  $form['event']['label']['event_desc'] = array('#value' => '<label for="edit-event_desc">'. t('Description') .'</label>');
  $form['event']['field']['event_desc'] = array(
    '#type' => 'textfield',
    '#default_value' => '',
    '#maxlength' => 2048,
    '#attributes' => $text_attributes,
  );

  /**
   * Construct the dropdown size fields.
   */
  $form['size'] = array();
  $form['size']['label'] = array();
  $form['size']['field'] = array();

  $form['size']['label']['widget_width'] = array('#value' => '<label for="edit-widget_width">'. t('Width') .'</label>');
  $form['size']['field']['widget_width'] = array(
    '#type' => 'select',
    '#default_value' => 280,
    '#options' => array(160 => 160, 180 => 180, 200 => 200, 234 => 234, 240 => 240, 245 => 245, 250 => 250, 270 => 270, 280 => 280, 300 => 300, 336 => 336, 425 => 425, 468 => 468, '100%' => '100%'),
    '#attributes' => array('onchange' => 'setWidget()'),
  );

  $form['size']['label']['widget_height'] = array('#value' => '<label for="edit-widget_height">'. t('Height') .'</label>');
  $form['size']['field']['widget_height'] = array(
    '#type' => 'select',
    '#default_value' => 255,
    '#options' => array(90 => 90, 100 => 100, 110 => 110, 120 => 120, 125 => 125, 160 => 160, 180 => 180, 200 => 200, 220 => 220, 240 => 240, 250 => 250, 255 => 255, 270 => 270, 280 => 280, 400 => 400, 425 => 425, 500 => 500, '100%' => '100%'),
    '#attributes' => array('onchange' => 'setWidget()'),
  );

  $form['size']['label']['widget_align'] = array('#value' => '<label for="edit-widget_align">'. t('Align') .'</label>');
  $form['size']['field']['widget_align'] = array(
    '#type' => 'select',
    '#default_value' => '',
    '#options' => array('' => t('none'), 'left' => t('left'), 'right' => t('right')),
    '#attributes' => array('onchange' => 'setWidget()'),
  );

  /**
   * Construct the color fields.
   */
  $form['colors'] = array();
  $form['colors']['label'] = array();
  $form['colors']['field'] = array();
  $form['colors']['swatch'] = array();

  $form['colors']['header'] = array('#value' => '<p><b>Colors</b></p>');

  $colors = array();
  $colors['colortitle'] = array('color' => 'ffffff', 'title' => t('Title'));
  $colors['colorbar'] = array('color' => '758f46', 'title' => t('Bar'));
  $colors['colordesc'] = array('color' => '000000', 'title' => t('Description'));
  $colors['colorbarb'] = array('color' => 'dddddd', 'title' => t('Bar Back'));
  $colors['colorborder'] = array('color' => 'fcab42', 'title' => t('Border'));
  $colors['colorbart'] = array('color' => '758f46', 'title' => t('Bar Text'));
  $colors['colorbg'] = array('color' => 'ffffff', 'title' => t('Background'));

  foreach ($colors as $field => $params) {
    $form['colors']['label'][$field .'f'] = array('#value' => '<label for="edit-'. $field .'f" id="edit-'. $field .'-label">'. $params['title'] .'</label>');
    $form['colors']['field'][$field .'f'] = array('#type' => 'textfield', '#default_value' => $params['color'], '#size' => 6, '#maxlength' => 6, '#attributes' => $color_attributes);
    $form['colors']['swatch'][$field .'f'] = array('#value' => '<a href="#" onclick="pickcolor(\''. $field .'\');return false"><div class="swatch" id="edit-'. $field .'d"></div></a>');
  }

  $form['colors']['label']['presets'] = array('#value' => '<label>'. t('Presets') .'</label>');
  $form['colors']['field']['presets'] = array(
    '#type' => 'markup',
    '#value' => '<b><a href="#" onclick="setWidgetLayout(\'1\');return false">1</a> <a href="#" onclick="setWidgetLayout(\'2\');return false">2</a> <a href="#" onclick="setWidgetLayout(\'3\');return false">3</a></b>',
  );

  $form['colors']['spectrum'] = array(
    '#type' => 'markup',
    '#value' => '<div id="spectrum" style="display:none;text-align:right;width:305px;margin:10px auto 0 auto;padding-right: 5px;">'. "\n"
      . '  <div>'. "\n"
      . '    <img id="spectrumimg" src="'. base_path() . drupal_get_path('module', 'chipin') .'/images/spectrum.png" alt="" onmousedown="chooseColor(event);return false;" onmouseup="return false;" onmousemove="return false;"/>'. "\n"
      . '    <table cellpadding="0" cellspacing="0" border="0" width="100%">'. "\n"
      . '      <tr>'. "\n"
      . '        <td nowrap="true" align="left">click on a color</td>'. "\n"
      . '        <td align="right" style="padding:0"><a href="#" onclick="closePicker();return false;">close</a></td>'. "\n"
      . '      </tr>'. "\n"
      . '    </table>'. "\n"
      . '  </div>'. "\n"
      . '</div>'. "\n",
  );

  /**
   * Construct the checkbox fields.
   */
  $form['show'] = array();
  $form['show']['label'] = array();
  $form['show']['field'] = array();

  $form['show']['header'] = array('#value' => '<p><b>Show</b></p>');

  $form['show']['label']['showborder'] = array('#value' => '<label for="edit-showborder">'. t('Border') .'</label>');
  $form['show']['field']['showborder'] = array(
    '#type' => 'checkbox',
    '#default_value' => 1,
    '#return_value' => 1,
    '#attributes' => array('onclick' => 'setWidget();'),
  );
  $form['show']['label']['showbar'] = array('#value' => '<label for="edit-showbar">'. t('Progress Bar') .'</label>');
  $form['show']['field']['showbar'] = array(
    '#type' => 'checkbox',
    '#default_value' => 1,
    '#return_value' => 1,
    '#attributes' => array('onclick' => 'setWidget();'),
  );
  $form['show']['label']['showevent'] = array('#value' => '<label for="edit-showevent">'. t('Event Image') .'</label>');
  $form['show']['field']['showevent'] = array(
    '#type' => 'checkbox',
    '#default_value' => 1,
    '#return_value' => 1,
    '#attributes' => array('onclick' => 'setWidget();'),
  );
  $form['show']['label']['showbg'] = array('#value' => '<label for="edit-showbg">'. t('Background Image') .'</label>');
  $form['show']['field']['showbg'] = array(
    '#type' => 'checkbox',
    '#default_value' => 1,
    '#return_value' => 1,
    '#attributes' => array('onclick' => 'setWidget();'),
  );
  $form['show']['label']['showdesc'] = array('#value' => '<label for="edit-showdesc">'. t('Description') .'</label>');
  $form['show']['field']['showdesc'] = array(
    '#type' => 'checkbox',
    '#default_value' => 1,
    '#return_value' => 1,
    '#attributes' => array('onclick' => 'setWidget();'),
  );

  $form['widgetframe'] = array(
    '#type' => 'markup',
    '#value' => '<iframe scrolling="no" id="widgetframe" name="widgetframe" width="280" height="255" frameborder="0" border="0" style="z-index:-1;border:0;padding:0;margin-bottom:20px" src="https://www.chipin.com/widget/widget.swf"></iframe><br class="clear" />',
  );

  $form['insert'] = array(
    '#type' => 'submit',
    '#value' => t('Insert Widget Code'),
    '#attributes' => array('onclick' => 'parent.insertWidgetCode(); return false;', 'style' => 'float:left;', 'id' => 'insert'),
  );
  $form['cancel'] = array(
    '#type' => 'button',
    '#value' => t('Cancel'),
    '#button_type' => 'button',
    '#attributes' => array('onclick' => 'parent.cancelAction()', 'style' => 'float:right;', 'id' => 'cancel'),
  );

  $form['help'] = array(
    '#type' => 'markup',
    '#value' => '<div style="padding: 10px 0; clear: both;">'
      . t('<strong>Don\'t have your ChipIn event ID?</strong> Your ChipIn event ID can be found at the bottom of your %chipin-status-page.', array('%chipin-status-page' => l(t('ChipIn status page'), 'http://www.chipin.com', array('target' => '_blank'), NULL, NULL, TRUE)))
      . '</div>',
  );

  $form['widgettag'] = array(
    '#type' => 'hidden',
    '#value' => '',
  );

  $output = drupal_get_form('chipin_wizard', $form);
  $output = theme('chipin_popup_page', $output);
  print $output;
}


/**
 * Theme function ChipIn wizard form.
 *
 * @param $form
 *   The form to be themed.
 *
 * @return
 *   HTML for either a ChipIn image or text link for adding a Flash widget.
 *
 * @ingroup themeable
 */
function theme_chipin_wizard($form) {
  // Render the event text fields.
  $rows = _chipin_get_table_rows($form['event'], 2, array('label', 'field'), 'field');
  $output .= theme('table', array(), $rows, array('id' => 'titledesc'));

  // Render the size selects.
  $rows = _chipin_get_table_rows($form['size'], 6, array('label', 'field'), 'field');
  $output .= theme('table', array(), $rows);

  // Render the color swatches and spectrum.
  $rows = _chipin_get_table_rows($form['colors'], 6, array('label', 'field', 'swatch'), 'field');
  $output .= form_render($form['colors']['header']);
  $output .= theme('table', array(), $rows);
  $output .= form_render($form['colors']['spectrum']);

  // Render the checkboxes.
  $output .= form_render($form['show']['header']);
  $rows = _chipin_get_table_rows($form['show'], 4, array('field', 'label'), 'field');
  $output .= theme('table', array(), $rows, array('id' => 'showtable'));

  // Render the rest of the items in the right column and theme the outer table.
  $rows = array(array(array('data' => $output, 'style' => 'vertical-align: top;'), array('data' => form_render($form), 'style' => 'vertical-align: top;')));
  $output = '<div class="highlightFormSection">'
    . theme('table', array(), $rows, array('id' => 'widgetformtable', 'style' => 'z-index:0;'))
    . '</div>';
  return $output;
}

/**
 * Form helper function to easily print out structured form fields in a table.
 *
 * @param $form
 *   A form element whose children are to be themed.
 *
 * @param $columns
 *   Number of columns in the table.
 *
 * @param $fields
 *   An array of field names to render.
 *
 * @param $primary_field
 *   The primary field name on which to loop.
 *
 * @param $last_column_data
 *   The data to place in the last column(s) if there is an incomplete row
 * at the end of the table.
 *
 * @return
 *   An array of table rows.
 *
 * @ingroup themeable
 */
function _chipin_get_table_rows(&$form, $columns, $fields, $primary_field, $last_column_data = '&nbsp;') {
  $row = array();
  $rows = array();
  foreach (element_children($form[$primary_field]) as $key) {
    foreach ($fields as $field) {
      if (isset($form[$field][$key])) {
        $row[] = form_render($form[$field][$key]);
      }
      else {
        $row[] = '&nbsp;';
      }
    }
    if (count($row) == $columns) {
      $rows[] = $row;
      $row = array();
    }
  }
  if (count($row)) {
    $row[] = array('data' => $last_column_data, 'colspan' => $columns - count($row));
    $rows[] = $row;
  }
  return $rows;
}

/**
 * Return all ChipIn macros as an array.
 *
 * An example of a ChipIn macro:
 *
 * [chipin|event_id=38444da8e48c7190|event_title=some title
 * |event_desc=something else|show_url=true|color_title=ffffff
 * |color_graphfg=758f46|color_fg=000000|color_graphbg=dddddd
 * |color_border=fcab42|color_info=758f46|color_bg=ffffff]
 *
 * @param $text
 *   Text to be parsed for ChipIn macros.
 *
 * @return
 *   An array of all ChipIn macros contained in the input text.
 */
function chipin_get_macros($text) {
  $macros = array();
  preg_match_all('/ \[ ( [^\[\]]+ )* \] /x', $text, $matches);

  // Don't process duplicates.
  $tag_match = array_unique($matches[1]);

  foreach($tag_match as $macro) {
    $current_macro = '['. $macro .']';
    $params = array_map('trim', explode('|', $macro));

    // The first macro parameter is assumed to be the function name.
    $func_name = array_shift($params);

    if ($func_name == 'chipin') {
      $vars = array();
      foreach($params as $param) {
        $pos = strpos($param, '=');
        $varname = substr($param, 0, $pos);
        $varvalue = urldecode(substr($param, $pos + 1));
        $vars[$varname] = $varvalue;
      }

      // The full unaltered filter string is the key for the array of filter attributes.
      $macros[$current_macro] = $vars;
    }
  }

  return $macros;
}

/**
 * Returns HTML for a corresponding ChipIn Flash widget.
 *
 * @param $attributes
 *   An array of attributes parsed from the macro filter string.
 *
 * @return
 *   HTML for the ChipIn Flash widget.
 */
function chipin_render_widget($attributes = array()) {
  global $user;

  // Strip out any non-allowed attributes.
  $allowed_in_macro = array(
    'event_id' => 'text',
    'event_title' => 'text',
    'event_desc' => 'text',
    'show_url' => 'text',
    'color_title' => 'color',
    'color_graphfg' => 'color',
    'color_fg' => 'color',
    'color_graphbg' => 'color',
    'color_border' => 'color',
    'color_info' => 'color',
    'color_bg' => 'color',
    'width' => 'text',
    'height' => 'text',
    'align' => 'text',
    'use_sample_data' => 'text',
  );

  $attributes = _chipin_filter_attributes($attributes, $allowed_in_macro);

  // Apply width and height to embed attributes as they aren't used in flashVars.
  $embed['width'] = $attributes['width'] ? $attributes['width'] : 280;
  $embed['height'] = $attributes['height'] ? $attributes['height'] : 255;

  // Set Flash HTML element attributes and unset from attributes array.
  $embed['pluginspage'] = 'http://www.macromedia.com/go/getflashplayer';
  $embed['quality'] = 'high';
  $embed['allowScriptAccess'] = 'never';
  $embed['src'] = 'http://widget.chipin.com/widget/widget.swf';

  // Create flashVars string of filtered attributes.
  $embed['flashVars'] = _chipin_query_string_encode($attributes);

  $output = '<embed'. drupal_attributes($embed) .'></embed>';
  $output = theme('chipin_widget', $output, $attributes);
  return $output;
}


/**
 * Filters out any unallowed attributes in the given array, returning a query
 * string of key/value pairs.
 *
 * @return
 *   A query string of key/value pairs for use in the flashVars embed variable.
 */
function _chipin_query_string_encode($attributes) {
  // Strip out any non-allowed attributes.
  $allowed_in_query_string = array(
    'event_id' => 'text',
    'event_title' => 'text',
    'event_desc' => 'text',
    'show_url' => 'text',
    'color_title' => 'color',
    'color_graphfg' => 'color',
    'color_fg' => 'color',
    'color_graphbg' => 'color',
    'color_border' => 'color',
    'color_info' => 'color',
    'color_bg' => 'color',
    'use_sample_data' => 'text',
  );

  $attributes = _chipin_filter_attributes($attributes, $allowed_in_query_string);
  return drupal_query_string_encode($attributes);
}

/**
 * Helper function that strips any unallowed attributes from array.
 *
 * @param $attributes
 *   An attributes array of key/value pairs.
 *
 * @param $allowed
 *   An array with key being allowed keys in $attributes array and value being
 * the type of validation to occur.
 *
 * @return
 *   A filtered attributes array.
 */
function _chipin_filter_attributes($attributes, $allowed) {
  $attributes = array_map('trim', $attributes);

  foreach ($attributes as $k => $v) {
    $remove = TRUE;

    if (isset($allowed[$k])) {
      switch ($allowed[$k]) {
        case 'color':
          $remove = !preg_match('/([a-fA-F0-9]{6})/', $attributes[$k]);
          break;
        default:
          $remove = FALSE;
          break;
      }
    }

    if ($remove) {
      unset($attributes[$k]);
    }
  }

  return $attributes;
}

/**
 * Implementation of hook_elements().
 */
function chipin_elements() {
  $type = array();
  $type['textarea'] = array('#process' => array('chipin_textarea' => array()));
  $type['colorfield'] = array('#input' => TRUE, '#size' => 6, '#maxlength' => 6, '#autocomplete_path' => FALSE, '#process' => array('chipin_colorfield' => array()));
  return $type;
}

/**
 * Add ChipIn image link underneath applicable textareas.
 */
function chipin_textarea($element) {
  $link = variable_get('chipin_link', 'icon');
  if (_chipin_page_match() && _chipin_element_match($element)) { // && !strstr($_GET['q'], 'chipin')
    if (user_access('access ChipIn widget wizard')) {
      $element['#suffix'] .= theme('chipin_textarea_link', $element, $link);
    }
  }
  return $element;
}

/**
 * Determine if ChipIn has permission to place a link under this form element.
 *
 * @return
 *   TRUE if can render, FALSE if not allowed.
 */
function _chipin_element_match($element) {
  $return = TRUE;

  // $element is an array of attributes for the textarea but there is no just
  // 'name' value, so we extract this from the #id field.
  $textarea_name = substr($element['#id'], strpos($element['#id'], '-') + 1);
  switch ($textarea_name) {
    case 'log':
    case 'code':
      $return = FALSE;
      break;
  }

  return $return;
}

/**
 * Determine if ChipIn has permission to be used on the current page.
 *
 * @return
 *   TRUE if can render, FALSE if not allowed.
 */
function _chipin_page_match() {
  $page_match = FALSE;

  if (variable_get('chipin_access_pages', CHIPIN_ACCESS_PAGES_DEFAULT)) {
    // If the PHP option wasn't selected
    if (variable_get('chipin_access', 1) < 2) {
      $path = drupal_get_path_alias($_GET['q']);
      $regexp = '/^('. preg_replace(array('/(\r\n?|\n)/', '/\\\\\*/', '/(^|\|)\\\\<front\\\\>($|\|)/'), array('|', '.*', '\1'. preg_quote(variable_get('site_frontpage', 'node'), '/') .'\2'), preg_quote(variable_get('chipin_access_pages', CHIPIN_ACCESS_PAGES_DEFAULT), '/')) .')$/';
      $page_match = !(variable_get('chipin_access', 1) xor preg_match($regexp, $path));
    }
    else {
      $page_match = drupal_eval(variable_get('chipin_access_pages', CHIPIN_ACCESS_PAGES_DEFAULT));
    }
  }
  // No pages were specified to block so show on all
  else {
    $page_match = TRUE;
  }

  return $page_match;
}

/**
 * Theme function for adding a ChipIn link underneath textareas.
 *
 * @param $element
 *   The textarea form element.
 *
 * @param $link
 *   The type of link ('icon' or 'text') to add to the bottom of this textarea.
 *
 * @return
 *   HTML for either a ChipIn image or text link for adding a Flash widget.
 *
 * @ingroup themeable
 */
function theme_chipin_textarea_link($element, $link) {
  $output  = '<div class="chipin-button"><a class="chipin-link" id="chipin-link-'. $element['#id'] .'" title="'. t('Add a ChipIn Money Collection Widget') .'" href="'. url('chipin/wizard/textarea', 'textarea='. $element['#name']) .'" onclick="window.open(this.href, \'chipin_link\', \'width=705,height=550,scrollbars=no,status=no,resizable=yes,toolbar=no,menubar=no\'); return false">';
  if ($link == 'icon') {
    $output .= '<img src="'. base_path() . drupal_get_path('module', 'chipin') .'/images/chipin.logo.gif" border="0" width="99" height="42" />';
  }
  else {
    $output .= t('Add a ChipIn Money Collection Widget');
  }
  $output .= '</a></div>';
  return $output;
}

/**
 * Theme function for customizing the display of the ChipIn Flash widget.
 *
 * @param $text
 *   The Flash widget HTML to be themed.
 *
 * @param $attributes
 *   Optional array of attributes for additional theme customization.
 *
 * @return
 *   Themed HTML for the ChipIn Flash widget.
 *
 * @ingroup themeable
 */
function theme_chipin_widget($text, $attributes = array()) {
  if (isset($attributes['align']) && !empty($attributes['align'])) {
    $style = ' style="float: '. check_plain($attributes['align']) .';"';
  }
  else {
    $style = '';
  }
  $output = '<div class="chipin"'. $style .'>'. "\n";
  $output .= $text;
  $output .= '</div>'. "\n";
  return $output;
}

/**
 * Themeable page function for ChipIn widget popup window.
 *
 * @ingroup themeable
 */
function theme_chipin_popup_page($content) {
  // We aren't doing this anymore, to make jQuery integration easier.
  //drupal_set_header('Content-Type: text/html; charset=utf-8');
  //drupal_add_js(drupal_get_path('module', 'chipin') .'/js/jquery.js');
  //drupal_add_js(drupal_get_path('module', 'chipin') .'/js/chipin_textarea.js');
  //drupal_add_js(drupal_get_path('module', 'chipin') .'/js/chipin.js');
  //$output .= drupal_set_html_head();

  $output = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'. "\n";
  $output .= '<html xmlns="http://www.w3.org/1999/xhtml">'. "\n";
  $output .= '<head>'. "\n";
  $output .= '  <title>'. drupal_get_title() .'</title>'. "\n";
  $output .= '  <script type="text/javascript" src="'. base_path() . drupal_get_path('module', 'chipin') .'/js/jquery.js"></script>'. "\n";
  $output .= '  <script type="text/javascript" src="'. base_path() . drupal_get_path('module', 'chipin') .'/js/chipin_textarea.js"></script>'. "\n";
  $output .= '  <script type="text/javascript" src="'. base_path() . drupal_get_path('module', 'chipin') .'/js/chipin.js"></script>'. "\n";
  $output .= '  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'. "\n";
  $output .= '  <link rel="shortcut icon" href="'. base_path() .'misc/favicon.ico" type="image/x-icon" />';
  $output .= theme('stylesheet_import', base_path() . drupal_get_path('module', 'chipin') .'/chipin.css', 'all');
  $output .= '</head>'. "\n";
  $output .= '<body>'. "\n";

  $output .= "\n<!-- begin content -->\n";
  $output .= $content;
  $output .= "\n<!-- end content -->\n";

  return $output;
}