';
if ($_GET['sort'] == 'title' ||
$_GET['sort'] == 'author' ||
$_GET['sort'] == 'keyword') {
if (strpos($_GET['q'],'ag') ||
strpos($_GET['q'],'tg') ||
strpos($_GET['q'],'keyword')) {
$value = substr($_GET['q'],strrpos($_GET['q'],'/')+1);
}
$content .= theme('biblio_alpha_line', $_GET['sort'], $value);
}
$count = 0;
// Reset separator bar status for repeated calls to biblio_db_search.
_biblio_category_separator_bar(NULL, NULL, TRUE);
foreach ($nodes as $node) {
$count++;
if (is_array($node)) $node = (object)$node;
if (variable_get('biblio_hide_bibtex_braces', 0)) $node->title = biblio_remove_brace($node->title);
if (variable_get('biblio_fix_isi_links', 0)) biblio_fix_isi_links($node);
// output separator bar if needed
$content .= _biblio_category_separator_bar($attrib, $node);
$inline_links = ($inline && variable_get('biblio_inlinemode_in_links',0)) ? true : false;
$content .= theme('biblio_entry', $node,$base,$style,$inline_links);
} //end while
if ($count) $content .= '
';
$content .= theme('pager', 0, variable_get('biblio_rowsperpage', 25));
if ($count == 0) {
$content .= "'.t('Search results for ').'';
$content .= '
'. check_plain($search_content) .'';
if ($filtercontent) {
$content .= '
'.t('Filters').': ';
}
}
else {
$content .= '
'.t('Filters').': ';
}
$content .= $filtercontent;
$link_options = array();
if (isset($_GET['sort'])) {
$link_options['query'] .= "sort=" . $_GET['sort'];
}
if (isset($_GET['order'])) {
$link_options['query'] .= $link_options['query'] ? "&" : "" ;
$link_options['query'] .= "order=" . $_GET['order'];
}
if ($search_content) {
$content .= ' '.l('['.t('Reset Search').']',"$base/filter/clear", $link_options);
} else {
$content .= ' '.l('['.t('Clear All Filters').']',"$base/filter/clear", $link_options);
}
$content .= '
';
}
return $content;
}
function _biblio_category_separator_bar($attrib, $node, $reset = FALSE) {
static $_text = '';
if ($reset) { $_text = ''; return;}
$content = '';
switch ($attrib['sort']) {
case 'title':
$first = drupal_substr(drupal_ucfirst(ltrim($node->title)), 0, 1);
if (drupal_substr(drupal_ucfirst(ltrim($node->title)), 0, 1) == '"' ) $first = drupal_ucfirst(drupal_substr(ltrim($node->title), 1, 1));
if (drupal_substr(drupal_ucfirst(ltrim($node->title)), 0, 1) == "'" ) $first = drupal_ucfirst(drupal_substr(ltrim($node->title), 1, 1));
if (drupal_substr(drupal_ucfirst(ltrim($node->title)), 0, 2) == "A " ) $first = drupal_ucfirst(drupal_substr(ltrim($node->title), 2, 1));
if (drupal_substr(drupal_ucfirst(ltrim($node->title)), 0, 3) == "An " ) $first = drupal_ucfirst(drupal_substr(ltrim($node->title), 3, 1));
if (drupal_substr(drupal_ucfirst(ltrim($node->title)), 0, 4) == "The " ) $first = drupal_ucfirst(drupal_substr(ltrim($node->title), 4, 1));
if ( $first != $_text) {
if ($_text != '' ) {
$content .= theme_biblio_end_category_section();
}
$_text = $first ;
$content .= theme_biblio_separator_bar($_text);
}
break;
case 'author':
if ( (isset($node->biblio_contributors[1][0]['lastname'])) &&
(drupal_substr(drupal_ucfirst(ltrim($node->biblio_contributors[1][0]['lastname'])), 0, 1) != $_text))
{
if ($_text != '' ) {
$content .= theme_biblio_end_category_section();
}
$_text = drupal_substr(drupal_ucfirst(ltrim($node->biblio_contributors[1][0]['lastname'])), 0, 1) ;
$content .= theme_biblio_separator_bar($_text);
}
break;
case 'type':
if ($node->biblio_type_name != $_text) {
if ($_text != '' ) {
$content .= theme_biblio_end_category_section();
}
$_text = $node->biblio_type_name;
// $name = db_result(db_query("SELECT name FROM {biblio_types} as t where t.tid=%d", $node->biblio_type)) ;
$content .= theme_biblio_separator_bar(_biblio_localize_type($node->biblio_type, $_text));
}
break;
case 'keyword': // added msh 08 aug 07
// $kw = array_shift($node->biblio_keyword);
$tok = $node->biblio_keyword;
if (empty($tok)) {
$tok = t("No Keywords");
}
if ($tok != $_text) {
if ($_text != '' ) {
$content .= theme_biblio_end_category_section();
}
$_text = $tok;
if ($_text != '') {
$content .= theme_biblio_separator_bar($_text);
}
}
break;
case 'year':
default:
if ($node->biblio_year != $_text) {
if ($_text != '' ) {
$content .= theme_biblio_end_category_section();
}
$_text = $node->biblio_year;
$content .= theme_biblio_separator_bar($_text);
}
} //end switch
return $content;
}
function theme_biblio_separator_bar($text) {
$content = "\n".'
' . check_plain($text) . "
\n";
$content .= "\n".'
';
return $content;
}
function theme_biblio_end_category_section() {
return "\n
";
}
/**
* Add a search field on the main biblio page.
*/
/**
* @param $form_state
* @return unknown_type
*/
function biblio_search_form(&$form_state) {
$form['biblio_search'] = array(
'#prefix' => '
',
'#suffix' => '
',
);
$form['biblio_search']['keys'] = array(
'#type' => 'textfield',
'#title' => '',
'#default_value' => '',
'#size' => 25,
'#maxlength' => 255,
);
$button_text = variable_get('biblio_search_button_text', 'Biblio search');
$form['biblio_search']['submit'] = array('#type' => 'submit', '#value' => t($button_text));
return $form;
}
/**
* Build the query following the do_search algorithm in search.module.
* Unfortunately we cannot reuse anything from do_search as everything
* is hard-coded :-(
* @param $keys
*/
function biblio_build_search_query($keys = '') {
if ($keys != '') {
$query = search_parse_query($keys);
if ($query[2] == '') {
form_set_error('keys', t('You must include at least one positive keyword with @count characters or more.', array('@count' => variable_get('minimum_word_size', 3))));
return FALSE;
}
if ($query === NULL || $query[0] == '') return FALSE;
$where = '('.$query[2].')';
$args = $query[3];
if (!$query[5]) {
$where .= " AND ($query[0])";
$args = array_merge($args, $query[1]);
$join = " INNER JOIN {search_dataset} d ON i.sid = d.sid AND i.type = d.type";
}
// The COUNT ensures that we get only nodes where "term1 AND term2"
// match as we demand 2 matches. Note that this doesn't work when
// using the partial word search patch.
$args[] =$query[4];
$query = "SELECT distinct(i.sid) FROM {search_index} i
INNER JOIN {node} n ON n.nid = i.sid
$join
WHERE n.status = 1 AND (n.type = 'biblio')
AND $where
AND i.type = 'node'
GROUP BY i.type, i.sid HAVING COUNT(*) >= %d";
return db_query(db_rewrite_sql($query), $args);
}
return FALSE;
}
/**
* When we submit a search, we revoke all current filters since search
* and filtering are considered two different concepts things* conceptually.
*
* But we store the results as a filter (which is just a list of node ids that
* matched the search request) so that we can reorder or export the search
* results like with any other filter. The filter has three components:
* ('search',
,).
* The second component, the filter value, is empty when submitting keywords.
* In biblio_db_search we fill the second component with the list of nids
* matching our keywords, as returned by node_search. We store the keywords
* only for showing them in "Search results for ".
*/
/**
* @param $form
* @param $form_state
* @return unknown_type
*/
function biblio_search_form_submit($form, &$form_state) {
$keys = $form_state['values']['keys'];
if ($keys != '') {
$_SESSION['biblio_filter'] = array(array('search','',$keys));
$base = variable_get('biblio_base', 'biblio');
$form_state['redirect'] = $base;
}
else {
// No keywords. Remove former search keys if any. Leaves other filters intact.
if (_get_biblio_search_filter()){
$_SESSION['biblio_filter'] = array();
}
}
}
/**
* @param $arg
* @return unknown_type
*/
function _get_biblio_search_filter($arg = 'keys') {
if (variable_get('biblio_search',0) &&
is_array($_SESSION['biblio_filter']) &&
is_array($_SESSION['biblio_filter'][0]) &&
in_array('search',$_SESSION['biblio_filter'][0])
){
switch ($arg) {
case 'keys': return $_SESSION['biblio_filter'][0][2]; break;
case 'nodelist': return $_SESSION['biblio_filter'][0][1]; break;
}
}
}
function _get_biblio_filters() {
$pub_authors[0] = '';
$pub_years[-1] = '';
$pub_type[0] = '';
$pub_taxo[0] = '';
$pub_keywords[0] = '';
$fields = " b.biblio_year, t.name , t.tid ";
$order = " b.biblio_year DESC";
$taxo_fields = "td.name as termname,td.tid as taxid, v.name as vocab_name";
$taxo_order = "vocab_name ASC, termname ASC";
$table = "{node} as n inner join {biblio} as b on n.vid=b.vid ";
$join = "left join {biblio_types} as t on b.biblio_type = t.tid";
$taxo_join = array("inner join {term_node} as tn on n.vid = tn.vid",
"left join {term_data} as td on tn.tid= td.tid",
"left join {vocabulary} as v on v.vid= td.vid");
$taxo_joins = implode(' ',$taxo_join);
$result = db_query("SELECT $fields FROM $table $join ORDER BY $order");
$authors = db_query("SELECT firstname, initials, lastname, cid FROM {biblio_contributor_data} ORDER BY lastname ASC");
$keywords = db_query("SELECT word, kid FROM {biblio_keyword_data} ORDER BY word ASC");
$taxoresult = db_query("SELECT $taxo_fields FROM $table $taxo_joins ORDER BY $taxo_order");
while ($option = db_fetch_object($result)) {
if (isset ($option->biblio_year)) {
$option->biblio_year = _biblio_text_year($option->biblio_year);
}
$pub_years["$option->biblio_year"] = $option->biblio_year;
$pub_type["$option->tid"] = _biblio_localize_type($option->tid, $option->name);
}
while($auth = db_fetch_object($authors)) {
$pub_authors[$auth->cid] = $auth->lastname .((!empty($auth->firstname) || !empty($auth->initials))?', '.$auth->firstname.' '.$auth->initials :'');
}
while($keyword = db_fetch_object($keywords)) {
$pub_keywords[$keyword->kid] = $keyword->word;
}
while ($tax = db_fetch_object($taxoresult)) {
$pub_taxo["$tax->taxid"] = "$tax->vocab_name - $tax->termname";
}
$author_select = count($pub_authors) > 1 ? array('title' => t('Author'), 'options' => $pub_authors) : null;
$years_select = count($pub_years) > 1 ? array('title' => t('Year'), 'options' => array_unique($pub_years)) : null;
$type_select = count($pub_type) > 1 ? array('title' => t('Type'), 'options' => array_unique($pub_type)) : null;
$tax_select = count($pub_taxo) > 1 ? array('title' => t('Term'),'options' => array_unique($pub_taxo)) : null;
$keyword_select = count($pub_keywords) > 1 ? array('title' => t('Keyword'), 'options' => $pub_keywords) : null;
$filters = array(
'author' => $author_select,
'type' => $type_select,
'term_id' => $tax_select,
'year' => $years_select,
'keyword' => $keyword_select,
);
return $filters;
}
/**
* @return unknown_type
*/
function biblio_form_filter() {
// No longer use &$_SESSION so that we can alter $session in case of the search filter.
$session = $_SESSION['biblio_filter'];
$session = is_array($session) ? $session : array();
$filters = _get_biblio_filters();
$i = 0;
$form['filters'] = array('#type' => 'fieldset',
'#title' => t('Show only items where'),
'#theme' => 'biblio_filters',
);
foreach ($session as $filter) {
list($type, $value) = $filter;
// Don't show the search filter. Reset $session because of the $count(session) below.
if ($type == 'search') {
$session = array ();
break;
}
if ($type == 'category') {
// Load term name from DB rather than search and parse options array.
$value = module_invoke('taxonomy', 'get_term', $value);
$value = $value->name;
}else {
$value = $filters[$type]['options'][$value];
}
$string = ($i++ ? 'and where %a is %b' : '%a is %b');
$form['filters']['current'][] = array('#value' => t($string, array('%a' => $filters[$type]['title'] , '%b' => $value)));
}
foreach ($filters as $key => $filter) {
if (isset($filter) && count($filter['options'])) {
$names[$key] = check_plain($filter['title']);
$form['filters']['status'][$key] = array('#type' => 'select', '#options' => $filter['options']);
}
}
$form['filters']['filter'] = array('#type' => 'radios', '#options' => $names, '#default_value' => 'author');
$form['filters']['buttons']['submit'] = array('#type' => 'submit', '#value' => (count($session) ? t('Refine') : t('Filter')));
if (count($session) && $type != 'search') {
$form['filters']['buttons']['undo'] = array('#type' => 'submit', '#value' => t('Undo'));
$form['filters']['buttons']['reset'] = array('#type' => 'submit', '#value' => t('Reset'));
}
return $form;
}
/**
* @param $form
* @param $form_state
* @return unknown_type
*/
function biblio_form_filter_submit($form, &$form_state) {
// If the search filter was set, remove it now.
if(_get_biblio_search_filter()){
$_SESSION['biblio_filter'] = array ();
}
$op = $form_state['values']['op'];
$filters = _get_biblio_filters();
switch ($op) {
case t('Filter'):
case t('Refine'):
if (isset($form_state['values']['filter'])) {
$filter = $form_state['values']['filter'];
// Flatten the options array to accommodate hierarchical/nested options.
if (isset($filters[$filter]['options'])) {
$flat_options = form_options_flatten($filters[$filter]['options']);
}
if (isset($flat_options[$form_state['values'][$filter]]) ) {
$_SESSION['biblio_filter'][] = array($filter, $form_state['values'][$filter]);
$base = variable_get('biblio_base', 'biblio');
drupal_goto($base);
}
}
break;
case t('Undo'):
array_pop($_SESSION['biblio_filter']);
break;
case t('Reset'):
$_SESSION['biblio_filter'] = array();
break;
}
}
/**
* @param $user
* @param $profile
* @return unknown_type
*/
function biblio_get_user_pubs($user, $profile='', $nofilters=''){
if (isset($user->biblio_contributor_id) && !empty($user->biblio_contributor_id) ){
$pubs = biblio_db_search('author', $user->biblio_contributor_id, $profile, $nofilters);
}
elseif (isset($user->biblio_lastname) && !empty($user->biblio_lastname)) {
$pubs = biblio_db_search('author', $user->biblio_lastname, $profile, $nofilters);
}
else{
$pubs = biblio_db_search('uid', $user->uid, $profile, $nofilters);
}
return $pubs;
}
/**
* @param $node
* @return unknown_type
*/
function biblio_view_inline(&$node) {
$style = biblio_get_style();
$base = variable_get('biblio_base', 'biblio');
$layout = variable_get('biblio_node_layout', 'tabular');
$theme = ($layout == 'tabular') ? 'biblio_tabular' : 'biblio_long';
$output = '';
$output .= theme($theme, $node, $base, $style);
$output .= '
';
return $output;
}
/**
* @return unknown_type
*/
function biblio_citekey_view() {
$citekey = arg(2);
$nid = db_fetch_object(db_query("SELECT nid FROM {biblio} WHERE biblio_citekey = '%s' ORDER BY vid DESC", $citekey));
if ($nid->nid > 0) {
$node = node_load($nid->nid);
return node_page_view($node);
} else {
return t("Sorry, citekey @cite not found", array('@cite'=>$citekey));
}
}
/**
* @param $keywords
* @param $base
* @return unknown_type
*/
function _biblio_keyword_links($keywords,$base='biblio') {
$options = array();
if (isset($_GET['sort'])) {
$options['query'] .= "sort=" . $_GET['sort'];
}
if (isset($_GET['order'])) {
$options['query'] .= $options['query'] ? "&" : "";
$options['query'] .= "order=" . $_GET['order'];
}
$html = "";
if (!is_array($keywords)) {
require_once(drupal_get_path('module', 'biblio') .'/biblio.keywords.inc');
$keywords = biblio_explode_keywords($keywords);
}
$sep = check_plain(variable_get('biblio_keyword_sep', ','));
foreach($keywords as $kid => $keyword ) {
$html .= (empty($html))? "" : "$sep ";
$html .= l(trim($keyword), "$base/keyword/$kid" , $options);
}
return $html;
}
function biblio_author_page($filter = NULL) {
$authors = _biblio_get_authors($filter);
return _biblio_format_author_page($filter, $authors);
}
function _biblio_get_authors($filter = NULL) {
global $user;
$where = array();
$where_clause = '';
$base = variable_get('biblio_base', 'biblio');
$menu = menu_get_active_title();
if ($menu == 'Authors') $path = $base.'/authors/';
if ($menu == 'Biblio settings') $path = 'admin/settings/biblio/author/list/';
if ($filter) {
$filter = strtoupper($filter);
$where[] = "UPPER(SUBSTRING(lastname,1,1)) = '%s' ";
$header_ext = t(' (whose last name starts with the letter "@letter") ',array('@letter' => $filter ));
}
else {
$query_ext = NULL;
$header_ext = NULL;
}
if ($user->uid != 1 ) {//show only published entries to everyone except admin
$where[] = 'n.status = 1 ';
}
if (variable_get('biblio_view_only_own', 0) ) {//show only authors that belong to nodes that the user has access to
$where[] = "n.uid = $user->uid";
}
if (count($where)) {
$where_clause = count($where) > 1 ? 'WHERE ('. implode(') AND (', $where) .')': 'WHERE '. $where[0];
}
$db_result = db_query('SELECT bd.cid, bd.drupal_uid, bd.name, bd.lastname,
bd.firstname, bd.prefix, bd.suffix, bd.initials,
bd.affiliation, bd.md5, COUNT(*) AS cnt
FROM {biblio_contributor} b
LEFT JOIN {biblio_contributor_data} bd ON b.cid = bd.cid
LEFT JOIN {node} n on n.vid = b.vid
'. $where_clause.'
GROUP BY bd.cid, bd.drupal_uid, bd.name, bd.lastname,
bd.firstname, bd.prefix, bd.suffix,
bd.initials, bd.affiliation, bd.md5
HAVING COUNT(*) > 0
ORDER BY lastname ASC, SUBSTRING(firstname,1,1) ASC,
initials ASC', $filter);
while ($author = db_fetch_array($db_result)){
$authors[] = $author;
}
return $authors;
}
function _biblio_format_author_page($filter, $authors) {
$rows[] = array(array('data' => theme('biblio_alpha_line', 'authors', $filter), 'colspan' => 3));
if (count($authors)) {
for ($i=0; $i < count($authors); $i+=3) {
$rows[] = array( array('data' => _biblio_format_author($authors[$i]) ),
array('data' => isset($authors[$i+1])?_biblio_format_author($authors[$i+1]):'' ),
array('data' => isset($authors[$i+2])?_biblio_format_author($authors[$i+2]):'' ));
}
}
//$header = array(array('data' => t('There are a total of @count authors !header_ext in the database',array('@count' => count($authors), '!header_ext' => $header_ext)), 'align' =>'center', 'colspan' => 3));
$output = theme('table', $header, $rows);
return $output;
}
/*
* Helper function to format the authors and add edit links if required
*/
function _biblio_format_author($author) {
static $author_options = array();
$style_name = biblio_get_style();
module_load_include('inc', 'biblio', "styles/biblio_style_$style_name");
$inline = FALSE;
$format = biblio_format_authors(array($author));
$format .= ' ('. $author['cnt'] . ') '. ((biblio_access('edit_author'))?_biblio_author_edit_links($author):'');
return $format;
}
function _biblio_author_edit_links($author) {
static $path = '';
if (empty($path)){
$path = (ord(substr($_GET['q'],-1)) > 97) ? $_GET['q'] . "/" : substr($_GET['q'], 0, -1);
$path = (strpos($path, 'list/')) ? str_replace('list/', '', $path) : $path;
}
return l(' ['.t('edit').']', $path . $author['cid'] ."/edit/" );
}
function biblio_keyword_page($filter = NULL) {
$keywords = _biblio_get_keywords($filter);
return _biblio_format_keyword_page($filter, $keywords);
}
function _biblio_get_keywords($filter = NULL) {
global $user;
$where = array();
$where_clause = '';
if ($filter) {
$filter = strtoupper($filter);
$where[] = "UPPER(SUBSTRING(word,1,1)) = '%s' ";
$header_ext = t(' (which start with the letter "@letter") ',array('@letter' => $filter ));
}
else {
$query_ext = NULL;
$header_ext = NULL;
}
if ($user->uid != 1 ) {//show only published entries to everyone except admin
$where[] = 'n.status = 1 ';
}
if (variable_get('biblio_view_only_own', 0) ) {//show only authors that belong to nodes that the user has access to
$where[] = "n.uid = $user->uid";
}
if (count($where)) {
$where_clause = count($where) > 1 ? 'WHERE ('. implode(') AND (', $where) .')': 'WHERE '. $where[0];
}
$db_result = db_query('SELECT bkd.kid, bkd.word, COUNT(*) AS cnt
FROM {biblio_keyword} bk
LEFT JOIN {biblio_keyword_data} bkd ON bkd.kid = bk.kid
LEFT JOIN {node} n ON n.vid = bk.vid
'. $where_clause. '
GROUP BY bkd.kid, bkd.word HAVING COUNT(*) > 0
ORDER BY word ASC', $filter);
while ($keyword = db_fetch_object($db_result)){
$keywords[] = $keyword;
}
return $keywords;
}
function _biblio_format_keyword_page($filter, $keywords) {
$rows[] = array(array('data' => theme('biblio_alpha_line', 'keywords', $filter), 'colspan' => 3));
for ($i=0; $i < count($keywords); $i+=3) {
$rows[] = array( array('data' => _biblio_format_keyword($keywords[$i]) ),
array('data' => isset($keywords[$i+1])?_biblio_format_keyword($keywords[$i+1]):'' ),
array('data' => isset($keywords[$i+2])?_biblio_format_keyword($keywords[$i+2]):'' ));
}
//$header = array(array('data' => t('There are a total of @count keywords !header_ext in the database',array('@count' => count($keywords), '!header_ext' => $header_ext)), 'align' =>'center', 'colspan' => 3));
$output .= theme('table', $header, $rows);
return $output;
}
function _biblio_format_keyword($keyword) {
$base = variable_get('biblio_base', 'biblio');
$format = l(trim($keyword->word), "$base/keyword/$keyword->kid" );
$format .= ' ('. $keyword->cnt . ') ' ;
$path = (ord(substr($_GET['q'],-1)) > 97) ? $_GET['q'] . "/" : substr($_GET['q'], 0, -1);
$edit_link = ' ['.l(t('edit'), $path . $keyword->kid . "/edit" ).'] ';
$format .= (user_access('administer biblio')) ? $edit_link: '';
return $format;
}
':' 
';
$sort_links = variable_get('biblio_sort_tabs', array('author'=>'author', 'title'=>'title', 'type'=>'type', 'year'=>'year', 'keyword'=>'keyword'));
ksort($sort_links);
$content .= $tabs ? '