341 lines
		
	
	
		
			8.6 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
			
		
		
	
	
			341 lines
		
	
	
		
			8.6 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
| <?php /** @file */
 | |
| 
 | |
| // post categories and "save to file" use the same item.file table for storage.
 | |
| // We will differentiate the different uses by wrapping categories in angle brackets
 | |
| // and save to file categories in square brackets.
 | |
| // To do this we need to escape these characters if they appear in our tag. 
 | |
| 
 | |
| function file_tag_encode($s) {
 | |
| 	return str_replace(array('<','>','[',']'),array('%3c','%3e','%5b','%5d'),$s);
 | |
| }
 | |
| 
 | |
| function file_tag_decode($s) {
 | |
| 	return str_replace(array('%3c','%3e','%5b','%5d'),array('<','>','[',']'),$s);
 | |
| }
 | |
| 
 | |
| function file_tag_file_query($table,$s,$type = 'file') {
 | |
| 
 | |
| 	if($type == 'file')
 | |
| 		$termtype = TERM_FILE;
 | |
| 	else
 | |
| 		$termtype = TERM_CATEGORY;
 | |
| 
 | |
| 	return sprintf(" AND " . (($table) ? dbesc($table) . '.' : '') . "id in (select term.oid from term where term.type = %d and term.term = '%s' and term.uid = " . (($table) ? dbesc($table) . '.' : '') . "uid ) ",
 | |
| 		intval($termtype),
 | |
| 		protect_sprintf(dbesc($s))
 | |
| 	);
 | |
| }
 | |
| 
 | |
| function term_query($table,$s,$type = TERM_UNKNOWN) {
 | |
| 
 | |
| 	return sprintf(" AND " . (($table) ? dbesc($table) . '.' : '') . "id in (select term.oid from term where term.type = %d and term.term = '%s' and term.uid = " . (($table) ? dbesc($table) . '.' : '') . "uid ) ",
 | |
| 		intval($type),
 | |
| 		protect_sprintf(dbesc($s))
 | |
| 	);
 | |
| }
 | |
| 
 | |
| 
 | |
| function store_item_tag($uid,$iid,$otype,$type,$term,$url = '') {
 | |
| 	if(! $term) 
 | |
| 		return false;
 | |
| 	$r = q("select * from term 
 | |
| 		where uid = %d and oid = %d and otype = %d and type = %d 
 | |
| 		and term = '%s' and url = '%s' ",
 | |
| 		intval($uid),
 | |
| 		intval($iid),
 | |
| 		intval($otype),
 | |
| 		intval($type),
 | |
| 		dbesc($term),
 | |
| 		dbesc($url)
 | |
| 	);
 | |
| 	if($r)
 | |
| 		return false;
 | |
| 	$r = q("insert into term (uid, oid, otype, type, term, url)
 | |
| 		values( %d, %d, %d, %d, '%s', '%s') ",
 | |
| 		intval($uid),
 | |
| 		intval($iid),
 | |
| 		intval($otype),
 | |
| 		intval($type),
 | |
| 		dbesc($term),
 | |
| 		dbesc($url)
 | |
| 	);
 | |
| 	return $r;
 | |
| }
 | |
| 		
 | |
| function get_terms_oftype($arr,$type) {
 | |
| 	$ret = array();
 | |
| 	if(! (is_array($arr) && count($arr)))
 | |
| 		return $ret;
 | |
| 
 | |
| 	if(! is_array($type))
 | |
| 		$type = array($type);
 | |
| 
 | |
| 	foreach($type as $t)
 | |
| 		foreach($arr as $x)
 | |
| 			if($x['type'] == $t)
 | |
| 				$ret[] = $x;
 | |
| 	return $ret;
 | |
| }
 | |
| 
 | |
| function format_term_for_display($term) {
 | |
| 	$s = '';
 | |
| 	if($term['type'] == TERM_HASHTAG)
 | |
| 		$s .= '#';
 | |
| 	elseif($term['type'] == TERM_MENTION)
 | |
| 		$s .= '@';
 | |
| 	else
 | |
| 		return $s;
 | |
| 
 | |
| 	if($term['url']) 
 | |
| 		$s .= '<a href="' . $term['url'] . '">' . htmlspecialchars($term['term'], ENT_COMPAT,'UTF-8') . '</a>';
 | |
| 	else 
 | |
| 		$s .= htmlspecialchars($term['term'], ENT_COMPAT,'UTF-8');
 | |
| 	return $s;
 | |
| }
 | |
| 
 | |
| // Tag cloud functions - need to be adpated to this database format
 | |
| 
 | |
| 
 | |
| function tagadelic($uid, $count = 0, $authors = '', $flags = 0, $restrict = 0, $type = TERM_HASHTAG) {
 | |
| 
 | |
| 	$sql_options = '';
 | |
| 	$count = intval($count);
 | |
| 
 | |
| 	if($flags)
 | |
| 		$sql_options .= " and ((item_flags & " . intval($flags) . ") = " . intval($flags) . ") ";
 | |
| 
 | |
| 	if($authors) {
 | |
| 		if(! is_array($authors))
 | |
| 			$authors = array($authors);
 | |
| 		stringify_array_elms($authors,true);
 | |
| 		$sql_options .= " and author_xchan in (" . implode(',',$authors) . ") "; 
 | |
| 	}
 | |
| 
 | |
| 	// Fetch tags
 | |
| 	$r = q("select term, count(term) as total from term left join item on term.oid = item.id
 | |
| 		where term.uid = %d and term.type = %d 
 | |
| 		and otype = %d and item_restrict = %d and item_private = 0
 | |
| 		$sql_options
 | |
| 		group by term order by total desc %s",
 | |
| 		intval($uid),
 | |
| 		intval($type),
 | |
| 		intval(TERM_OBJ_POST),
 | |
| 		intval($restrict),
 | |
| 		((intval($count)) ? "limit $count" : '')
 | |
| 	);
 | |
| 
 | |
| 	if(! $r)
 | |
| 		return array();
 | |
|   
 | |
|   	// Find minimum and maximum log-count.
 | |
| 	$tags = array();
 | |
| 	$min = 1e9;
 | |
| 	$max = -1e9;
 | |
| 
 | |
| 	$x = 0;
 | |
| 	foreach($r as $rr) {
 | |
| 		$tags[$x][0] = $rr['term'];
 | |
| 		$tags[$x][1] = log($rr['total']);
 | |
| 		$tags[$x][2] = 0;
 | |
| 		$min = min($min,$tags[$x][1]);
 | |
| 		$max = max($max,$tags[$x][1]);
 | |
| 		$x ++;
 | |
| 	}
 | |
| 
 | |
| 	usort($tags,'tags_sort');
 | |
| 
 | |
| 	$range = max(.01, $max - $min) * 1.0001;
 | |
| 
 | |
| 	for($x = 0; $x < count($tags); $x ++) {
 | |
| 		$tags[$x][2] = 1 + floor(5 * ($tags[$x][1] - $min) / $range);
 | |
| 	}
 | |
| 
 | |
| 	return $tags;
 | |
| }
 | |
| 
 | |
| function tags_sort($a,$b) {
 | |
|    if($a[0] == $b[0])
 | |
| 	 return 0;
 | |
|    return((strtolower($a[0]) < strtolower($b[0])) ? -1 : 1);
 | |
| }
 | |
| 
 | |
| 
 | |
| function dir_tagadelic($count = 0) {
 | |
| 
 | |
| 	$sql_options = '';
 | |
| 	$count = intval($count);
 | |
| 
 | |
| 	// Fetch tags
 | |
| 	$r = q("select xtag_term, count(xtag_term) as total from xtag
 | |
| 		group by xtag_term order by total desc %s",
 | |
| 		((intval($count)) ? "limit $count" : '')
 | |
| 	);
 | |
| 
 | |
| 	if(! $r)
 | |
| 		return array();
 | |
|   
 | |
|   	// Find minimum and maximum log-count.
 | |
| 	$tags = array();
 | |
| 	$min = 1e9;
 | |
| 	$max = -1e9;
 | |
| 
 | |
| 	$x = 0;
 | |
| 	foreach($r as $rr) {
 | |
| 		$tags[$x][0] = $rr['xtag_term'];
 | |
| 		$tags[$x][1] = log($rr['total']);
 | |
| 		$tags[$x][2] = 0;
 | |
| 		$min = min($min,$tags[$x][1]);
 | |
| 		$max = max($max,$tags[$x][1]);
 | |
| 		$x ++;
 | |
| 	}
 | |
| 
 | |
| 	usort($tags,'tags_sort');
 | |
| 
 | |
| 	$range = max(.01, $max - $min) * 1.0001;
 | |
| 
 | |
| 	for($x = 0; $x < count($tags); $x ++) {
 | |
| 		$tags[$x][2] = 1 + floor(5 * ($tags[$x][1] - $min) / $range);
 | |
| 	}
 | |
| 
 | |
| 	return $tags;
 | |
| }
 | |
| 
 | |
| 
 | |
| function tagblock($link,$uid,$count = 0,$authors = '',$flags = 0,$restrict = 0,$type = TERM_HASHTAG) {
 | |
|   $o = '';
 | |
|   $tab = 0;
 | |
|   $r = tagadelic($uid,$count,$authors,$flags,$restrict,$type);
 | |
| 
 | |
|   if($r) {
 | |
| 	$o = '<div class="tagblock widget"><h3>' . t('Tags') . '</h3><div class="tags" align="center">';
 | |
| 	foreach($r as $rr) { 
 | |
| 	  $o .= '<a href="'.$link .'/' . '?f=&tag=' . urlencode($rr[0]).'" class="tag'.$rr[2].'">'.$rr[0].'</a> ' . "\r\n";
 | |
| 	}
 | |
| 	$o .= '</div></div>';
 | |
|   }
 | |
| 	return $o;
 | |
| }
 | |
| 
 | |
| function dir_tagblock($link,$r) {
 | |
| 	$o = '';
 | |
| 	$tab = 0;
 | |
| 
 | |
| 	if(! $r)
 | |
| 		$r = get_app()->data['directory_keywords'];
 | |
| 
 | |
| 	if($r) {
 | |
| 		$o = '<div class="dirtagblock widget"><h3>' . t('Keywords') . '</h3><div class="tags" align="center">';
 | |
| 		foreach($r as $rr) { 
 | |
| 			$o .= '<a href="'.$link .'/' . '?f=&keywords=' . urlencode($rr['term']).'" class="tag'.$rr['normalise'].'" rel="nofollow" >'.$rr['term'].'</a> ' . "\r\n";
 | |
| 		}
 | |
| 		$o .= '</div></div>';
 | |
| 	}
 | |
| 	return $o;
 | |
| }
 | |
| 
 | |
| 
 | |
| 
 | |
| 
 | |
| 
 | |
| 
 | |
| 	/** 
 | |
| 	 * verbs: [0] = first person singular, e.g. "I want", [1] = 3rd person singular, e.g. "Bill wants" 
 | |
| 	 * We use the first person form when creating an activity, but the third person for use in activities
 | |
| 	 * FIXME: There is no accounting for verb gender for languages where this is significant. We may eventually
 | |
| 	 * require obj_verbs() to provide full conjugations and specify which form to use in the $_REQUEST params to this module.
 | |
| 	 */
 | |
| 
 | |
| 
 | |
| 
 | |
| function obj_verbs() {
 | |
| 	$verbs = array(
 | |
| 		'has' => array( t('have'), t('has')),
 | |
| 		'wants' => array( t('want'), t('wants')),
 | |
| 		'likes' => array( t('like'), t('likes')),
 | |
| 		'dislikes' => array( t('dislike'), t('dislikes')),
 | |
| 	);
 | |
| 
 | |
| 	$arr = array('verbs' => $verbs);
 | |
| 	call_hooks('obj_verbs', $arr);
 | |
| 	return	$arr['verbs'];
 | |
| }
 | |
| 
 | |
| 
 | |
| function obj_verb_selector($current = '') {
 | |
| 	$verbs = obj_verbs();
 | |
| 	$o .= '<select class="obj-verb-selector" name="verb" >';
 | |
| 	foreach($verbs as $k => $v) {
 | |
| 		$selected = (($k == $current) ? ' selected="selected" ' : '');
 | |
| 		$o .= '<option value="' . urlencode($k) . '"' . $selected . '>' . $v[0] . '</option>';
 | |
| 	}
 | |
| 	$o .= '</select>';
 | |
| 	return $o;
 | |
| 
 | |
| }
 | |
| 
 | |
| function get_things($profile_hash,$uid) {
 | |
| 
 | |
| 	$sql_extra = (($profile_hash) ? " and obj_page = '" . $profile_hash . "' " : '');
 | |
| 	
 | |
| 	$r = q("select * from obj left join term on obj_obj = term_hash where term_hash != '' and uid = %d and obj_type = %d $sql_extra order by obj_verb, term",
 | |
| 		intval($uid),
 | |
| 		intval(TERM_OBJ_THING)
 | |
| 	);
 | |
| 
 | |
| 	$things = $sorted_things = null;
 | |
| 
 | |
| 	$profile_hashes = array();
 | |
| 
 | |
| 	if($r) {
 | |
| 
 | |
| 		// if no profile_hash was specified (display on profile page mode), match each of the things to a profile name 
 | |
| 		// (list all my things mode). This is harder than it sounds.
 | |
| 
 | |
| 		foreach($r as $rr) {
 | |
| 			$rr['profile_name'] = '';
 | |
| 			if(! in_array($rr['term_hash'],$profile_hashes))
 | |
| 				$profile_hashes[] = $rr['term_hash'];
 | |
| 		}
 | |
| 		stringify_array_elms($profile_hashes);
 | |
| 		if(! $profile_hash) {
 | |
| 			$exp = explode(',',$profile_hashes);
 | |
| 			$p = q("select profile_guid as hash, profile_name as name from profile where profile_guid in ( $exp ) ");
 | |
| 			if($p) {
 | |
| 				foreach($r as $rr) {
 | |
| 					foreach($p as $pp) { 
 | |
| 						if($rr['obj_page'] == $pp['hash']) {
 | |
| 							$rr['profile_name'] == $pp['name'];
 | |
| 						}
 | |
| 					}
 | |
| 				}
 | |
| 			}
 | |
|  		}
 | |
| 
 | |
| 		$things = array();
 | |
| 
 | |
| 		// Use the system obj_verbs array as a sort key, since we don't really
 | |
| 		// want an alphabetic sort. To change the order, use a plugin to
 | |
| 		// alter the obj_verbs() array or alter it in code. Unknown verbs come
 | |
| 		// after the known ones - in no particular order. 
 | |
| 
 | |
| 		$v = obj_verbs();
 | |
| 		foreach($v as $k => $foo)
 | |
| 			$things[$k] = null;
 | |
| 		foreach($r as $rr) {
 | |
| 			if(! $things[$rr['obj_verb']])
 | |
| 				$things[$rr['obj_verb']] = array();
 | |
| 			$things[$rr['obj_verb']][] = array('term' => $rr['term'],'url' => $rr['url'],'img' => $rr['imgurl'], 'profile' => $rr['profile_name']);
 | |
| 		} 
 | |
| 		$sorted_things = array();
 | |
| 		if($things) {
 | |
| 			foreach($things as $k => $v) {
 | |
| 				if(is_array($things[$k])) {
 | |
| 					$sorted_things[$k] = $v;
 | |
| 				}
 | |
| 			}
 | |
| 		}
 | |
| 	}
 | |
| 
 | |
| 	return $sorted_things;
 | |
| 
 | |
| } |