function biblio_implode_keywords in Bibliography Module 7.2

Same name and namespace in other branches

1. 6.2 includes/biblio.keywords.inc \biblio_implode_keywords()
2. 6 biblio.keywords.inc \biblio_implode_keywords()
3. 7 includes/biblio.keywords.inc \biblio_implode_keywords()

File

includes/biblio.keywords.inc, line 349

Code

function biblio_implode_keywords($keywords, $sep = '') {
  if (empty($sep)) {
    $sep = variable_get('biblio_keyword_sep', ',');
  }
  $string = '';
  foreach ($keywords as $kid => $keyword) {
    $string .= strlen($string) ? "{$sep} " : '';
    if (strpos($keyword, $sep) !== FALSE) {
      $string .= '"' . $keyword . '"';
    }
    else {
      $string .= $keyword;
    }
  }
  return $string;
}