'.t('Export @count results', array('@count' => $pager_total_items[0])).':['.l("Tagged","$base/export/tagged"). ']['.l("XML","$base/export/xml"). ']['.l("CSV","$base/export/csv").']['.l("BibTex","$base/export/bibtex").']
';
$content .= ''.t('Export @count results', array('@count' => $pager_total_items[0])).':' . theme('biblio_export_links'). '
';
}else{
$content .= '';
foreach($sort_links as $key => $link) {
if ($key === $link) {
$content .= t('Sort by').':';
break;
}
}
if ($sort_links['year']) {
$options['query'] = "sort=year&order=$order";
$content .= "[".l(t("Year"),$_GET['q'],$options)."]";
}
if ($sort_links['title']) {
$options['query'] = "sort=title&order=$order";
$content .= "[".l(t("Title"),$_GET['q'],$options)."]";
}
if ($sort_links['type']) {
$options['query'] = "sort=type&order=$order";
$content .= "[".l(t("Type"),$_GET['q'],$options)."]";
}
if ($sort_links['author']) {
$options['query'] = "sort=author&order=$order";
$content .= "[".l(t("Author"),$_GET['q'],$options)."]";
}
if ($sort_links['keyword']) {
$options['query'] = "sort=keyword&order=$order";
$content .= "[".l(t("Keyword"),$_GET['q'],$options)."]";
}
$content .= "
";
}
$session = &$_SESSION['biblio_filter'];
// if there are any filters in place, print them at the top of the list
if (count($args)) {
$i = 0;
while ($args) {
$type = $args[0];
array_shift($args);
$value = db_escape_string($args[0]);
if ($type == 'search') {
$search_content = ''.t('Search results for ').'';
$content .= $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'] .= $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 .= '
';
}
}
if ($inline === true) print '
';
if ($_GET['sort'] == 'title' || $_GET['sort'] == 'author'){
$content .= theme(biblio_alpha_line,$_GET['sort'],$value);
}
$_char = $_type = $_year = $name = ""; $count = 0;
while ($node = db_fetch_object($result)) {
$count++;
$node->biblio_contributors = biblio_load_contributors($node->vid);
if ( module_exists("upload") ) {
$node->files = upload_load($node);
}
if (isset($node->biblio_year) && ($node->biblio_year == 9998)) $node->biblio_year = t("In Press") ;
if (isset($node->biblio_year) && ($node->biblio_year == 9999)) $node->biblio_year = t("Submitted") ;
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 != $_char) {
$_char = $first ;
$content .= '
' . $_char . "
\n";
}
break;
case 'author':
if ( drupal_substr(drupal_ucfirst(ltrim($node->biblio_contributors[1][0]['lastname'])), 0, 1) != $_char) {
$_char = drupal_substr(drupal_ucfirst(ltrim($node->biblio_contributors[1][0]['lastname'])), 0, 1) ;
$content .= '
' . $_char . "
\n";
}
break;
case 'type':
if ($node->biblio_type_name != $_type) {
$_type = $node->biblio_type_name;
// $name = db_result(db_query("SELECT name FROM {biblio_types} as t where t.tid=%d", $node->biblio_type)) ;
$content .= '
' . $_type . "
\n";
}
break;
case 'keyword': // added msh 08 aug 07
$tok = drupal_ucfirst(strtok($node->biblio_keywords, variable_get('biblio_keyword_sep', ',')));
if (empty($tok)) {
$tok = t("No Keywords");
}
if ($tok != $name) {
$name = $tok;
if ($name != '') {
$content .= '
' . $name . "
\n";
}
}
break;
case 'year':
default:
if ($node->biblio_year != $_year) {
$_year = $node->biblio_year;
$content .= '
' .$_year. "
\n";
}
} //end switch
$inline_links = ($inline && variable_get('inlinemode_in_links',0)) ? true : false;
$content .= theme('biblio_entry', $node,$base,$style,$inline);
} //end while
$content .= theme('pager', 0, variable_get('biblio_rowsperpage', 25));
if ($count == 0) {
$content .= "
".t("No items found")."
";
if (strstr($content, "Filters:")) {
$content .= t('!modify_link or !remove_link your filters and try again.', array('!modify_link' => l(t('Modify'),"$base/filter"), '!remove_link' => l(t('remove'),"$base/filter/clear")));
}
}
if ($profile === true) return $content;
if ($inline === true) print $content . "
";
if ($inline === false) print theme('page', $content);
}
/**
* 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 = strlen(variable_get('biblio_search_button_text', ''))?variable_get('biblio_search_button_text', t('Biblio search')):t('Biblio search');
$form['biblio_search']['submit'] = array('#type' => 'submit', '#value' => $button_text);
return $form;
}
/**
* We must validate the keyword length before calling node_search. Otherwise
* we would store a keyword of e.g. length 1, but do_search would complain about
* it later and resend us to the input form. But since the keyword was stored already
* we could never again display the page without errors
* @param $form
* @param $form_state
* @return unknown_type
*/
function biblio_search_form_validate($form, &$form_state) {
// Empty searchbox finds everything.
$keys = $form_state['values']['keys'];
if ($keys != '') {
$query = search_parse_query($form_state['values']['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))));
}
}
}
/**
* 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() {
$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 ($option->biblio_year == 9998) { $option->biblio_year = t("In Press"); }
if ($option->biblio_year == 9999) { $option->biblio_year = t("Submitted"); }
$pub_years["$option->biblio_year"] = $option->biblio_year;
$pub_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 = isset($pub_authors) ? array('title' => t('Author'), 'options' => $pub_authors) : null;
$years_select = isset($pub_years) ? array('title' => t('Year'), 'options' => array_unique($pub_years)) : null;
$type_select = isset($pub_type) ? array('title' => t('Type'), 'options' => array_unique($pub_type)) : null;
$tax_select = isset($pub_taxo) ? array('title' => t('Term'),'options' => array_unique($pub_taxo)) : null;
$keyword_select = isset($pub_keywords) ? 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 (count ($filter['options'])) {
$names[$key] = $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=''){
/* switch ((isset($user->biblio_profile_uid) ) ? $user->biblio_profile_uid : variable_get('biblio_profile_uid', 'uid')){
case 'lastname':
$pubs = biblio_db_search('author', $user->biblio_lastname, $profile);
break;
case 'uid_lastname':
$pubs = biblio_db_search('uid', $user->uid, 'author', $user->biblio_lastname, $profile);
break;
case 'uid':
default:
$pubs = biblio_db_search('uid', $user->uid, $profile);
}
*/
if (isset($user->biblio_contributor_id) && $user->biblio_contributor_id > 0 ){
$pubs = biblio_db_search('author', $user->biblio_contributor_id, $profile);
}else{
$pubs = biblio_db_search('uid', $user->uid, $profile);
}
return $pubs;
}
/**
* @param $node
* @return unknown_type
*/
function biblio_view_inline(&$node) {
$style = variable_get('biblio_style', 'classic');
$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 $author
* @param $aid
* @param $base
* @param $inline
* @return unknown_type
*/
function _biblio_author_link($author, $aid, $base='biblio', $inline = FALSE) {
$options = array();
$inline = $inline ? "/inline" : "";
if (isset($_GET['sort'])) {
$options['query'] .= "sort=" . $_GET['sort'];
}
if (isset($_GET['order'])) {
$options['query'] .= $options['query'] ? "&" : "" ;
$options['query'] .= "order=" . $_GET['order'];
}
$html = l(trim($author), "$base/author/$aid".$inline,$options );
return $html;
}
/**
* @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 = "";
$sep = variable_get('biblio_keyword_sep', ',');
$keyword_array = explode($sep, $keywords);
foreach($keywords as $keyword ) {
$html .= (empty($html))? "" : "$sep ";
$html .= l(trim($keyword->word), "$base/keyword/$keyword->kid" , $options);
}
return $html;
}
function biblio_author_page($filter = NULL) {
$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);
$query_ext = ' AND 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;
}
$db_result = db_query('SELECT bd.*, COUNT(*) AS cnt FROM {biblio_contributor} b, {biblio_contributor_data} bd WHERE bd.cid=b.cid '. $query_ext.' GROUP BY b.cid HAVING cnt > 0 ORDER BY lastname ASC, SUBSTRING(firstname,1,1) ASC, initials ASC',$filter);
while ($author = db_fetch_array($db_result)){
$authors[] = $author;
}
$rows[] = array(array('data' => theme(biblio_alpha_line, 'authors', $filter, $path), 'colspan' => 3));
for ($i=0; $i < count($authors); $i+=3) {
$rows[] = array( array('data' => _biblio_format_author($authors[$i], $path) ),
array('data' => isset($authors[$i+1])?_biblio_format_author($authors[$i+1], $path):'' ),
array('data' => isset($authors[$i+2])?_biblio_format_author($authors[$i+2], $path):'' ));
}
$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;
}
function _biblio_format_author($author, $path) {
$format = $author['prefix'] . ' ' . $author['lastname'] ;
$firstname = !empty ($author['firstname']) ? drupal_substr($author['firstname'], 0, 1) : '';
$initials = !empty ($author['initials']) ? str_replace(' ', '', $author['initials']) : '';
$base = variable_get('biblio_base', 'biblio');
$format .= (!empty($firstname) || !empty($initials)) ? ', '.$firstname.' '.$initials : '';
$format = _biblio_author_link($format, $author['cid'], $base, $inline);
$format .= ' ('. $author['cnt'] . ') '. ((user_access('administer biblio'))?_biblio_author_edit_links($author, $path):'');
return $format;
}
function _biblio_author_edit_links($author, $path) {
$base = variable_get('biblio_base', 'biblio');
return l(' ['.t('edit').']', "$path" . $author['cid'] ."/edit/" );
}
function biblio_keyword_page($filter = NULL) {
if ($filter) {
$filter = strtoupper($filter);
$query_ext = ' AND 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;
}
$db_result = db_query('SELECT bkd.*, COUNT(*) AS cnt FROM {biblio_keyword} bk, {biblio_keyword_data} bkd WHERE bkd.kid=bk.kid '. $query_ext.' GROUP BY bk.kid HAVING cnt > 0 ORDER BY word ASC', $filter);
while ($keyword = db_fetch_object($db_result)){
$keywords[] = $keyword;
}
$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 . ') ' ;
$edit_link = ' ['.l(t('edit'), "$base/keyword/$keyword->kid/edit/" ).'] ';
$format .= (user_access('administer biblio')) ? $edit_link: '';
return $format;
}