Raised Eyebrow Blog

/**
 * Implementation of hook_install().
 */
function ckan_install() {
  drupal_install_schema('ckan');
}
 
/**
 * Implementation of hook_uninstall().
 */
function ckan_uninstall() {
  drupal_uninstall_schema('ckan');
}
 
/**
 * Implementation of hook_schema().
 */
function ckan_schema() {
  $schema = array();
  $schema['cache_ckan'] = drupal_get_schema_unprocessed('system', 'cache');
  return $schema;
}

if(($cache = cache_get('ckan:all'.$page, 'cache_ckan')) && !empty($cache->data)) { // If cached data exists for this page...
	$results = $cache->data;
} else {
	$ckan = ckan_ckan();
 
	$start = 0;
	$items_per_page = variable_get('ckan_items_per_page', 4);
	if($page) {
		// If we're in a page, we need to set where to start the list
		$start = $page * $items_per_page;
	}
 
	// Set the offset to the number of records in
	$offset = $start;
	// Limit to the number of items per page 
	$limit = $items_per_page;
 
	try {
		$results = $ckan->advancedSearch(array('groups' => 'canadagov', 'all_fields' => '1', 'offset' => $offset, 'limit' => $limit));
	} catch (Exception $e){
		return $e->getMessage();
	}
 
	// If the API call worked
	watchdog('ckan', 'Called CKAN API for list of all packages');
    	cache_set('ckan:all'.$page, $results, 'cache_ckan');
}

/**
 * Implementation of hook_form
 *
 * Redirect the user to ca.ckan.net package edit screen on edit
 */
function ckan_form(&$node, $form_state) {
  if($node->type == 'ckan') {
  	drupal_goto('http://ca.ckan.net/package/edit/'.$node->body);
  }
}

/**
 * Implementation of hook_cron()
 *
 **/
function ckan_cron() {
	// Get the md5sum of the current atom feed
	$current_feed = trim(md5_file('http://ca.ckan.net/revision/list?format=atom'));
	watchdog('ckan', 'Current feed md5: '. $current_feed);
	// Retrieve the previously stored md5sum
	$previous_feed = variable_get('ckan_atom_feed_md5', $current_feed);
	watchdog('ckan', 'Previous feed md5: '.$previous_feed);
 
	// If there have been changes
	if($current_feed != $previous_feed) {
		watchdog('ckan', 'ATOM feed has updated, clearing caches and deleting nodes');
		// Flush all the caches
		cache_clear_all('*', 'cache_ckan', TRUE);
  	        // Set the previous feed md5
		variable_set('ckan_atom_feed_md5', $current_feed);
	}
}

/**
 * Build a tag cloud based on the settings provided
 *
 * @return	String	A themed list of weighted tags
 */
function ckan_tag_cloud() {
	// If there is cached data
	if(($cache = cache_get('ckan:tags', 'cache_ckan')) && !empty($cache->data)) {
		$results = unserialize($cache->data);	
	} else {
		$ckan = ckan_ckan();
		$results = $ckan->getTagCount();
		watchdog('ckan', 'Called CKAN API for tag cloud');
		cache_set('ckan:tags', serialize($results), 'cache_ckan');
	}
 
	// Let's sort them by weight first off
	foreach ($results as $key => $row) {
    $tag[$key]  = $row[0];
    $weight[$key] = $row[1];
	}
	array_multisort($weight, SORT_DESC, $results);
 
	// Now let's get the top X number of tags
	$results = array_slice($results, 0, variable_get('ckan_tagcloud_total', 40));
 
	// Now build the tags
	$tags = ckan_tag_build_weighted($results);
	// Sort them
	$tags = ckan_tag_sort($tags);
	// Theme them
	$output = theme('ckan_weighted_tags', $tags);
	return $output;
}
 
/**
 * Theme function that renders the HTML for the tags
 * @ingroup themable
 */
function theme_ckan_weighted_tags($tags) {
  $output = '';
  foreach ($tags as $tag) {
    $output .= l($tag['name'], 'data/tag/'.$tag['name'], array('attributes' => array('class' => "tagcloud level".$tag['weight'], 'rel' => 'tag'))) ." \n";
  }
  return $output;
}

public function advancedSearch($parameters){
	foreach($parameters as $key => $value) {
		$querystring .= $key .'='. urlencode($value) .'&';
	}
	$results = $this->transfer('api/search/package?'. $querystring);
	if (!$results->count){
		throw new CkanException("Search Error");
	}
	return $results;	
}

// Call the function
$results = $ckan->advancedSearch(array('department' => $ministry, 'all_fields' => '1', 'offset' => $offset, 'limit' => $limit));

function mymodule_block($op = 'list', $delta = 0, $edit = array()) {
  switch($op){
    // Create the block listing in the block admin page
    case 'list':
      $blocks[0]['info'] = t('Top 5 Reasons for donating');
      return $blocks;
      break;
 
    case 'view':
      switch($delta) {
        case 0:
          if (module_exists('webform')) {
 
            // Set the node id to the webform we require the results of
            $nid = 999;
 
            // Load the webform node
            $node = node_load($nid);
 
            // Retrieve the list of reason choices from the webform field, split at line breaks 
            // The choices are entered in a textarea when creating a form 
            // in the format "i_have_money|I have lots of money"
            $reason_key_pair = explode('', $node->;webform['components'][1]['extra']['items']);
 
            // Loop through the textarea to create an array in the form 
            // $submission['i_have_money']=>;I have lots of money.
            foreach($reason_key_pair as $key =>; $value) {
              $new_array = explode('|', $value);
              $submissions[trim($new_array[0])] = $new_array[1];
            }
 
            // Execute the query to return the top 5 reasons for donating from the webform_submitted_data table
            $result = db_query("SELECT sd.data reason, COUNT(sd.data) total
              FROM {webform_submissions} s
              LEFT JOIN webform_submitted_data sd ON sd.sid = s.sid
              WHERE sd.nid = %d AND sd.data != '%s'
              GROUP BY sd.data
              ORDER BY COUNT(sd.data) DESC
              LIMIT 0,5", $node->nid, '');          
 
              // Create an array which will hold the reasons - which we will then display in the block
              $reasons = array();
 
              // We run through the submissions and match them to the choices from the webform textarea values
              while ($row = db_fetch_array($result)) {
                $safe_key = $row['reason'];
 
                // If a user chosen option actually exists in the current options available, then display it
                if(array_key_exists($safe_key, $submissions)) {
                  $reasons[] = $submissions[$safe_key];
                }
              }
 
              // If there are no results we need to display a message
              if (count($reasons) == 0) {
                $reasons[] = array('data' => t('There are no reasons'));
              }
 
             // Theme the results as a list to be styled with CSS
             $block['content'] = theme('item_list', $reasons, NULL, 'ol', $attributes = NULL);
          }
        	break;
        }
      return $block;
      break;
  }
}