function biblio_style_chicago in Bibliography Module 7.2

Same name and namespace in other branches

1. 5 biblio_style_chicago.inc \biblio_style_chicago()
2. 6.2 styles/biblio_style_chicago.inc \biblio_style_chicago()
3. 6 biblio_style_chicago.inc \biblio_style_chicago()
4. 7 styles/biblio_style_chicago.inc \biblio_style_chicago()

Apply a bibliographic style to the node

Parameters

$node: An object containing the node data to render

Return value

The styled biblio entry

File

styles/biblio_style_chicago.inc, line 51

Code

function biblio_style_chicago($node) {
  module_load_include('inc', 'biblio', '/includes/biblio.contributors');
  $output = '';
  $markupPatternsArray = array(
    "italic-prefix" => '<i>',
    "italic-suffix" => '<\\/i>',
    "endash" => '-',
  );
  $author_options = biblio_style_chicago_author_options();
  $authors = $editor = '';
  $primary_authors = biblio_get_contributor_category($node->biblio_contributors, 1);
  $editors = biblio_get_contributor_category($node->biblio_contributors, 2);
  if (!empty($primary_authors)) {
    $authors = theme('biblio_format_authors', array(
      'contributors' => $primary_authors,
      'options' => $author_options,
    ));
  }

  //$editors = theme('biblio_format_authors', array('contributors' => $node->biblio_contributors[2], 'options' => $author_options, 'inline' => $inline));

  //if (empty($authors)) $authors = theme('biblio_authors', $node->biblio_contributors[5], 'mla', 5, $inline);  // if no authors substitute corp author if available

  //if (empty($authors)) $authors = '[' . t('Anonymous') . ']';  // use anonymous if we still have nothing.

  //$output .= '<span class="biblio-authors">' . $authors . "</span>.&nbsp; \n";
  if (!empty($node->biblio_citekey) && variable_get('biblio_display_citation_key', 0)) {
    $output .= '[' . check_plain($node->biblio_citekey) . '] ';
  }
  switch ($node->biblio_type) {
    case 102:

    //Journal Article
    case 105:

    //Newspaper Article
    case 106:

      //Magazine Article
      if (!empty($authors)) {
        $output .= '<span class="biblio-authors">';
        $output .= $authors;
        if (!preg_match("/\\. *\$/", $authors)) {
          $output .= ".";
        }
        $output .= '</span>';
      }
      if (!empty($node->title)) {

        // title
        if (!empty($authors)) {
          $output .= " ";
        }
        $output .= '"';
        $output .= '<span class="biblio-title-chicago">';
        $url = biblio_get_title_url_info($node);
        $output .= l($node->title, $url['link'], $url['options']);
        $output .= "</span>";
        if (!preg_match("/[?!.]\$/", $node->title)) {
          $output .= ".";
        }
        $output .= '"';
      }

      // From here on we'll assume that at least either the 'author' or the 'title' field did contain some contents
      // if this is not the case, the output string will begin with a space. However, any preceding/trailing whitespace will be removed at the cleanup stage (see below)
      if (!empty($node->biblio_secondary_title)) {

        // publication (= journal) name
        $output .= " <i>{$node->biblio_secondary_title}</i>";
      }
      elseif (!empty($node->biblio_alternate_title)) {

        // abbreviated journal name
        $output .= " <i>{$node->biblio_alternate_title}</i>";
      }
      if (!empty($node->biblio_volume)) {

        // volume
        $output .= " " . $node->biblio_volume;
      }
      if (!empty($node->biblio_issue)) {

        // issue
        $output .= ", no. " . $node->biblio_issue;
      }
      if (!empty($node->biblio_year)) {

        // year
        $output .= " (" . $node->biblio_year . ")";
      }
      if (!empty($node->biblio_pages)) {

        // pages
        if (!empty($node->biblio_year) || !empty($node->biblio_volume) || !empty($node->biblio_issue) || !empty($node->biblio_alternate_title) || !empty($node->biblio_secondary_title)) {

          // only add ": " if either year, volume, issue, abbrev_journal or publication isn't empty
          $output .= ": ";
        }
        $output .= theme('biblio_page_number', array(
          'orig_page_info' => $node->biblio_pages,
        ));

        // function 'formatPageInfo()' is defined in 'cite.inc.php'
      }
      if (isset($node->online_publication)) {

        // this record refers to an online article
        // append an optional string (given in 'online_citation') plus the current date and the DOI (or URL):
        $today = date("F j, Y");
        if (!empty($node->online_citation)) {

          // online_citation
          if (!empty($node->biblio_year) || !empty($node->biblio_volume) || !empty($node->biblio_issue) || !empty($node->biblio_alternate_title) || !empty($node->biblio_secondary_title)) {

            // only add "," if either year, volume, issue, abbrev_journal or publication isn't empty
            if (empty($node->biblio_pages)) {
              $output .= ":";
            }
            else {
              $output .= ",";
            }

            // append to pages
          }
          $output .= " " . $node->online_citation;
        }
        if (!empty($node->doi)) {

          // doi
          if (!empty($node->online_citation) or empty($node->online_citation) and !empty($node->biblio_year) || !empty($node->biblio_volume) || !empty($node->biblio_issue) || !empty($node->biblio_alternate_title) || !empty($node->biblio_secondary_title)) {

            // only add "." if online_citation isn't empty, or else if either year, volume, issue, abbrev_journal or publication isn't empty
            $output .= ".";
          }

          // NOTE: some Chicago examples (e.g. <http://www.lib.berkeley.edu/instruct/guides/chicago-turabianstyle.pdf>) use a comma here (not sure what's correct)
          if ($encodeHTML) {
            $output .= " " . encodeHTML("http://dx.doi.org/" . $node->doi) . " (accessed " . $today . ")";
          }
          else {
            $output .= " " . "http://dx.doi.org/" . $node->doi . " (accessed " . $today . ")";
          }
        }
        elseif (!empty($node->biblio_url)) {

          // url
          if (!empty($node->online_citation) or empty($node->online_citation) and !empty($node->biblio_year) || !empty($node->biblio_volume) || !empty($node->biblio_issue) || !empty($node->biblio_alternate_title) || !empty($node->biblio_secondary_title)) {

            // only add "." if online_citation isn't empty, or else if either year, volume, issue, abbrev_journal or publication isn't empty
            $output .= ".";
          }

          // see note for doi
          if ($encodeHTML) {
            $output .= " " . encodeHTML($node->biblio_url) . " (accessed " . $today . ")";
          }
          else {
            $output .= " " . $node->biblio_url . " (accessed " . $today . ")";
          }
        }
      }
      if (!preg_match("/\\. *\$/", $output)) {
        $output .= ".";
      }
      break;
    case 101:

    //Book Chapter
    case 103:

      //Conference Paper
      if (!empty($authors)) {
        $output .= '<span class="biblio-authors">';
        $output .= $authors;
        if (!preg_match("/\\. *\$/", $authors)) {
          $output .= ".";
        }
        $output .= '</span>';
      }
      if (!empty($node->title)) {

        // title
        if (!empty($authors)) {
          $output .= " ";
        }
        $output .= '"<i>';
        $output .= '<span class="biblio-title-chicago">';
        $url = biblio_get_title_url_info($node);
        $output .= l($node->title, $url['link'], $url['options']);
        $output .= "</span>";
        $output .= '</i>';
        if (!preg_match("/[?!.]\$/", $node->title)) {
          $output .= ".";
        }
        $output .= '"';
      }
      $publication = preg_replace("/[ \r\n]*\\(Eds?:[^\\)\r\n]*\\)/", "", $node->biblio_secondary_title);
      if (!empty($publication)) {

        // publication
        $output .= " In <i>{$publication}</i>";
      }

      // From here on we'll assume that at least either the 'author' or the 'title' field did contain some contents
      // if this is not the case, the output string will begin with a space. However, any preceding/trailing whitespace will be removed at the cleanup stage (see below)
      if (!empty($editors)) {

        // editor
        $editor_options = array(
          'BetweenAuthorsDelimStandard' => ', ',
          'BetweenAuthorsDelimLastAuthor' => ' and ',
          'AuthorsInitialsDelimFirstAuthor' => ' ',
          'AuthorsInitialsDelimStandard' => ' ',
          'betweenInitialsDelim' => '. ',
          'initialsBeforeAuthorFirstAuthor' => TRUE,
          'initialsBeforeAuthorStandard' => TRUE,
          'shortenGivenNames' => FALSE,
          'numberOfAuthorsTriggeringEtAl' => 10,
          'includeNumberOfAuthors' => 10,
          'customStringAfterFirstAuthors' => ' et al.',
          'encodeHTML' => TRUE,
        );
        $editor = theme('biblio_format_authors', array(
          'contributors' => $editors,
          'options' => $editor_options,
        ));
        $output .= ", edited by " . $editor;
      }
      if (!empty($node->biblio_pages)) {

        // pages
        $output .= ", " . theme('biblio_page_number', array(
          'orig_page_info' => $node->biblio_pages,
        ));
      }

      // function 'formatPageInfo()' is defined in 'cite.inc.php'
      if (!empty($node->biblio_edition) && !preg_match("/^(1|1st|first|one)( ed\\.?| edition)?\$/i", $node->biblio_edition)) {

        // edition
        if (!preg_match("/[?!.][ \"<i>]*\$/", $output)) {
          $output .= ".";
        }
        if (preg_match("/^\\d{1,3}\$/", $node->biblio_edition)) {

          // if the edition field contains a number of up to three digits, we assume it's an edition number (such as "2nd ed.")
          if ($node->biblio_edition == "2") {
            $editionSuffix = "nd";
          }
          elseif ($node->biblio_edition == "3") {
            $editionSuffix = "rd";
          }
          else {
            $editionSuffix = "th";
          }
        }
        else {
          $editionSuffix = "";
        }
        if (!preg_match("/( ed\\.?| edition)\$/i", $node->biblio_edition)) {
          $editionSuffix .= " ed.";
        }
        $output .= " " . $node->biblio_edition . $editionSuffix;
      }
      if (!empty($node->biblio_volume)) {

        // volume
        if (!preg_match("/[?!.][ \"<i>]*\$/", $output)) {
          $output .= ".";
        }
        $output .= " Vol. " . $node->biblio_volume;
      }
      if (!empty($node->biblio_alternate_title) or !empty($node->biblio_tertiary_title)) {

        // if there's either a full or an abbreviated series title
        if (!preg_match("/[?!.][ \"<i>]*\$/", $output)) {
          $output .= ".";
        }
        $output .= " ";
        if (!empty($node->biblio_alternate_title)) {
          $output .= $node->biblio_alternate_title;
        }
        elseif (!empty($node->biblio_tertiary_title)) {
          $output .= $node->biblio_tertiary_title;
        }

        // full series title
        if (!empty($node->biblio_volume) || !empty($node->biblio_issue)) {
          $output .= " ";
        }
        if (!empty($node->biblio_volume)) {

          // series volume
          $output .= $node->biblio_volume;
        }

        //       if (!empty($node->biblio_issue))      // series issue (I'm not really sure if -- for this cite style -- the series issue should be rather omitted here)
        //       $output .= ", no. " . $node->biblio_issue; // is it correct to format series issues similar to journal article issues?
      }
      if (!preg_match("/[?!.][ \"<i>]*\$/", $output)) {
        $output .= ".";
      }
      if (!empty($node->biblio_place_published)) {

        // place
        $output .= " " . $node->biblio_place_published;
      }
      if (!empty($node->biblio_publisher)) {

        // publisher
        if (!empty($node->biblio_place_published)) {
          $output .= ":";
        }
        $output .= " " . $node->biblio_publisher;
      }
      if (!empty($node->biblio_year)) {

        // year
        $output .= ", " . $node->biblio_year;
      }
      if (!preg_match("/\\. *\$/", $output)) {
        $output .= ".";
      }
      break;
    default:

      // all other types

      //TODO

      //        if (preg_match("[ \r\n]*\(ed\)", $node->author)) // single editor
      //          $author = $author . ", ed";
      //        elseif (preg_match("[ \r\n]*\(eds\)", $node->author)) // multiple editors
      //          $author = $author . ", eds";
      if (!empty($authors)) {

        // author
        $output .= '<span class="biblio-authors">';
        $output .= $authors;
        if (!preg_match("/\\. *\$/", $authors)) {
          $output .= ".";
        }
        $output .= '</span>';
      }
      if (!empty($node->title)) {

        // title
        $url = biblio_get_title_url_info($node);
        if (!empty($authors)) {
          $output .= " ";
        }
        if (!empty($node->thesis)) {

          // thesis
          $output .= '<span class="biblio-title-chicago">';
          $output .= '"' . l($node->title, $url['link'], $url['options']);
          $output .= "</span>";
          if (!preg_match("/[?!.]\$/", $node->title)) {
            $output .= ".";
          }
          $output .= '"';
        }
        else {

          // not a thesis
          $output .= '<i>';
        }
        $output .= '<span class="biblio-title-chicago">';
        $output .= l($node->title, $url['link'], $url['options']);
        $output .= "</span>";
        $output .= '</i>';
      }
      $publication = preg_replace("/[ \r\n]*\\(Eds?:[^\\)\r\n]*\\)/", "", $node->biblio_secondary_title);
      if (!empty($publication)) {

        // publication
        $output .= " In <i>{$publication}</i>";
      }
      if (!empty($editors)) {

        // editor (if different from author, see note above regarding the check for ' (ed)' or ' (eds)')
        $editor_options = array(
          'BetweenAuthorsDelimStandard' => ', ',
          'BetweenAuthorsDelimLastAuthor' => ' and ',
          'AuthorsInitialsDelimFirstAuthor' => ' ',
          'AuthorsInitialsDelimStandard' => ' ',
          'betweenInitialsDelim' => '. ',
          'initialsBeforeAuthorFirstAuthor' => TRUE,
          'initialsBeforeAuthorStandard' => TRUE,
          'shortenGivenNames' => FALSE,
          'numberOfAuthorsTriggeringEtAl' => 10,
          'includeNumberOfAuthors' => 10,
          'customStringAfterFirstAuthors' => ' et al.',
          'encodeHTML' => TRUE,
        );
        $editor = theme('biblio_format_authors', array(
          'contributors' => $editors,
          'options' => $editor_options,
        ));
        $output .= ", Edited by " . $editor;
      }
      if (!empty($node->biblio_edition) && !preg_match("/^(1|1st|first|one)( ed\\.?| edition)?\$/i", $node->biblio_edition)) {

        // edition
        if (!preg_match("/[?!.][ \"<i>]*\$/", $output)) {
          $output .= ".";
        }
        if (preg_match("/^\\d{1,3}\$/", $node->biblio_edition)) {

          // if the edition field contains a number of up to three digits, we assume it's an edition number (such as "2nd ed.")
          if ($node->biblio_edition == "2") {
            $editionSuffix = "nd";
          }
          elseif ($node->biblio_edition == "3") {
            $editionSuffix = "rd";
          }
          else {
            $editionSuffix = "th";
          }
        }
        else {
          $editionSuffix = "";
        }
        if (!preg_match("/( ed\\.?| edition)\$/i", $node->biblio_edition)) {
          $editionSuffix .= " ed.";
        }
        $output .= " " . $node->biblio_edition . $editionSuffix;
      }
      if (!empty($node->biblio_volume)) {

        // volume
        if (!preg_match("/[?!.][ \"<i>]*\$/", $output)) {
          $output .= ".";
        }
        $output .= " Vol. " . $node->biblio_volume;
      }
      if (!empty($node->biblio_alternate_title) or !empty($node->biblio_tertiary_title)) {

        // if there's either a full or an abbreviated series title
        if (!preg_match("/[?!.][ \"<i>]*\$/", $output)) {
          $output .= ".";
        }
        $output .= " ";
        if (!empty($node->biblio_alternate_title)) {
          $output .= $node->biblio_alternate_title;
        }
        elseif (!empty($node->biblio_tertiary_title)) {
          $output .= $node->biblio_tertiary_title;
        }

        // full series title
        if (!empty($node->biblio_volume) || !empty($node->biblio_issue)) {
          $output .= " ";
        }
        if (!empty($node->biblio_volume)) {

          // series volume
          $output .= $node->biblio_volume;
        }

        //       if (!empty($node->biblio_issue))      // series issue (I'm not really sure if -- for this cite style -- the series issue should be rather omitted here)
        //       $output .= ", no. " . $node->biblio_issue; // is it correct to format series issues similar to journal article issues?
      }
      if (!empty($node->thesis)) {

        // thesis
        if (!preg_match("/[?!.][ \"" . $markupPatternsArray["italic-suffix"] . "]*\$/", $output)) {
          $output .= ".";
        }
        $output .= " " . $node->thesis;
        $output .= ", " . $node->biblio_publisher;
      }
      else {

        // not a thesis
        if (!preg_match("/[?!.][ \"" . $markupPatternsArray["italic-suffix"] . "]*\$/", $output)) {
          $output .= ".";
        }
        if (!empty($node->biblio_place_published)) {

          // place
          $output .= " " . $node->biblio_place_published;
        }
        if (!empty($node->biblio_publisher)) {

          // publisher
          if (!empty($node->biblio_place_published)) {
            $output .= ":";
          }
          $output .= " " . $node->biblio_publisher;
        }
      }
      if (!empty($node->biblio_year)) {

        // year
        $output .= ", " . $node->biblio_year;
      }

      //      if ($node->online_publication == "yes") // this record refers to an online article
      //      {
      //        // append an optional string (given in 'online_citation') plus the current date and the DOI (or URL):
      //
      //        $today = date("F j, Y");
      //
      //        if (!empty($node->online_citation))      // online_citation
      //        {
      //          if (!preg_match("/\. *$/", $output))  $output .= ".";
      //
      //          $output .= " " . $node->online_citation;
      //        }
      //
      //        if (!empty($node->doi))      // doi
      //        {
      //          if (!preg_match("/\. *$/", $output)) $output .= ".";
      //
      //          if ($encodeHTML)
      //          $output .= " " . encodeHTML("http://dx.doi.org/" . $node->doi) . " (accessed " . $today . ")";
      //          else
      //          $output .= " " . "http://dx.doi.org/" . $node->doi . " (accessed " . $today . ")";
      //        }
      //        elseif (!empty($node->biblio_url))      // url
      //        {
      //          if (!preg_match("/\. *$/", $output)) $output .= ".";
      //
      //          if ($encodeHTML)
      //          $output .= " " . encodeHTML($node->biblio_url) . " (accessed " . $today . ")";
      //          else
      //          $output .= " " . $node->biblio_url . " (accessed " . $today . ")";
      //        }
      //
      //      }
      if (!preg_match("/\\. *\$/", $output)) {
        $output .= ".";
      }
      break;
  }
  return filter_xss($output, biblio_get_allowed_tags());
}