modules/netforum_nodes/netforum_node.module

<?php
// $Id: netforum_node.module,v 1.13 2007/11/26 22:11:34 jamesmichaelhill Exp $
//IDEA:  Popup reference/help for lists and queries in node bodies

/**
 * @file
 * The netFORUM Dynamic Facade Nodes module
 *
 *  Uses the netFORUM xWeb module to fetch Objects from netFORUM and
 *  turn them into Nodes for viewing.  The nodes work as a cross between 
 *  netFORUM e-marketing (correspondence) templates and the List content type in eWeb.
 *  Most e-marketing templates should look the same as nodes, but child_form_html and
 *  child_form_text commands are ignored.  Much of the functionality can be reproduced using
 *  the list functionality.
 *
 *  Many functions and behavior of this module is patterend, copied, or adapted from the Node module
 * 
 */

/** 
 * Implementation of hook_menu()
 */
function netforum_node_menu($may_cache) {
  $items = array();
  //'create netFORUM node', 'edit own netFORUM nodes', 'edit netFORUM nodes', 'administer netFORUM node templates', 'administer netFORUM node special fields'
  global $user;
  $node_access_perm =  (user_access('administer site configuration') || user_access('create netFORUM node') || user_access('edit netFORUM nodes') || (user_access('edit own netFORUM nodes') && ($user->uid == $node->uid)) );
	$template_access_perm = (user_access('administer site configuration') || user_access('administer netFORUM node templates'));
	$special_field_access_perm = (user_access('administer site configuration') || user_access('administer netFORUM node special fields'));
  
  if ($may_cache) {
    $items[] = array('path' => 'admin/content/netforum-node-templates',
      'title' => t('netFORUM Node Templates'),
      'callback' => 'netforum_node_overview_types',
			'access' => $template_access_perm,
      'description' => t('Add and edit netFORUM Node templates'),
    ); 
    
    $items[] = array(
      'path' => 'admin/content/netforum-node-templates/list',
      'title' => t('List'),
      'type' => MENU_DEFAULT_LOCAL_TASK,
      'weight' => -10,
      'access' => $template_access_perm,
    );
    
    $items[] = array('path' => 'admin/content/netforum-node-templates/add',
      'title' => t('Add netFORUM Node Template'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('netforum_node_type_form'),
      'type' => MENU_LOCAL_TASK,
      'access' => $template_access_perm,
    ); 
    
    $items[] = array('path' => 'admin/settings/netforum/special-fields',
      'title' => t('netFORUM node special fields'),
      'callback' => 'netforum_node_overview_special_fields',
      'description' => t('Add and edit special fields to use in netFORUM nodes'),
			'access' => $special_field_access_perm,
    ); 
    
    $items[] = array(
      'path' => 'admin/settings/netforum/special-fields/list',
      'title' => t('List'),
      'type' => MENU_DEFAULT_LOCAL_TASK,
      'weight' => -10,
    );
    
    $items[] = array('path' => 'admin/settings/netforum/special-fields/add',
      'title' => t('Add netFORUM Node Special Field'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('netforum_node_special_field_form'),
      'type' => MENU_LOCAL_TASK,
    ); 
    
    
    $items[] = array('path' => 'admin/content/netforum-object-autocomplete',
      'title' => t('Netforum object name autocomplete'),
      'callback' => 'netforum_objects_autocomplete',
      'type' => MENU_CALLBACK,
      'access' => $node_access_perm,
    ); 
    
    $items[] = array('path' => 'admin/content/netforum-object-fields-autocomplete',
			'title' => t('Netforum object fields autocomplete'),
			'callback' => 'netforum_node_object_fields_autocomplete',
			'type' => MENU_CALLBACK,
			'access' => $node_access_perm,
    ); 
    
    $items[] = array('path' => 'admin/content/netforum-template-code-autocomplete',
			'title' => t('Netforum object fields autocomplete'),
			'callback' => 'netforum_node_template_code_autocomplete',
			'type' => MENU_CALLBACK,
			'access' => $node_access_perm,
    ); 
		
		$items[] = array('path' => 'admin/content/netforum-node-object-lookup' ,
      'title' => t('Netforum object key lookup'),
      'callback' => 'netforum_node_object_lookup',
      'callback arguments' => array(true),
      'type' => MENU_CALLBACK,
      'access' => $node_access_perm,
    );
    
    $items[] = array(
      'path' => 'admin/settings/netforum/nodes',
      'title' => t('netFORUM Dynamic Facade Nodes'),
      'description' => t('Configure filtering for netFORUM data'),
      'callback' => 'drupal_get_form',
      'callback arguments' => array('netforum_node_settings'),
      'access' => user_access('administer site configuration'),
      'weight' => 5,
    );
    
	}
	else {
    //NEVER CACHE
    
    // netFORUM node template configuration.
    
    if (arg(0) == 'admin' && arg(1) == 'content' && arg(2) == 'netforum-node-templates') {
    
      if (arg(3) != NULL ) {
        $nftid = (int)arg(3);
        $res = db_query("SELECT nftid, obj_name as obj_type_name, code, is_default, default_title, default_body, taxonomy, format, a.nft_obj_key as nft_obj_key
          FROM {netforum_node_types} a JOIN {netforum_object_cache} b ON a.nft_obj_key = b.obj_key WHERE nftid = %d ", $nftid);
        $node_template = db_fetch_object($res);

        if (!empty($node_template)) {
          $node_template->obj_type_name = check_plain($node_template->obj_type_name);
          $node_template->taxonomy = unserialize($node_template->taxonomy);
          $items[] = array(
            'path' => 'admin/content/netforum-node-templates/'. $nftid,
            'title' => t('@object_name Object Template', array('@object_name' => $node_template->obj_type_name)),
            'callback' => 'drupal_get_form',
            'callback arguments' => array('netforum_node_type_form', $node_template),
            'type' => MENU_CALLBACK,
            'access' => $template_access_perm,
          );
          $items[] = array(
            'path' => 'admin/content/netforum-node-templates/'. $nftid .'/delete',
            'title' => t('Delete'),
            'callback' => 'drupal_get_form',
            'callback arguments' => array('netforum_node_type_delete_confirm', $node_template),
            'type' => MENU_CALLBACK,
            'access' => $template_access_perm,
          );
        }
      }
    }
    
    if (arg(0) == 'admin' && arg(1) == 'settings' && arg(2) == 'netforum' && arg(3) == 'special-fields' && arg(4) != NULL) {
      $field_code = arg(4);
      $field_code = db_result(db_query("SELECT field_code FROM {netforum_node_special_fields} WHERE field_code = '%s'", $field_code));
      if (!empty($field_code )) {
        $field_code = check_plain($field_code);
        $items[] = array(
          'path' => 'admin/settings/netforum/special-fields/'. $field_code ,
          'title' => $field_code,
          'callback' => 'drupal_get_form',
          'callback arguments' => array('netforum_node_special_field_form', $field_code),
          'type' => MENU_CALLBACK,
        );
        $items[] = array(
          'path' => 'admin/settings/netforum/special-fields/'. $field_code .'/delete',
          'title' => t('Delete'),
          'callback' => 'drupal_get_form',
          'callback arguments' => array('netforum_node_special_field_delete_confirm', $field_code),
          'type' => MENU_CALLBACK,
        );
      }
    }

    if (arg(0) == 'node' && is_numeric(arg(1))) {
      $is_nf_node = db_result(db_query("SELECT count(nfn_key) FROM {netforum_node} WHERE nid=%d", arg(1)));
      if ($is_nf_node > 0) { 
        $items[] = array('path' => "node/". arg(1) ."/refreshdata",
          'title'    => t('Refresh netFORUM data'),
          'access' => $node_access_perm,
          'type'     => MENU_LOCAL_TASK,
          'weight'   => 2,
          'callback' => 'netforum_node_refresh_tab',
          'callback arguments' => arg(1),
        );
      }
    }
    
    if (arg(0) == 'node' && netforum_is_valid_guid(arg(1)) && netforum_is_valid_guid(arg(2)) ) {
      $items[] = array('path' => "node/". arg(1) ."/". arg(2),
        'title'    => t('Create netFORUM Node'),
        'access'   => user_access('access content'),
        'type'     => MENU_CALLBACK,
        'callback' => 'netforum_node_create_from_template',
        'callback arguments' => array(arg(1), arg(2), arg(3)), //we're including arg3 because it may include a template id to link to
      );
    }
  
  }
  return $items;
}

/**
 * System setting form
 *
 */
function netforum_node_settings(){
  $form = array();
  
  $form['dates'] = array(
    '#title' => t('Date fields'),
    '#type' => 'fieldset',
  );
  
  $form['dates']['netforum_node_filter_date_fields'] = array(
    '#title' => t('Reformat date fields'),
    '#type' => 'checkbox',
    '#default_value' => variable_get('netforum_node_filter_date_fields', 1),
    '#description' => t('Check this to re-format any field ending in _date with the format below'),
  );
  
  $form['dates']['netforum_node_filter_date_format'] = array(
    '#title' => t('Date field format'),
    '#type' => 'textfield',
    '#default_value' => variable_get('netforum_node_filter_date_format', '%m/%d/%Y'),
    '#description' => t('The format follows PHPs strftime() function syntax, %Y is the full year, %m is the month as a number, and %d is the day as a number'),
  );
  
  $form['descriptions'] = array(
    '#title' => t('HTML Descriptions'),
    '#type' => 'fieldset',
  );
  
  $form['descriptions']['netforum_node_filter_html'] = array(
    '#title' => t('Parse HTML descriptions'),
    '#type' => 'checkbox',
    '#default_value' => variable_get('netforum_node_filter_html', 1),
    '#description' => t('Check this to search and parse any field ending in _html.  It is recommended to leave this checked.'),
  );

  return system_settings_form($form);
}

function netforum_node_settings_validate($form_id, $form_values, $form) {
  if (!empty($form_values['netforum_node_filter_date_format']) && $form_values['netforum_node_filter_date_fields']) {
    //note - strftime the form value and if it is incorrect it will be the input minus any % signs, so strreplace for percent, strftime and compare.
    $bad_parsed = str_replace('%', '', $form_values['netforum_node_filter_date_format']);
    $time_parsed = strftime($form_values['netforum_node_filter_date_format']);
    if ($bad_parsed == $time_parsed) {
      form_set_error('netforum_node_filter_date_format', t("The date format entered resolved to !time - an invalid choice", array('!time' => $time_parsed)));
    }
  }
}

/**
 * menu local task callback to refresh a node's data
 *
 * @param $nid
 *    integer, the node ide
 * @return
 *  redirects to the node view
 */
function netforum_node_refresh_tab($nid) {
  $node = node_load($nid);
  netforum_node_refresh_fields($node, true);
  if (isset($node->nfn_data)) {
    //if the data is set, that means that we successfully got it from netforum
    netforum_node_save_fields($node);
    drupal_set_message("Fetched latest data from netFORUM");
  }
  else{
    drupal_set_message("netFORUM currently unavailable", 'error');
  }
  drupal_goto("node/". $node->nid);
}

/**
 * menu callback to search for node fields
 *
 * @param $obj
 *    A string containing either the object name or key
 * @param $search
 *   A string to match against the list of object fields
 * @return
 *  a JSON object with the results, exits after completion
 */
function netforum_node_object_fields_autocomplete($obj='', $search="") {
  if ($obj == '' && $search == '') {
    print drupal_to_js(array('' => 'Try setting the object name before looking for object fields'));
    exit;
  }
  
  $fields = array();
  
  if ($search == '') {
    $search = $obj;
    $fields = netforum_node_special_fields(true);
    $no_object_set = true;
  }
  else {
    $obj = netforum_is_valid_guid($obj) ? netforum_object_name($obj) : $obj;
    $fields = array_merge(netforum_object_fields($obj), netforum_node_special_fields(true));
  }
    
  $matches = array();
  foreach ($fields as $k => $v) {
    if (stristr($v, $search) || stristr($k, $search)) {
      $matches["{". $k ."}"] = $v;
    }
  }
  if ($no_object_set === true) {
    $matches = array_merge(array('' => 'Try setting the object name before looking for object fields'), $matches);
  }
  print drupal_to_js($matches);
  exit;
}

/**
 * menu callback to search for node template codes
 *
 * @param $obj
 *    A string containing either the object name or key
 * @param $search
 *   A string to match against the list of object fields
 * @return
 *  a JSON object with the results, exits after completion
 */
function netforum_node_template_code_autocomplete($obj='', $search="") {
  if ($obj == '' && $search == '') {
    print drupal_to_js(array('' => 'Try setting the object name before looking for templates'));
    exit;
  }
  
  $codes = array();
  
  if ($search == '') {
    $search = $obj;
    $res = db_query("SELECT code FROM {netforum_node_types} WHERE code like '%%s%' ORDER BY code ASC", $search);
    while ($code_result = db_fetch_array($res)) {
      $codes[$code_result['code']] = $code_result['code'];
    }
    $no_object_set = true;
  }
  else {
    $obj = netforum_is_valid_guid($obj) ? $obj : netforum_object_key($obj);
    if (netforum_is_valid_guid($obj)) {
      $res = db_query("SELECT code FROM {netforum_node_types} WHERE nft_obj_key = '%s' AND code like '%%%s%' ORDER BY code ASC", $obj, $search);
      while ($code_result = db_fetch_array($res)) {
        $codes[$code_result['code']] = $code_result['code'];
      }
    }
  }
  
  if ($no_object_set === true) {
    $codes = array_merge(array('' => 'Try setting the object name before looking for template codes'), $codes);
  }
  print drupal_to_js($codes);
  exit;
}

/** 
 *  Implementation of node_form()
 */
function netforum_node_form($node) {
  $type = node_get_types('type', $node);
  
  //Get a working object name and key if there isn't one set for the object
  if (isset($node->obj_type_name)) {
    $object_name = $node->obj_type_name;
    $node->nfn_obj_key = netforum_object_key($node->obj_type_name);
  }
  else if (isset($_POST['obj_type_name']) ) {
    $object_name = $_POST['obj_type_name'];
    $node->nfn_obj_key = netforum_object_key($object_name);
  }
  $object_name = trim($object_name) == '' ? "Object" : $object_name;

  
  $form['obj_type_name'] = array(
    '#type' => 'textfield',
    '#title' => t('Object Name'),
    '#size' => 50,
    '#autocomplete_path' => 'admin/content/netforum-object-autocomplete',
    '#weight' => -7,
    '#required' => true,
    '#default_value' => $node->obj_type_name,
    '#description' => t("This is the kind of information to pull from netFORUM, usually seen in profile forms in iWeb.  Type the object name or the object prefix to search."),
  );
  
  $form['nfn_key'] = array(
    '#type' => 'textfield',
    '#title' => t('@objectname Key', array('@objectname' => $object_name) ),
    '#required' => TRUE,
    '#default_value' => $node->nfn_key,
    '#weight' => -6,
    '#description' => t("This is the unique identifier for information in netFORUM.  If you don't know the key, click the help find object key link below to look for one."),
  );
  
  $form['object_help'] = array(
    '#type' => 'fieldset',
    '#title' => t('Help find @objectname key', array('@objectname' => $object_name)),
    '#collapsible' => TRUE, 
    '#collapsed' => TRUE,
    '#weight' => -5,
    '#attributes' => array("id" => 'object_help'),
    '#suffix' => "<span id='object_help_status' style='display:none'>Updating... &nbsp;<img src='". base_path() . drupal_get_path('module', 'netforum_node') ."/waiting.gif'></span>"
  );
  
  $form['object_help']['helpframe'] = array(
    '#prefix' => "<div id='find_key_help'>",
    '#value' => theme_netforum_node_object_lookup($object_name),
    '#suffix' => "</div>",
  );
  
  $form['template_code'] = array(
    '#type' => 'textfield',
    '#title' => t('Template code'),
    '#weight' => -1,
    '#default_value' => $node->template_code,
    '#description' => t('If creating a node from a template, specify a template code here.  If left blank the default template will be used.  This is also the template to use for node operations.'),
    '#autocomplete_path' => 'admin/content/netforum-template-code-autocomplete/',
  );
  if ($node->nfn_obj_key) {
    $form['template_code']['#autocomplete_path'] .= $node->nfn_obj_key;
  }

  $form['unparsed_title'] = array(
    '#type' => 'textfield',
    '#title' => check_plain($type->title_label),
    '#default_value' => $node->unparsed_title,
    '#weight' => -2,
    '#description' => t('Leave empty to use the default title for this @objectname.  Anything in curly brackets will be replaced with the information from netFORUM.', array('@objectname' => $object_name)),
  );

  
  $form['obj_field_help'] = array(
    '#type' => 'textfield',
    '#title' => t('Find object fields'),
    '#size' => 60,
    '#autocomplete_path' => 'admin/content/netforum-object-fields-autocomplete/',
    '#weight' => -1,
    '#default_value' => '',
    '#description' => t("Type the first few letters of what you're looking for to find the code.  Use the code in the title or body to get the information from netFORUM"),
  );
  if ($node->nfn_obj_key) {
    $form['obj_field_help']['#autocomplete_path'] .= $node->nfn_obj_key;
  }
  
  $form['body_filter']['unparsed_body'] = array(
    '#type' => 'textarea',
    '#title' => check_plain($type->body_label),
    '#default_value' => $node->unparsed_body,
    '#rows' => 15,
    '#description' => t('Leave empty to use the default body for this @objectname.  Anything in curly brackets will be replaced with the information from netFORUM.', array('@objectname' => $object_name)),
  );
  
  $form['body_filter']['filter'] = filter_form($node->format);
  
  return $form;
}

/** 
 *  Implementation of node_validate()
 */
function netforum_node_validate(&$node, $form) {

  if ( trim($node->unparsed_title) == '' || trim($node->unparsed_body) == '') {
    $nft_obj_key = netforum_object_key($node->obj_type_name);
    $template_exists = false;
    if ( netforum_is_valid_guid($nft_obj_key)) {
      $count = db_result(db_query("SELECT count(default_title) FROM {netforum_node_types} WHERE nft_obj_key = '%s' ", $nft_obj_key));
      $template_exists = ($count > 0);
    }
  }
  

  if ( trim($node->unparsed_title) == '' && $template_exists == false) {
    form_set_error('unparsed_title', 
            t('A title is required, and no default title is set for %type objects, perhaps you need to !add_link?', array(
                '%type' => $node->obj_type_name, 
                '!add_link' => l(t('add a netforum node template'), 'admin/content/netforum-node-templates/add'),
              )
            )
        );
  }
  
  if ( trim($node->unparsed_body) == '' && $template_exists == false) {
    form_set_error('unparsed_body', 
            t('A body is required, and no default body is set for %type objects, perhaps you need to !add_link?', array(
                '%type' => $node->obj_type_name, 
                '!add_link' => l(t('add a netforum node template'), 'admin/content/netforum-node-templates/add'),
              )
            )
        );
  }
  
  if (isset($node->obj_type_name) && isset($node->nfn_key) ) {
    $valid_key = true;
    $valid_object = true;
    if ( netforum_is_valid_guid($node->nfn_key) == false ) {
      form_set_error('nfn_key', t('The object key an invalid format'));
      $valid_key = false;
    }
    
    if ( netforum_is_valid_guid(netforum_object_key($node->obj_type_name)) == false ) {
      form_set_error('obj_type_name', t('Could not find any netFORUM objects with that name, perhaps you need to !link ?', array('!link' => l(t('refresh netforum object names'), 'admin/settings/netforum/objectnamesrefresh') ) ));
      $valid_object = false;
    }
    
    if ($valid_key && $valid_object) {
      $obj_name = $node->obj_type_name;
      $nfn_key = $node->nfn_key;
      
      $results = netforum_xweb_request('GetFacadeObject', array('szObjectName' => $obj_name, 'szObjectKey' => $nfn_key) );
      
      if (is_null($results) || (isset($results->attributes()->recordReturn) &&  $results->attributes()->recordReturn == 0) ) {
        form_set_error('nfn_key', t('No %obj_name object found with that key', array('%obj_name' => $node->obj_type_name) ));
      }
    }
  }
}

/** 
 *  The help DIV included when editing a netFORUM node to help lookup an object type and key
 *  Included here as part of the form
 *
 *  @param $obj_type_name
 *    A string containing the name of the object
 * @return
 *    A string containing HTML
 */
function theme_netforum_node_object_lookup($obj_type_name = '') {
  drupal_add_css(drupal_get_path('module', 'netforum_node') .'/netforum_node.css');
  drupal_add_js(drupal_get_path('module', 'netforum_node') .'/jquery.netforum_node.js');
  $obj_type_name = $obj_type_name == "Object" ? "" : $obj_type_name;
  return netforum_node_object_lookup(false, $obj_type_name);
}

/** 
 * The contents of the help DIV included when editing a netFORUM node to help lookup an object type and key
 *
 * This function is called both by the theme and as a menu callback by ajax requests, possibly searching on
 * fields for the current object or on a URL from netFORUM
 *
 * @param $obj_type_name
 *    A string containing the name of the object
 * @param $exit_after
 *    A boolean, if true the function will output HTML directly and exit.  Default value is false
 * @return
 *    A string containing html if the $exit_after parameter is empty or set to false
 */
function netforum_node_object_lookup($exit_after = false, $obj_type_name='') {
  $output = '';
  $max_rows_return = 40;
  $form = array();
  $where_args = array();
  $table_header = array(''); //We want one blank column in here for the Set Key link
  $table_rows = array();
  $search_results = "";
	$search_on = array();
  
  $form['url_lookup'] = array(
    '#type' => 'textfield',
    '#title' => t('netFORUM URL'),
    '#default_value' => '',
    '#maxlength' => 500,
    '#description' => 'Copy and paste a URL to search for the key and object',
  );
  
		if ($obj_type_name != '') {
		//If any modules invoke hook_netforum_node_obj_search_on or hook_netforum_node_obj_order_by use those, if not set some defaults
		$search_on = module_invoke_all('netforum_node_obj_search_on', $obj_type_name);
		$order_by = module_invoke_all('netforum_node_obj_order_by', $obj_type_name);
		
		if (count($search_on) == 0 || count($order_by) == 0) {
			$default_columns = array();
			$res = db_query("SELECT obj_defaultcolumns, obj_defaultorderby FROM {netforum_object_cache} WHERE obj_name = '%s'", $obj_type_name);
			$obj_defaults = db_fetch_array($res);
			$default_orderby = $obj_defaults['obj_defaultorderby'];
			
			//If the default columns are * or empty, try setting it to the default order by
			if ( ! isset($obj_defaults['obj_defaultcolumns']) || $obj_defaults['obj_defaultcolumns'] == "*" || trim($obj_defaults['obj_defaultcolumns']) == '' ) {
				$obj_defaults['obj_defaultcolumns'] = $obj_defaults['obj_defaultorderby'];
			}
			
			if (isset($obj_defaults['obj_defaultcolumns']) && $obj_defaults['obj_defaultcolumns'] != "*" && trim($obj_defaults['obj_defaultcolumns']) != '' ) {
				$columns = explode(",", $obj_defaults['obj_defaultcolumns']);
				foreach ($columns as $col) {
					$col = trim($col);
					$default_columns[$col] = ucwords(str_replace("_", " ", $col));
				}
			}
			
			$search_on = count($search_on) == 0 ? $default_columns : $search_on;
			$order_by = count($order_by) == 0 ? $obj_defaults['obj_defaultorderby'] : $order_by;
		}
		$order_by = is_array($order_by) ? implode(",", $order_by) : $order_by;

		if (is_array($search_on)) {
			
			foreach ($search_on as $col => $friendly_col) {
				$col = trim($col);
				$table_header[] = $friendly_col;
				
				//If they submitted the form, prepare to get some data from netFORUM
				if (isset($_GET[$col]) && $_GET[$col] != '') {
					$where_args[] = $col ." LIKE '". $_GET[$col] ."%'";
				}
				
				//build the form either way
				$form[$col] = array(
					'#type' => 'textfield',
					'#size' => 20,
					'#title' => $friendly_col,
					'#default_value' => $_GET[$col],
				);
			}
		}
	}

  $form['key_submit'] = array(
    '#type' => 'button',
    '#value' => 'Search',
  );
  
  $form['key_obj_type_name'] = array(
    '#type' => 'hidden',
    '#value' => $obj_type_name,
    '#disabled' => true,
  );
  $form['search_on'] = array(
    '#type' => 'hidden',
    '#value' => drupal_to_js(array_keys($search_on)),
    '#disabled' => true,
  );
  
  drupal_prepare_form('key-help', $form);
  
  if ($obj_type_name != '' && count($where_args) > 0) {
    $arguments = array(
      'szObjectName' => $obj_type_name ." @TOP ". $max_rows_return,
      'szColumnList' => implode(", ", array_keys($search_on)),
      'szWhereClause' => implode(" AND ", $where_args),
      'szOrderBy' => $order_by,
    );
    $response = netforum_xweb_request('GetQuery', $arguments); 
    if ($response && $response->attributes()->recordReturn > 0) {
      $response_objects = $obj_type_name ."Object";
      $obj_count = 0;
      foreach ($response->$response_objects as $obj) {
        $fields = get_object_vars($obj);
        $obj_key = (string)array_shift($fields);
        $table_rows[] = array_merge( array( l(t("Set Key "), '', array('id' => $obj_key, 'class' => 'key-help'), null, '') ), $fields);
        
        $obj_count++;
        if ($obj_count > $max_rows_return) {
          break;
        }
      }
    }
    if (count($table_rows) == 0) {
      $table_rows[] = array(array('data' => t('No results found.'), 'colspan' => count($search_on), 'class' => 'message'));
    }
  }
  else if ($_GET['url_lookup']) {
    parse_str(strtolower($_GET['url_lookup']), $nf_url); //gets the GET arguments into the $nf_url array
    $obj_name = '';
    $table_header = array('', 'Object Key', 'Object Name');
    if (netforum_is_valid_guid($nf_url['formkey'])) {
      $arguments = array(
        'szObjectName' => 'md_dynamic_form',
        'szColumnList' => 'obj_name',
        'szWhereClause' => "dyn_key = '". $nf_url['formkey'] ."' ",
        'szOrderBy' => '',
      );
      $response = netforum_xweb_request('GetQuery', $arguments); 
      
      if ($response && $response->attributes()->recordReturn > 0) {
        $obj_name = $response->md_dynamic_formObject->obj_name;
      }
    }
    
    if (netforum_is_valid_guid($nf_url['key'])) {
      if ($obj_name == '' ) {
        $obj_name = "Object name not found";
      }
      $table_rows[] = array( l("Set Object name and Key", '', array('class' => 'obj-help'), null, '') , 
            $nf_url['key'], 
            $obj_name,
        );
      //Not the most elegant way of passing data back and forth, but since we're outputting HTML anyway I'll take it.
      $output .= "<span style='display:none' id='new_obj_key'>". $nf_url['key'] ."</span>";
      $output .= "<span style='display:none' id='new_obj_name'>". $obj_name ."</span>";
    }
    else {
      $table_rows[] = array(array('data' => t('No results found.'), 'colspan' => 2, 'class' => 'message'));
    }
  }
  
  if (count($table_rows) > 0) {
    $search_results = theme('table', $table_header, $table_rows);
  }

  if (count($table_rows) >= $max_rows_return) {
    $output .= "<h3>". t("More than @numrows matches found, try being more specific.", array('@numrows' => $max_rows_return)) ."</h3>";
  }
  $output .= $search_results;
  $output .= drupal_render($form);
  
  if ($exit_after) {
    print $output;
    //If we got no response, it might have set an error using drupal_message.  Since we could be ajaxin' it up here,
    //clear out those errors.
    drupal_get_messages();
    exit;
  }
  else {
    return $output;
  }
}

/**
 *  Implementation of node_insert()
 */
function netforum_node_insert($node) {
  db_query("INSERT INTO {netforum_node} (nid, vid, nfn_obj_key, nfn_key, unparsed_title, unparsed_body, template_code)  VALUES(%d, %d, '%s', '%s', '%s', '%s', '%s')", 
    $node->nid, $node->vid, netforum_object_key($node->obj_type_name), $node->nfn_key, $node->unparsed_title, $node->unparsed_body, $node->template_code);
}

/**
 *  Implementation of node_update()
 */
function netforum_node_update($node) {
  if ($node->revision) {
    netforum_node_insert($node);
  }
  else{
    db_query("UPDATE {netforum_node} set nfn_obj_key = '%s', nfn_key = '%s', unparsed_title = '%s', unparsed_body = '%s', template_code = '%s' WHERE nid='%d' AND vid='%d' ", 
      netforum_object_key($node->obj_type_name), $node->nfn_key, $node->unparsed_title, $node->unparsed_body, $node->template_code, $node->nid, $node->vid);
  }
}

/**
 *  Implementation of node_submit()
 */
function netforum_node_submit(&$node) {
  netforum_node_set_to_template($node); //This will only override our input if we pass TRUE as the second parameter, so we're safe
  netforum_node_refresh_fields($node);
}

/**
 *  Implementation of node_load()
 */
function netforum_node_load($node) {

  $op = isset($_POST['op']) ? $_POST['op'] : '';  
  
  if ($op == 'Preview') {
    //this data is going to get used to generate a preview, so we ought ot set it...
    $node_part  = new stdClass();
    $node_part->nfn_key = $_POST['nfn_key'];
    $node_part->obj_type_name = trim($_POST['obj_type_name']);
    $node_part->nfn_obj_key = netforum_object_key($node_part->obj_type_name);
    $node_part->unparsed_body = $_POST['unparsed_body'];
    $node_part->unparsed_title = $_POST['unparsed_title'];
    $node_part->template_code = $_POST['template_code'];
    netforum_node_set_to_template($node_part);
  }
  else{ 
    $res = db_query("SELECT nfn_obj_key, a.nfn_key as nfn_key, obj_name as obj_type_name, unparsed_title, unparsed_body, template_code FROM
      {netforum_node} a
      JOIN {netforum_object_cache} b ON a.nfn_obj_key = b.obj_key
      WHERE nid=%d
      AND vid=%d", $node->nid, $node->vid);
    $node_part = db_fetch_object($res);
  }

  return $node_part;
}


/**
 *  Implementation of node_delete()
 */
function netforum_node_delete($node) {
  db_query("DELETE FROM {netforum_node} WHERE nid=%d", $node->nid);
}

/**
 *  Implementation of node_view()
 */
function netforum_node_view($node, $teaser = FALSE, $page = FALSE) {

  $op = isset($_POST['op']) ? $_POST['op'] : '';  
 
  if ($op == 'Preview') {
    netforum_node_set_to_template($node);
  }
  
  $obj_key = netforum_is_valid_guid($node->nfn_obj_key) ? $node->nfn_obj_key : netforum_object_key($node->obj_type_name);

  if (! isset($node->nfn_data) || empty($node->nfn_data)) {
    $page_title = drupal_get_title();
    $old_node_title = $node->title;
    
    netforum_node_refresh_fields($node);
    netforum_node_save_fields($node);
    
    //Update the title of the page if it changed
    if ($page_title == $old_node_title && $node->title != $old_node_title) {
      drupal_set_title($node->title);
    }
  }
  if (!$teaser) {
    //Mostly this is a sanity check, but if they are editing or previewing a node it will be handy
    if ($node->body == $node->unparsed_body || empty($node->body)) {
      $node->body = netforum_node_process_text($node->unparsed_body, $node->nfn_data, $obj_key);
    }
    if ($node->title == $node->unparsed_title || empty($node->title) ) {
      $node->title = netforum_node_process_text($node->unparsed_title, $node->nfn_data);
    }
    $node = node_prepare($node, $teaser);
  }
  
  if ($teaser) {
    $node->teaser = netforum_node_process_text($node->teaser, $node->nfn_data, $obj_key);
    $node = node_prepare($node, $teaser);
  }
  
  return $node; 
}

/**
 * Create a new node programatically from a template, or redirect if the node exists
 *
 * The node's body and title are set to the default template and inserted in the databse
 *
 * @param $nfn_obj_key
 *    A string representing the netFORUM key of the node object type
 * @param $nfn_key
 *    A string representing the unique key of the netFORUM object
 * @param $nftid
 *    An integer with the template ID to link to, if unset it will link to the default
 */
function netforum_node_create_from_template($nfn_obj_key, $nfn_key, $nftid = null) {

  $code = '';
  if (is_null($nftid) == false) {
    $code = db_result(db_query("SELECT code FROM {netforum_node_types} WHERE nftid=%d", $nftid));
  }
  
  if ($code != '') {
    //first check to see if a node with that key/code exists
    $nid = db_result(db_query("SELECT nid FROM {netforum_node} WHERE nfn_key = '%s' AND template_code = '%s' LIMIT 1", $nfn_key, $code));
    if ($nid) { //If a node with that object key and type exists, link to it.  If there's more than one node with the same key and object, well, good luck.
      drupal_goto('node/'. $nid);
      return;
    }
  }
  
  $node  = new stdClass();
  $node->type = 'netforum_node';
  $node->log = t('Created on demand by a {BeginLink}{EndLink} tag');
  $node->nfn_key = $nfn_key;
  $node->nfn_obj_key = $nfn_obj_key;
  $node->obj_type_name = netforum_object_name($nfn_obj_key);
  
  $node_options = variable_get('node_options_'. $node->type, array('status'));
  foreach (array('status', 'promote', 'sticky', 'revision') as $key) {
      $node->$key = in_array($key, $node_options);
  }

  if (false) {
    drupal_goto($_GET['destination']);
  }
  netforum_node_set_to_template($node, false, $nftid);
  if (isset($node->unparsed_body) == false || isset($node->unparsed_title) == false) {
    drupal_not_found();
    return;
  }
  
  netforum_node_refresh_fields($node);
  if (isset($node->nfn_data) == false) {
    drupal_not_found();
    return;
  }
  
  node_save($node);
  
  drupal_goto('node/'. $node->nid);
}


/**
 *  Set the nodes body and title to the netFORUM node template
 *
 * @param &$node
 *    A netFORUM node object with either an object key or name set
 * @param $overwrite_fields
 *    Boolean, defaults to false.  If set to true the body and title will be overwritten with
 *    the template
 * @param $nftid
 *    An integer with the template ID to link to, if unset it will link to the default
 * @return 
 *    A boolean indicating if any fields were changed
 */
function netforum_node_set_to_template(&$node, $overwrite_fields = false, $nftid = null) {
  if ($overwrite_fields != true && trim($node->unparsed_body) != '' && trim($node->unparsed_title) != '') {
    //no overwrite needed because the fields have a value and we weren't instructed to overwrite them
    return false;
  }
  
  $changed_fields = false;
  
  $obj_key = netforum_is_valid_guid($node->nfn_obj_key) ? $node->nfn_obj_key : netforum_object_key($node->obj_type_name);
  if ( netforum_is_valid_guid($obj_key)) {
    
    if (is_null($nftid) && trim($node->template_code) != '') {
      $res = db_query("SELECT nftid FROM {netforum_node_types} WHERE code = '%s'", $node->template_code);
      if (db_num_rows($res) == 1) {
        $nftid = db_result($res);
      }
    }
    
    if ($nftid) {
      $template = db_fetch_array(db_query("SELECT default_body, default_title, taxonomy, format, code FROM {netforum_node_types} WHERE nft_obj_key = '%s' AND nftid = %d ", $obj_key, $nftid));
    }
    else {
      $template = db_fetch_array(db_query("SELECT default_body, default_title, taxonomy, format, code FROM {netforum_node_types} WHERE nft_obj_key = '%s' ORDER BY is_default desc, code LIMIT 1", $obj_key));
    }
    if ($template) {
      if ($overwrite_fields || trim($node->unparsed_body) == '') {
        $node->unparsed_body = $template['default_body'];
        $changed_fields = true;
      }
      if ($overwrite_fields || trim($node->unparsed_title) == '') {
        $node->unparsed_title = $template['default_title'];
        $changed_fields = true;
      }
      if ($overwrite_fields || empty($node->taxonomy) ) {
        $node->taxonomy = unserialize($template['taxonomy']);
        $changed_fields = true;
      }
      if ($overwrite_fields || empty($node->format) ) {
        $node->format = $template['format'];
        $changed_fields = true;
      }
      if ($overwrite_fields || trim($node->template_code) == '' ) {
        $node->template_code = $template['code'];
        $changed_fields = true;
      }
    }
  }
  
  return $changed_fields;
}

/**
 *  Fetch new data for the netFORUM node and update the body and title
 *
 * $node->nfn_skip_save is set by this function.  If the data came from the cache
 * or doesn't change the body or title nfn_skip_save is set to true
 *
 * @param &$node
 *    A netFORUM node object 
 * @param $ignore_cache
 *    Boolean, defaults to false.  If set to true the latest data will be fetched from
 *    netFORUM and not from the local DB cache
 */
function netforum_node_refresh_fields(&$node, $ignore_cache = false) {
  $save_not_needed = false;
  netforum_node_refresh_data($node, $ignore_cache);

  if (isset($node->nfn_data)) {
    $obj_key = netforum_is_valid_guid($node->nfn_obj_key) ? $node->nfn_obj_key : netforum_object_key($node->obj_type_name);
    
    $new_body = netforum_node_process_text($node->unparsed_body, $node->nfn_data, $obj_key, $ignore_cache);
    $new_title = netforum_node_process_text($node->unparsed_title, $node->nfn_data, '', $ignore_cache);
    
    $save_not_needed = (strcmp($new_body, $node->body) == 0 && strcmp($new_title, $node->title) == 0);
    
    $node->body = $new_body;
    $node->title = $new_title;
    $node->teaser = isset($node->body) ? node_teaser($node->body, isset($node->format) ? $node->format : NULL) : '';
  }
  else{
    $save_not_needed = true;
  }

  $node->nfn_skip_save = $save_not_needed;
  
}

/**
 * Get the latest data for a node from netFORUM
 *
 * @param &node
 *    The netFORUM Dynamic Facade Node with an object key and object type key set
 * @return
 *    Nothing, the node is passed by reference
 */
function netforum_node_refresh_data(&$node, $ignore_cache = false) {
  
  if ( (isset($node->nfn_data) && $ignore_cache == false) ) {
    return;
  }
  
  $obj_name = $node->obj_type_name;
  if (!isset($obj_name) && netforum_is_valid_guid($node->nfn_obj_key) ) {
    $obj_name = netforum_object_name($node->nfn_obj_key);
  }
  $nfn_key = $node->nfn_key;
  
  if ( isset($obj_name) == false || netforum_is_valid_guid($nfn_key == false)) {
    return;
  }
  
  if ($ignore_cache) {
    $cache_time = '1 second';
  }
  else{
    $cache_time = null; 
    // only look in the default cache, if we're refreshing the information we don't want really old (possibly bad) data
  }
  
  $results = netforum_xweb_request('GetFacadeObject', array('szObjectName' => $obj_name, 'szObjectKey' => $nfn_key), $cache_time);
  
  if (is_null($results)) {
    watchdog('netforum', t('No data for Dynamic Facade Node type !obj_name found for key !key', array('!obj_name' => $obj_name, '!key' => $nfn_key)), WATCHDOG_ERROR, l(t('node'), 'node/'. $node->nid));
  }
  else {
    $node->nfn_data_from_cache = netforum_response_from_cache();
	  $node->nfn_data = $results;
  }
}

/**
 *  Implementation of hook_perm()
 */
function netforum_node_perm() {
  return array('create netFORUM node', 'edit own netFORUM nodes', 'edit netFORUM nodes', 'administer netFORUM node templates', 'administer netFORUM node special fields');
}

/**
 *  Save the node body and title to the database unless $node->nfn_skip_save is true
 *
 * This is used to make sure that the content in the database is always the most current, which is important
 *  in the event that the netFORUM server is unreachable
 *
 * @param $node
 *    A netFORUM node object 
 */
function netforum_node_save_fields($node) {

  if ($node->nfn_skip_save == true || !isset($node->nid) || !isset($node->vid) ) {
    return;
  }

  db_query("UPDATE {node_revisions} SET title='%s', body='%s', teaser='%s' WHERE nid='%d' AND vid='%d'", 
    $node->title, $node->body, $node->teaser, $node->nid, $node->vid);
  
  db_query("UPDATE {node} SET title='%s' WHERE nid='%d' AND vid='%d'", $node->title, $node->nid, $node->vid);
  
}

/**
 *  Implementation of hook_access()
 */
function netforum_node_access($op, $node) {
  global $user;
  
  if ($op == 'create') {
    return (user_access('create netFORUM node'));
  }
  
  if ($op == 'update' || $op == 'delete') {
    return ((user_access('edit own netFORUM nodes') && ($user->uid == $node->uid)) || user_access('edit netFORUM nodes'));
  }
}

/**
 *  Implementation of hook_node_operations()
 */
function netforum_node_node_operations() {
  $operations = array(
    'netforum_node_refresh_data' => array(
      'label' => t('Refresh data from netFORUM'),
      'callback' => 'netforum_node_operations_refresh',
    ),
    'netforum_node_template' => array(
      'label' <