// Copyright: Matthias Steffens and the file's // original author(s). // // This code is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY. Please see the GNU General Public // License for more details. // // File: ./cite/styles/cite_APA.php // Repository: $HeadURL: file:///svn/p/refbase/code/branches/bleeding-edge/cite/styles/cite_APA.php $ // Author(s): Richard Karnesky and // Matthias Steffens // // Created: 06-Nov-06, 13:00 // Modified: $Date: 2012-02-27 20:25:30 +0000 (Mon, 27 Feb 2012) $ // $Author: msteffens $ // $Revision: 1337 $ // This is a citation style file (which must reside within the 'cite/styles/' sub-directory of your refbase root directory). It contains a // version of the 'citeRecord()' function that outputs a reference list from selected records according to the citation style used by // the APA // based on 'cite_AnnGlaciol_JGlaciol.php' // TODO: - magazine articles, conference proceedings, patents & reports? // -------------------------------------------------------------------- // --- BEGIN CITATION STYLE --- function citeRecord($row, $citeStyle, $citeType, $markupPatternsArray, $encodeHTML) { $record = ""; // make sure that our buffer variable is empty // --- BEGIN TYPE = JOURNAL ARTICLE / MAGAZINE ARTICLE / NEWSPAPER ARTICLE -------------------------------------------------------------- if (preg_match("/^(Journal Article|Magazine Article|Newspaper Article)$/", $row['type'])) { if (!empty($row['author'])) // author { // Call the 'reArrangeAuthorContents()' function (defined in 'include.inc.php') in order to re-order contents of the author field. Required Parameters: // 1. input: contents of the author field // 2. input: boolean value that specifies whether the author's family name comes first (within one author) in the source string // ('true' means that the family name is followed by the given name (or initials), 'false' if it's the other way around) // // 3. input: pattern describing old delimiter that separates different authors // 4. output: for all authors except the last author: new delimiter that separates different authors // 5. output: for the last author: new delimiter that separates the last author from all other authors // // 6. input: pattern describing old delimiter that separates author name & initials (within one author) // 7. output: for the first author: new delimiter that separates author name & initials (within one author) // 8. output: for all authors except the first author: new delimiter that separates author name & initials (within one author) // 9. output: new delimiter that separates multiple initials (within one author) // 10. output: for the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 11. output: for all authors except the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 12. output: boolean value that specifies whether an author's full given name(s) shall be shortened to initial(s) // // 13. output: if the total number of authors is greater than the given number (integer >= 1), only the number of authors given in (14) will be included in the citation along with the string given in (15); keep empty if all authors shall be returned // 14. output: number of authors (integer >= 1) that is included in the citation if the total number of authors is greater than the number given in (13); keep empty if not applicable // 15. output: string that's appended to the number of authors given in (14) if the total number of authors is greater than the number given in (13); the actual number of authors can be printed by including '__NUMBER_OF_AUTHORS__' (without quotes) within the string // // 16. output: boolean value that specifies whether the re-ordered string shall be returned with higher ASCII chars HTML encoded $author = reArrangeAuthorContents($row['author'], // 1. true, // 2. "/ *; */", // 3. ", ", // 4. ", " . $markupPatternsArray["ampersand"] . " ", // 5. "/ *, */", // 6. ", ", // 7. ", ", // 8. ". ", // 9. false, // 10. false, // 11. true, // 12. "6", // 13. "6", // 14. ", et al.", // 15. $encodeHTML); // 16. if (!preg_match("/\. *$/", $author)) $record .= $author . "."; else $record .= $author; } if (!empty($row['year']) || !empty($row['volume']) || !empty($row['issue'])) { if (!empty($row['author'])) $record .= " "; $record .= "("; if (!empty($row['year'])) // year $record .= $row['year']; if ($row['type'] == "Newspaper Article") // for newspaper articles, volume (=month) and issue (=day) information is printed after the year { if (!empty($row['year']) && (!empty($row['volume']) || !empty($row['issue']))) $record .= ","; if (!empty($row['volume'])) // volume (=month) $record .= " " . $row['volume']; if (!empty($row['issue'])) // issue (=day) $record .= " " . $row['issue']; } $record .= ")."; } if (!empty($row['title'])) // title { if (!empty($row['author']) || !empty($row['year'])) $record .= " "; $record .= $row['title']; if (!preg_match("/[?!.]$/", $row['title'])) $record .= "."; } // From here on we'll assume that at least one of the fields 'author', 'year' or 'title' 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($row['abbrev_journal'])) // abbreviated journal name $record .= " " . $markupPatternsArray["italic-prefix"] . $row['abbrev_journal'] . $markupPatternsArray["italic-suffix"]; // if there's no abbreviated journal name, we'll use the full journal name elseif (!empty($row['publication'])) // publication (= journal) name $record .= " " . $markupPatternsArray["italic-prefix"] . $row['publication'] . $markupPatternsArray["italic-suffix"]; if (preg_match("/^(Journal Article|Magazine Article)$/", $row['type'])) // for journal and magazine articles, volume and issue information is printed after the publication name { if (!empty($row['abbrev_journal']) || !empty($row['publication'])) $record .= ", "; if (!empty($row['volume'])) // volume $record .= $markupPatternsArray["italic-prefix"] . $row['volume'] . $markupPatternsArray["italic-suffix"]; if (!empty($row['issue'])) // issue $record .= "(" . $row['issue'] . ")"; } if ($row['online_publication'] == "yes") // this record refers to an online article { // instead of any pages info (which normally doesn't exist for online publications) we append // an optional string (given in 'online_citation') plus the current date and the DOI (or URL): $today = date("F j, Y"); if (!empty($row['online_citation'])) // online_citation { if (!empty($row['volume']) || !empty($row['issue']) || !empty($row['abbrev_journal']) || !empty($row['publication'])) // only add "," if either volume, issue, abbrev_journal or publication isn't empty $record .= ","; $record .= " " . $row['online_citation']; } if (!empty($row['doi'])) // doi { if (!empty($row['online_citation']) OR (empty($row['online_citation']) AND (!empty($row['volume']) || !empty($row['issue']) || !empty($row['abbrev_journal']) || !empty($row['publication'])))) // only add "." if online_citation isn't empty, or else if either volume, issue, abbrev_journal or publication isn't empty $record .= "."; if ($encodeHTML) $record .= " Retrieved " . $today . ", from " . encodeHTML("http://dx.doi.org/" . $row['doi']); else $record .= " Retrieved " . $today . ", from http://dx.doi.org/" . $row['doi']; } elseif (!empty($row['url'])) // url { if (!empty($row['online_citation']) OR (empty($row['online_citation']) AND (!empty($row['volume']) || !empty($row['issue']) || !empty($row['abbrev_journal']) || !empty($row['publication'])))) // only add "." if online_citation isn't empty, or else if either volume, issue, abbrev_journal or publication isn't empty $record .= "."; if ($encodeHTML) $record .= " Retrieved " . $today . ", from " . encodeHTML($row['url']); else $record .= " Retrieved " . $today . ", from " . $row['url']; } } else // $row['online_publication'] == "no" -> this record refers to a printed article, so we append any pages info instead: { if (!empty($row['pages'])) // pages { if (!empty($row['volume']) || !empty($row['issue']) || !empty($row['abbrev_journal']) || !empty($row['publication'])) // only add ", " if either volume, issue, abbrev_journal or publication isn't empty $record .= ", "; if ($row['type'] == "Newspaper Article") // for newspaper articles, we prefix page numbers with "p." or "pp." $record .= formatPageInfo($row['pages'], $markupPatternsArray["endash"], "p. ", "pp. "); // function 'formatPageInfo()' is defined in 'cite.inc.php' else $record .= formatPageInfo($row['pages'], $markupPatternsArray["endash"]); } } if (!preg_match("/\. *$/", $record) && !($row['online_publication'] == "yes" && (!empty($row['doi']) || !empty($row['url'])))) // if the string doesn't end with a period or a DOI/URL $record .= "."; } // --- BEGIN TYPE = ABSTRACT / BOOK CHAPTER / CONFERENCE ARTICLE ------------------------------------------------------------------------ elseif (preg_match("/^(Abstract|Book Chapter|Conference Article)$/", $row['type'])) { if (!empty($row['author'])) // author { // Call the 'reArrangeAuthorContents()' function (defined in 'include.inc.php') in order to re-order contents of the author field. Required Parameters: // 1. input: contents of the author field // 2. input: boolean value that specifies whether the author's family name comes first (within one author) in the source string // ('true' means that the family name is followed by the given name (or initials), 'false' if it's the other way around) // // 3. input: pattern describing old delimiter that separates different authors // 4. output: for all authors except the last author: new delimiter that separates different authors // 5. output: for the last author: new delimiter that separates the last author from all other authors // // 6. input: pattern describing old delimiter that separates author name & initials (within one author) // 7. output: for the first author: new delimiter that separates author name & initials (within one author) // 8. output: for all authors except the first author: new delimiter that separates author name & initials (within one author) // 9. output: new delimiter that separates multiple initials (within one author) // 10. output: for the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 11. output: for all authors except the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 12. output: boolean value that specifies whether an author's full given name(s) shall be shortened to initial(s) // // 13. output: if the total number of authors is greater than the given number (integer >= 1), only the number of authors given in (14) will be included in the citation along with the string given in (15); keep empty if all authors shall be returned // 14. output: number of authors (integer >= 1) that is included in the citation if the total number of authors is greater than the number given in (13); keep empty if not applicable // 15. output: string that's appended to the number of authors given in (14) if the total number of authors is greater than the number given in (13); the actual number of authors can be printed by including '__NUMBER_OF_AUTHORS__' (without quotes) within the string // // 16. output: boolean value that specifies whether the re-ordered string shall be returned with higher ASCII chars HTML encoded $author = reArrangeAuthorContents($row['author'], // 1. true, // 2. "/ *; */", // 3. ", ", // 4. ", " . $markupPatternsArray["ampersand"] . " ", // 5. "/ *, */", // 6. ", ", // 7. ", ", // 8. ". ", // 9. false, // 10. false, // 11. true, // 12. "6", // 13. "6", // 14. ", et al.", // 15. $encodeHTML); // 16. if (!preg_match("/\. *$/", $author)) $record .= $author . "."; else $record .= $author; } if (!empty($row['year'])) // year { if (!empty($row['author'])) $record .= " "; $record .= "(" . $row['year'] . ")."; } if (!empty($row['title'])) // title { if (!empty($row['author']) || !empty($row['year'])) $record .= " "; $record .= $row['title']; if (!preg_match("/[?!.]$/", $row['title'])) $record .= "."; } // From here on we'll assume that at least one of the fields 'author', 'year' or 'title' 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($row['editor'])) // editor { // Call the 'reArrangeAuthorContents()' function (defined in 'include.inc.php') in order to re-order contents of the author field. Required Parameters: // 1. input: contents of the author field // 2. input: boolean value that specifies whether the author's family name comes first (within one author) in the source string // ('true' means that the family name is followed by the given name (or initials), 'false' if it's the other way around) // // 3. input: pattern describing old delimiter that separates different authors // 4. output: for all authors except the last author: new delimiter that separates different authors // 5. output: for the last author: new delimiter that separates the last author from all other authors // // 6. input: pattern describing old delimiter that separates author name & initials (within one author) // 7. output: for the first author: new delimiter that separates author name & initials (within one author) // 8. output: for all authors except the first author: new delimiter that separates author name & initials (within one author) // 9. output: new delimiter that separates multiple initials (within one author) // 10. output: for the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 11. output: for all authors except the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 12. output: boolean value that specifies whether an author's full given name(s) shall be shortened to initial(s) // // 13. output: if the total number of authors is greater than the given number (integer >= 1), only the number of authors given in (14) will be included in the citation along with the string given in (15); keep empty if all authors shall be returned // 14. output: number of authors (integer >= 1) that is included in the citation if the total number of authors is greater than the number given in (13); keep empty if not applicable // 15. output: string that's appended to the number of authors given in (14) if the total number of authors is greater than the number given in (13); the actual number of authors can be printed by including '__NUMBER_OF_AUTHORS__' (without quotes) within the string // // 16. output: boolean value that specifies whether the re-ordered string shall be returned with higher ASCII chars HTML encoded $editor = reArrangeAuthorContents($row['editor'], // 1. true, // 2. "/ *; */", // 3. ", ", // 4. ", " . $markupPatternsArray["ampersand"] . " ", // 5. "/ *, */", // 6. " ", // 7. " ", // 8. ". ", // 9. true, // 10. true, // 11. true, // 12. "6", // 13. "6", // 14. ", et al.", // 15. $encodeHTML); // 16. $record .= " In " . $editor . " ("; if (preg_match("/^[^;\r\n]+(;[^;\r\n]+)+$/", $row['editor'])) // there are at least two editors (separated by ';') $record .= "Eds."; else // there's only one editor (or the editor field is malformed with multiple editors but missing ';' separator[s]) $record .= "Ed."; $record .= "),"; } $publication = preg_replace("/[ \r\n]*\(Eds?:[^\)\r\n]*\)/i", "", $row['publication']); if (!empty($publication)) // publication { if (empty($row['editor'])) $record .= " In"; $record .= " " . $markupPatternsArray["italic-prefix"] . $publication . $markupPatternsArray["italic-suffix"]; } if (!empty($row['edition']) && !preg_match("/^(1|1st|first|one)( ed\.?| edition)?$/i", $row['edition']) || !empty($row['volume']) || !empty($row['pages'])) { $record .= " ("; if (!empty($row['edition']) && !preg_match("/^(1|1st|first|one)( ed\.?| edition)?$/i", $row['edition'])) // edition { if (preg_match("/^\d{1,3}$/", $row['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 ($row['edition'] == "2") $editionSuffix = "nd"; elseif ($row['edition'] == "3") $editionSuffix = "rd"; else $editionSuffix = "th"; } else $editionSuffix = ""; if (!empty($row['edition']) && !preg_match("/( ed\.?| edition)$/i", $row['edition'])) $editionSuffix .= " ed."; $record .= $row['edition'] . $editionSuffix; } if (!empty($row['volume'])) // volume { if (!empty($row['edition']) && !preg_match("/^(1|1st|first|one)( ed\.?| edition)?$/i", $row['edition'])) $record .= ", "; $record .= "Vol. " . $row['volume']; } if (!empty($row['pages'])) // pages { if (!empty($row['edition']) && !preg_match("/^(1|1st|first|one)( ed\.?| edition)?$/i", $row['edition']) || !empty($row['volume'])) $record .= ", "; $record .= formatPageInfo($row['pages'], $markupPatternsArray["endash"], "p. ", "pp. "); // function 'formatPageInfo()' is defined in 'cite.inc.php' } $record .= ")"; } if (!empty($row['abbrev_series_title']) OR !empty($row['series_title'])) // if there's either a full or an abbreviated series title { if (!preg_match("@[?!.][ " . $markupPatternsArray["italic-suffix"] . "]*$@", $record)) $record .= "."; $record .= " "; if (!empty($row['abbrev_series_title'])) $record .= $row['abbrev_series_title']; // abbreviated series title // if there's no abbreviated series title, we'll use the full series title instead: elseif (!empty($row['series_title'])) $record .= $row['series_title']; // full series title if (!empty($row['series_volume'])||!empty($row['series_issue'])) $record .= ", "; if (!empty($row['series_volume'])) // series volume (I'm not really sure if -- for this cite style -- the series volume & issue should be rather omitted here) $record .= $row['series_volume']; if (!empty($row['series_issue'])) // series issue (see note for series volume) $record .= "(" . $row['series_issue'] . ")"; } $record .= "."; if (!empty($row['place'])) // place $record .= " " . $row['place']; if (!empty($row['publisher'])) // publisher { if (!empty($row['place'])) $record .= ":"; $record .= " " . $row['publisher']; } if (!preg_match("/\. *$/", $record)) $record .= "."; } // --- BEGIN TYPE = BOOK WHOLE / CONFERENCE VOLUME / JOURNAL / MANUAL / MANUSCRIPT / MAP / MISCELLANEOUS / PATENT / REPORT / SOFTWARE --- else // if (preg_match("/Book Whole|Conference Volume|Journal|Manual|Manuscript|Map|Miscellaneous|Patent|Report|Software/", $row['type'])) // note that this also serves as a fallback: unrecognized resource types will be formatted similar to whole books { if (!empty($row['author'])) // author { $author = preg_replace("/[ \r\n]*\(eds?\)/i", "", $row['author']); // Call the 'reArrangeAuthorContents()' function (defined in 'include.inc.php') in order to re-order contents of the author field. Required Parameters: // 1. input: contents of the author field // 2. input: boolean value that specifies whether the author's family name comes first (within one author) in the source string // ('true' means that the family name is followed by the given name (or initials), 'false' if it's the other way around) // // 3. input: pattern describing old delimiter that separates different authors // 4. output: for all authors except the last author: new delimiter that separates different authors // 5. output: for the last author: new delimiter that separates the last author from all other authors // // 6. input: pattern describing old delimiter that separates author name & initials (within one author) // 7. output: for the first author: new delimiter that separates author name & initials (within one author) // 8. output: for all authors except the first author: new delimiter that separates author name & initials (within one author) // 9. output: new delimiter that separates multiple initials (within one author) // 10. output: for the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 11. output: for all authors except the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 12. output: boolean value that specifies whether an author's full given name(s) shall be shortened to initial(s) // // 13. output: if the total number of authors is greater than the given number (integer >= 1), only the number of authors given in (14) will be included in the citation along with the string given in (15); keep empty if all authors shall be returned // 14. output: number of authors (integer >= 1) that is included in the citation if the total number of authors is greater than the number given in (13); keep empty if not applicable // 15. output: string that's appended to the number of authors given in (14) if the total number of authors is greater than the number given in (13); the actual number of authors can be printed by including '__NUMBER_OF_AUTHORS__' (without quotes) within the string // // 16. output: boolean value that specifies whether the re-ordered string shall be returned with higher ASCII chars HTML encoded $author = reArrangeAuthorContents($author, // 1. true, // 2. "/ *; */", // 3. ", ", // 4. ", " . $markupPatternsArray["ampersand"] . " ", // 5. "/ *, */", // 6. ", ", // 7. ", ", // 8. ". ", // 9. false, // 10. false, // 11. true, // 12. "6", // 13. "6", // 14. ", et al.", // 15. $encodeHTML); // 16. // if the author is actually the editor of the resource we'll append ', ed' (or ', eds') to the author string: // [to distinguish editors from authors in the 'author' field, the 'modify.php' script does append ' (ed)' or ' (eds)' if appropriate, // so we're just checking for these identifier strings here. Alternatively, we could check whether the editor field matches the author field] if (preg_match("/[ \r\n]*\(ed\)/", $row['author'])) // single editor $author = $author . " (Ed.)."; elseif (preg_match("/[ \r\n]*\(eds\)/", $row['author'])) // multiple editors $author = $author . " (Eds.)."; if (!preg_match("/\. *$/", $author)) $record .= $author . "."; else $record .= $author; } if (!empty($row['year'])) // year { if (!empty($row['author'])) $record .= " "; $record .= "(" . $row['year'] . ")."; } if (!empty($row['title'])) // title { if (!empty($row['author']) || !empty($row['year'])) $record .= " "; if ($row['type'] == "Software") // except for software, the title is printed in italics $record .= $row['title']; else $record .= $markupPatternsArray["italic-prefix"] . $row['title'] . $markupPatternsArray["italic-suffix"]; } if (!empty($row['editor']) && !preg_match("/[ \r\n]*\(eds?\)/", $row['author'])) // editor (if different from author, see note above regarding the check for ' (ed)' or ' (eds)') { // Call the 'reArrangeAuthorContents()' function (defined in 'include.inc.php') in order to re-order contents of the author field. Required Parameters: // 1. input: contents of the author field // 2. input: boolean value that specifies whether the author's family name comes first (within one author) in the source string // ('true' means that the family name is followed by the given name (or initials), 'false' if it's the other way around) // // 3. input: pattern describing old delimiter that separates different authors // 4. output: for all authors except the last author: new delimiter that separates different authors // 5. output: for the last author: new delimiter that separates the last author from all other authors // // 6. input: pattern describing old delimiter that separates author name & initials (within one author) // 7. output: for the first author: new delimiter that separates author name & initials (within one author) // 8. output: for all authors except the first author: new delimiter that separates author name & initials (within one author) // 9. output: new delimiter that separates multiple initials (within one author) // 10. output: for the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 11. output: for all authors except the first author: boolean value that specifies if initials go *before* the author's name ['true'], or *after* the author's name ['false'] (which is the default in the db) // 12. output: boolean value that specifies whether an author's full given name(s) shall be shortened to initial(s) // // 13. output: if the total number of authors is greater than the given number (integer >= 1), only the number of authors given in (14) will be included in the citation along with the string given in (15); keep empty if all authors shall be returned // 14. output: number of authors (integer >= 1) that is included in the citation if the total number of authors is greater than the number given in (13); keep empty if not applicable // 15. output: string that's appended to the number of authors given in (14) if the total number of authors is greater than the number given in (13); the actual number of authors can be printed by including '__NUMBER_OF_AUTHORS__' (without quotes) within the string // // 16. output: boolean value that specifies whether the re-ordered string shall be returned with higher ASCII chars HTML encoded $editor = reArrangeAuthorContents($row['editor'], // 1. true, // 2. "/ *; */", // 3. ", ", // 4. ", " . $markupPatternsArray["ampersand"] . " ", // 5. "/ *, */", // 6. " ", // 7. " ", // 8. ". ", // 9. true, // 10. true, // 11. true, // 12. "6", // 13. "6", // 14. ", et al.", // 15. $encodeHTML); // 16. if (!empty($row['author']) || !empty($row['year']) || !empty($row['title'])) $record .= " "; $record .= " (" . $editor . ", "; if (preg_match("/^[^;\r\n]+(;[^;\r\n]+)+$/", $row['editor'])) // there are at least two editors (separated by ';') $record .= "Eds."; else // there's only one editor (or the editor field is malformed with multiple editors but missing ';' separator[s]) $record .= "Ed."; $record .= ")"; } if (!empty($row['edition']) || !empty($row['volume'])) { if (!empty($row['author']) || !empty($row['year']) || !empty($row['title']) || (!empty($row['editor']) && !preg_match("/[ \r\n]*\(eds?\)/", $row['author']))) $record .= " "; $record .= "("; if ($row['type'] == "Software") // software edition (=version) { $record .= "Version " . $row['edition']; } elseif (!preg_match("/^(1|1st|first|one)( ed\.?| edition)?$/i", $row['edition'])) // regular edition (other than the first) { if (preg_match("/^\d{1,3}$/", $row['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 ($row['edition'] == "2") $editionSuffix = "nd"; elseif ($row['edition'] == "3") $editionSuffix = "rd"; else $editionSuffix = "th"; } else $editionSuffix = ""; if (!empty($row['edition']) && !preg_match("/( ed\.?| edition)$/i", $row['edition'])) $editionSuffix .= " ed."; $record .= $row['edition'] . $editionSuffix; } if (!empty($row['volume'])) // volume { if (!empty($row['edition']) && !preg_match("/^(1|1st|first|one)( ed\.?| edition)?$/i", $row['edition'])) $record .= ", "; $record .= "Vol. " . $row['volume']; } $record .= ")"; } if ($row['type'] == "Software") // for software, add software label { $record .= " [Computer software]"; } else // add series info, thesis info, and publisher & place { if ((!empty($row['title']) && !preg_match("/[?!.]$/", $row['title'])) || (!empty($row['editor']) && !preg_match("/[ \r\n]*\(eds?\)/", $row['author'])) || !empty($row['edition']) || !empty($row['volume'])) $record .= "."; if (!empty($row['abbrev_series_title']) OR !empty($row['series_title'])) // if there's either a full or an abbreviated series title { $record .= " "; if (!empty($row['abbrev_series_title'])) $record .= $row['abbrev_series_title']; // abbreviated series title // if there's no abbreviated series title, we'll use the full series title instead: elseif (!empty($row['series_title'])) $record .= $row['series_title']; // full series title if (!empty($row['series_volume'])||!empty($row['series_issue'])) $record .= ", "; if (!empty($row['series_volume'])) // series volume (I'm not really sure if -- for this cite style -- the series volume & issue should be rather omitted here) $record .= $row['series_volume']; if (!empty($row['series_issue'])) // series issue (see note for series volume) $record .= "(" . $row['series_issue'] . ")"; $record .= "."; } if (!empty($row['thesis'])) // thesis { $record .= " " . $row['thesis']; $record .= ", " . $row['publisher']; $record .= ", " . $row['place']; } else // not a thesis { if (!empty($row['place'])) // place $record .= " " . $row['place']; if (!empty($row['publisher'])) // publisher { if (!empty($row['place'])) $record .= ":"; if ($row['author'] == $row['publisher']) // in APA style, the string "Author" is used instead of the publisher's name when the author and publisher are identical $record .= " Author"; else $record .= " " . $row['publisher']; } } } if ($row['online_publication'] == "yes" || $row['type'] == "Software") // this record refers to an online article, or a computer program/software { if (!empty($row['online_citation'])) // online_citation { if (!preg_match("/\. *$/", $record)) $record .= "."; $record .= " " . $row['online_citation']; } if (!empty($row['doi']) || !empty($row['url'])) { if (!preg_match("/\. *$/", $record)) $record .= "."; if ($row['type'] == "Software") { $record .= " Available from "; } else { $today = date("F j, Y"); $record .= " Retrieved " . $today . ", from "; } if (!empty($row['doi'])) // doi { if ($encodeHTML) $record .= encodeHTML("http://dx.doi.org/" . $row['doi']); else $record .= "http://dx.doi.org/" . $row['doi']; } elseif (!empty($row['url'])) // url { if ($encodeHTML) $record .= encodeHTML($row['url']); else $record .= $row['url']; } } } if (!preg_match("/\. *$/", $record) && !(($row['online_publication'] == "yes" || $row['type'] == "Software") && !empty($row['url']))) // if the string doesn't end with a period or no URL/DOI was given $record .= "."; } // --- BEGIN POST-PROCESSING ----------------------------------------------------------------------------------------------------------- // do some further cleanup: $record = trim($record); // remove any preceding or trailing whitespace return $record; } // --- END CITATION STYLE --- ?>