Exemplo n.º 1
0
 /**
  * Format the author names (APA)
  *
  * @param $authors
  *
  * @return string
  */
 function formatAuthors($authors)
 {
     $authors = (array) $authors;
     //Count the number of contributors in the array
     $count = count($authors);
     //Count the number of authors in the array
     $numAuthors = 0;
     foreach ($authors as $contributor) {
         if (Utility::array_get($contributor, 'cselect') == 'author') {
             $numAuthors++;
         }
     }
     $ret = '';
     for ($i = 0; $i < $count; $i++) {
         //If this contributor is an author
         if (Utility::array_get(Utility::array_get($authors, $i, []), 'cselect') == 'author') {
             if ($i == 0) {
                 //First time through the loop
                 if ($numAuthors > 1) {
                     //There is more than one author
                     $ret .= ucwords($authors[$i]['lname']);
                     if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                         //The author is a person and not a corporation
                         //Check for a hyphen in the first name
                         $hyphentest = stripos($authors[$i]['fname'], '-');
                         if ($hyphentest != false) {
                             $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.-';
                         } else {
                             $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.';
                         }
                         if ($authors[$i]['mi']) {
                             $ret .= ' ' . ucwords($authors[$i]['mi']) . '., ';
                         } else {
                             $ret .= ', ';
                         }
                     } else {
                         //The author is a corporation and not a person
                         $ret .= ', ';
                     }
                 } else {
                     //There is only one author
                     if ($authors[$i]['lname'] != 'Anonymous' || !$authors[$i]['lname'] && !$authors[$i]['fname'] && !$authors[$i]['mi']) {
                         //The author is not Anonymous or blank
                         $ret .= ucwords($authors[$i]['lname']);
                         if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                             //The author is a person and not a corporation
                             //Check for a hyphen in the first name
                             $hyphentest = stripos($authors[$i]['fname'], '-');
                             if ($hyphentest != false) {
                                 $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.-';
                             } else {
                                 $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '. ';
                             }
                             if ($authors[$i]['mi']) {
                                 $ret .= ucwords($authors[$i]['mi']) . '. ';
                             }
                         } else {
                             //The author is a corporation and not a person
                             $ret .= '. ';
                         }
                     }
                 }
             } elseif ($i >= 5) {
                 //Sixth or more time through the loop
                 if ($numAuthors > 7 && $i == 5) {
                     //There are more than 7 authors and this is the sixth time through the loop
                     $ret .= ' ' . ucwords($authors[$i]['lname']) . ', ';
                     if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                         //The author is a person and not a corporation
                         //Check for a hyphen in the first name
                         $hyphentest = stripos($authors[$i]['fname'], '-');
                         if ($hyphentest != false) {
                             $ret .= Utility::firstInitial($authors[$i]['fname']) . '.-';
                         } else {
                             $ret .= Utility::firstInitial($authors[$i]['fname']) . '.';
                         }
                         if ($authors[$i]['mi']) {
                             $ret .= ' ' . ucwords($authors[$i]['mi']) . '.';
                         }
                         $ret .= ', . . . ';
                     } else {
                         //The author is a corporation and not a person
                         $ret .= ', . . . ';
                     }
                 } elseif ($numAuthors == 7 && $i == 5) {
                     //There are 7 authors and this is the sixth time through the loop
                     $ret .= ' ' . ucwords($authors[$i]['lname']);
                     if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                         //The author is a person and not a corporation
                         //Check for a hyphen in the first name
                         $hyphentest = stripos($authors[$i]['fname'], '-');
                         if ($hyphentest != false) {
                             $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.-';
                         } else {
                             $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '. ';
                         }
                         if ($authors[$i]['mi']) {
                             $ret .= ucwords($authors[$i]['mi']) . '., & ';
                         } else {
                             $ret .= ucwords($authors[$i]['mi']) . ', & ';
                         }
                     } else {
                         //The author is a corporation and not a person
                         $ret .= ', & ';
                     }
                 } elseif ($i + 1 == $count) {
                     //This is the last time through the loop
                     //If there are 6 authors add an ampersand before the name, otherwise do not
                     if ($numAuthors == 6) {
                         $ret .= ' & ' . ucwords($authors[$i]['lname']);
                         if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                             //The author is a person and not a corporation
                             //Check for a hyphen in the first name
                             $hyphentest = stripos($authors[$i]['fname'], '-');
                             if ($hyphentest != false) {
                                 $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.-';
                             } else {
                                 $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '. ';
                             }
                             if ($authors[$i]['mi']) {
                                 $ret .= ucwords($authors[$i]['mi']) . '. ';
                             }
                         } else {
                             //The author is a corporation and not a person
                             $ret .= '. ';
                         }
                     } else {
                         $ret .= ' ' . ucwords($authors[$i]['lname']);
                         if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                             //The author is a person and not a corporation
                             //Check for a hyphen in the first name
                             $hyphentest = stripos($authors[$i]['fname'], '-');
                             if ($hyphentest != false) {
                                 $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.-';
                             } else {
                                 $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '. ';
                             }
                             if ($authors[$i]['mi']) {
                                 $ret .= ucwords($authors[$i]['mi']) . '. ';
                             }
                         } else {
                             //The author is a corporation and not a person
                             $ret .= '. ';
                         }
                     }
                 }
             } else {
                 if ($i + 1 == $count) {
                     //This is the last time through the loop
                     if ($numAuthors > 1) {
                         //There is more than one author
                         $ret .= ' & ' . ucwords($authors[$i]['lname']);
                         if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                             //The author is a person and not a corporation
                             //Check for a hyphen in the first name
                             $hyphentest = stripos($authors[$i]['fname'], '-');
                             if ($hyphentest != false) {
                                 $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.-';
                             } else {
                                 $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.';
                             }
                             if ($authors[$i]['mi']) {
                                 $ret .= ' ' . ucwords($authors[$i]['mi']) . '. ';
                             }
                             $ret .= ' ';
                         } else {
                             //The author is a corporation and not a person
                             $ret .= '. ';
                         }
                     } else {
                         //There is only one author
                         if ($authors[$i]['lname'] != 'Anonymous' || !$authors[$i]['lname'] && !$authors[$i]['fname'] && !$authors[$i]['mi']) {
                             //The author is not Anonymous or blank
                             $ret .= ucwords($authors[$i]['lname']);
                             if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                                 //The author is a person and not a corporation
                                 //Check for a hyphen in the first name
                                 $hyphentest = stripos($authors[$i]['fname'], '-');
                                 if ($hyphentest != false) {
                                     $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.-';
                                 } else {
                                     $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '. ';
                                 }
                                 if ($authors[$i]['mi']) {
                                     $ret .= ucwords($authors[$i]['mi']) . '. ';
                                 }
                             } else {
                                 //The author is a corporation and not a person
                                 $ret .= '. ';
                             }
                         }
                     }
                 } else {
                     $ret .= ' ' . ucwords($authors[$i]['lname']);
                     if ($authors[$i]['fname'] || $authors[$i]['mi']) {
                         //The author is a person and not a corporation
                         //Check for a hyphen in the first name
                         $hyphentest = stripos($authors[$i]['fname'], '-');
                         if ($hyphentest != false) {
                             $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.-';
                         } else {
                             $ret .= ', ' . Utility::firstInitial($authors[$i]['fname']) . '.';
                         }
                         if ($authors[$i]['mi']) {
                             $ret .= ' ' . ucwords($authors[$i]['mi']) . '.,';
                         } else {
                             $ret .= ', ';
                         }
                     } else {
                         //The author is a corporation and not a person
                         $ret .= ', ';
                     }
                 }
             }
         }
     }
     return $ret;
 }