2010-07-01 19:48:07 -04:00
< ? php
2017-11-15 09:47:28 -05:00
/**
* @ file mod / profiles . php
*/
2018-01-24 21:08:45 -05:00
2017-04-30 00:07:00 -04:00
use Friendica\App ;
2018-10-17 16:35:49 -04:00
use Friendica\BaseModule ;
2018-01-15 10:15:00 -05:00
use Friendica\Content\ContactSelector ;
2017-12-04 09:04:36 -05:00
use Friendica\Content\Feature ;
2018-01-15 14:51:56 -05:00
use Friendica\Content\Nav ;
2017-11-06 21:22:52 -05:00
use Friendica\Core\Config ;
2018-12-26 01:06:24 -05:00
use Friendica\Core\Hook ;
2018-01-21 13:33:59 -05:00
use Friendica\Core\L10n ;
2017-11-06 21:22:52 -05:00
use Friendica\Core\PConfig ;
2018-10-31 10:35:50 -04:00
use Friendica\Core\Renderer ;
2017-08-26 02:04:21 -04:00
use Friendica\Core\System ;
2017-11-05 07:15:53 -05:00
use Friendica\Core\Worker ;
2018-07-20 08:19:26 -04:00
use Friendica\Database\DBA ;
2018-03-30 23:33:19 -04:00
use Friendica\Model\Contact ;
2017-12-07 09:09:28 -05:00
use Friendica\Model\GContact ;
2018-02-03 12:25:58 -05:00
use Friendica\Model\Profile ;
2019-01-06 23:49:13 -05:00
use Friendica\Model\User ;
2018-10-21 01:53:47 -04:00
use Friendica\Module\Login ;
2017-05-07 14:44:30 -04:00
use Friendica\Network\Probe ;
2018-01-26 21:38:34 -05:00
use Friendica\Util\DateTimeFormat ;
2018-11-08 10:14:37 -05:00
use Friendica\Util\Strings ;
2018-02-03 12:25:58 -05:00
use Friendica\Util\Temporal ;
2010-07-01 19:48:07 -04:00
2017-01-09 07:14:55 -05:00
function profiles_init ( App $a ) {
2013-01-03 12:47:45 -05:00
2018-01-15 14:51:56 -05:00
Nav :: setSelected ( 'profiles' );
2013-01-03 12:47:45 -05:00
2016-12-20 05:56:34 -05:00
if ( ! local_user ()) {
2013-01-03 12:47:45 -05:00
return ;
}
2017-03-25 08:22:39 -04:00
if (( $a -> argc > 2 ) && ( $a -> argv [ 1 ] === " drop " ) && intval ( $a -> argv [ 2 ])) {
2013-01-03 12:47:45 -05:00
$r = q ( " SELECT * FROM `profile` WHERE `id` = %d AND `uid` = %d AND `is-default` = 0 LIMIT 1 " ,
intval ( $a -> argv [ 2 ]),
intval ( local_user ())
);
2018-07-21 08:46:04 -04:00
if ( ! DBA :: isResult ( $r )) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Profile not found.' ) . EOL );
2018-10-19 14:11:27 -04:00
$a -> internalRedirect ( 'profiles' );
2013-01-03 12:47:45 -05:00
return ; // NOTREACHED
}
2014-03-09 04:19:14 -04:00
2018-10-17 16:35:49 -04:00
BaseModule :: checkFormSecurityTokenRedirectOnError ( '/profiles' , 'profile_drop' , 't' );
2013-01-03 12:47:45 -05:00
// move every contact using this profile as their default to the user default
2019-01-07 01:23:49 -05:00
q ( " UPDATE `contact` SET `profile-id` = (SELECT `profile`.`id` AS `profile-id` FROM `profile` WHERE `profile`.`is-default` = 1 AND `profile`.`uid` = %d LIMIT 1) WHERE `profile-id` = %d AND `uid` = %d " ,
2013-01-03 12:47:45 -05:00
intval ( local_user ()),
intval ( $a -> argv [ 2 ]),
intval ( local_user ())
);
2019-01-07 01:23:49 -05:00
q ( " DELETE FROM `profile` WHERE `id` = %d AND `uid` = %d " ,
2013-01-03 12:47:45 -05:00
intval ( $a -> argv [ 2 ]),
intval ( local_user ())
);
2018-07-21 08:46:04 -04:00
if ( DBA :: isResult ( $r )) {
2018-01-22 09:16:25 -05:00
info ( L10n :: t ( 'Profile deleted.' ) . EOL );
2017-03-25 08:22:39 -04:00
}
2013-01-03 12:47:45 -05:00
2018-10-19 14:11:27 -04:00
$a -> internalRedirect ( 'profiles' );
2013-01-03 12:47:45 -05:00
return ; // NOTREACHED
}
2017-03-25 08:22:39 -04:00
if (( $a -> argc > 1 ) && ( $a -> argv [ 1 ] === 'new' )) {
2014-03-09 04:19:14 -04:00
2018-10-17 16:35:49 -04:00
BaseModule :: checkFormSecurityTokenRedirectOnError ( '/profiles' , 'profile_new' , 't' );
2013-01-03 12:47:45 -05:00
$r0 = q ( " SELECT `id` FROM `profile` WHERE `uid` = %d " ,
intval ( local_user ()));
2017-03-25 08:22:39 -04:00
2018-07-21 08:46:04 -04:00
$num_profiles = ( DBA :: isResult ( $r0 ) ? count ( $r0 ) : 0 );
2013-01-03 12:47:45 -05:00
2018-01-22 09:16:25 -05:00
$name = L10n :: t ( 'Profile-' ) . ( $num_profiles + 1 );
2013-01-03 12:47:45 -05:00
$r1 = q ( " SELECT `name`, `photo`, `thumb` FROM `profile` WHERE `uid` = %d AND `is-default` = 1 LIMIT 1 " ,
intval ( local_user ()));
2014-03-09 04:19:14 -04:00
2019-01-07 01:23:49 -05:00
q ( " INSERT INTO `profile` (`uid` , `profile-name` , `name`, `photo`, `thumb`)
2013-01-03 12:47:45 -05:00
VALUES ( % d , '%s' , '%s' , '%s' , '%s' ) " ,
intval ( local_user ()),
2018-07-21 09:10:13 -04:00
DBA :: escape ( $name ),
DBA :: escape ( $r1 [ 0 ][ 'name' ]),
DBA :: escape ( $r1 [ 0 ][ 'photo' ]),
DBA :: escape ( $r1 [ 0 ][ 'thumb' ])
2013-01-03 12:47:45 -05:00
);
$r3 = q ( " SELECT `id` FROM `profile` WHERE `uid` = %d AND `profile-name` = '%s' LIMIT 1 " ,
intval ( local_user ()),
2018-07-21 09:10:13 -04:00
DBA :: escape ( $name )
2013-01-03 12:47:45 -05:00
);
2018-01-21 13:33:59 -05:00
info ( L10n :: t ( 'New profile created.' ) . EOL );
2018-07-21 08:46:04 -04:00
if ( DBA :: isResult ( $r3 ) && count ( $r3 ) == 1 ) {
2018-10-19 14:11:27 -04:00
$a -> internalRedirect ( 'profiles/' . $r3 [ 0 ][ 'id' ]);
2017-03-25 08:22:39 -04:00
}
2014-03-09 04:19:14 -04:00
2018-10-19 14:11:27 -04:00
$a -> internalRedirect ( 'profiles' );
2014-03-11 18:52:32 -04:00
}
2013-01-03 12:47:45 -05:00
2017-03-25 08:22:39 -04:00
if (( $a -> argc > 2 ) && ( $a -> argv [ 1 ] === 'clone' )) {
2014-03-09 04:19:14 -04:00
2018-10-17 16:35:49 -04:00
BaseModule :: checkFormSecurityTokenRedirectOnError ( '/profiles' , 'profile_clone' , 't' );
2013-01-03 12:47:45 -05:00
$r0 = q ( " SELECT `id` FROM `profile` WHERE `uid` = %d " ,
intval ( local_user ()));
2017-03-25 08:22:39 -04:00
2018-07-21 08:46:04 -04:00
$num_profiles = ( DBA :: isResult ( $r0 ) ? count ( $r0 ) : 0 );
2013-01-03 12:47:45 -05:00
2018-01-22 09:16:25 -05:00
$name = L10n :: t ( 'Profile-' ) . ( $num_profiles + 1 );
2013-01-03 12:47:45 -05:00
$r1 = q ( " SELECT * FROM `profile` WHERE `uid` = %d AND `id` = %d LIMIT 1 " ,
intval ( local_user ()),
intval ( $a -> argv [ 2 ])
);
2018-07-21 08:46:04 -04:00
if ( ! DBA :: isResult ( $r1 )) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Profile unavailable to clone.' ) . EOL );
2018-12-26 00:40:12 -05:00
exit ();
2013-01-03 12:47:45 -05:00
}
unset ( $r1 [ 0 ][ 'id' ]);
$r1 [ 0 ][ 'is-default' ] = 0 ;
2014-03-11 18:52:32 -04:00
$r1 [ 0 ][ 'publish' ] = 0 ;
$r1 [ 0 ][ 'net-publish' ] = 0 ;
2018-07-21 09:10:13 -04:00
$r1 [ 0 ][ 'profile-name' ] = DBA :: escape ( $name );
2013-01-03 12:47:45 -05:00
2018-07-20 08:19:26 -04:00
DBA :: insert ( 'profile' , $r1 [ 0 ]);
2013-01-03 12:47:45 -05:00
$r3 = q ( " SELECT `id` FROM `profile` WHERE `uid` = %d AND `profile-name` = '%s' LIMIT 1 " ,
intval ( local_user ()),
2018-07-21 09:10:13 -04:00
DBA :: escape ( $name )
2013-01-03 12:47:45 -05:00
);
2018-01-21 13:33:59 -05:00
info ( L10n :: t ( 'New profile created.' ) . EOL );
2018-07-21 08:46:04 -04:00
if (( DBA :: isResult ( $r3 )) && ( count ( $r3 ) == 1 )) {
2018-10-19 14:11:27 -04:00
$a -> internalRedirect ( 'profiles/' . $r3 [ 0 ][ 'id' ]);
2017-03-25 08:22:39 -04:00
}
2014-03-09 04:19:14 -04:00
2018-10-19 14:11:27 -04:00
$a -> internalRedirect ( 'profiles' );
2014-03-09 04:19:14 -04:00
2013-01-03 12:47:45 -05:00
return ; // NOTREACHED
}
2017-03-25 08:22:39 -04:00
if (( $a -> argc > 1 ) && ( intval ( $a -> argv [ 1 ]))) {
2013-01-03 12:47:45 -05:00
$r = q ( " SELECT id FROM `profile` WHERE `id` = %d AND `uid` = %d LIMIT 1 " ,
intval ( $a -> argv [ 1 ]),
intval ( local_user ())
);
2018-07-21 08:46:04 -04:00
if ( ! DBA :: isResult ( $r )) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Profile not found.' ) . EOL );
2018-12-26 00:40:12 -05:00
exit ();
2013-01-03 12:47:45 -05:00
}
2018-01-14 21:22:39 -05:00
Profile :: load ( $a , $a -> user [ 'nickname' ], $r [ 0 ][ 'id' ]);
2013-01-03 12:47:45 -05:00
}
}
2018-07-27 19:25:57 -04:00
function profile_clean_keywords ( $keywords )
{
2017-03-25 08:22:39 -04:00
$keywords = str_replace ( " , " , " " , $keywords );
2015-01-25 07:19:37 -05:00
$keywords = explode ( " " , $keywords );
2018-01-15 08:05:12 -05:00
$cleaned = [];
2015-01-25 07:19:37 -05:00
foreach ( $keywords as $keyword ) {
$keyword = trim ( strtolower ( $keyword ));
2015-01-25 19:07:15 -05:00
$keyword = trim ( $keyword , " # " );
2017-03-25 08:22:39 -04:00
if ( $keyword != " " ) {
2015-01-25 07:19:37 -05:00
$cleaned [] = $keyword ;
2017-03-25 08:22:39 -04:00
}
2015-01-25 07:19:37 -05:00
}
$keywords = implode ( " , " , $cleaned );
return $keywords ;
}
2017-01-09 07:14:55 -05:00
function profiles_post ( App $a ) {
2010-07-01 19:48:07 -04:00
2016-12-20 05:56:34 -05:00
if ( ! local_user ()) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Permission denied.' ) . EOL );
2010-07-01 19:48:07 -04:00
return ;
}
2010-08-09 00:03:08 -04:00
$namechanged = false ;
2018-12-26 01:06:24 -05:00
Hook :: callAll ( 'profile_post' , $_POST );
2011-01-20 18:30:45 -05:00
2017-03-24 17:33:57 -04:00
if (( $a -> argc > 1 ) && ( $a -> argv [ 1 ] !== " new " ) && intval ( $a -> argv [ 1 ])) {
2010-08-09 00:03:08 -04:00
$orig = q ( " SELECT * FROM `profile` WHERE `id` = %d AND `uid` = %d LIMIT 1 " ,
2010-07-01 19:48:07 -04:00
intval ( $a -> argv [ 1 ]),
2010-11-24 19:35:35 -05:00
intval ( local_user ())
2010-07-01 19:48:07 -04:00
);
2018-07-21 08:46:04 -04:00
if ( ! DBA :: isResult ( $orig )) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Profile not found.' ) . EOL );
2010-07-01 19:48:07 -04:00
return ;
}
2014-03-09 04:19:14 -04:00
2018-10-17 16:35:49 -04:00
BaseModule :: checkFormSecurityTokenRedirectOnError ( '/profiles' , 'profile_edit' );
2014-03-11 18:52:32 -04:00
2010-08-09 00:03:08 -04:00
$is_default = (( $orig [ 0 ][ 'is-default' ]) ? 1 : 0 );
2010-07-01 19:48:07 -04:00
2018-11-09 13:29:42 -05:00
$profile_name = Strings :: escapeTags ( trim ( $_POST [ 'profile_name' ]));
2017-03-24 17:33:57 -04:00
if ( ! strlen ( $profile_name )) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Profile Name is required.' ) . EOL );
2010-07-01 19:48:07 -04:00
return ;
}
2014-03-11 18:52:32 -04:00
2018-11-09 13:27:58 -05:00
$dob = $_POST [ 'dob' ] ? Strings :: escapeHtml ( trim ( $_POST [ 'dob' ])) : '0000-00-00' ;
2015-01-09 18:34:08 -05:00
2017-03-25 08:18:28 -04:00
$y = substr ( $dob , 0 , 4 );
2017-03-24 17:33:57 -04:00
if (( ! ctype_digit ( $y )) || ( $y < 1900 )) {
2015-05-22 12:53:18 -04:00
$ignore_year = true ;
2017-03-24 17:33:57 -04:00
} else {
2015-05-22 12:53:18 -04:00
$ignore_year = false ;
2017-03-24 17:33:57 -04:00
}
2018-11-21 23:53:45 -05:00
if ( ! in_array ( $dob , [ '0000-00-00' , DBA :: NULL_DATE ])) {
2017-04-11 17:00:45 -04:00
if ( strpos ( $dob , '0000-' ) === 0 || strpos ( $dob , '0001-' ) === 0 ) {
2015-05-22 12:53:18 -04:00
$ignore_year = true ;
2017-03-24 17:33:57 -04:00
$dob = substr ( $dob , 5 );
2015-05-22 12:53:18 -04:00
}
2017-03-24 17:33:57 -04:00
if ( $ignore_year ) {
2018-01-26 21:38:34 -05:00
$dob = '0000-' . DateTimeFormat :: utc ( '1900-' . $dob , 'm-d' );
2018-01-26 07:29:32 -05:00
} else {
2018-01-26 21:38:34 -05:00
$dob = DateTimeFormat :: utc ( $dob , 'Y-m-d' );
2017-03-24 17:33:57 -04:00
}
2015-05-22 12:53:18 -04:00
}
2015-10-25 04:15:36 -04:00
2018-11-09 13:29:42 -05:00
$name = Strings :: escapeTags ( trim ( $_POST [ 'name' ]));
2010-08-09 00:03:08 -04:00
2017-03-25 08:22:39 -04:00
if ( ! strlen ( $name )) {
2012-08-19 17:39:43 -04:00
$name = '[No Name]' ;
}
2017-03-24 17:33:57 -04:00
if ( $orig [ 0 ][ 'name' ] != $name ) {
2010-08-09 00:03:08 -04:00
$namechanged = true ;
2017-03-24 17:33:57 -04:00
}
2012-08-19 17:39:43 -04:00
2018-11-09 13:29:42 -05:00
$pdesc = Strings :: escapeTags ( trim ( $_POST [ 'pdesc' ]));
$gender = Strings :: escapeTags ( trim ( $_POST [ 'gender' ]));
$address = Strings :: escapeTags ( trim ( $_POST [ 'address' ]));
$locality = Strings :: escapeTags ( trim ( $_POST [ 'locality' ]));
$region = Strings :: escapeTags ( trim ( $_POST [ 'region' ]));
$postal_code = Strings :: escapeTags ( trim ( $_POST [ 'postal_code' ]));
$country_name = Strings :: escapeTags ( trim ( $_POST [ 'country_name' ]));
$pub_keywords = profile_clean_keywords ( Strings :: escapeTags ( trim ( $_POST [ 'pub_keywords' ])));
$prv_keywords = profile_clean_keywords ( Strings :: escapeTags ( trim ( $_POST [ 'prv_keywords' ])));
$marital = Strings :: escapeTags ( trim ( $_POST [ 'marital' ]));
$howlong = Strings :: escapeTags ( trim ( $_POST [ 'howlong' ]));
2010-08-10 01:58:58 -04:00
2018-11-30 09:06:22 -05:00
$with = ( ! empty ( $_POST [ 'with' ]) ? Strings :: escapeTags ( trim ( $_POST [ 'with' ])) : '' );
2010-12-04 01:46:42 -05:00
2017-03-25 08:18:28 -04:00
if ( ! strlen ( $howlong )) {
2018-10-21 01:53:47 -04:00
$howlong = DBA :: NULL_DATETIME ;
2017-03-19 04:04:04 -04:00
} else {
2018-01-26 21:38:34 -05:00
$howlong = DateTimeFormat :: convert ( $howlong , 'UTC' , date_default_timezone_get ());
2017-03-19 04:04:04 -04:00
}
2010-12-04 01:46:42 -05:00
// linkify the relationship target if applicable
2012-04-13 00:58:15 -04:00
$withchanged = false ;
2017-03-24 17:33:57 -04:00
if ( strlen ( $with )) {
if ( $with != strip_tags ( $orig [ 0 ][ 'with' ])) {
2012-04-13 00:58:15 -04:00
$withchanged = true ;
2010-12-04 01:46:42 -05:00
$prf = '' ;
$lookup = $with ;
2017-03-25 08:18:28 -04:00
if ( strpos ( $lookup , '@' ) === 0 ) {
2017-03-24 17:33:57 -04:00
$lookup = substr ( $lookup , 1 );
}
2011-02-25 15:12:25 -05:00
$lookup = str_replace ( '_' , ' ' , $lookup );
2017-03-24 17:33:57 -04:00
if ( strpos ( $lookup , '@' ) || ( strpos ( $lookup , 'http://' ))) {
2010-12-04 01:46:42 -05:00
$newname = $lookup ;
2016-07-09 14:09:09 -04:00
$links = @ Probe :: lrdd ( $lookup );
2017-03-24 17:33:57 -04:00
if ( count ( $links )) {
foreach ( $links as $link ) {
if ( $link [ '@attributes' ][ 'rel' ] === 'http://webfinger.net/rel/profile-page' ) {
2016-06-10 05:24:38 -04:00
$prf = $link [ '@attributes' ][ 'href' ];
2010-12-04 01:46:42 -05:00
}
}
}
2017-03-23 18:05:53 -04:00
} else {
2010-12-04 01:46:42 -05:00
$newname = $lookup ;
2014-03-09 04:19:14 -04:00
2012-09-29 19:55:40 -04:00
$r = q ( " SELECT * FROM `contact` WHERE `name` = '%s' AND `uid` = %d LIMIT 1 " ,
2018-07-21 09:10:13 -04:00
DBA :: escape ( $newname ),
2012-09-29 19:55:40 -04:00
intval ( local_user ())
);
2018-07-21 08:46:04 -04:00
if ( ! DBA :: isResult ( $r )) {
2012-09-29 19:55:40 -04:00
$r = q ( " SELECT * FROM `contact` WHERE `nick` = '%s' AND `uid` = %d LIMIT 1 " ,
2018-07-21 09:10:13 -04:00
DBA :: escape ( $lookup ),
2012-09-29 19:55:40 -04:00
intval ( local_user ())
);
2010-12-04 01:46:42 -05:00
}
2018-07-21 08:46:04 -04:00
if ( DBA :: isResult ( $r )) {
2010-12-04 01:46:42 -05:00
$prf = $r [ 0 ][ 'url' ];
$newname = $r [ 0 ][ 'name' ];
}
}
2015-01-09 18:34:08 -05:00
2017-03-23 18:05:53 -04:00
if ( $prf ) {
2017-03-24 17:33:57 -04:00
$with = str_replace ( $lookup , '<a href="' . $prf . '">' . $newname . '</a>' , $with );
if ( strpos ( $with , '@' ) === 0 ) {
2017-03-23 18:05:53 -04:00
$with = substr ( $with , 1 );
}
2010-12-04 01:46:42 -05:00
}
2017-03-24 17:33:57 -04:00
} else {
2010-12-04 01:46:42 -05:00
$with = $orig [ 0 ][ 'with' ];
2017-03-24 17:33:57 -04:00
}
2010-12-04 01:46:42 -05:00
}
2017-03-24 17:33:57 -04:00
/// @TODO Not flexible enough for later expansion, let's have more OOP here
2018-11-09 13:29:42 -05:00
$sexual = Strings :: escapeTags ( trim ( $_POST [ 'sexual' ]));
$xmpp = Strings :: escapeTags ( trim ( $_POST [ 'xmpp' ]));
$homepage = Strings :: escapeTags ( trim ( $_POST [ 'homepage' ]));
2014-06-22 03:44:59 -04:00
if (( strpos ( $homepage , 'http' ) !== 0 ) && ( strlen ( $homepage ))) {
2016-06-10 05:24:38 -04:00
// neither http nor https in URL, add them
$homepage = 'http://' . $homepage ;
2014-01-12 03:16:46 -05:00
}
2018-11-09 13:29:42 -05:00
$hometown = Strings :: escapeTags ( trim ( $_POST [ 'hometown' ]));
$politic = Strings :: escapeTags ( trim ( $_POST [ 'politic' ]));
$religion = Strings :: escapeTags ( trim ( $_POST [ 'religion' ]));
2010-07-10 19:47:10 -04:00
2018-11-09 13:27:58 -05:00
$likes = Strings :: escapeHtml ( trim ( $_POST [ 'likes' ]));
$dislikes = Strings :: escapeHtml ( trim ( $_POST [ 'dislikes' ]));
$about = Strings :: escapeHtml ( trim ( $_POST [ 'about' ]));
$interest = Strings :: escapeHtml ( trim ( $_POST [ 'interest' ]));
$contact = Strings :: escapeHtml ( trim ( $_POST [ 'contact' ]));
$music = Strings :: escapeHtml ( trim ( $_POST [ 'music' ]));
$book = Strings :: escapeHtml ( trim ( $_POST [ 'book' ]));
$tv = Strings :: escapeHtml ( trim ( $_POST [ 'tv' ]));
$film = Strings :: escapeHtml ( trim ( $_POST [ 'film' ]));
$romance = Strings :: escapeHtml ( trim ( $_POST [ 'romance' ]));
$work = Strings :: escapeHtml ( trim ( $_POST [ 'work' ]));
$education = Strings :: escapeHtml ( trim ( $_POST [ 'education' ]));
2012-04-10 19:31:49 -04:00
2010-08-20 01:04:18 -04:00
$hide_friends = (( $_POST [ 'hide-friends' ] == 1 ) ? 1 : 0 );
2010-07-01 19:48:07 -04:00
2019-02-23 18:11:48 -05:00
PConfig :: set ( local_user (), 'system' , 'detailled_profile' , (( $_POST [ 'detailed_profile' ] == 1 ) ? 1 : 0 ));
2012-04-13 00:10:32 -04:00
2018-01-15 08:05:12 -05:00
$changes = [];
2017-03-23 18:05:53 -04:00
if ( $is_default ) {
if ( $marital != $orig [ 0 ][ 'marital' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = '[color=#ff0000]♥[/color] ' . L10n :: t ( 'Marital Status' );
2012-04-29 04:42:48 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $withchanged ) {
2018-01-22 09:16:25 -05:00
$changes [] = '[color=#ff0000]♥[/color] ' . L10n :: t ( 'Romantic Partner' );
2012-06-25 00:16:55 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $likes != $orig [ 0 ][ 'likes' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Likes' );
2012-06-25 00:16:55 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $dislikes != $orig [ 0 ][ 'dislikes' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Dislikes' );
2012-06-25 00:16:55 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $work != $orig [ 0 ][ 'work' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Work/Employment' );
2012-04-29 04:42:48 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $religion != $orig [ 0 ][ 'religion' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Religion' );
2012-04-29 04:42:48 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $politic != $orig [ 0 ][ 'politic' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Political Views' );
2012-04-29 04:42:48 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $gender != $orig [ 0 ][ 'gender' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Gender' );
2012-04-29 04:42:48 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $sexual != $orig [ 0 ][ 'sexual' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Sexual Preference' );
2012-04-29 04:42:48 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $xmpp != $orig [ 0 ][ 'xmpp' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'XMPP' );
2016-09-25 11:28:00 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $homepage != $orig [ 0 ][ 'homepage' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Homepage' );
2012-04-29 04:42:48 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $interest != $orig [ 0 ][ 'interest' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Interests' );
2012-04-29 04:42:48 -04:00
}
2017-03-23 18:05:53 -04:00
if ( $address != $orig [ 0 ][ 'address' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Address' );
2012-05-25 18:56:18 -04:00
// New address not sent in notifications, potential privacy issues
// in case this leaks to unintended recipients. Yes, it's in the public
// profile but that doesn't mean we have to broadcast it to everybody.
}
2017-03-23 18:05:53 -04:00
if ( $locality != $orig [ 0 ][ 'locality' ] || $region != $orig [ 0 ][ 'region' ]
2012-04-29 04:49:54 -04:00
|| $country_name != $orig [ 0 ][ 'country-name' ]) {
2018-01-22 09:16:25 -05:00
$changes [] = L10n :: t ( 'Location' );
2012-04-29 04:42:48 -04:00
}
2014-03-09 04:19:14 -04:00
}
$r = q ( " UPDATE `profile`
2010-07-01 19:48:07 -04:00
SET `profile-name` = '%s' ,
`name` = '%s' ,
2011-01-18 22:25:28 -05:00
`pdesc` = '%s' ,
2010-07-01 19:48:07 -04:00
`gender` = '%s' ,
2010-07-10 19:47:10 -04:00
`dob` = '%s' ,
2010-07-01 19:48:07 -04:00
`address` = '%s' ,
`locality` = '%s' ,
`region` = '%s' ,
`postal-code` = '%s' ,
`country-name` = '%s' ,
`marital` = '%s' ,
2010-12-04 01:46:42 -05:00
`with` = '%s' ,
2012-06-02 05:30:26 -04:00
`howlong` = '%s' ,
2010-07-10 19:47:10 -04:00
`sexual` = '%s' ,
2016-09-25 11:28:00 -04:00
`xmpp` = '%s' ,
2010-07-01 19:48:07 -04:00
`homepage` = '%s' ,
2012-06-02 23:58:20 -04:00
`hometown` = '%s' ,
2010-07-10 19:47:10 -04:00
`politic` = '%s' ,
`religion` = '%s' ,
2011-03-14 03:28:49 -04:00
`pub_keywords` = '%s' ,
`prv_keywords` = '%s' ,
2012-06-25 00:16:55 -04:00
`likes` = '%s' ,
`dislikes` = '%s' ,
2010-07-10 19:47:10 -04:00
`about` = '%s' ,
`interest` = '%s' ,
`contact` = '%s' ,
`music` = '%s' ,
`book` = '%s' ,
`tv` = '%s' ,
`film` = '%s' ,
`romance` = '%s' ,
`work` = '%s' ,
2010-08-20 01:04:18 -04:00
`education` = '%s' ,
2011-06-19 19:47:03 -04:00
`hide-friends` = % d
2014-03-09 04:19:14 -04:00
WHERE `id` = % d AND `uid` = % d " ,
2018-07-21 09:10:13 -04:00
DBA :: escape ( $profile_name ),
DBA :: escape ( $name ),
DBA :: escape ( $pdesc ),
DBA :: escape ( $gender ),
DBA :: escape ( $dob ),
DBA :: escape ( $address ),
DBA :: escape ( $locality ),
DBA :: escape ( $region ),
DBA :: escape ( $postal_code ),
DBA :: escape ( $country_name ),
DBA :: escape ( $marital ),
DBA :: escape ( $with ),
DBA :: escape ( $howlong ),
DBA :: escape ( $sexual ),
DBA :: escape ( $xmpp ),
DBA :: escape ( $homepage ),
DBA :: escape ( $hometown ),
DBA :: escape ( $politic ),
DBA :: escape ( $religion ),
DBA :: escape ( $pub_keywords ),
DBA :: escape ( $prv_keywords ),
DBA :: escape ( $likes ),
DBA :: escape ( $dislikes ),
DBA :: escape ( $about ),
DBA :: escape ( $interest ),
DBA :: escape ( $contact ),
DBA :: escape ( $music ),
DBA :: escape ( $book ),
DBA :: escape ( $tv ),
DBA :: escape ( $film ),
DBA :: escape ( $romance ),
DBA :: escape ( $work ),
DBA :: escape ( $education ),
2010-08-20 01:04:18 -04:00
intval ( $hide_friends ),
2010-07-01 19:48:07 -04:00
intval ( $a -> argv [ 1 ]),
2012-04-13 00:10:32 -04:00
intval ( local_user ())
2010-07-01 19:48:07 -04:00
);
2018-07-21 08:46:04 -04:00
/// @TODO decide to use DBA::isResult() here and check $r
2017-03-23 18:05:53 -04:00
if ( $r ) {
2018-01-22 09:16:25 -05:00
info ( L10n :: t ( 'Profile updated.' ) . EOL );
2017-03-23 18:05:53 -04:00
}
2010-07-09 06:10:28 -04:00
2017-03-23 18:05:53 -04:00
if ( $is_default ) {
2018-03-24 02:15:18 -04:00
if ( $namechanged ) {
2019-01-07 01:23:49 -05:00
q ( " UPDATE `user` set `username` = '%s' where `uid` = %d " ,
2018-07-21 09:10:13 -04:00
DBA :: escape ( $name ),
2018-03-24 02:15:18 -04:00
intval ( local_user ())
);
}
Contact :: updateSelfFromUserID ( local_user ());
2015-01-09 18:34:08 -05:00
2010-08-19 07:59:31 -04:00
// Update global directory in background
$url = $_SESSION [ 'my_url' ];
2017-11-06 21:22:52 -05:00
if ( $url && strlen ( Config :: get ( 'system' , 'directory' ))) {
2017-11-18 02:59:30 -05:00
Worker :: add ( PRIORITY_LOW , " Directory " , $url );
2016-12-20 05:36:03 -05:00
}
2011-10-20 08:43:33 -04:00
2017-11-19 11:59:37 -05:00
Worker :: add ( PRIORITY_LOW , 'ProfileUpdate' , local_user ());
2016-05-05 09:08:05 -04:00
// Update the global contact for the user
2017-12-07 09:09:28 -05:00
GContact :: updateForUser ( local_user ());
2010-08-19 07:59:31 -04:00
}
2010-07-01 19:48:07 -04:00
}
}
2017-01-09 07:14:55 -05:00
function profiles_content ( App $a ) {
2011-01-18 22:25:28 -05:00
2016-12-20 05:56:34 -05:00
if ( ! local_user ()) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Permission denied.' ) . EOL );
2018-10-07 10:34:08 -04:00
return Login :: form ();
2013-01-12 07:58:54 -05:00
}
2010-10-31 19:38:22 -04:00
$o = '' ;
2010-07-09 19:28:50 -04:00
2017-03-23 18:05:53 -04:00
if (( $a -> argc > 1 ) && ( intval ( $a -> argv [ 1 ]))) {
2010-07-01 19:48:07 -04:00
$r = q ( " SELECT * FROM `profile` WHERE `id` = %d AND `uid` = %d LIMIT 1 " ,
intval ( $a -> argv [ 1 ]),
2010-11-24 19:35:35 -05:00
intval ( local_user ())
2010-07-01 19:48:07 -04:00
);
2018-07-21 08:46:04 -04:00
if ( ! DBA :: isResult ( $r )) {
2018-01-21 13:33:59 -05:00
notice ( L10n :: t ( 'Profile not found.' ) . EOL );
2010-07-01 19:48:07 -04:00
return ;
}
2018-01-15 08:05:12 -05:00
2018-10-31 10:44:06 -04:00
$a -> page [ 'htmlhead' ] .= Renderer :: replaceMacros ( Renderer :: getMarkupTemplate ( 'profed_head.tpl' ), [
2017-08-26 03:32:10 -04:00
'$baseurl' => System :: baseUrl ( true ),
2018-01-15 08:05:12 -05:00
]);
2012-04-10 21:08:06 -04:00
2018-10-31 10:44:06 -04:00
$opt_tpl = Renderer :: getMarkupTemplate ( " profile-hide-friends.tpl " );
2018-10-31 10:35:50 -04:00
$hide_friends = Renderer :: replaceMacros ( $opt_tpl ,[
2018-01-15 08:05:12 -05:00
'$yesno' => [
2014-06-27 12:12:15 -04:00
'hide-friends' , //Name
2018-01-22 09:16:25 -05:00
L10n :: t ( 'Hide contacts and friends:' ), //Label
2014-06-27 12:12:15 -04:00
!! $r [ 0 ][ 'hide-friends' ], //Value
'' , //Help string
2018-01-22 09:16:25 -05:00
[ L10n :: t ( 'No' ), L10n :: t ( 'Yes' )] //Off - On strings
2018-01-15 08:05:12 -05:00
],
2018-01-22 09:16:25 -05:00
'$desc' => L10n :: t ( 'Hide your contact/friend list from viewers of this profile?' ),
'$yes_str' => L10n :: t ( 'Yes' ),
'$no_str' => L10n :: t ( 'No' ),
2010-07-11 05:52:47 -04:00
'$yes_selected' => (( $r [ 0 ][ 'hide-friends' ]) ? " checked= \" checked \" " : " " ),
'$no_selected' => (( $r [ 0 ][ 'hide-friends' ] == 0 ) ? " checked= \" checked \" " : " " )
2018-01-15 08:05:12 -05:00
]);
2010-07-11 05:52:47 -04:00
2015-10-25 04:15:36 -04:00
$personal_account = ! ( in_array ( $a -> user [ " page-flags " ],
2019-01-06 12:37:48 -05:00
[ User :: PAGE_FLAGS_COMMUNITY , User :: PAGE_FLAGS_PRVGROUP ]));
2012-04-10 21:08:06 -04:00
2019-02-23 18:11:48 -05:00
$detailed_profile = ( PConfig :: get ( local_user (), 'system' , 'detailled_profile' ) AND $personal_account );
2012-04-10 21:08:06 -04:00
2010-07-01 19:48:07 -04:00
$is_default = (( $r [ 0 ][ 'is-default' ]) ? 1 : 0 );
2018-10-31 10:44:06 -04:00
$tpl = Renderer :: getMarkupTemplate ( " profile_edit.tpl " );
2018-10-31 10:35:50 -04:00
$o .= Renderer :: replaceMacros ( $tpl , [
2015-10-25 04:15:36 -04:00
'$personal_account' => $personal_account ,
2019-02-23 18:11:48 -05:00
'$detailled_profile' => $detailed_profile ,
2015-10-25 04:15:36 -04:00
2018-01-15 08:05:12 -05:00
'$details' => [
2019-02-23 18:11:48 -05:00
'detailed_profile' , //Name
2018-01-22 09:16:25 -05:00
L10n :: t ( 'Show more profile fields:' ), //Label
2019-02-23 18:11:48 -05:00
$detailed_profile , //Value
2016-06-10 05:24:38 -04:00
'' , //Help string
2018-01-22 09:16:25 -05:00
[ L10n :: t ( 'No' ), L10n :: t ( 'Yes' )] //Off - On strings
2018-01-15 08:05:12 -05:00
],
2016-06-10 05:24:38 -04:00
2017-12-04 09:01:27 -05:00
'$multi_profiles' => Feature :: isEnabled ( local_user (), 'multi_profiles' ),
2018-10-17 16:35:49 -04:00
'$form_security_token' => BaseModule :: getFormSecurityToken ( " profile_edit " ),
'$form_security_token_photo' => BaseModule :: getFormSecurityToken ( " profile_photo " ),
'$profile_clone_link' => (( Feature :: isEnabled ( local_user (), 'multi_profiles' )) ? 'profiles/clone/' . $r [ 0 ][ 'id' ] . '?t=' . BaseModule :: getFormSecurityToken ( " profile_clone " ) : " " ),
'$profile_drop_link' => 'profiles/drop/' . $r [ 0 ][ 'id' ] . '?t=' . BaseModule :: getFormSecurityToken ( " profile_drop " ),
2016-06-10 05:24:38 -04:00
2018-01-22 09:16:25 -05:00
'$profile_action' => L10n :: t ( 'Profile Actions' ),
'$banner' => L10n :: t ( 'Edit Profile Details' ),
'$submit' => L10n :: t ( 'Submit' ),
'$profpic' => L10n :: t ( 'Change Profile Photo' ),
2018-07-24 10:20:16 -04:00
'$profpiclink' => '/photos/' . $a -> user [ 'nickname' ],
2018-01-22 09:16:25 -05:00
'$viewprof' => L10n :: t ( 'View this profile' ),
2018-07-24 10:20:16 -04:00
'$viewallprof' => L10n :: t ( 'View all profiles' ),
2018-01-22 09:16:25 -05:00
'$editvis' => L10n :: t ( 'Edit visibility' ),
'$cr_prof' => L10n :: t ( 'Create a new profile using these settings' ),
'$cl_prof' => L10n :: t ( 'Clone this profile' ),
'$del_prof' => L10n :: t ( 'Delete this profile' ),
'$lbl_basic_section' => L10n :: t ( 'Basic information' ),
'$lbl_picture_section' => L10n :: t ( 'Profile picture' ),
'$lbl_location_section' => L10n :: t ( 'Location' ),
'$lbl_preferences_section' => L10n :: t ( 'Preferences' ),
'$lbl_status_section' => L10n :: t ( 'Status information' ),
'$lbl_about_section' => L10n :: t ( 'Additional information' ),
'$lbl_interests_section' => L10n :: t ( 'Interests' ),
'$lbl_personal_section' => L10n :: t ( 'Personal' ),
'$lbl_relation_section' => L10n :: t ( 'Relation' ),
'$lbl_miscellaneous_section' => L10n :: t ( 'Miscellaneous' ),
'$lbl_profile_photo' => L10n :: t ( 'Upload Profile Photo' ),
'$lbl_gender' => L10n :: t ( 'Your Gender:' ),
'$lbl_marital' => L10n :: t ( '<span class="heart">♥</span> Marital Status:' ),
'$lbl_sexual' => L10n :: t ( 'Sexual Preference:' ),
'$lbl_ex2' => L10n :: t ( 'Example: fishing photography software' ),
2016-06-10 05:24:38 -04:00
2010-07-19 22:09:58 -04:00
'$disabled' => (( $is_default ) ? 'onclick="return false;" style="color: #BBBBFF;"' : '' ),
2017-08-26 03:32:10 -04:00
'$baseurl' => System :: baseUrl ( true ),
2010-07-01 19:48:07 -04:00
'$profile_id' => $r [ 0 ][ 'id' ],
2018-01-22 09:16:25 -05:00
'$profile_name' => [ 'profile_name' , L10n :: t ( 'Profile Name:' ), $r [ 0 ][ 'profile-name' ], L10n :: t ( 'Required' ), '*' ],
2016-06-10 05:24:38 -04:00
'$is_default' => $is_default ,
2018-01-22 09:16:25 -05:00
'$default' => (( $is_default ) ? '<p id="profile-edit-default-desc">' . L10n :: t ( 'This is your <strong>public</strong> profile.<br />It <strong>may</strong> be visible to anybody using the internet.' ) . '</p>' : " " ),
'$name' => [ 'name' , L10n :: t ( 'Your Full Name:' ), $r [ 0 ][ 'name' ]],
'$pdesc' => [ 'pdesc' , L10n :: t ( 'Title/Description:' ), $r [ 0 ][ 'pdesc' ]],
2019-09-21 05:15:52 -04:00
'$dob' => Temporal :: getDateofBirthField ( $r [ 0 ][ 'dob' ], $a -> user [ 'timezone' ]),
2010-07-11 05:52:47 -04:00
'$hide_friends' => $hide_friends ,
2018-01-22 09:16:25 -05:00
'$address' => [ 'address' , L10n :: t ( 'Street Address:' ), $r [ 0 ][ 'address' ]],
'$locality' => [ 'locality' , L10n :: t ( 'Locality/City:' ), $r [ 0 ][ 'locality' ]],
'$region' => [ 'region' , L10n :: t ( 'Region/State:' ), $r [ 0 ][ 'region' ]],
'$postal_code' => [ 'postal_code' , L10n :: t ( 'Postal/Zip Code:' ), $r [ 0 ][ 'postal-code' ]],
'$country_name' => [ 'country_name' , L10n :: t ( 'Country:' ), $r [ 0 ][ 'country-name' ]],
2018-02-03 12:25:58 -05:00
'$age' => (( intval ( $r [ 0 ][ 'dob' ])) ? '(' . L10n :: t ( 'Age: ' ) . Temporal :: getAgeByTimezone ( $r [ 0 ][ 'dob' ], $a -> user [ 'timezone' ], $a -> user [ 'timezone' ]) . ')' : '' ),
2018-12-24 04:53:44 -05:00
'$gender' => L10n :: t ( ContactSelector :: gender ( $r [ 0 ][ 'gender' ])),
'$marital' => [ 'selector' => ContactSelector :: maritalStatus ( $r [ 0 ][ 'marital' ]), 'value' => L10n :: t ( $r [ 0 ][ 'marital' ])],
2018-01-22 09:16:25 -05:00
'$with' => [ 'with' , L10n :: t ( " Who: \x28 if applicable \x29 " ), strip_tags ( $r [ 0 ][ 'with' ]), L10n :: t ( 'Examples: cathy123, Cathy Williams, cathy@example.com' )],
2018-10-21 01:53:47 -04:00
'$howlong' => [ 'howlong' , L10n :: t ( 'Since [date]:' ), ( $r [ 0 ][ 'howlong' ] <= DBA :: NULL_DATETIME ? '' : DateTimeFormat :: local ( $r [ 0 ][ 'howlong' ]))],
2018-12-24 04:53:44 -05:00
'$sexual' => [ 'selector' => ContactSelector :: sexualPreference ( $r [ 0 ][ 'sexual' ]), 'value' => L10n :: t ( $r [ 0 ][ 'sexual' ])],
2018-01-22 09:16:25 -05:00
'$about' => [ 'about' , L10n :: t ( 'Tell us about yourself...' ), $r [ 0 ][ 'about' ]],
2018-01-24 16:51:32 -05:00
'$xmpp' => [ 'xmpp' , L10n :: t ( " XMPP \x28 Jabber \x29 address: " ), $r [ 0 ][ 'xmpp' ], L10n :: t ( " The XMPP address will be propagated to your contacts so that they can follow you. " )],
2018-01-22 09:16:25 -05:00
'$homepage' => [ 'homepage' , L10n :: t ( 'Homepage URL:' ), $r [ 0 ][ 'homepage' ]],
'$hometown' => [ 'hometown' , L10n :: t ( 'Hometown:' ), $r [ 0 ][ 'hometown' ]],
'$politic' => [ 'politic' , L10n :: t ( 'Political Views:' ), $r [ 0 ][ 'politic' ]],
'$religion' => [ 'religion' , L10n :: t ( 'Religious Views:' ), $r [ 0 ][ 'religion' ]],
'$pub_keywords' => [ 'pub_keywords' , L10n :: t ( 'Public Keywords:' ), $r [ 0 ][ 'pub_keywords' ], L10n :: t ( " \x28 Used for suggesting potential friends, can be seen by others \x29 " )],
'$prv_keywords' => [ 'prv_keywords' , L10n :: t ( 'Private Keywords:' ), $r [ 0 ][ 'prv_keywords' ], L10n :: t ( " \x28 Used for searching profiles, never shown to others \x29 " )],
'$likes' => [ 'likes' , L10n :: t ( 'Likes:' ), $r [ 0 ][ 'likes' ]],
'$dislikes' => [ 'dislikes' , L10n :: t ( 'Dislikes:' ), $r [ 0 ][ 'dislikes' ]],
'$music' => [ 'music' , L10n :: t ( 'Musical interests' ), $r [ 0 ][ 'music' ]],
'$book' => [ 'book' , L10n :: t ( 'Books, literature' ), $r [ 0 ][ 'book' ]],
'$tv' => [ 'tv' , L10n :: t ( 'Television' ), $r [ 0 ][ 'tv' ]],
'$film' => [ 'film' , L10n :: t ( 'Film/dance/culture/entertainment' ), $r [ 0 ][ 'film' ]],
'$interest' => [ 'interest' , L10n :: t ( 'Hobbies/Interests' ), $r [ 0 ][ 'interest' ]],
'$romance' => [ 'romance' , L10n :: t ( 'Love/romance' ), $r [ 0 ][ 'romance' ]],
'$work' => [ 'work' , L10n :: t ( 'Work/employment' ), $r [ 0 ][ 'work' ]],
'$education' => [ 'education' , L10n :: t ( 'School/education' ), $r [ 0 ][ 'education' ]],
'$contact' => [ 'contact' , L10n :: t ( 'Contact information and Social Networks' ), $r [ 0 ][ 'contact' ]],
2018-01-15 08:05:12 -05:00
]);
$arr = [ 'profile' => $r [ 0 ], 'entry' => $o ];
2018-12-26 01:06:24 -05:00
Hook :: callAll ( 'profile_edit' , $arr );
2011-01-20 18:30:45 -05:00
2010-07-01 19:48:07 -04:00
return $o ;
2017-03-23 18:05:53 -04:00
} else {
// If we don't support multi profiles, don't display this list.
2017-12-04 09:01:27 -05:00
if ( ! Feature :: isEnabled ( local_user (), 'multi_profiles' )) {
2017-03-23 18:05:53 -04:00
$r = q ( " SELECT * FROM `profile` WHERE `uid` = %d AND `is-default`=1 " ,
2014-06-27 19:30:10 -04:00
local_user ()
);
2018-07-21 08:46:04 -04:00
if ( DBA :: isResult ( $r )) {
2014-06-27 19:30:10 -04:00
//Go to the default profile.
2018-10-19 14:11:27 -04:00
$a -> internalRedirect ( 'profiles/' . $r [ 0 ][ 'id' ]);
2014-06-27 19:30:10 -04:00
}
}
2015-10-25 04:15:36 -04:00
2012-06-18 15:18:43 -04:00
$r = q ( " SELECT * FROM `profile` WHERE `uid` = %d " ,
2010-11-24 19:35:35 -05:00
local_user ());
2017-03-23 18:05:53 -04:00
2018-07-21 08:46:04 -04:00
if ( DBA :: isResult ( $r )) {
2015-10-25 04:15:36 -04:00
2018-10-31 10:44:06 -04:00
$tpl = Renderer :: getMarkupTemplate ( 'profile_entry.tpl' );
2016-12-20 15:15:53 -05:00
$profiles = '' ;
foreach ( $r as $rr ) {
2018-10-31 10:35:50 -04:00
$profiles .= Renderer :: replaceMacros ( $tpl , [
2018-10-09 13:58:58 -04:00
'$photo' => $a -> removeBaseURL ( $rr [ 'thumb' ]),
2016-12-20 15:15:53 -05:00
'$id' => $rr [ 'id' ],
2018-01-22 09:16:25 -05:00
'$alt' => L10n :: t ( 'Profile Image' ),
2011-04-13 00:21:33 -04:00
'$profile_name' => $rr [ 'profile-name' ],
2018-01-22 09:16:25 -05:00
'$visible' => (( $rr [ 'is-default' ]) ? '<strong>' . L10n :: t ( 'visible to everybody' ) . '</strong>'
: '<a href="' . 'profperm/' . $rr [ 'id' ] . '" />' . L10n :: t ( 'Edit visibility' ) . '</a>' )
2018-01-15 08:05:12 -05:00
]);
2010-07-01 19:48:07 -04:00
}
2016-06-10 05:24:38 -04:00
2018-10-31 10:44:06 -04:00
$tpl_header = Renderer :: getMarkupTemplate ( 'profile_listing_header.tpl' );
2018-10-31 10:35:50 -04:00
$o .= Renderer :: replaceMacros ( $tpl_header ,[
2018-01-22 09:16:25 -05:00
'$header' => L10n :: t ( 'Edit/Manage Profiles' ),
'$chg_photo' => L10n :: t ( 'Change profile photo' ),
'$cr_new' => L10n :: t ( 'Create New Profile' ),
2018-10-17 16:35:49 -04:00
'$cr_new_link' => 'profiles/new?t=' . BaseModule :: getFormSecurityToken ( " profile_new " ),
2016-12-20 15:15:53 -05:00
'$profiles' => $profiles
2018-01-15 08:05:12 -05:00
]);
2010-07-01 19:48:07 -04:00
}
return $o ;
}
2016-02-07 09:11:34 -05:00
2011-05-23 05:39:57 -04:00
}