Handle multiple warnings correctly in ApiBase::setWarning(). Calling this function...
[lhc/web/wiklou.git] / includes / Credits.php
index 18558bc..6326e3a 100644 (file)
 <?php
-
-/* Credits.php -- formats credits for articles
+/**
+ * Credits.php -- formats credits for articles
  * Copyright 2004, Evan Prodromou <evan@wikitravel.org>.
- * 
+ *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
  *  the Free Software Foundation; either version 2 of the License, or
  *  (at your option) any later version.
  *
- * This program is distributed in the hope that it will be useful,
+ *  This program is distributed in the hope that it will be useful,
  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  *  GNU General Public License for more details.
  *
  *  You should have received a copy of the GNU General Public License
  *  along with this program; if not, write to the Free Software
- *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
+ *
+ * @author <evan@wikitravel.org>
  */
 
-/* This is largely cadged from PageHistory::history */
-
-function showCreditsPage($article)
-{
-    global $wgOut;
-
-    $fname = "showCreditsPage";
-    
-    wfProfileIn( $fname );
-
-    $wgOut->setPageTitle( $article->mTitle->getPrefixedText() );
-    $wgOut->setSubtitle( wfMsg( "creditspage" ) );
-    $wgOut->setArticleFlag( false );
-    $wgOut->setArticleRelated( true );
-    $wgOut->setRobotpolicy( "noindex,nofollow" );
-
-    if( $article->mTitle->getArticleID() == 0 ) {
-       $s = wfMsg( "nocredits" );
-    } else {
-       $s = getCredits($article, -1);
-    }
-
-    wfDebug("Credits: '$s'\n");
-    
-    $wgOut->addHTML( $s );
-    
-    wfProfileOut( $fname );
+/**
+ * This is largely cadged from PageHistory::history
+ */
+function showCreditsPage($article) {
+       global $wgOut;
+
+       $fname = 'showCreditsPage';
+
+       wfProfileIn( $fname );
+
+       $wgOut->setPageTitle( $article->mTitle->getPrefixedText() );
+       $wgOut->setSubtitle( wfMsg( 'creditspage' ) );
+       $wgOut->setArticleFlag( false );
+       $wgOut->setArticleRelated( true );
+       $wgOut->setRobotpolicy( 'noindex,nofollow' );
+
+       if( $article->mTitle->getArticleID() == 0 ) {
+               $s = wfMsg( 'nocredits' );
+       } else {
+               $s = getCredits($article, -1);
+       }
+
+       $wgOut->addHTML( $s );
+
+       wfProfileOut( $fname );
 }
 
-function getCredits($article, $cnt) {
-    
-    $s = '';
-    
-    if (isset($cnt) && $cnt != 0) {
-       $s = getAuthorCredits($article);
-       if ($cnt > 1 || $cnt < 0) {
-           $s .= ' ' . getContributorCredits($article, $cnt - 1);
+function getCredits($article, $cnt, $showIfMax=true) {
+       $fname = 'getCredits';
+       wfProfileIn( $fname );
+       $s = '';
+
+       if (isset($cnt) && $cnt != 0) {
+               $s = getAuthorCredits($article);
+               if ($cnt > 1 || $cnt < 0) {
+                       $s .= ' ' . getContributorCredits($article, $cnt - 1, $showIfMax);
+               }
        }
-    }
-    
-    return $s;
+
+       wfProfileOut( $fname );
+       return $s;
 }
 
+/**
+ *
+ */
 function getAuthorCredits($article) {
-    
-    global $wgLang;
-    
-    $last_author = $article->getUser();
-           
-    if ($last_author == 0) {
-       $author_credit = wfMsg('anonymous');
-    } else {
-       $real_name = User::whoIsReal($last_author);
-       if (!empty($real_name)) {
-           $author_credit = $real_name;
+       global $wgLang, $wgAllowRealName;
+
+       $last_author = $article->getUser();
+
+       if ($last_author == 0) {
+               $author_credit = wfMsg('anonymous');
        } else {
-           $author_credit = wfMsg('siteuser', User::whoIs($last_author));
+               if($wgAllowRealName) { $real_name = User::whoIsReal($last_author); }
+               $user_name = User::whoIs($last_author);
+
+               if (!empty($real_name)) {
+                       $author_credit = creditLink($user_name, $real_name);
+               } else {
+                       $author_credit = wfMsg('siteuser', creditLink($user_name));
+               }
        }
-    }
-    
-    $timestamp = $article->getTimestamp();
-    if ($timestamp) {
-       $d = $wgLang->timeanddate($article->getTimestamp(), true);
-    } else {
-       $d = '';
-    }
-    return wfMsg('lastmodifiedby', $d, $author_credit);
+
+       $timestamp = $article->getTimestamp();
+       if ($timestamp) {
+               $d = $wgLang->date($article->getTimestamp(), true);
+               $t = $wgLang->time($article->getTimestamp(), true);
+       } else {
+               $d = '';
+               $t = '';
+       }
+       return wfMsg('lastmodifiedatby', $d, $t, $author_credit);
 }
 
-function getContributorCredits($article, $cnt) {
-           
-    global $wgLang, $wgAllowRealName;
-    
-    $contributors = $article->getContributors($cnt);
-    
-    $real_names = array();
-    $user_names = array();
-
-    # Sift for real versus user names
-    
-    foreach ($contributors as $user_id => $user_parts) {
-       if ($user_id != 0) {
-           if ($wgAllowRealName && !empty($user_parts[1])) {
-               $real_names[$user_id] = $user_parts[1];
-           } else {
-               $user_names[$user_id] = $user_parts[0];
-           }
+/**
+ *
+ */
+function getContributorCredits($article, $cnt, $showIfMax) {
+
+       global $wgLang, $wgAllowRealName;
+
+       $contributors = $article->getContributors();
+
+       $others_link = '';
+
+       # Hmm... too many to fit!
+
+       if ($cnt > 0 && count($contributors) > $cnt) {
+               $others_link = creditOthersLink($article);
+               if (!$showIfMax) {
+                       return wfMsg('othercontribs', $others_link);
+               } else {
+                       $contributors = array_slice($contributors, 0, $cnt);
+               }
        }
-    }
-    
-    $real = $wgLang->listToText(array_values($real_names));
-    $user = $wgLang->listToText(array_values($user_names));
-    
-    if (!empty($user)) {
-       $user = wfMsg('siteusers', $user);
-    }
-    
-    if ($contributors[0] && $contributors[0][0] > 0) {
-       $anon = wfMsg('anonymous');
-    } else {
+
+       $real_names = array();
+       $user_names = array();
+
        $anon = '';
-    }
-    
-    $creds = $wgLang->listToText(array($real, $user, $anon));
-    
-    return wfMsg('othercontribs', $creds);
+
+       # Sift for real versus user names
+
+       foreach ($contributors as $user_parts) {
+               if ($user_parts[0] != 0) {
+                       if ($wgAllowRealName && !empty($user_parts[2])) {
+                               $real_names[] = creditLink($user_parts[1], $user_parts[2]);
+                       } else {
+                               $user_names[] = creditLink($user_parts[1]);
+                       }
+               } else {
+                       $anon = wfMsg('anonymous');
+               }
+       }
+
+       # Two strings: real names, and user names
+
+       $real = $wgLang->listToText($real_names);
+       $user = $wgLang->listToText($user_names);
+
+       # "ThisSite user(s) A, B and C"
+
+       if (!empty($user)) {
+               $user = wfMsg('siteusers', $user);
+       }
+
+       # This is the big list, all mooshed together. We sift for blank strings
+
+       $fulllist = array();
+
+       foreach (array($real, $user, $anon, $others_link) as $s) {
+               if (!empty($s)) {
+                       array_push($fulllist, $s);
+               }
+       }
+
+       # Make the list into text...
+
+       $creds = $wgLang->listToText($fulllist);
+
+       # "Based on work by ..."
+
+       return (empty($creds)) ? '' : wfMsg('othercontribs', $creds);
 }
 
-?>
+/**
+ *
+ */
+function creditLink($user_name, $link_text = '') {
+       global $wgUser, $wgContLang;
+       $skin = $wgUser->getSkin();
+       return $skin->makeLink($wgContLang->getNsText(NS_USER) . ':' . $user_name,
+                              htmlspecialchars( (empty($link_text)) ? $user_name : $link_text ));
+}
+
+/**
+ *
+ */
+function creditOthersLink($article) {
+       global $wgUser;
+       $skin = $wgUser->getSkin();
+       return $skin->makeKnownLink($article->mTitle->getPrefixedText(), wfMsg('others'), 'action=credits');
+}