// $Id$
 
/**
 * @file
 *    Add body field to poll content type.
 */
 
/*
  A működés egy kicsit megváltozott,
  még nem tudtam eldönteni hogy jobb lett vagy rosszabb. :)
 
  A bevezető (teaser) és a teljes nézet rendes kezelését egy kicsit nehezíti,
  hogy a Poll modul lefoglalja a {node_revisions}.teaser mezőt.
  Ezért nem lehet tudni hogy a teljes nézetben is meg kell-e jeleníteni a bevezetőt.
  Ez az információ az űrlap elküldésekor még rendelkezésre áll,
  tehát lehetett volna azt is csinálni,
  hogy a pollbody modul, egy saját 2 mezős (vid, teaser_include) adattáblában tárolja.
  De nem ezt választottam, hanem a <!--break--> jelölőhőz hasonlóan,
  belenyomtam egy másik jelölőt a {node_revisions}.body mezőbe.*/
 
/**
 * Implementation of hook_form_alter().
 */
function pollbody_form_alter(&$form, $form_state, $form_id) {
  if ( $form_id == 'poll_node_form') {
    $body_label = t('Body');
   if ( $row = db_fetch_object(db_query("SELECT body_label FROM {node_type} WHERE orig_type = 'poll'")) AND trim($row->body_label)) {
      $body_label = t($row->body_label); //Remélhetőleg angolul lett kitöltve.
    }
 
    $body           = '';
    $teaser         = '';
    $body_format    = FILTER_FORMAT_DEFAULT;
    $teaser_include = FALSE;
    if (isset($form_state['values'])) {
      $teaser         = $form_state['values']['teaser_js'];
      $teaser_include = $form_state['values']['teaser_include'];
      $body           = $form_state['values']['body'];
      $body_format    = $form_state['values']['format'];
    }
    else if (isset($form['#node']->pollbody)) {
      $teaser         = $form['#node']->pollbody['teaser'];
      $teaser_include = $form['#node']->pollbody['teaser_include'];
      $body           = $form['#node']->pollbody['body'];
      $body_format    = $form['#node']->pollbody['format'];
      if ( $teaser_include == FALSE ) {
        $body = $teaser .'<!--break-->'. $body;
      }
    }
 
    $form['body_field'] = node_body_field($form['#node'], $body_label, 0);
    $form['body_field']['#weight'] = -4;
    $form['body_field']['body']['#default_value'] = $body;
    $form['body_field']['format']['#default_value'] = $body_format;
    $form['body_field']['teaser_include']['#default_value'] = $teaser_include;
    $form['body_field']['teaser_js']['#default_value'] = $teaser;
  }
}
 
/**
 * Implementation of hook_nodeapi().
 */
function pollbody_nodeapi(&$node, $op, $a3 = NULL, $a4 = NULL) {
  if ($node->type != 'poll') return;
 
  switch ( $op ) {
    case 'insert' :
    case 'update' :
      if ( !$node->teaser_include ) {
        db_query("UPDATE {node_revisions} SET body = CONCAT('<!--ti-->', body) WHERE nid = '%d' AND vid = '%d'", $node->nid, $node->vid);
      }
      break;
 
    case 'view' :
      $teaser         = '';
      $teaser_include = FALSE;
      $body           = '';
      $body_format    = FILTER_FORMAT_DEFAULT;
 
      if (isset($node->op) AND $node->op == t('Preview')) {
        $teaser         = $node->teaser_js;
        $teaser_include = $node->teaser_include;
        $body           = $node->body;
        $body_format    = $node->format;
        $body = _pollbody_split_body($teaser_include, $body, $teaser);
      }
      else {
        if ( !isset($node->pollbody) ) {
          _pollbody_nodeapi_load($node);
        }
        $teaser         = $node->pollbody['teaser'];
        $teaser_include = $node->pollbody['teaser_include'];
        $body           = $node->pollbody['body'];
        $body_format    = $node->pollbody['format'];
      }
 
      if ( $a3 ) {
        $node->content['pollbody']['teaser']['#value'] = check_markup($teaser, $body_format);
      }
      else {
        if ( $teaser_include ) {
          $body = str_replace('<!--break-->', '', $body);
        }
        $node->content['pollbody']['body']['#value'] = check_markup($body, $body_format);
      }
      break;
 
    case 'load' :
      _pollbody_nodeapi_load($node);
      break;
 
  }
}
 
function _pollbody_nodeapi_load(&$node) {
  $node->pollbody = db_fetch_array(db_query("SELECT body, format FROM {node_revisions} WHERE vid = '%d'", $node->vid));
  $node->pollbody['teaser_include'] = TRUE;
  if (strpos($node->pollbody['body'], '<!--ti-->') === 0) {
    $node->pollbody['teaser_include'] = FALSE;
    $node->pollbody['body'] = drupal_substr($node->pollbody['body'], drupal_strlen('<!--ti-->'));
    //$node->body = $node->pollbody['body'];
  }
 
  $node->pollbody['teaser'] = node_teaser($node->pollbody['body'], $node->pollbody['format'], 0);
  $node->pollbody['body'] = _pollbody_split_body($node->pollbody['teaser_include'], $node->pollbody['body']);
}
 
/**
 * Ha kell, akkor levágja a bevezetőt a törzsről.
 *
 * @param boolean $teaser_include
 *    Azt hívatott jelezni hogy a bevezető látszik-e a tartalom teljes nézetében.
 *
 * @param string $body
 *    A tartalom törzse
 *
 * @param $teaser
 *    Ezt akkor kell megadni ha nem a <!--break--> mentén szerenténk leválasztani a bevezetőt.
 *    A $body a $teaser-rel kezdődik, és le kell csípni a $body elejéről.
 *
 * @return string
 *    A $teaser_include-tól függően a $body bevezetővel vagy annélkül.
 */
function _pollbody_split_body($teaser_include, $body, $teaser = NULL) {
  if ( $teaser_include == FALSE AND $teaser !== NULL ) {
    return drupal_substr($body, drupal_strlen($teaser));
  }
  else if ( $teaser_include == FALSE ) {
    if ( FALSE !== ($pos = strpos($body, '\r\n<!--break-->\r\n')) ) {
      return drupal_substr($body, $pos + drupal_strlen('\r\n<!--break-->\r\n'));
    }
    else if ( FALSE !== ($pos = strpos($body, '<!--break-->')) ) {
      return drupal_substr($body, $pos + drupal_strlen('<!--break-->'));
    }
  }
  else {
    return $body;
  }
}