Droplet -> Generate_Calender

[pcwacht]

This droplet generates a nifty month calender.
Code is taken from http://keithdevens.com/software/php_calendar#examples
It can do loads with calenders.

Used variables:
$year , $month , $days = array() , $day_name_length = 3 , $month_href = NULL , $first_day = 0 , $pn = array())

generate_calendar returns a string containing the output HTML. $year and $month are obvious. However, a neat side effect of using PHP's mktime function internally is that generate_calendar does "date rounding". So, basically, if you try to do month 13 of 2002, it'll round to January of 2003. See the documentation for mktime.

$days is an optional array that can contain information you want to specify for each day, including a location to link that day to, a stylesheet class for that day, and any content you want to appear for that day of the calendar. For example, an array passed for the days parameter might look something like this:

<?php
$days = array(
    2=>array('/weblog/archive/2004/Jan/02','linked-day'),
    3=>array('/weblog/archive/2004/Jan/03','linked-day'),
    8=>array('/weblog/archive/2004/Jan/08','linked-day'),
    22=>array('/weblog/archive/2004/Jan/22','linked-day'),
);
?> Each key corresponds to the day of the month, and each value is an array containing one to three elements. The first element is the location you want the day to link to, the second element is a space-separated list of classes (for stylesheets), and the third element is content that you want to appear in that day's cell, instead of just the day's number.

$day_name_length (optional, defaults to 3) is the number of characters to show for the day name ("Monday", "Tuesday", etc.). If you choose zero, the day headings don't display at all, and if you choose >3 it displays the whole name of the day.

$month_href is the location you'd like the month to be a link to (optional).

$first day is the number of the day you want your weeks to start on. Sunday is 0, Monday is 1, etc. Defaults to 0, hence Sunday.

$pn contains the links for the previous and next months to link to (hence, 'pn'). It should be in the following format: $pn = array('<'=>'prev-link','>'=>'next-link'); Note that it's not necessary that the key for next and previous be < (<) and > (>). They could also be things like ← (←) and → (→) or « («) and » (»). In addition, it's important that you define them in the order just shown (previous before next in the array). If you just want to have a previous link, just define the first. If you just want to have a next link, you must define the first with a NULL key and then define the second. If one of the "directions" is defined but the link field is blank, the key (such as < or >) will still be shown, but it won't be a link.

See http://keithdevens.com/software/php_calendar#examples for original script
I just made a droplet out of this one

Code: [Select]

<?php 
/* Used variables:
$year , $month , $days = array() , $day_name_length = 3 , $month_href = NULL , $first_day = 0 , $pn = array()
*/ 
$first_of_month = gmmktime(0,0,0,$month,1,$year); 
#remember that mktime will automatically correct if invalid dates are entered 
# for instance, mktime(0,0,0,12,32,1997) will be the date for Jan 1, 1998 
# this provides a built in "rounding" feature to generate_calendar() 

$day_names = array(); #generate all the day names according to the current locale 
for($n=0,$t=(3+$first_day)*86400; $n<7; $n++,$t+=86400) #January 4, 1970 was a Sunday 
   $day_names[$n] = ucfirst(gmstrftime(&#39;%A&#39;,$t)); #%A means full textual day name 

list($month, $year, $month_name, $weekday) = explode(&#39;,&#39;,gmstrftime(&#39;%m,%Y,%B,%w&#39;,$first_of_month)); 
$weekday = ($weekday + 7 - $first_day) % 7; #adjust for $first_day 
$title   = htmlentities(ucfirst($month_name)).&#39;&nbsp;&#39;.$year;  #note that some locales don&#39;t capitalize month and day names 

#Begin calendar. Uses a real <caption>. See http://diveintomark.org/archives/2002/07/03 
@list($p, $pl) = each($pn); @list($n, $nl) = each($pn); #previous and next links, if applicable 
if($p) $p = &#39;<span class="calendar-prev">&#39;.($pl ? &#39;<a href="&#39;.htmlspecialchars($pl).&#39;">&#39;.$p.&#39;</a>&#39; : $p).&#39;</span>&nbsp;&#39;; 
if($n) $n = &#39;&nbsp;<span class="calendar-next">&#39;.($nl ? &#39;<a href="&#39;.htmlspecialchars($nl).&#39;">&#39;.$n.&#39;</a>&#39; : $n).&#39;</span>&#39;; 
$calendar = &#39;<table class="calendar">&#39;."\n". 
   &#39;<caption class="calendar-month">&#39;.$p.($month_href ? &#39;<a href="&#39;.htmlspecialchars($month_href).&#39;">&#39;.$title.&#39;</a>&#39; : $title).$n."</caption>\n<tr>"; 

if($day_name_length){ #if the day names should be shown ($day_name_length > 0) 
   #if day_name_length is >3, the full name of the day will be printed 
   foreach($day_names as $d) 
      $calendar .= &#39;<th abbr="&#39;.htmlentities($d).&#39;">&#39;.htmlentities($day_name_length < 4 ? substr($d,0,$day_name_length) : $d).&#39;</th>&#39;; 
   $calendar .= "</tr>\n<tr>"; 
} 

if($weekday > 0) $calendar .= &#39;<td colspan="&#39;.$weekday.&#39;">&nbsp;</td>&#39;; #initial &#39;empty&#39; days 
for($day=1,$days_in_month=gmdate(&#39;t&#39;,$first_of_month); $day<=$days_in_month; $day++,$weekday++){ 
   if($weekday == 7){ 
      $weekday   = 0; #start a new week 
      $calendar .= "</tr>\n<tr>"; 
   } 
   if(isset($days[$day]) and is_array($days[$day])){ 
      @list($link, $classes, $content) = $days[$day]; 
      if(is_null($content))  $content  = $day; 
      $calendar .= &#39;<td&#39;.($classes ? &#39; class="&#39;.htmlspecialchars($classes).&#39;">&#39; : &#39;>&#39;). 
         ($link ? &#39;<a href="&#39;.htmlspecialchars($link).&#39;">&#39;.$content.&#39;</a>&#39; : $content).&#39;</td>&#39;; 
   } 
   else $calendar .= "<td>$day</td>"; 
} 
if($weekday != 7) $calendar .= &#39;<td colspan="&#39;.(7-$weekday).&#39;">&nbsp;</td>&#39;; #remaining "empty" days 

return $calendar."</tr>\n</table>\n"; 


Have fun,
John

[Stefek]

Hello John.

This is a cool Droplet!

I have one Question to the 4th example "Link or provide content for certain days".
Could you please explain how to specify a link to, say, a single page for example.
Does it work somehow?

Regards,
Stefek

[pcwacht]

Add

Code: [Select]

<?php
if(!isset($year))  {$year  = date(&#39;Y&#39;, time()); };
if(!isset($month)) {$month = date(&#39;n&#39;, time()); };
right at the beginning to show current month by default


Have fun,
John

[AR1306]

WOW - a cool Droplet, but ...

I have the same question just like Stefek - Is there any way to get this feature.

Thanks - you are one of the best  

Andreas

[Stefek]

Add

Code: [Select]

<?php
if(!isset($year))  {$year  = date(&#39;Y&#39;, time()); };
if(!isset($month)) {$month = date(&#39;n&#39;, time()); };
right at the beginning to show current month by default


Have fun,
John

Hello John,
I think you didn't get my question

I meant in the fourth example there are links on dates.
Is there any way to specify links like this?

Regards,
Stefek

[WebBird]

You just put them into a $days Array.

Example taken from http://keithdevens.com/software/php_calendar#examples

Code: [Select]

<?php
    $days = array(
        2=>array(&#39;/weblog/archive/2004/Jan/02&#39;,&#39;linked-day&#39;),
        3=>array(&#39;/weblog/archive/2004/Jan/03&#39;,&#39;linked-day&#39;),
        8=>array(&#39;/weblog/archive/2004/Jan/08&#39;,&#39;linked-day&#39;),
        22=>array(&#39;/weblog/archive/2004/Jan/22&#39;,&#39;linked-day&#39;),
        26=>array(NULL,&#39;linked-day textual&#39;,&#39;twenty-six&#39;),
    );
?>


The first param is the link url, the second one is a CSS class. There's also an optional third param to set a content (default is current day number).

[pcwacht]

Dunnoh how to get it IN the dropletcall, dunnoh how to add arrays in a parameter call like the droplet uses

To do it inside the droplet you should create some code to create the days array

Something like this, add it in the beginning of the droplet to test it:

Code: [Select]

<?php
global $wb, $database;
if (PAGE_ID>0) {
  $days = array();
  $query = $database->query("SELECT modified_when, link,page_title FROM ".TABLE_PREFIX."pages order by modified_when desc limit 5");
  while($mod_page=$query->fetchRow()){
    $mod_day = date("j", $mod_page[&#39;modified_when&#39;]);
    $weblink=$mod_page[&#39;link&#39;];
    $webtitle = $mod_page[&#39;title&#39;];
    $days[$mod_day] = array($weblink,&#39;linked-day&#39;); 
  }  
}    
asort($days);
This will give you a calender with links to pages on the day they are modified.

It would be easier if the droplet was a snippet instead. Then you could fill the $days array and call the function.


Thsi bit Add

Code:
<?php
if(!isset($year))  {$year  = date('Y', time()); };
if(!isset($month)) {$month = date('n', time()); };
right at the beginning to show current month by default

Was NO answer to your question
But a better use of calender.

Have fun,
John

[AR1306]

Is there any way to automatically generate links from the entries in the eventcal or news module ... that it would be in my opinion. 

But for the first it´s a cool Droplet ...

[WebBird]

You will have to pull the entries from the database by yourself.

[WebBird]

I hacked this droplet to avoid some "undefined" errors and to retrieve event data from "Event Calendar 1.8c". The day is linked to the URL given at the event entry. I am going to extend this for events not having an URL. Done.

Code: [Select]

global $wb, $database;

$days = array();
$day_name_length = 3;
$month_href = NULL;
$first_day = 0;
$pn = array();

$oldlocale = setlocale(LC_TIME, NULL); #save current locale
setlocale(LC_TIME, 'de_DE');

if(!isset($year))  {$year  = date('Y', time()); };
if(!isset($month)) {$month = date('n', time()); };

// Get Events from "Event Calendar" Module (1.8c)
$sql    = "SELECT DAY(date) AS day, event_desc AS descr, evweb_url AS url FROM ".TABLE_PREFIX."mod_event_dates WHERE YEAR(date) = '$year' AND MONTH(date) = '$month'";
$result = $database->query($sql);
if ( $result->numRows() > 0 ) {
    while( $row = $result->fetchRow() ) {
        if ( ! empty( $row['url'] ) ) {
            $days[ $row['day'] ] = array( NULL, NULL, "<span style='font-weight: bold; border: 1px solid #f00;'><a href='".$row['url']."' target='_blank'>".$row['day']."</a></span>" );
        }
        else {
            $days[ $row['day'] ] = array( NULL, NULL, "<span style='font-weight: bold; border: 1px solid #f00;'>".$row['day']."</span>" );
        }
    }
}

$first_of_month = gmmktime(0,0,0,$month,1,$year);
#remember that mktime will automatically correct if invalid dates are entered
# for instance, mktime(0,0,0,12,32,1997) will be the date for Jan 1, 1998
# this provides a built in "rounding" feature to generate_calendar()

$day_names = array(); #generate all the day names according to the current locale
for($n=0,$t=(3+$first_day)*86400; $n<7; $n++,$t+=86400) #January 4, 1970 was a Sunday
   $day_names[$n] = ucfirst(gmstrftime('%A',$t)); #%A means full textual day name
  
// reset locale
setlocale(LC_TIME, $oldlocale);

list($month, $year, $month_name, $weekday) = explode(',',gmstrftime('%m,%Y,%B,%w',$first_of_month));
$weekday = ($weekday + 7 - $first_day) % 7; #adjust for $first_day
$title   = htmlentities(ucfirst($month_name)).'&nbsp;'.$year;  #note that some locales don't capitalize month and day names

#Begin calendar. Uses a real <caption>. See http://diveintomark.org/archives/2002/07/03
@list($p, $pl) = each($pn); @list($n, $nl) = each($pn); #previous and next links, if applicable
if($p) $p = '<span class="calendar-prev">'.($pl ? '<a href="'.htmlspecialchars($pl).'">'.$p.'</a>' : $p).'</span>&nbsp;';
if($n) $n = '&nbsp;<span class="calendar-next">'.($nl ? '<a href="'.htmlspecialchars($nl).'">'.$n.'</a>' : $n).'</span>';
$calendar = '<table class="calendar">'."\n".
   '<caption class="calendar-month">'.$p.($month_href ? '<a href="'.htmlspecialchars($month_href).'">'.$title.'</a>' : $title).$n."</caption>\n<tr>";

if($day_name_length){ #if the day names should be shown ($day_name_length > 0)
   #if day_name_length is >3, the full name of the day will be printed
   foreach($day_names as $d)
      $calendar .= '<th abbr="'.htmlentities($d).'">'.htmlentities($day_name_length < 4 ? substr($d,0,$day_name_length) : $d).'</th>';
   $calendar .= "</tr>\n<tr>";
}

if($weekday > 0) $calendar .= '<td colspan="'.$weekday.'">&nbsp;</td>'; #initial 'empty' days
for($day=1,$days_in_month=gmdate('t',$first_of_month); $day<=$days_in_month; $day++,$weekday++){
   if($weekday == 7){
      $weekday   = 0; #start a new week
      $calendar .= "</tr>\n<tr>";
   }
   if(isset($days[$day]) and is_array($days[$day])){
      @list($link, $classes, $content) = $days[$day];
      if(is_null($content))  $content  = $day;
      $calendar .= '<td'.($classes ? ' class="'.htmlspecialchars($classes).'">' : '>').
         ($link ? '<a href="'.htmlspecialchars($link).'">'.$content.'</a>' : $content).'</td>';
   }
   else $calendar .= "<td>$day</td>";
}
if($weekday != 7) $calendar .= '<td colspan="'.(7-$weekday).'">&nbsp;</td>'; #remaining "empty" days

return $calendar."</tr>\n</table>\n";


[macsmet]

@Webbird: this is nice!
Is it possible to make a link to: monthno=11&year=2009?
So to go to the month or even day?

Greetings,

MacSmet

[WebBird]

I think this is already possible. Try [[HoweverYouCalledThis?year=2009&month=5]]

Day is not useful for a month calendar sheet, I think.

Edit: Default is current month, of course!

[WebBird]

Hint: The droplet code above extracts events from any page the event calendar module is included. To give a certain page/section, try to change the SQL to this:

Code: [Select]

$sql    = "SELECT DAY(date) AS day, event_desc AS descr, evweb_url AS url FROM ".TABLE_PREFIX."mod_event_dates WHERE section_id = '###' AND YEAR(date) = '$year' AND MONTH(date) = '$month'";

Replace ### with the section_id you wish to use.

[tiesy]

Hey WebBird,

your Generate_Calender-mod for the Event Calendar is very welcome and useful. Many thanks for that. It shows the actual Month and the right days with events are marked correct with a red square.
The only thing: The days with are not linked and I don´t know why. I tried to understand the code, but I´m not a programmer, so I didn´t find, how to solve this. For me, it would be sufficient, when it links to the site, where the Event Calendar is.

Second thing: I don´t know, where the "nnnnnn" comes form (see screenshot). I think, there should be shown prev and next-links. Is that right?

 

[gelöscht durch Administrator]

[pcwacht]

The n's

Not sure but I think:
Make sure IN your droplet the \n exists and not just a n
Look at the code above to see where they are.

Have fun
John

[WebBird]

The only thing: The days with are not linked and I don´t know why.

They are linked only if the Event entry has a link. You may change this code:

Code: [Select]

if ( $result->numRows() > 0 ) {
    while( $row = $result->fetchRow() ) {
        if ( ! empty( $row['url'] ) ) {
            $days[ $row['day'] ] = array( NULL, NULL, "<span style='font-weight: bold; border: 1px solid #f00;'><a href='".$row['url']."' target='_blank'>".$row['day']."</a></span>" );
        }
        else {
            $days[ $row['day'] ] = array( NULL, NULL, "<span style='font-weight: bold; border: 1px solid #f00;'>".$row['day']."</span>" );
        }
    }
}

In the else, the day is highligted only, but not linked, as there is no link in the Event entry. So, just add a <a href> that links to your events page. Example:

Code: [Select]

if ( $result->numRows() > 0 ) {
    while( $row = $result->fetchRow() ) {
        if ( ! empty( $row['url'] ) ) {
            $days[ $row['day'] ] = array( NULL, NULL, "<span style='font-weight: bold; border: 1px solid #f00;'><a href='".$row['url']."' target='_blank'>".$row['day']."</a></span>" );
        }
        else {
            $days[ $row['day'] ] = array( NULL, NULL, "<span style='font-weight: bold; border: 1px solid #f00;'><a href='http://...../'>".$row['day']."</a></span>" );
        }
    }
}

Edit: As of the n's, I think pcwacht is right.

[tiesy]

The link-problem is solved, thank you very much, but I can´t handle the "n"-problem until yet. I´ve only copied the code to a new droplet without any changes. The prevs and next-links are missing and instead there are seven "n"s above the table-tag and one after the table.

I think, there must be a problem generating the output for the previous and next-links, because the span-tag are missing in the HTML-output. Could it be a little syntax-error between line 45 and 50 in the code?

My HTML-output starts like this:
<table class="calendar">n<caption class="calendar-month">November&nbsp;2009</caption>n<tr><th abbr="Sonntag">Son</th>

And these are the last tags:
<td>30</td><td colspan="5">&nbsp;</td></tr>n</table>n


I think, this droplet is very welcome by many users, because you can find a lot of WB-Sites with "Event Calendar 1.8c" in use.

[WebBird]

I have not provided any prev/next links in my code.

[WebBird]

Look at the very last line of the droplet code. It should look like this:

return $calendar."</tr>\n</table>\n";

Note the Backslash before the n's. Make sure that you really really have Backslashes there!

[tiesy]

I do have backslashes, believe me and of course there are prevs and next-links.

The last "n" after the calendar-table disappears, if I delete the last "\n" in the last line of your code:

return $calendar."</tr>\n</table>\n";

changed to:

return $calendar."</tr>\n</table>";

I´m shure, there must be a mistake in the code. Some code-parts do not execute.

OK, I´ve to learn php first. If I´ve found the solution in about two years, I´ll post it here


My first dirty "solution": Delete all "\n" in the code. It works!

[WebBird]

I did not provide prev/next, so it's not my code you copied.

[tiesy]

Ah, and what about these lines in your reply #9 ?

@list($p, $pl) = each($pn); @list($n, $nl) = each($pn); #previous and next links, if applicable

..and so on

[Stefek]

Hello Tiesy.
Prev-Next Links won't work with this droplet.

It's not applicable, so WebBird didn't use them..

Regards,
Stefek

[WebBird]

They only work if the $pn array is filled. In my code, it isn't.

[WebBird]

Here's the code as a download. Open with your favourite text editor (not Word...) and paste as a droplet. I added some comments that may help.

Code: [Select]


global $wb, $database;

// --- config options; you may change these ---
// day names length; values > 3 = full name
$day_name_length = 3;
// first day of week; 0 = Sunday, 1 = Monday
$first_day       = 0;
// set locale to the value you need
// set to NULL to use the OS setting -> $locale = NULL;
$locale          = 'de_DE';

// --- do not change these! ---
$month_href      = NULL;
$pn              = array(); // array for prev/next links; they don't work
                            // in this droplet, so don't add anything!
$days            = array();

if ( isset( $locale ) ) {
    // store old locale
    $oldlocale = setlocale(LC_TIME, NULL); #save current locale
    setlocale( LC_TIME, $locale );
}

// year and month defaults
if(!isset($year))  {$year  = date('Y', time()); };
if(!isset($month)) {$month = date('n', time()); };

// Get Events from "Event Calendar" Module (1.8c)
$sql    = "SELECT DAY(date) AS day, event_desc AS descr, evweb_url AS url FROM ".TABLE_PREFIX."mod_event_dates WHERE YEAR(date) = '$year' AND MONTH(date) = '$month'";
$result = $database->query($sql);
if ( $result->numRows() > 0 ) {
    while( $row = $result->fetchRow() ) {
        if ( ! empty( $row['url'] ) ) {
            $days[ $row['day'] ] = array( NULL, NULL, "<span style='font-weight: bold; border: 1px solid #f00;'><a href='".$row['url']."' target='_blank'>".$row['day']."</a></span>" );
        }
        else {
            $days[ $row['day'] ] = array( NULL, NULL, "<span style='font-weight: bold; border: 1px solid #f00;'>".$row['day']."</span>" );
        }
    }
}

$first_of_month = gmmktime(0,0,0,$month,1,$year);
#remember that mktime will automatically correct if invalid dates are entered
# for instance, mktime(0,0,0,12,32,1997) will be the date for Jan 1, 1998
# this provides a built in "rounding" feature to generate_calendar()

$day_names = array(); #generate all the day names according to the current locale
for($n=0,$t=(3+$first_day)*86400; $n<7; $n++,$t+=86400) #January 4, 1970 was a Sunday
   $day_names[$n] = ucfirst(gmstrftime('%A',$t)); #%A means full textual day name

if ( isset( $oldlocale ) ) {
    // reset locale
    setlocale(LC_TIME, $oldlocale);
}

list($month, $year, $month_name, $weekday)
    = explode(',',gmstrftime('%m,%Y,%B,%w',$first_of_month));
$weekday = ($weekday + 7 - $first_day) % 7; #adjust for $first_day
$title   = htmlentities(ucfirst($month_name)).'&nbsp;'.$year;  #note that some locales don't capitalize month and day names

#Begin calendar. Uses a real <caption>. See http://diveintomark.org/archives/2002/07/03
@list($p, $pl) = each($pn); @list($n, $nl) = each($pn); #previous and next links, if applicable
if($p) $p = '<span class="calendar-prev">'.($pl ? '<a href="'.htmlspecialchars($pl).'">'.$p.'</a>' : $p).'</span>&nbsp;';
if($n) $n = '&nbsp;<span class="calendar-next">'.($nl ? '<a href="'.htmlspecialchars($nl).'">'.$n.'</a>' : $n).'</span>';
$calendar = '<table class="calendar">'."\n".
   '<caption class="calendar-month">'.$p.($month_href ? '<a href="'.htmlspecialchars($month_href).'">'.$title.'</a>' : $title).$n."</caption>\n<tr>";

if($day_name_length){ #if the day names should be shown ($day_name_length > 0)
   #if day_name_length is >3, the full name of the day will be printed
   foreach($day_names as $d)
      $calendar .= '<th abbr="'.htmlentities($d).'">'.htmlentities($day_name_length < 4 ? substr($d,0,$day_name_length) : $d).'</th>';
   $calendar .= "</tr>\n<tr>";
}

if($weekday > 0) $calendar .= '<td colspan="'.$weekday.'">&nbsp;</td>'; #initial 'empty' days
for($day=1,$days_in_month=gmdate('t',$first_of_month); $day<=$days_in_month; $day++,$weekday++){
   if($weekday == 7){
      $weekday   = 0; #start a new week
      $calendar .= "</tr>\n<tr>";
   }
   if(isset($days[$day]) and is_array($days[$day])){
      @list($link, $classes, $content) = $days[$day];
      if(is_null($content))  $content  = $day;
      $calendar .= '<td'.($classes ? ' class="'.htmlspecialchars($classes).'">' : '>').
         ($link ? '<a href="'.htmlspecialchars($link).'">'.$content.'</a>' : $content).'</td>';
   }
   else $calendar .= "<td>$day</td>";
}
if($weekday != 7) $calendar .= '<td colspan="'.(7-$weekday).'">&nbsp;</td>'; #remaining "empty" days

return $calendar."</tr>\n</table>\n";


[gelöscht durch Administrator]