|
|
(4 intermediate revisions by the same user not shown) |
Line 1: |
Line 1: |
− | <?php
| + | {{svn|extensions|MediaWiki/SimpleCalendar/SimpleCalendar.php}} |
− | # MediaWiki SimpleCalendar Extension{{php}}{{Category:Extensions|SimpleCalendar}}
| |
− | # - See http://www.mediawiki.org/wiki/Extension:Simple_Calendar for installation and usage details
| |
− | # - Licenced under LGPL (http://www.gnu.org/copyleft/lesser.html)
| |
− | # - Author: http://www.organicdesign.co.nz/nad
| |
| | | |
− | define('SIMPLECALENDAR_VERSION','1.2.4, 2007-10-18');
| + | See [[MW:Extension:Simple Calendar]] for installation and usage instructions. |
− | | + | [[Category:Extensions]] |
− | $wgExtensionFunctions[] = 'wfSetupSimpleCalendar';
| |
− | $wgHooks['LanguageGetMagic'][] = 'wfCalendarLanguageGetMagic';
| |
− | | |
− | $wgExtensionCredits['parserhook'][] = array(
| |
− | 'name' => 'Simple Calendar',
| |
− | 'author' => '[http://www.organicdesign.co.nz/nad User:Nad]',
| |
− | 'description' => 'A simple calendar extension',
| |
− | 'url' => 'http://www.mediawiki.org/wiki/Extension:Simple_Calendar',
| |
− | 'version' => SIMPLECALENDAR_VERSION
| |
− | );
| |
− | | |
− | function wfCalendarLanguageGetMagic(&$magicWords,$langCode = 0) {
| |
− | $magicWords['calendar'] = array(0,'calendar');
| |
− | return true;
| |
− | }
| |
− | | |
− | function wfSetupSimpleCalendar() {
| |
− | global $wgParser;
| |
− | $wgParser->setFunctionHook('calendar','wfRenderCalendar');
| |
− | return true;
| |
− | }
| |
− | | |
− | # Renders a table of all the individual month tables
| |
− | function wfRenderCalendar(&$parser) {
| |
− | $parser->mOutput->mCacheTime = -1;
| |
− | $argv = array();
| |
− | foreach (func_get_args() as $arg) if (!is_object($arg)) {
| |
− | if (preg_match('/^(.+?)\\s*=\\s*(.+)$/',$arg,$match)) $argv[$match[1]]=$match[2];
| |
− | }
| |
− | if (isset($argv['format'])) $f = $argv['format']; else $f = '%e %B %Y';
| |
− | if (isset($argv['dayformat'])) $df = $argv['dayformat']; else $df = false;
| |
− | if (isset($argv['title'])) $p = $argv['title'].'/'; else $p = '';
| |
− | if (isset($argv['query'])) $q = $argv['query'].'&action=edit'; else $q = 'action=edit';
| |
− | if (isset($argv['year'])) $y = $argv['year']; else $y = date('Y');
| |
− | if (isset($argv['month'])) {
| |
− | $m = $argv['month'];
| |
− | return wfRenderMonth(strftime('%m',strtotime("$y-$m-01")),$y,$p,$q,$f,$df);
| |
− | } else $m = 1;
| |
− | $table = "{| class=\"calendar\"\n";
| |
− | for ($rows = 3; $rows--; $table .= "|-\n")
| |
− | for ($cols = 0; $cols < 4; $cols++)
| |
− | $table .= '|'.wfRenderMonth($m++,$y,$p,$q,$f,$df)."\n";
| |
− | return "$table\n|}\n";
| |
− | }
| |
− | | |
− | # Return a calendar table of the passed month and year
| |
− | function wfRenderMonth($m,$y,$prefix = '',$query = '',$format = '%e %B %Y',$dayformat = false) {
| |
− | $thisDay = date('d');
| |
− | $thisMonth = date('n');
| |
− | $thisYear = date('Y');
| |
− | if (!$d = date('w',$ts = mktime(0,0,0,$m,1,$y))) $d = 7;
| |
− | $month = wfMsg(strtolower(strftime('%B',$ts)));
| |
− | $days = array();
| |
− | foreach (array('M','T','W','T','F','S','S') as $i => $day)
| |
− | $days[] = $dayformat ? wfMsg(strftime($dayformat,mktime(0,0,0,2,$i,2000))) : $day;
| |
− | $table = "\n{| class=\"month\"\n|- class=\"heading\"\n|colspan=\"7\"|$month\n|- class=\"dow\"\n";
| |
− | $table .= '|'.join('||',$days)."\n";
| |
− | if ($d > 1) $table .= "|-".str_repeat("\n| \n",$d-1);
| |
− | for ($i = $day = $d; $day < 32; $i++) {
| |
− | $day = $i - $d + 1;
| |
− | if ($day < 29 or checkdate($m,$day,$y)) {
| |
− | if ($i%7 == 1) $table .= "\n|-\n";
| |
− | $t = ($day == $thisDay and $m == $thisMonth and $y == $thisYear) ? ' class="today"' : '';
| |
− | $ttext = $prefix.trim(strftime($format,mktime(0,0,0,$m,$day,$y)));
| |
− | $title = Title::newFromText($ttext);
| |
− | if (is_object($title)) {
| |
− | $class = $title->exists() ? 'day-active' : 'day-empty';
| |
− | $url = $title->getFullURL($title->exists() ? '' : $query);
| |
− | } else $url = $ttext;
| |
− | $table .= "|$t|[$url <span class='$class'>$day</span>]\n";
| |
− | }
| |
− | }
| |
− | return "$table\n|}";
| |
− | }
| |
− | ?>
| |