2012-05-21 04:58:26 +02:00
|
|
|
<?php
|
|
|
|
|
|
|
|
class TagCloudWidget extends Widget {
|
|
|
|
static $db = array(
|
|
|
|
"Title" => "Varchar",
|
|
|
|
"Limit" => "Int",
|
|
|
|
"Sortby" => "Varchar"
|
|
|
|
);
|
|
|
|
|
|
|
|
static $has_one = array();
|
|
|
|
|
|
|
|
static $has_many = array();
|
|
|
|
|
|
|
|
static $many_many = array();
|
|
|
|
|
|
|
|
static $belongs_many_many = array();
|
|
|
|
|
|
|
|
static $defaults = array(
|
|
|
|
"Title" => "Tag Cloud",
|
|
|
|
"Limit" => "0",
|
|
|
|
"Sortby" => "alphabet"
|
|
|
|
);
|
|
|
|
|
|
|
|
static $cmsTitle = "Tag Cloud";
|
|
|
|
static $description = "Shows a tag cloud of tags on your blog.";
|
|
|
|
|
|
|
|
static $popularities = array( 'not-popular', 'not-very-popular', 'somewhat-popular', 'popular', 'very-popular', 'ultra-popular' );
|
|
|
|
|
|
|
|
function getCMSFields() {
|
|
|
|
$fields = parent::getCMSFields();
|
|
|
|
|
|
|
|
$fields->merge(
|
2012-05-21 05:58:40 +02:00
|
|
|
|
2012-05-21 04:58:26 +02:00
|
|
|
new FieldList(
|
|
|
|
new TextField("Title", _t("TagCloudWidget.TILE", "Title")),
|
|
|
|
new TextField("Limit", _t("TagCloudWidget.LIMIT", "Limit number of tags")),
|
|
|
|
new OptionsetField("Sortby",_t("TagCloudWidget.SORTBY","Sort by"),array("alphabet"=>_t("TagCloudWidget.SBAL", "alphabet"),"frequency"=>_t("TagCloudWidget.SBFREQ", "frequency")))
|
|
|
|
)
|
|
|
|
);
|
|
|
|
|
|
|
|
$this->extend('updateCMSFields', $fields);
|
|
|
|
|
|
|
|
return $fields;
|
|
|
|
}
|
|
|
|
|
|
|
|
function Title() {
|
|
|
|
return $this->Title ? $this->Title : 'Tag Cloud';
|
|
|
|
}
|
|
|
|
|
2012-09-20 06:36:01 +02:00
|
|
|
function getTagsCollection() {
|
2012-05-21 04:58:26 +02:00
|
|
|
Requirements::themedCSS("tagcloud");
|
|
|
|
|
|
|
|
$allTags = array();
|
|
|
|
$max = 0;
|
|
|
|
$container = BlogTree::current();
|
|
|
|
|
|
|
|
$entries = $container->Entries();
|
|
|
|
|
|
|
|
if($entries) {
|
|
|
|
foreach($entries as $entry) {
|
|
|
|
$theseTags = preg_split(" *, *", mb_strtolower(trim($entry->Tags)));
|
|
|
|
foreach($theseTags as $tag) {
|
|
|
|
if($tag != "") {
|
|
|
|
$allTags[$tag] = isset($allTags[$tag]) ? $allTags[$tag] + 1 : 1; //getting the count into key => value map
|
|
|
|
$max = ($allTags[$tag] > $max) ? $allTags[$tag] : $max;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if($allTags) {
|
|
|
|
//TODO: move some or all of the sorts to the database for more efficiency
|
|
|
|
if($this->Limit > 0) $allTags = array_slice($allTags, 0, $this->Limit, true);
|
|
|
|
|
|
|
|
if($this->Sortby == "alphabet"){
|
|
|
|
$this->natksort($allTags);
|
|
|
|
} else{
|
|
|
|
uasort($allTags, array($this, "column_sort_by_popularity")); // sort by frequency
|
|
|
|
}
|
|
|
|
|
|
|
|
$sizes = array();
|
|
|
|
foreach ($allTags as $tag => $count) $sizes[$count] = true;
|
|
|
|
|
|
|
|
$offset = 0;
|
|
|
|
$numsizes = count($sizes)-1; //Work out the number of different sizes
|
|
|
|
$buckets = count(self::$popularities)-1;
|
|
|
|
|
|
|
|
// If there are more frequencies than buckets, divide frequencies into buckets
|
|
|
|
if ($numsizes > $buckets) {
|
|
|
|
$numsizes = $buckets;
|
|
|
|
}
|
|
|
|
// Otherwise center use central buckets
|
|
|
|
else {
|
|
|
|
$offset = round(($buckets-$numsizes)/2);
|
|
|
|
}
|
|
|
|
|
|
|
|
foreach($allTags as $tag => $count) {
|
|
|
|
$popularity = round($count / $max * $numsizes) + $offset; $popularity=min($buckets,$popularity);
|
|
|
|
$class = self::$popularities[$popularity];
|
|
|
|
|
|
|
|
$allTags[$tag] = array(
|
|
|
|
"Tag" => $tag,
|
|
|
|
"Count" => $count,
|
|
|
|
"Class" => $class,
|
|
|
|
"Link" => $container->Link('tag') . '/' . urlencode($tag)
|
|
|
|
);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
$output = new ArrayList();
|
|
|
|
foreach($allTags as $tag => $fields) {
|
|
|
|
$output->push(new ArrayData($fields));
|
|
|
|
}
|
|
|
|
|
|
|
|
return $output;
|
|
|
|
}
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Helper method to compare 2 Vars to work out the results.
|
|
|
|
* @param mixed
|
|
|
|
* @param mixed
|
|
|
|
* @return int
|
|
|
|
*/
|
|
|
|
private function column_sort_by_popularity($a, $b){
|
|
|
|
if($a == $b) {
|
|
|
|
$result = 0;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$result = $b - $a;
|
|
|
|
}
|
|
|
|
return $result;
|
|
|
|
}
|
|
|
|
|
|
|
|
private function natksort(&$aToBeSorted) {
|
|
|
|
$aResult = array();
|
|
|
|
$aKeys = array_keys($aToBeSorted);
|
|
|
|
natcasesort($aKeys);
|
|
|
|
foreach ($aKeys as $sKey) {
|
|
|
|
$aResult[$sKey] = $aToBeSorted[$sKey];
|
|
|
|
}
|
|
|
|
$aToBeSorted = $aResult;
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
?>
|