/**
* The UI to edit a configuration page.
*
* @return tempcode The UI
*/
function config_category()
{
require_javascript('javascript_validation');
/*$GLOBALS['HELPER_PANEL_PIC']='pagepics/config';
$GLOBALS['HELPER_PANEL_TUTORIAL']='tut_adv_configuration';*/
$page = get_param('id');
$title = get_page_title(do_lang_tempcode('CONFIG_CATEGORY_' . $page), false);
$post_url = build_url(array('page' => '_SELF', 'type' => 'set', 'id' => $page, 'redirect' => get_param('redirect', NULL)), '_SELF');
$category_description = do_lang_tempcode('CONFIG_CATEGORY_DESCRIPTION__' . $page);
$rows = $GLOBALS['SITE_DB']->query_select('config', array('*'), array('the_page' => $page));
// Addin special ones
if ($page == 'SITE') {
$rows[] = array('the_name' => 'timezone', 'human_name' => 'TIME_ZONE', 'config_value' => '', 'the_type' => 'special', 'eval' => '', 'the_page' => 'SITE', 'section' => 'GENERAL', 'explanation' => '', 'shared_hosting_restricted' => 0);
}
/*global $M_SORT_KEY; This is a lame sort - it doesn't preserve internal order
$M_SORT_KEY='section';
usort($rows,'multi_sort');*/
// Better sort
$all_known_groups = array();
foreach ($rows as $myrow) {
$_group = do_lang($myrow['section'], NULL, NULL, NULL, NULL, false);
if (is_null($_group)) {
$_group = $myrow['section'];
}
$_group = strtolower(trim(preg_replace('#(&.*;)|[^\\w\\d\\s]#U', '', $_group)));
if (array_key_exists($_group, $all_known_groups) && $all_known_groups[$_group] != $myrow['section']) {
$_group = 'std_' . $myrow['section'];
}
// If cat names translate to same things or are in non-latin characters like Cyrillic
$all_known_groups[$_group] = $myrow['section'];
}
$old_rows = $rows;
$rows = array();
ksort($all_known_groups);
foreach ($all_known_groups as $group_codename) {
foreach ($old_rows as $myrow) {
if ($myrow['section'] == $group_codename) {
$rows[] = $myrow;
}
}
}
// Move advanced group options to the end
$rows2 = array();
foreach ($rows as $i => $row) {
if ($row['section'] == 'ADVANCED') {
$rows2[] = $row;
unset($rows[$i]);
}
}
$rows = array_merge($rows, $rows2);
// UI hooks
$ui_hooks = find_all_hooks('modules', 'admin_config');
$upload_max_filesize = ini_get('upload_max_filesize') == '0' ? do_lang('NA') : clean_file_size(php_return_bytes(ini_get('upload_max_filesize')));
$post_max_size = ini_get('post_max_size') == '0' ? do_lang('NA') : clean_file_size(php_return_bytes(ini_get('post_max_size')));
$groups = new ocp_tempcode();
require_code('form_templates');
$current_group = '';
$out = '';
$_groups = array();
foreach ($rows as $myrow) {
if ($myrow['eval'] != '' && $myrow['the_name'] != 'detect_lang_forum') {
if (defined('HIPHOP_PHP')) {
require_code('hooks/systems/config_default/' . $myrow['the_name']);
$hook = object_factory('Hook_config_default_' . $myrow['the_name']);
if (is_null($hook->get_default())) {
continue;
}
} else {
$GLOBALS['REQUIRE_LANG_LOOP'] = 10;
// LEGACY Workaround for corrupt webhost installers
if (is_null(@eval($myrow['eval'] . ';'))) {
continue;
}
// @'d in case default is corrupt, don't want it to give errors forever
$GLOBALS['REQUIRE_LANG_LOOP'] = 0;
// LEGACY
}
}
$_group = do_lang($myrow['section'], NULL, NULL, NULL, NULL, false);
$name = do_lang($myrow['human_name'], NULL, NULL, NULL, NULL, false);
$_group_tempcode = is_null($_group) ? make_string_tempcode($myrow['section']) : do_lang_tempcode($myrow['section']);
$name_tempcode = is_null($name) ? make_string_tempcode($myrow['human_name']) : do_lang_tempcode($myrow['human_name']);
if (get_forum_type() == 'ocf' && $myrow['explanation'] == 'CONFIG_OPTION_forum_in_portal') {
$exp_string = $myrow['explanation'] . '__ocf';
} else {
$exp_string = $myrow['explanation'];
}
$_explanation = do_lang($exp_string, NULL, NULL, NULL, NULL, false);
if (is_null($_explanation)) {
$_explanation = do_lang('CONFIG_GROUP_DEFAULT_DESCRIP_' . $myrow['section'], NULL, NULL, NULL, NULL, false);
if (is_null($_explanation)) {
$explanation = new ocp_tempcode();
} else {
$explanation = do_lang_tempcode('CONFIG_GROUP_DEFAULT_DESCRIP_' . $myrow['section']);
}
} else {
$explanation = do_lang_tempcode($exp_string);
}
if ($myrow['shared_hosting_restricted'] == 1 && !is_null($GLOBALS['CURRENT_SHARE_USER'])) {
continue;
}
if ($myrow['section'] != $current_group && $current_group != '') {
$_current_group = do_lang_tempcode($current_group);
$_group_description = do_lang('CONFIG_GROUP_DESCRIP_' . $current_group, escape_html($post_max_size), escape_html($upload_max_filesize), NULL, NULL, false);
if (is_null($_group_description)) {
$group_description = new ocp_tempcode();
} else {
$group_description = do_lang_tempcode('CONFIG_GROUP_DESCRIP_' . $current_group, escape_html($post_max_size), escape_html($upload_max_filesize));
}
$group = do_template('CONFIG_GROUP', array('_GUID' => 'af4c31daa1bc39714ab83b11bd6d3e51', 'GROUP_DESCRIPTION' => $group_description, 'GROUP_NAME' => $current_group, 'GROUP' => $out, 'CURRENT_GROUP' => $_current_group));
$groups->attach($group->evaluate());
$out = '';
}
$_groups[$myrow['section']] = $_group_tempcode;
switch ($myrow['the_type']) {
case 'special':
switch ($myrow['the_name']) {
case 'timezone':
$list = '';
$timezone = get_site_timezone();
foreach (get_timezone_list() as $_timezone => $timezone_nice) {
$list .= static_evaluate_tempcode(form_input_list_entry($_timezone, $_timezone == $timezone, $timezone_nice));
}
$out .= static_evaluate_tempcode(form_input_list(do_lang_tempcode('TIME_ZONE'), do_lang_tempcode('DESCRIPTION_TIMEZONE_SITE'), 'timezone', make_string_tempcode($list)));
break;
default:
require_code('hooks/modules/admin_config/' . filter_naughty_harsh($myrow['the_name']));
$hook_ob = object_factory('Hook_admin_config_' . filter_naughty_harsh($myrow['the_name']));
$out .= static_evaluate_tempcode($hook_ob->run($myrow));
break;
}
break;
case 'integer':
$out .= static_evaluate_tempcode(form_input_integer($name_tempcode, $explanation, $myrow['the_name'], intval(get_option($myrow['the_name'])), false));
break;
case 'line':
if (strpos($myrow['the_name'], 'colour') !== false && substr(get_option($myrow['the_name']), 0, 1) == '#') {
$out .= static_evaluate_tempcode(form_input_colour($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']), false, NULL, true));
} elseif ($myrow['the_name'] == 'currency') {
$list = '';
require_code('currency');
$currencies = array_keys(get_currency_map());
foreach ($currencies as $currency) {
$list .= static_evaluate_tempcode(form_input_list_entry($currency, $currency == get_option($myrow['the_name'])));
}
$out .= static_evaluate_tempcode(form_input_list($name_tempcode, $explanation, $myrow['the_name'], make_string_tempcode($list)));
} elseif ($myrow['the_name'] == 'payment_gateway') {
$list = '';
$all_via = find_all_hooks('systems', 'ecommerce_via');
foreach (array_keys($all_via) as $via) {
$list .= static_evaluate_tempcode(form_input_list_entry($via, $via == get_option($myrow['the_name'])));
}
$out .= static_evaluate_tempcode(form_input_list($name_tempcode, $explanation, $myrow['the_name'], make_string_tempcode($list)));
} else {
/*if (strpos($myrow['the_name'],'password')!==false) password fields can't take defaults
$out.=static_evaluate_tempcode(form_input_password($name_tempcode,$explanation,$myrow['the_name'],get_option($myrow['the_name']),false));
else
*/
$out .= static_evaluate_tempcode(form_input_line($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']), false));
}
break;
case 'list':
$list = '';
$_value = get_option($myrow['the_name']);
$values = explode('|', $myrow['c_data']);
foreach ($values as $value) {
$_option_text = do_lang('CONFIG_OPTION_' . $myrow['the_name'] . '_VALUE_' . $value, NULL, NULL, NULL, NULL, false);
if (!is_null($_option_text)) {
$option_text = do_lang_tempcode('CONFIG_OPTION_' . $myrow['the_name'] . '_VALUE_' . $value);
} else {
$option_text = make_string_tempcode($value);
}
$list .= static_evaluate_tempcode(form_input_list_entry($value, $_value == $value, $option_text));
}
$out .= static_evaluate_tempcode(form_input_list($name_tempcode, $explanation, $myrow['the_name'], make_string_tempcode($list), NULL, false, false));
break;
case 'transline':
$out .= static_evaluate_tempcode(form_input_line($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']), false));
break;
case 'text':
$out .= static_evaluate_tempcode(form_input_text($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']), false, NULL, true));
break;
case 'transtext':
$out .= static_evaluate_tempcode(form_input_text($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']), false, NULL, true));
break;
case 'float':
$out .= static_evaluate_tempcode(form_input_float($name_tempcode, $explanation, $myrow['the_name'], floatval(get_option($myrow['the_name'])), false));
break;
case 'tick':
$out .= static_evaluate_tempcode(form_input_tick($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']) == '1'));
break;
case 'date':
$out .= static_evaluate_tempcode(form_input_date($name_tempcode, $explanation, $myrow['the_name'], false, false, false, intval(get_option($myrow['the_name'])), 40, intval(date('Y')) - 20, NULL, false));
break;
case 'forum':
case '?forum':
if (get_forum_type() == 'ocf' && addon_installed('ocf_forum')) {
$current_setting = get_option($myrow['the_name']);
if (!is_numeric($current_setting)) {
$_current_setting = $GLOBALS['FORUM_DB']->query_value_null_ok('f_forums', 'id', array('f_name' => $current_setting));
if (is_null($_current_setting)) {
if ($myrow['the_type'] == '?forum') {
$current_setting = NULL;
} else {
$current_setting = strval(db_get_first_id());
attach_message(do_lang_tempcode('FORUM_CURRENTLY_UNSET', $name_tempcode), 'notice');
}
} else {
$current_setting = strval($_current_setting);
}
}
$out .= static_evaluate_tempcode(form_input_tree_list($name_tempcode, $explanation, $myrow['the_name'], NULL, 'choose_forum', array(), false, $current_setting));
} else {
$out .= static_evaluate_tempcode(form_input_line($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']), false));
}
break;
case 'category':
if (get_forum_type() == 'ocf') {
$tmp_value = $GLOBALS['FORUM_DB']->query_value_null_ok('f_categories', 'id', array('c_title' => get_option($myrow['the_name'])));
require_code('ocf_forums2');
$_list = ocf_nice_get_categories(NULL, $tmp_value);
$out .= static_evaluate_tempcode(form_input_list($name_tempcode, $explanation, $myrow['the_name'], $_list));
} else {
$out .= static_evaluate_tempcode(form_input_line($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']), false));
}
break;
case 'usergroup':
if (get_forum_type() == 'ocf') {
$tmp_value = $GLOBALS['FORUM_DB']->query_value_null_ok('f_groups g LEFT JOIN ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'translate t ON t.id=g.g_name', 'g.id', array('text_original' => get_option($myrow['the_name'])));
require_code('ocf_groups');
$_list = ocf_nice_get_usergroups($tmp_value);
$out .= static_evaluate_tempcode(form_input_list($name_tempcode, $explanation, $myrow['the_name'], $_list));
} else {
$out .= static_evaluate_tempcode(form_input_line($name_tempcode, $explanation, $myrow['the_name'], get_option($myrow['the_name']), false));
}
break;
}
$current_group = $myrow['section'];
}
if ($out != '') {
$_group_description = do_lang('CONFIG_GROUP_DESCRIP_' . $current_group, escape_html($post_max_size), escape_html($upload_max_filesize), NULL, NULL, false);
if (is_null($_group_description)) {
$group_description = new ocp_tempcode();
} else {
$group_description = do_lang_tempcode('CONFIG_GROUP_DESCRIP_' . $current_group, escape_html($post_max_size), escape_html($upload_max_filesize));
}
$group = do_template('CONFIG_GROUP', array('_GUID' => '84c0db86002a33a383a7c2e195dd3913', 'GROUP_DESCRIPTION' => $group_description, 'GROUP_NAME' => $current_group, 'GROUP' => $out, 'CURRENT_GROUP' => $_group_tempcode));
$groups->attach($group->evaluate());
}
list($warning_details, $ping_url) = handle_conflict_resolution();
breadcrumb_set_parents(array(array('_SELF:_SELF:misc', do_lang_tempcode('CONFIGURATION'))));
breadcrumb_set_self(do_lang_tempcode('CONFIG_CATEGORY_' . $page));
return do_template('CONFIG_CATEGORY_SCREEN', array('_GUID' => 'd01b28b71c38bbb52b6aaf877c7f7b0e', 'CATEGORY_DESCRIPTION' => $category_description, '_GROUPS' => $_groups, 'PING_URL' => $ping_url, 'WARNING_DETAILS' => $warning_details, 'TITLE' => $title, 'URL' => $post_url, 'GROUPS' => $groups, 'SUBMIT_NAME' => do_lang_tempcode('SAVE')));
}
/**
* The UI to create an automated what's new newsletter.
*
* @return tempcode The UI
*/
function automatic_whats_new()
{
$GLOBALS['HELPER_PANEL_PIC'] = 'pagepics/newsletter_from_changes';
$title = get_page_title('NEW_CONTENT');
$lang = choose_language($title);
if (is_object($lang)) {
return $lang;
}
if (post_param('message', '') != '') {
return $this->send_gui(post_param('message'));
}
$_hooks = find_all_hooks('modules', 'admin_newsletter');
$chosen_content = post_param_integer('chosen_content', 0);
if ($chosen_content == 0) {
require_code('form_templates');
require_lang('menus');
$fields = new ocp_tempcode();
$_cutoff_time = get_value('newsletter_whatsnew');
$cutoff_time = is_null($_cutoff_time) ? NULL : intval($_cutoff_time);
if (is_null($cutoff_time)) {
$cutoff_time = time() - 60 * 60 * 24 * 365 * 3;
}
$fields->attach(form_input_date(do_lang_tempcode('CUTOFF_DATE'), do_lang_tempcode('DESCRIPTION_CUTOFF_DATE'), 'cutoff', false, false, true, $cutoff_time, 3, intval(date('Y')) - 3, NULL, true));
//$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER',array('TITLE'=>do_lang_tempcode('CONTENT'))));
$fields->attach(form_input_tick(do_lang_tempcode('EMBED_FULL_ARTICLES'), do_lang_tempcode('DESCRIPTION_EMBED_FULL_ARTICLES'), 'in_full', post_param_integer('in_full', 0) == 1));
//$_fields=array();
$chosen_categories = '';
foreach (array_keys($_hooks) as $hook) {
require_code('hooks/modules/admin_newsletter/' . filter_naughty_harsh($hook));
$object = object_factory('Hook_whats_news_' . filter_naughty_harsh($hook), true);
if (is_null($object)) {
continue;
}
$done = false;
if (method_exists($object, 'choose_categories')) {
list($cats, $_title) = $object->choose_categories();
//$field=form_input_multi_list($_title,'','whatsnew_'.$hook.'_filter',$cats);
if (is_object($cats)) {
$cats = $cats->evaluate($lang);
}
$matches = array();
$num_matches = preg_match_all('#<option [^>]*value="([^"]*)"[^>]*>([^<]*)</option>#', $cats, $matches);
if ($num_matches < 500) {
for ($i = 0; $i < $num_matches; $i++) {
$hook_result = $object->run(0, $lang, $matches[1][$i]);
if ($hook_result == array()) {
continue;
}
list($hook_content, $_title) = $hook_result;
if (!$hook_content->is_empty()) {
$decoded = @html_entity_decode($matches[2][$i], ENT_QUOTES, get_charset());
$chosen_categories .= $_title . ': ' . trim($decoded) . ' [' . $hook . '/' . $matches[1][$i] . "]\n";
}
}
$done = true;
}
}
if (!$done) {
$new = $object->run(0, $lang, '');
if ($new != array()) {
list($hook_content, $_title) = $new;
if (!$hook_content->is_empty()) {
//$field=form_input_tick($_title,'','whatsnew_'.$hook.'_include',false);
$chosen_categories .= $_title . ' [' . $hook . "]\n";
}
}
}
//$_fields[$_title]=$field;
}
/*ksort($_fields);
foreach ($_fields as $field)
{
$fields->attach($field);
}*/
$fields->attach(form_input_huge(do_lang_tempcode('CONTENT'), do_lang('NEWSLETTER_CONTENT_SELECT'), 'chosen_categories', $chosen_categories, true));
$hidden = new ocp_tempcode();
$hidden->attach(form_input_hidden('chosen_content', '1'));
if (cron_installed()) {
$periodic_options = new ocp_tempcode();
$current_periodic_newsletters = $GLOBALS['SITE_DB']->query_select('newsletter_periodic', array('*'));
if (count($current_periodic_newsletters) == 0) {
$extra_help = do_lang('PERIODIC_NEWSLETTER_EMPTY');
$periodic_choice_name = do_lang('PERIODIC_CREATE');
$periodic_choice_help = do_lang('PERIODIC_CREATE_HELP');
$periodic_options->attach(form_input_list_entry('no_change', true, do_lang('DONT_MAKE_PERIODIC_NEWSLETTER'), false, false));
$periodic_options->attach(form_input_list_entry('make_periodic', false, do_lang('MAKE_PERIODIC_NEWSLETTER'), false, false));
} else {
$extra_help = do_lang('PERIODIC_NEWSLETTER_EXISTS');
$periodic_choice_name = do_lang('PERIODIC_REPLACE');
$periodic_choice_help = do_lang('PERIODIC_REPLACE_HELP');
$periodic_options->attach(form_input_list_entry('no_change', true, do_lang('LEAVE_PERIODIC_NEWSLETTER'), false, false));
$periodic_options->attach(form_input_list_entry('make_periodic', false, do_lang('MAKE_PERIODIC_NEWSLETTER'), false, false));
foreach ($current_periodic_newsletters as $current_periodic_newsletter) {
$periodic_options->attach(form_input_list_entry('remove_existing_' . strval($current_periodic_newsletter['id']), false, do_lang('REMOVE_PERIODIC', $current_periodic_newsletter['np_subject'], strval($current_periodic_newsletter['id'])), false, false));
$periodic_options->attach(form_input_list_entry('replace_existing_' . strval($current_periodic_newsletter['id']), false, do_lang('REPLACE_PERIODIC', $current_periodic_newsletter['np_subject'], strval($current_periodic_newsletter['id'])), false, false));
}
}
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang('PERIODIC_NEWSLETTER_SETTINGS'), 'HELP' => do_lang('PERIODIC_NEWSLETTER_HELP', $extra_help))));
$fields->attach(form_input_list($periodic_choice_name, $periodic_choice_help, 'periodic_choice', $periodic_options, NULL, false, false));
}
return do_template('FORM_SCREEN', array('SKIP_VALIDATION' => true, 'HIDDEN' => $hidden, 'TITLE' => $title, 'TEXT' => do_lang_tempcode('SELECT_CATEGORIES_WANTED'), 'FIELDS' => $fields, 'SUBMIT_NAME' => do_lang_tempcode('NEXT'), 'URL' => get_self_url(false, false, array('lang' => $lang))));
} else {
$cutoff_time = get_input_date('cutoff');
}
$matches = array();
// Bit of a hack, but we include the remove option here for simplicity
// It has a confirm screen
if (preg_match('#^remove\\_existing\\_(\\d+)$#', post_param('periodic_choice', ''), $matches) != 0) {
$hidden = new ocp_tempcode();
$hidden->attach(form_input_hidden('chosen_content', '1'));
$hidden->attach(form_input_hidden('periodic_choice', 'periodic_remove_confirmed_' . $matches[1]));
return do_template('PERIODIC_NEWSLETTER_REMOVE', array('TITLE' => get_page_title('REMOVE_PERIODIC_NEWSLETTER'), 'URL' => get_self_url(), 'HIDDEN' => $hidden));
}
// It has an actualiser
if (preg_match('#^periodic\\_remove\\_confirmed\\_(\\d+)$#', post_param('periodic_choice', ''), $matches) != 0) {
$GLOBALS['SITE_DB']->query_delete('newsletter_periodic', array('id' => intval($matches[1])), '', 1);
// We redirect back to the admin_newsletter main page
$url = build_url(array('page' => 'admin_newsletter', 'type' => 'misc', 'redirected' => '1'), get_module_zone('admin_newsletter'));
return redirect_screen(do_lang('PERIODIC_REMOVED'), $url, do_lang('PERIODIC_REMOVED_TEXT'));
}
$in_full = post_param_integer('in_full', 0) == 1;
$chosen_categories = post_param('chosen_categories');
$message = $this->generate_whats_new_comcode($chosen_categories, $in_full, $lang, $cutoff_time);
return $this->send_gui($message);
}
/**
* An interface for choosing between dates.
*
* @param tempcode The title to display.
* @param boolean Whether display is dependent on what we kept in our stats table.
* @param ?tempcode Extra fields to request (NULL: none).
* @param ?tempcode The message to show for date selection (NULL: default).
* @return tempcode The result of execution.
*/
function get_between($title, $stats_table = false, $extra_fields = NULL, $message = NULL)
{
require_code('form_templates');
$fields = new ocp_tempcode();
$month_start = utctime_to_usertime(mktime(0, 0, 0, intval(date('m')), 1, intval(date('Y'))));
$prior_month = intval(date('m')) - 1;
$prior_year = intval(date('Y'));
if ($prior_month == 0) {
$prior_month = 12;
$prior_year--;
}
$prior_month_start = utctime_to_usertime(mktime(0, 0, 0, $prior_month, 1, $prior_year));
$first_stat = $stats_table ? $GLOBALS['SITE_DB']->query_value_null_ok('stats', 'MIN(date_and_time)') : NULL;
if (is_null($first_stat)) {
$year_start = intval(date('Y')) - 5;
$years_ahead = 5;
$first_stat = time();
} else {
$year_start = intval(date('Y', $first_stat));
$years_ahead = intval(date('Y')) - $year_start;
}
if ($stats_table) {
if (utctime_to_usertime($first_stat) > $month_start) {
$prior_month_start = $first_stat;
$month_start = time();
}
}
$fields->attach(form_input_date(do_lang_tempcode('FROM'), do_lang_tempcode('TIME_RANGE_START'), 'time_start', true, false, false, $prior_month_start, $years_ahead, $year_start));
$fields->attach(form_input_date(do_lang_tempcode('TO'), do_lang_tempcode('TIME_RANGE_END'), 'time_end', true, false, false, $month_start, $years_ahead, $year_start));
if (!is_null($extra_fields)) {
$fields->attach($extra_fields);
}
$post_url = get_self_url(false, false, array('dated' => 1), false, true);
if (is_null($message)) {
$message = do_lang_tempcode($stats_table ? 'SELECT_STATS_RANGE' : '_SELECT_STATS_RANGE', escape_html(get_timezoned_date($first_stat, false)));
}
breadcrumb_set_parents(array(array('_SELF:_SELF:misc', do_lang_tempcode('SITE_STATISTICS'))));
return do_template('FORM_SCREEN', array('SKIP_VALIDATION' => true, 'GET' => true, 'TITLE' => $title, 'FIELDS' => $fields, 'TEXT' => $message, 'HIDDEN' => '', 'URL' => $post_url, 'SUBMIT_NAME' => do_lang_tempcode('CHOOSE')));
}
echo "<p>";
echo form_label('Date Format', 'account_date');
echo "<br />";
echo form_dropdown('account_date', $account_date_options, $account_date);
echo "</p>";
echo "<p>";
echo form_label('Financial Year Start', 'fy_start');
echo "<br />";
echo form_input_date($fy_start);
echo "<br />";
echo "<span class=\"form-help-text\">Warning : Financial Year Start cannot be changed later.<br />Format as per 'Date Foramt' selected abobe.</span>";
echo "</p>";
echo "<p>";
echo form_label('Financial Year End', 'fy_end');
echo "<br />";
echo form_input_date($fy_end);
echo "<br />";
echo "<span class=\"form-help-text\">Warning : Financial Year End cannot be changed later.<br />Format as per 'Date Foramt' selected abobe.</span>";
echo "</p>";
echo "<p>";
echo form_label('Timezone');
echo "<br />";
echo timezone_menu($account_timezone);
echo "</p>";
echo "<p>";
echo form_fieldset('Database Settings', array('class' => "fieldset-auto-width"));
echo "<p>";
echo form_checkbox('create_database', 1, $create_database) . " Create database if it does not exists";
echo "</p>";
echo "<p>";
echo form_label('Database Name', 'database_name');
/**
* Get the tempcode for the form to add a banner, with the information passed along to it via the parameters already added in.
*
* @param boolean Whether to simplify the banner interface (for the point-store buy process)
* @param ID_TEXT The name of the banner
* @param URLPATH The URL to the banner image
* @param URLPATH The URL to the site the banner leads to
* @param SHORT_TEXT The caption of the banner
* @param LONG_TEXT Any notes associated with the banner
* @param integer The banners "importance modulus"
* @range 1 max
* @param ?integer The number of hits the banner may have (NULL: not applicable for this banner type)
* @range 0 max
* @param SHORT_INTEGER The type of banner (0=permanent, 1=campaign, 2=default)
* @set 0 1 2
* @param ?TIME The banner expiry date (NULL: never expires)
* @param ?ID_TEXT The username of the banners submitter (NULL: current member)
* @param BINARY Whether the banner has been validated
* @param ID_TEXT The banner type (can be anything, where blank means 'normal')
* @param SHORT_TEXT The title text for the banner (only used for text banners, and functions as the 'trigger text' if the banner type is shown inline)
* @return tempcode The input field tempcode
*/
function get_banner_form_fields($simplified = false, $name = '', $image_url = '', $site_url = '', $caption = '', $notes = '', $importancemodulus = 3, $campaignremaining = 50, $the_type = 1, $expiry_date = NULL, $submitter = NULL, $validated = 1, $b_type = '', $title_text = '')
{
require_code('images');
$fields = new ocp_tempcode();
require_code('form_templates');
$fields->attach(form_input_codename(do_lang_tempcode('CODENAME'), do_lang_tempcode('DESCRIPTION_BANNER_NAME'), 'name', $name, true));
$fields->attach(form_input_line(do_lang_tempcode('DESTINATION_URL'), do_lang_tempcode('DESCRIPTION_BANNER_URL'), 'site_url', $site_url, false));
// Blank implies iframe
if (!$simplified) {
$types = nice_get_banner_types($b_type);
if ($types->is_empty()) {
warn_exit(do_lang_tempcode('NO_CATEGORIES'));
}
$fields->attach(form_input_list(do_lang_tempcode('_BANNER_TYPE'), do_lang_tempcode('_DESCRIPTION_BANNER_TYPE'), 'b_type', $types, NULL, false, false));
} else {
$fields->attach(form_input_hidden('b_type', $b_type));
}
if (has_specific_permission(get_member(), 'full_banner_setup')) {
$fields->attach(form_input_username(do_lang_tempcode('OWNER'), do_lang_tempcode('DESCRIPTION_SUBMITTER'), 'submitter', is_null($submitter) ? $GLOBALS['FORUM_DRIVER']->get_username(get_member()) : $submitter, false));
}
if (get_value('disable_staff_notes') !== '1') {
$fields->attach(form_input_text(do_lang_tempcode('NOTES'), do_lang_tempcode('DESCRIPTION_NOTES'), 'notes', $notes, false));
}
if (has_specific_permission(get_member(), 'bypass_validation_midrange_content', 'cms_banners')) {
if ($validated == 0) {
$validated = get_param_integer('validated', 0);
if ($validated == 1) {
attach_message(do_lang_tempcode('WILL_BE_VALIDATED_WHEN_SAVING'));
}
}
if (addon_installed('unvalidated')) {
$fields->attach(form_input_tick(do_lang_tempcode('VALIDATED'), do_lang_tempcode('DESCRIPTION_VALIDATED'), 'validated', $validated == 1));
}
}
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('SOURCE_MEDIA'))));
$fields->attach(form_input_upload(do_lang_tempcode('UPLOAD'), do_lang_tempcode('DESCRIPTION_UPLOAD_BANNER'), 'file', false, NULL, NULL, true, str_replace(' ', '', get_option('valid_images') . ',swf')));
$fields->attach(form_input_line(do_lang_tempcode('ALT_FIELD', do_lang_tempcode('IMAGE_URL')), do_lang_tempcode('DESCRIPTION_URL_BANNER'), 'image_url', $image_url, false));
$fields->attach(form_input_line_comcode(do_lang_tempcode('BANNER_TITLE_TEXT'), do_lang_tempcode('DESCRIPTION_BANNER_TITLE_TEXT'), 'title_text', $title_text, false));
$fields->attach(form_input_line_comcode(do_lang_tempcode('DESCRIPTION'), do_lang_tempcode('DESCRIPTION_BANNER_DESCRIPTION'), 'caption', $caption, false));
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('DEPLOYMENT_DETERMINATION'))));
if (has_specific_permission(get_member(), 'full_banner_setup')) {
$radios = new ocp_tempcode();
$radios->attach(form_input_radio_entry('the_type', strval(BANNER_PERMANENT), $the_type == BANNER_PERMANENT, do_lang_tempcode('BANNER_PERMANENT')));
$radios->attach(form_input_radio_entry('the_type', strval(BANNER_CAMPAIGN), $the_type == BANNER_CAMPAIGN, do_lang_tempcode('BANNER_CAMPAIGN')));
$radios->attach(form_input_radio_entry('the_type', strval(BANNER_DEFAULT), $the_type == BANNER_DEFAULT, do_lang_tempcode('BANNER_DEFAULT')));
$fields->attach(form_input_radio(do_lang_tempcode('DEPLOYMENT_AGREEMENT'), do_lang_tempcode('DESCRIPTION_BANNER_TYPE'), 'the_type', $radios));
$fields->attach(form_input_integer(do_lang_tempcode('HITS_ALLOCATED'), do_lang_tempcode('DESCRIPTION_HITS_ALLOCATED'), 'campaignremaining', $campaignremaining, false));
$total_importance = $GLOBALS['SITE_DB']->query_value_null_ok_full('SELECT SUM(importance_modulus) FROM ' . get_table_prefix() . 'banners WHERE ' . db_string_not_equal_to('name', $name));
if (is_null($total_importance)) {
$total_importance = 0;
}
$fields->attach(form_input_integer(do_lang_tempcode('IMPORTANCE_MODULUS'), do_lang_tempcode('DESCRIPTION_IMPORTANCE_MODULUS', strval($total_importance), strval($importancemodulus)), 'importancemodulus', $importancemodulus, true));
}
$fields->attach(form_input_date(do_lang_tempcode('EXPIRY_DATE'), do_lang_tempcode('DESCRIPTION_EXPIRY_DATE'), 'expiry_date', true, is_null($expiry_date), true, $expiry_date, 2));
return $fields;
}
/**
* The UI to download chat logs.
*
* @return tempcode The UI
*/
function chat_download_logs()
{
$title = get_page_title('CHAT_DOWNLOAD_LOGS');
$chatrooms = chat_get_all_rooms();
$select = new ocp_tempcode();
$select_by_default = get_param_integer('id', NULL);
foreach ($chatrooms as $value) {
$select->attach(form_input_list_entry(strval($value['id']), $value['id'] == $select_by_default, $value['room_name'], false));
}
$fields = new ocp_tempcode();
require_code('form_templates');
$fields->attach(form_input_list(do_lang_tempcode('ROOM_NAME'), do_lang_tempcode('CHAT_DOWNLOAD_LOGS_ROOM_NAME'), 'room_name', $select));
$fields->attach(form_input_date(do_lang_tempcode('CHAT_DOWNLOAD_LOGS_START_DATE'), do_lang_tempcode('CHAT_DOWNLOAD_LOGS_START_DATE_DESCRIPTION'), 'start', false, false, true, time() - 4 * 60 * 60, 26));
$fields->attach(form_input_date(do_lang_tempcode('CHAT_DOWNLOAD_LOGS_FINISH_DATE'), do_lang_tempcode('CHAT_DOWNLOAD_LOGS_FINISH_DATE_DESCRIPTION'), 'finish', false, false, true, time(), 26));
$posting_name = do_lang_tempcode('CHAT_DOWNLOAD_LOGS');
$posting_url = build_url(array('page' => '_SELF', 'type' => '_download_logs'), '_SELF', NULL, false, true);
if (count($chatrooms) == 0) {
inform_exit(do_lang_tempcode('NO_CATEGORIES'));
}
breadcrumb_set_parents(array(array('_SELF:_SELF:misc', do_lang_tempcode('CHAT_LOBBY'))));
return do_template('FORM_SCREEN', array('_GUID' => '6741ef01d1c6dd8d2de9be3290666db7', 'GET' => true, 'SKIP_VALIDATION' => true, 'HIDDEN' => '', 'TITLE' => $title, 'FIELDS' => $fields, 'SUBMIT_NAME' => $posting_name, 'URL' => $posting_url, 'TEXT' => ''));
}
/**
* Get form inputter.
*
* @param string The field name
* @param string The field description
* @param array The field details
* @param ?string The actual current value of the field (NULL: none)
* @param boolean Whether this is for a new entry
* @return ?tempcode The Tempcode for the input field (NULL: skip the field - it's not input)
*/
function get_field_inputter($_cf_name, $_cf_description, $field, $actual_value, $new)
{
$time = mixed();
if (is_null($actual_value) || $actual_value == '') {
$time = NULL;
} elseif (strpos(strtolower($actual_value), 'now') !== false) {
$time = time();
} else {
// Y-m-d H:i:s
$bits = explode(' ', $actual_value, 2);
$date_bits = explode(strpos($bits[0], '-') !== false ? '-' : '/', $bits[0], 3);
if (!array_key_exists(1, $date_bits)) {
$date_bits[1] = date('m');
}
if (!array_key_exists(2, $date_bits)) {
$date_bits[2] = date('Y');
}
if (!array_key_exists(1, $bits)) {
$bits[1] = '0';
}
$time_bits = explode(':', $bits[1], 3);
if (!array_key_exists(1, $time_bits)) {
$time_bits[1] = '00';
}
if (!array_key_exists(2, $time_bits)) {
$time_bits[2] = '00';
}
//$time=mktime(intval($time_bits[0]),intval($time_bits[1]),intval($time_bits[2]),intval($date_bits[1]),intval($date_bits[2]),intval($date_bits[0]));
$time = array(intval($time_bits[1]), intval($time_bits[0]), intval($date_bits[1]), intval($date_bits[2]), intval($date_bits[0]));
}
/*
$min_year=1902; // 1902 is based on signed integer limit
$max_year=2037; // 2037 is based on signed integer limit
$years_to_show=$max_year-$min_year;
^^^ NONSENSE: Integers not used to save!
*/
$min_year = NULL;
$years_to_show = NULL;
return form_input_date($_cf_name, $_cf_description, 'field_' . strval($field['id']), $field['cf_required'] == 0, $field['cf_required'] == 0 && $actual_value == '', true, $time, $years_to_show, $min_year);
}
/**
* Get form fields for adding/editing/finishing a member profile.
*
* @param boolean Whether we are only handling the essential details of a profile.
* @param ?MEMBER The ID of the member we are handling (NULL: new member).
* @param ?array A list of usergroups (NULL: default/current usergroups).
* @param SHORT_TEXT The e-mail address.
* @param BINARY Whether posts are previewed before they are made.
* @param ?integer Day of date of birth (NULL: not known).
* @param ?integer Month of date of birth (NULL: not known).
* @param ?integer Year of date of birth (NULL: not known).
* @param ?ID_TEXT The member timezone (NULL: site default).
* @param ?ID_TEXT The members default theme (NULL: not known).
* @param BINARY Whether the members age may be shown.
* @param BINARY Whether the member sees signatures in posts.
* @param ?BINARY Whether the member automatically is enabled for notifications for content they contribute to (NULL: get default from config).
* @param ?LANGUAGE_NAME The members language (NULL: auto detect).
* @param BINARY Whether the member allows e-mails via the site.
* @param BINARY Whether the member allows e-mails from staff via the site.
* @param BINARY Whether the profile has been validated.
* @param ?GROUP The members primary (NULL: not known).
* @param SHORT_TEXT The username.
* @param BINARY Whether the member is permanently banned.
* @param ID_TEXT The special type of profile this is (blank: not a special type).
* @param BINARY Whether the member likes to view zones without menus, when a choice is available.
* @param BINARY Whether the member username will be highlighted.
* @param SHORT_TEXT Usergroups that may PT the member.
* @param LONG_TEXT Rules that other members must agree to before they may start a PT with the member.
* @param ?TIME When the member is on probation until (NULL: just finished probation / or effectively was never on it)
* @return array A pair: The form fields, Hidden fields (both Tempcode).
*/
function ocf_get_member_fields_settings($mini_mode = true, $member_id = NULL, $groups = NULL, $email_address = '', $preview_posts = 0, $dob_day = NULL, $dob_month = NULL, $dob_year = NULL, $timezone = NULL, $theme = NULL, $reveal_age = 1, $views_signatures = 1, $auto_monitor_contrib_content = NULL, $language = NULL, $allow_emails = 1, $allow_emails_from_staff = 1, $validated = 1, $primary_group = NULL, $username = '', $is_perm_banned = 0, $special_type = '', $zone_wide = 1, $highlighted_name = 0, $pt_allow = '*', $pt_rules_text = '', $on_probation_until = NULL)
{
if (is_null($auto_monitor_contrib_content)) {
$auto_monitor_contrib_content = get_value('no_auto_notifications') === '1' ? 0 : 1;
}
$hidden = new ocp_tempcode();
if (has_actual_page_access(get_member(), 'admin_ocf_join')) {
$dob_optional = true;
} else {
$dob_optional = get_option('no_dob_ask') == '2';
}
if ($member_id === $GLOBALS['OCF_DRIVER']->get_guest_id()) {
fatal_exit(do_lang_tempcode('INTERNAL_ERROR'));
}
require_code('form_templates');
require_code('encryption');
if ($special_type == '' && !is_null($member_id)) {
if (ocf_is_ldap_member($member_id)) {
$special_type = 'ldap';
}
if (ocf_is_httpauth_member($member_id)) {
$special_type = 'httpauth';
}
if ($GLOBALS['FORUM_DRIVER']->get_member_row_field($member_id, 'm_password_compat_scheme') == 'remote') {
$special_type = 'remote';
}
}
if (is_null($groups)) {
$groups = is_null($member_id) ? ocf_get_all_default_groups(true) : $GLOBALS['OCF_DRIVER']->get_members_groups($member_id);
}
$fields = new ocp_tempcode();
// Human name / Username
if ($special_type != 'ldap' && $special_type != 'remote' && $GLOBALS['FORUM_DRIVER']->get_member_row_field($member_id, 'm_password_compat_scheme') != 'facebook') {
if (is_null($member_id) || has_actual_page_access(get_member(), 'admin_ocf_join') || has_specific_permission($member_id, 'rename_self')) {
if (get_option('signup_fullname') == '1') {
$fields->attach(form_input_line(do_lang_tempcode('NAME'), do_lang_tempcode('_DESCRIPTION_NAME'), is_null($member_id) ? 'username' : 'edit_username', $username, true));
} else {
$prohibit_username_whitespace = get_option('prohibit_username_whitespace', true);
if ($prohibit_username_whitespace == '1') {
$fields->attach(form_input_codename(do_lang_tempcode('USERNAME'), do_lang_tempcode('DESCRIPTION_USERNAME'), is_null($member_id) ? 'username' : 'edit_username', $username, true));
} else {
$fields->attach(form_input_line(do_lang_tempcode('USERNAME'), do_lang_tempcode('DESCRIPTION_USERNAME'), is_null($member_id) ? 'username' : 'edit_username', $username, true));
}
}
}
}
// Password
if ($special_type == '') {
if (is_null($member_id) || $member_id == get_member() || has_specific_permission(get_member(), 'assume_any_member')) {
$fields->attach(form_input_password(do_lang_tempcode('PASSWORD'), do_lang_tempcode('DESCRIPTION_PASSWORD' . (!is_null($member_id) ? '_EDIT' : '')), is_null($member_id) ? 'password' : 'edit_password', $mini_mode));
$fields->attach(form_input_password(do_lang_tempcode('CONFIRM_PASSWORD'), '', 'password_confirm', $mini_mode));
}
}
// E-mail address
if ($email_address == '') {
$email_address = trim(get_param('email_address', ''));
}
if ($special_type != 'remote') {
$fields->attach(form_input_email(do_lang_tempcode('EMAIL_ADDRESS'), get_option('skip_email_confirm_join') == '1' ? new ocp_tempcode() : do_lang_tempcode('MUST_BE_REAL_ADDRESS'), 'email_address', $email_address, !has_specific_permission(get_member(), 'member_maintenance')));
if (is_null($member_id) && $email_address == '' && get_option('skip_email_confirm_join') == '0') {
$fields->attach(form_input_email(do_lang_tempcode('CONFIRM_EMAIL_ADDRESS'), '', 'email_address_confirm', '', !has_specific_permission(get_member(), 'member_maintenance')));
}
}
// DOB
$default_time = is_null($dob_month) ? NULL : usertime_to_utctime(mktime(0, 0, 0, $dob_month, $dob_day, $dob_year));
if (get_option('no_dob_ask') != '1') {
$fields->attach(form_input_date(do_lang_tempcode(get_option('no_dob_ask') == '2' ? 'BIRTHDAY' : 'DATE_OF_BIRTH'), '', 'dob', $dob_optional, false, false, $default_time, -130));
if (addon_installed('ocf_forum')) {
$fields->attach(form_input_tick(do_lang_tempcode('RELATED_FIELD', do_lang_tempcode('REVEAL_AGE')), do_lang_tempcode('DESCRIPTION_REVEAL_AGE'), 'reveal_age', $reveal_age == 1));
}
}
// Work out what options we need to present
$doing_international = get_option('allow_international') == '1' && $special_type != 'remote';
$_langs = find_all_langs();
$doing_langs = multi_lang() && $special_type != 'remote';
$doing_email_option = get_option('allow_email_disable') == '1';
$doing_email_from_staff_option = get_option('allow_email_from_staff_disable') == '1';
$unspecced_width_zone_exists = $GLOBALS['SITE_DB']->query_value_null_ok('zones', 'zone_name', array('zone_wide' => NULL));
$unspecced_theme_zone_exists = $GLOBALS['SITE_DB']->query_value_null_ok_full('SELECT COUNT(*) FROM ' . get_table_prefix() . 'zones WHERE ' . db_string_equal_to('zone_theme', '') . ' OR ' . db_string_equal_to('zone_theme', '-1'));
$doing_wide_option = $special_type != 'remote' && !is_null($unspecced_width_zone_exists) && !$mini_mode;
$doing_theme_option = $unspecced_theme_zone_exists != 0 && !$mini_mode;
$doing_local_forum_options = addon_installed('ocf_forum') && $special_type != 'remote' && !$mini_mode;
if ($doing_international || $doing_langs || $doing_email_option || $doing_wide_option || $doing_theme_option || $doing_local_forum_options) {
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('FORCE_OPEN' => is_null($member_id) ? true : NULL, 'TITLE' => do_lang_tempcode('SETTINGS'))));
}
require_lang('config');
// Timezones, if enabled
if ($doing_international) {
$timezone_list = nice_get_timezone_list($timezone);
$fields->attach(form_input_list(do_lang_tempcode('TIME_ZONE'), do_lang_tempcode('DESCRIPTION_TIMEZONE_MEMBER'), 'timezone', $timezone_list));
}
// Language choice, if we have multiple languages on site
if ($doing_langs) {
$lang_list = new ocp_tempcode();
$no_lang_set = is_null($language) || $language == '';
$allow_no_lang_set = get_value('allow_no_lang_selection') === '1';
if ($allow_no_lang_set) {
$lang_list->attach(form_input_list_entry('', $no_lang_set, do_lang_tempcode('UNSET')));
} else {
if ($no_lang_set) {
$language = user_lang();
}
}
$lang_list->attach(nice_get_langs($language));
$fields->attach(form_input_list(do_lang_tempcode('LANGUAGE'), '', 'language', $lang_list, NULL, false, !$allow_no_lang_set));
}
// Email privacy
if ($doing_email_option) {
$fields->attach(form_input_tick(do_lang_tempcode('ALLOW_EMAILS'), do_lang_tempcode('DESCRIPTION_ALLOW_EMAILS'), 'allow_emails', $allow_emails == 1));
}
if ($doing_email_from_staff_option) {
$fields->attach(form_input_tick(do_lang_tempcode('ALLOW_EMAILS_FROM_STAFF'), do_lang_tempcode('DESCRIPTION_ALLOW_EMAILS_FROM_STAFF'), 'allow_emails_from_staff', $allow_emails_from_staff == 1));
}
if (!$mini_mode) {
// Wide-option, if we have any zones giving a choice
require_lang('zones');
if ($doing_wide_option) {
$fields->attach(form_input_tick(do_lang_tempcode('WIDE'), do_lang_tempcode('DESCRIPTION_MEMBER_ZONE_WIDE'), 'zone_wide', $zone_wide == 1));
}
// Theme, if we have any zones giving a choice
require_code('themes2');
$entries = nice_get_themes($theme, false, false, 'RELY_SITE_DEFAULT');
require_lang('themes');
if ($doing_theme_option) {
$fields->attach(form_input_list(do_lang_tempcode('THEME'), do_lang_tempcode('DESCRIPTION_THEME'), 'theme', $entries));
}
// Various forum options
if (addon_installed('ocf_forum')) {
if ($special_type != 'remote') {
if (get_option('forced_preview_option') == '1') {
$fields->attach(form_input_tick(do_lang_tempcode('PREVIEW_POSTS'), do_lang_tempcode('DESCRIPTION_PREVIEW_POSTS'), 'preview_posts', $preview_posts == 1));
}
if (get_value('disable_views_sigs_option') !== '1') {
if (addon_installed('ocf_signatures')) {
$fields->attach(form_input_tick(do_lang_tempcode('VIEWS_SIGNATURES'), do_lang_tempcode('DESCRIPTION_VIEWS_SIGNATURES'), 'views_signatures', $views_signatures == 1));
}
} else {
$hidden->attach(form_input_hidden('views_signatures', '1'));
}
//$fields->attach(form_input_tick(do_lang_tempcode('AUTO_NOTIFICATION_CONTRIB_CONTENT'),do_lang_tempcode('DESCRIPTION_AUTO_NOTIFICATION_CONTRIB_CONTENT'),'auto_monitor_contrib_content',$auto_monitor_contrib_content==1));
$usergroup_list = new ocp_tempcode();
$lgroups = $GLOBALS['OCF_DRIVER']->get_usergroup_list(true, true);
foreach ($lgroups as $key => $val) {
if ($key != db_get_first_id()) {
$usergroup_list->attach(form_input_list_entry(strval($key), $pt_allow == '*' || count(array_intersect(array(strval($key)), explode(',', $pt_allow))) != 0, $val));
}
}
if (get_value('disable_pt_restrict') !== '1') {
$fields->attach(form_input_multi_list(do_lang_tempcode('PT_ALLOW'), addon_installed('chat') ? do_lang_tempcode('PT_ALLOW_DESCRIPTION_CHAT') : do_lang_tempcode('PT_ALLOW_DESCRIPTION'), 'pt_allow', $usergroup_list));
$fields->attach(form_input_text_comcode(do_lang_tempcode('PT_RULES_TEXT'), do_lang_tempcode('PT_RULES_TEXT_DESCRIPTION'), 'pt_rules_text', $pt_rules_text, false));
}
}
}
// Prepare list of usergroups, if maybe we are gonna let (a) usergroup-change field(s)
$group_count = $GLOBALS['FORUM_DB']->query_value('f_groups', 'COUNT(*)');
$rows = $GLOBALS['FORUM_DB']->query_select('f_groups', array('id', 'g_name', 'g_hidden', 'g_open_membership'), $group_count > 200 ? array('g_is_private_club' => 0) : NULL, 'ORDER BY g_order');
$_groups = new ocp_tempcode();
$default_primary_group = get_first_default_group();
$current_primary_group = NULL;
foreach ($rows as $group) {
if ($group['id'] != db_get_first_id()) {
$selected = $group['id'] == $primary_group || is_null($primary_group) && $group['id'] == $default_primary_group;
if ($selected) {
$current_primary_group = $group['id'];
}
$_groups->attach(form_input_list_entry(strval($group['id']), $selected, get_translated_text($group['g_name'], $GLOBALS['FORUM_DB'])));
}
}
// Some admin options...
if (has_specific_permission(get_member(), 'member_maintenance')) {
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('MEMBER_ACCESS'))));
// Probation
if (has_specific_permission(get_member(), 'probate_members')) {
$fields->attach(form_input_date(do_lang_tempcode('ON_PROBATION_UNTIL'), do_lang_tempcode('DESCRIPTION_ON_PROBATION_UNTIL'), 'on_probation_until', true, is_null($on_probation_until) || $on_probation_until <= time(), true, $on_probation_until, 2));
}
// Primary usergroup
if ($special_type != 'ldap') {
if (has_specific_permission(get_member(), 'assume_any_member')) {
if (is_null($member_id) || !$GLOBALS['FORUM_DRIVER']->is_super_admin($member_id) || count($GLOBALS['FORUM_DRIVER']->member_group_query($GLOBALS['FORUM_DRIVER']->get_super_admin_groups(), 2)) > 1) {
$fields->attach(form_input_list(do_lang_tempcode('PRIMARY_GROUP'), do_lang_tempcode('DESCRIPTION_PRIMARY_GROUP'), 'primary_group', $_groups));
}
}
}
}
// Secondary usergroups
if ($special_type != 'ldap') {
$_groups2 = new ocp_tempcode();
$members_groups = is_null($member_id) ? array() : $GLOBALS['OCF_DRIVER']->get_members_groups($member_id, false, false);
foreach ($rows as $group) {
if ($group['g_hidden'] == 1 && !array_key_exists($group['id'], $members_groups) && !has_specific_permission(get_member(), 'see_hidden_groups')) {
continue;
}
if ($group['id'] != db_get_first_id() && $group['id'] != $current_primary_group && (array_key_exists($group['id'], $members_groups) || has_specific_permission(get_member(), 'assume_any_member') || $group['g_open_membership'] == 1)) {
$selected = array_key_exists($group['id'], $members_groups);
$_groups2->attach(form_input_list_entry(strval($group['id']), $selected, get_translated_text($group['g_name'], $GLOBALS['FORUM_DB'])));
}
}
$sec_url = build_url(array('page' => 'groups', 'type' => 'misc'), get_module_zone('groups'));
if (!$_groups2->is_empty()) {
$fields->attach(form_input_multi_list(do_lang_tempcode('SECONDARY_GROUP_MEMBERSHIP'), do_lang_tempcode('DESCRIPTION_SECONDARY_GROUP', escape_html($sec_url->evaluate())), 'secondary_groups', $_groups2));
}
}
// Special admin options
if (has_specific_permission(get_member(), 'member_maintenance')) {
if ($validated == 0) {
$validated = get_param_integer('validated', 0);
if ($validated == 1) {
attach_message(do_lang_tempcode('WILL_BE_VALIDATED_WHEN_SAVING'));
}
}
if (addon_installed('unvalidated')) {
$fields->attach(form_input_tick(do_lang_tempcode('VALIDATED'), do_lang_tempcode('DESCRIPTION_MEMBER_VALIDATED'), 'validated', $validated == 1));
}
if (get_value('disable_highlight_name') !== '1') {
$fields->attach(form_input_tick(do_lang_tempcode('HIGHLIGHTED_NAME'), do_lang_tempcode(addon_installed('pointstore') ? 'DESCRIPTION_HIGHLIGHTED_NAME_P' : 'DESCRIPTION_HIGHLIGHTED_NAME'), 'highlighted_name', $highlighted_name == 1));
}
if (!is_null($member_id) && $member_id != get_member()) {
// Can't ban someone new, and can't ban yourself
$fields->attach(form_input_tick(do_lang_tempcode('_BANNED'), do_lang_tempcode('DESCRIPTION_MEMBER_BANNED'), 'is_perm_banned', $is_perm_banned == 1));
}
}
}
return array($fields, $hidden);
}
/**
* Get the tempcode for a date input, or if cron is not on, return blank.
*
* @param mixed A human intelligible name for this input field
* @param mixed A description for this input field
* @param ID_TEXT The parameter name stub for this input field (it's actually a composite field, read in by passing this stub to post_param_date)
* @param boolean Whether this is a required field
* @param boolean Whether this field is empty by default
* @param boolean Whether to input time for this field also
* @param ?mixed The default timestamp to use (either TIME or array of time components) (NULL: now)
* @param integer The number of years to allow selection from (all into the future, as this field type is not meant for inputting past dates)
* @param ?integer The year to start from (NULL: this year)
* @param ?integer The tab index of the field (NULL: not specified)
* @return tempcode The input field
*/
function form_input_date__scheduler($pretty_name, $description, $stub, $null_ok, $null_default, $do_time, $default_time = NULL, $total_years_to_show = 10, $year_start = NULL, $tabindex = NULL)
{
if (cron_installed()) {
return form_input_date($pretty_name, $description, $stub, $null_ok, $null_default, $do_time, $default_time, $total_years_to_show, $year_start, $tabindex);
}
return new ocp_tempcode();
}
/**
* An interface for choosing between dates.
*
* @param tempcode The title to display.
* @return tempcode The result of execution.
*/
function get_between($title)
{
require_code('form_templates');
$fields = new ocp_tempcode();
$month_start = array(0, 0, intval(date('m')), 1, intval(date('Y')));
$fields->attach(form_input_date(do_lang_tempcode('FROM'), '', 'from', false, false, false, $month_start, 10, intval(date('Y')) - 9));
$fields->attach(form_input_date(do_lang_tempcode('TO'), '', 'to', false, false, false, time(), 10, intval(date('Y')) - 9));
return do_template('FORM_SCREEN', array('_GUID' => '92888622a3ed6b7edbd4d1e5e2b35986', 'GET' => true, 'SKIP_VALIDATION' => true, 'TITLE' => $title, 'FIELDS' => $fields, 'TEXT' => '', 'HIDDEN' => '', 'URL' => get_self_url(false, false, NULL, false, true), 'SUBMIT_NAME' => do_lang_tempcode('CHOOSE')));
}
/**
* Get the form fields for an event input form.
*
* @param ?AUTO_LINK The event type (NULL: default)
* @param ?integer The year the event starts at (NULL: default)
* @param ?integer The month the event starts at (NULL: default)
* @param ?integer The day the event starts at (NULL: default)
* @param ?integer The hour the event starts at (NULL: default)
* @param ?integer The minute the event starts at (NULL: default)
* @param SHORT_TEXT The title of the event
* @param LONG_TEXT The full text describing the event
* @param SHORT_TEXT The recurrence code
* @param ?integer The number of recurrences (NULL: none/infinite)
* @param BINARY Whether to segregate the comment-topics/rating/trackbacks per-recurrence
* @param BINARY Whether it is a public event
* @param integer The priority
* @range 1 5
* @param ?integer The year the event ends at (NULL: not a multi day event)
* @param ?integer The month the event ends at (NULL: not a multi day event)
* @param ?integer The day the event ends at (NULL: not a multi day event)
* @param ?integer The hour the event ends at (NULL: not a multi day event)
* @param ?integer The minute the event ends at (NULL: not a multi day event)
* @param ?ID_TEXT The timezone for the event (NULL: current user's timezone)
* @param BINARY Whether the time should be presented in the viewer's own timezone
* @param BINARY Whether the event is validated
* @param ?BINARY Whether rating is allowed (NULL: decide statistically, based on existing choices)
* @param ?SHORT_INTEGER Whether comments are allowed (0=no, 1=yes, 2=review style) (NULL: decide statistically, based on existing choices)
* @param ?BINARY Whether trackbacks are allowed (NULL: decide statistically, based on existing choices)
* @param LONG_TEXT Notes
* @return array A tuple of: (fields, hidden-fields, delete-fields, edit-text, whether all delete fields are specified, posting form text, more fields)
*/
function get_form_fields($type = NULL, $start_year = NULL, $start_month = NULL, $start_day = NULL, $start_hour = NULL, $start_minute = NULL, $title = '', $content = '', $recurrence = 'none', $recurrences = NULL, $seg_recurrences = 0, $is_public = 1, $priority = 3, $end_year = NULL, $end_month = NULL, $end_day = NULL, $end_hour = NULL, $end_minute = NULL, $timezone = NULL, $do_timezone_conv = 0, $validated = 1, $allow_rating = NULL, $allow_comments = NULL, $allow_trackbacks = NULL, $notes = '')
{
list($allow_rating, $allow_comments, $allow_trackbacks) = $this->choose_feedback_fields_statistically($allow_rating, $allow_comments, $allow_trackbacks);
unset($content);
if (is_null($timezone) || $timezone == '') {
$timezone = get_users_timezone();
}
require_code('form_templates');
if (is_null($type)) {
global $NON_CANONICAL_PARAMS;
$NON_CANONICAL_PARAMS[] = 'date';
$NON_CANONICAL_PARAMS[] = 'e_type';
$NON_CANONICAL_PARAMS[] = 'validated';
$date = get_param('date', '');
$start_hour = NULL;
$start_minute = NULL;
if ($date != '') {
$date2 = explode(' ', $date);
$exploded = explode('-', $date2[0]);
//if (count($exploded)!=3) warn_exit(do_lang_tempcode('INTERNAL_ERROR'));
$start_year = intval($exploded[0]);
$start_month = intval($exploded[1]);
$start_day = intval($exploded[2]);
if (array_key_exists(1, $date2)) {
$exploded = explode(':', $date2[1]);
//if (count($exploded)!=2) warn_exit(do_lang_tempcode('INTERNAL_ERROR'));
$start_hour = intval($exploded[0]);
$start_minute = intval($exploded[1]);
}
} else {
list($start_year, $start_month, $start_day) = array(NULL, NULL, NULL);
}
$type = get_param_integer('e_type', -1);
if ($type == -1) {
$type = NULL;
}
$adding = true;
} else {
$adding = false;
}
if (is_null($type)) {
$type = db_get_first_id() + 1;
}
if (is_null($start_month)) {
$start_year = intval(date('Y'));
$start_month = intval(date('m'));
$start_day = intval(date('d'));
$start_hour = NULL;
$start_minute = NULL;
}
if ((is_null($end_year) || is_null($end_month) || is_null($end_day)) && $adding) {
$end_year = NULL;
//$start_year;
$end_month = NULL;
//$start_month;
$end_day = NULL;
//$start_day;
$end_hour = NULL;
$end_minute = NULL;
}
$fields = new ocp_tempcode();
$hidden = new ocp_tempcode();
$fields->attach(form_input_line(do_lang_tempcode('TITLE'), do_lang_tempcode('DESCRIPTION_TITLE'), 'title', $title, true));
//$fields->attach(form_input_text_comcode(do_lang_tempcode('EVENT_TEXT'),do_lang_tempcode('DESCRIPTION_EVENT_TEXT'),'content',$content,false));
// Type
$type_list = nice_get_event_types($type);
$fields->attach(form_input_list(do_lang_tempcode('TYPE'), do_lang_tempcode('DESCRIPTION_EVENT_TYPE'), 'type', $type_list));
// Dates
$fields->attach(form_input_tick(do_lang_tempcode('ALL_DAY_EVENT'), do_lang_tempcode('DESCRIPTION_ALL_DAY_EVENT'), 'all_day_event', is_null($start_hour)));
$fields->attach(form_input_date(do_lang_tempcode('DATE_TIME'), '', 'start', false, false, true, array(is_null($start_minute) ? find_timezone_start_minute_in_utc($timezone, $start_year, $start_month, $start_day) : $start_minute, is_null($start_hour) ? find_timezone_start_hour_in_utc($timezone, $start_year, $start_month, $start_day) : $start_hour, $start_month, $start_day, $start_year), 120, intval(date('Y')) - 100, NULL, NULL, true, $timezone, get_param('date', '') == ''));
$fields->attach(form_input_date(do_lang_tempcode('END_DATE_AND_TIME'), do_lang_tempcode('DESCRIPTION_END_DATE_AND_TIME'), 'end', true, is_null($end_year), true, array(is_null($end_minute) ? find_timezone_end_minute_in_utc($timezone, $end_year, $end_month, $end_day) : $end_minute, is_null($end_hour) ? find_timezone_end_hour_in_utc($timezone, $end_year, $end_month, $end_day) : $end_hour, $end_month, $end_day, $end_year), 120, intval(date('Y')) - 100, NULL, NULL, true, $timezone));
if ($validated == 0) {
$validated = get_param_integer('validated', 0);
}
if (has_some_cat_specific_permission(get_member(), 'bypass_validation_' . $this->permissions_require . 'range_content', NULL, $this->permissions_cat_require)) {
if (addon_installed('unvalidated')) {
$fields->attach(form_input_tick(do_lang_tempcode('VALIDATED'), do_lang_tempcode('DESCRIPTION_VALIDATED'), 'validated', $validated == 1));
}
}
$fields2 = new ocp_tempcode();
$fields2->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('SECTION_HIDDEN' => true, 'TITLE' => do_lang_tempcode('ADVANCED'))));
// More date stuff
$list = '';
foreach (get_timezone_list() as $_timezone => $timezone_nice) {
$list .= static_evaluate_tempcode(form_input_list_entry($_timezone, $_timezone == $timezone, $timezone_nice));
}
$fields2->attach(form_input_list(do_lang_tempcode('EVENT_TIMEZONE'), do_lang_tempcode('DESCRIPTION_EVENT_TIMEZONE'), 'timezone', make_string_tempcode($list)));
$fields2->attach(form_input_tick(do_lang_tempcode('DO_TIMEZONE_CONV'), do_lang_tempcode('DESCRIPTION_DO_TIMEZONE_CONV'), 'do_timezone_conv', $do_timezone_conv == 1));
if (has_specific_permission(get_member(), 'add_public_events')) {
$fields2->attach(form_input_tick(do_lang_tempcode('IS_PUBLIC'), do_lang_tempcode('DESCRIPTION_IS_PUBLIC'), 'is_public', $is_public == 1));
}
// Priority
$priority_list = new ocp_tempcode();
$priority_list->attach(form_input_list_entry('1', $priority == 1, do_lang_tempcode('PRIORITY_1')));
$priority_list->attach(form_input_list_entry('2', $priority == 2, do_lang_tempcode('PRIORITY_2')));
$priority_list->attach(form_input_list_entry('3', $priority == 3, do_lang_tempcode('PRIORITY_3')));
$priority_list->attach(form_input_list_entry('4', $priority == 4, do_lang_tempcode('PRIORITY_4')));
$priority_list->attach(form_input_list_entry('5', $priority == 5, do_lang_tempcode('PRIORITY_5')));
$fields2->attach(form_input_list(do_lang_tempcode('PRIORITY'), '', 'priority', $priority_list));
// Recurrence
$fields2->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('SECTION_HIDDEN' => true, 'TITLE' => do_lang_tempcode('RECURRENCE'))));
if (strpos($recurrence, ' ') === false) {
$recurrence_main = $recurrence;
$recurrence_pattern = '';
} else {
list($recurrence_main, $recurrence_pattern) = explode(' ', $recurrence);
}
$radios = form_input_radio_entry('recurrence', 'none', true, do_lang_tempcode('NA_EM'));
$radios->attach(form_input_radio_entry('recurrence', 'daily', $recurrence_main == 'daily', do_lang_tempcode('DAILY')));
$radios->attach(form_input_radio_entry('recurrence', 'weekly', $recurrence_main == 'weekly', do_lang_tempcode('WEEKLY')));
$radios->attach(form_input_radio_entry('recurrence', 'monthly', $recurrence_main == 'monthly', do_lang_tempcode('MONTHLY')));
$radios->attach(form_input_radio_entry('recurrence', 'yearly', $recurrence_main == 'yearly', do_lang_tempcode('YEARLY')));
$fields2->attach(form_input_radio(do_lang_tempcode('RECURRENCE'), do_lang_tempcode('DESCRIPTION_RECURRENCE'), 'recurrence', $radios));
// xth_dotw_of_monthly
$fields2->attach(form_input_line(do_lang_tempcode('RECURRENCE_PATTERN'), do_lang_tempcode('DESCRIPTION_RECURRENCE_PATTERN'), 'recurrence_pattern', $recurrence_pattern, false));
$fields2->attach(form_input_integer(do_lang_tempcode('RECURRENCES'), do_lang_tempcode('DESCRIPTION_RECURRENCES'), 'recurrences', $recurrences, false));
$fields2->attach(form_input_tick(do_lang_tempcode('SEG_RECURRENCES'), do_lang_tempcode('DESCRIPTION_SEG_RECURRENCES'), 'seg_recurrences', $seg_recurrences == 1));
if ($adding && cron_installed()) {
$fields2->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('SECTION_HIDDEN' => true, 'TITLE' => do_lang_tempcode('REMINDERS'))));
$fields2->attach(form_input_tick(do_lang_tempcode('SIGN_UP_REMINDER'), do_lang_tempcode('DESCRIPTION_SIGN_UP_REMINDER'), 'sign_up_reminder', true));
if (has_specific_permission(get_member(), 'add_public_events')) {
$usergroup_list = $GLOBALS['FORUM_DRIVER']->get_usergroup_list(true);
if (get_forum_type() == 'ocf') {
unset($usergroup_list[db_get_first_id()]);
}
$t_usergroup_list = new ocp_tempcode();
foreach ($usergroup_list as $id => $name) {
$t_usergroup_list->attach(form_input_list_entry(strval($id), false, $name));
}
$fields2->attach(form_input_all_and_not(do_lang_tempcode('SIGN_UP_REMINDER_GROUPS'), do_lang_tempcode('DESCRIPTION_SIGN_UP_REMINDER_GROUPS'), 'sign_up_reminder_groups', $t_usergroup_list));
}
$fields2->attach(form_input_float(do_lang_tempcode('REMINDER_TIME'), do_lang_tempcode('DESCRIPTION_REMINDER_TIME'), 'hours_before', 1.0, true));
}
require_code('feedback2');
$fields2->attach(feedback_fields($allow_rating == 1, $allow_comments == 1, $allow_trackbacks == 1, false, $notes, $allow_comments == 2));
$fields2->attach(get_syndication_option_fields());
return array($fields, $hidden, NULL, NULL, true, NULL, $fields2);
}
/**
* Get tempcode for a warning adding/editing form.
*
* @param boolean Whether it is a new warning/punishment record
* @param LONG_TEXT The explanation for the warning/punishment record
* @param BINARY Whether to make this a formal warning
* @param ?MEMBER The member the warning is for (NULL: get from environment)
* @return array A pair: the tempcode for the visible fields, and the tempcode for the hidden fields
*/
function get_form_fields($new = true, $explanation = '', $is_warning = 0, $member_id = NULL)
{
if (is_null($member_id)) {
$member_id = get_param_integer('id', get_member());
}
$hidden = new ocp_tempcode();
$fields = new ocp_tempcode();
require_code('form_templates');
// Information about their history, and the rules - to educate the warner/punisher
if ($new) {
$post_id = get_param_integer('post_id', NULL);
$hidden->attach(form_input_hidden('member_id', strval($member_id)));
$username = $GLOBALS['FORUM_DRIVER']->get_username($member_id);
$num_warnings = $GLOBALS['FORUM_DRIVER']->get_member_row_field($member_id, 'm_cache_warnings');
$_rules_url = build_url(array('page' => 'rules'), '_SEARCH');
$rules_url = $_rules_url->evaluate();
$_history_url = build_url(array('page' => '_SELF', 'type' => 'history', 'id' => $member_id), '_SELF');
$history_url = $_history_url->evaluate();
$profile_url = $GLOBALS['FORUM_DRIVER']->member_profile_url($member_id, false, true);
if (is_object($profile_url)) {
$profile_url = $profile_url->evaluate();
}
$this->add_text = do_lang_tempcode('HAS_ALREADY_X_WARNINGS', escape_html($username), integer_format($num_warnings), array(escape_html(get_site_name()), escape_html($rules_url), escape_html($history_url), escape_html($profile_url)));
}
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('MODULE_TRANS_NAME_warnings'))));
$fields->attach(form_input_tick(do_lang_tempcode('WHETHER_MAKE_WARNING'), do_lang_tempcode('DESCRIPTION_WHETHER_MAKE_WARNING'), 'is_warning', $is_warning == 1));
// Punitive actions
if ($new) {
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('PUNITIVE_ACTIONS'))));
if (!is_null($post_id)) {
$topic_id = $GLOBALS['FORUM_DB']->query_value_null_ok('f_posts', 'p_topic_id', array('id' => $post_id));
if (!is_null($topic_id)) {
$forum_id = $GLOBALS['FORUM_DB']->query_value('f_topics', 't_forum_id', array('id' => $topic_id));
$hidden->attach(form_input_hidden('topic_id', strval($topic_id)));
$hidden->attach(form_input_hidden('forum_id', strval($forum_id)));
$silence_topic_time = NULL;
//time()+60*60*24*7;
$silence_forum_time = NULL;
//time()+60*60*24*7;
$active_until = $GLOBALS['SITE_DB']->query_value_null_ok('msp', 'active_until', array('member_id' => $member_id, 'specific_permission' => 'submit_lowrange_content', 'the_page' => '', 'module_the_name' => 'topics', 'category_name' => strval($topic_id)));
if (!is_null($active_until)) {
$silence_topic_time = $active_until;
}
$active_until = $GLOBALS['SITE_DB']->query_value_null_ok('msp', 'active_until', array('member_id' => $member_id, 'specific_permission' => 'submit_lowrange_content', 'the_page' => '', 'module_the_name' => 'forums', 'category_name' => strval($forum_id)));
if (!is_null($active_until)) {
$silence_forum_time = $active_until;
}
$fields->attach(form_input_date(do_lang_tempcode('SILENCE_FROM_TOPIC'), do_lang_tempcode('DESCRIPTION_SILENCE_FROM_TOPIC'), 'silence_from_topic', true, true, true, $silence_topic_time, 2));
$fields->attach(form_input_date(do_lang_tempcode('SILENCE_FROM_FORUM'), do_lang_tempcode('DESCRIPTION_SILENCE_FROM_FORUM'), 'silence_from_forum', true, true, true, $silence_forum_time, 2));
}
}
if (has_specific_permission(get_member(), 'probate_members')) {
$fields->attach(form_input_integer(do_lang_tempcode('EXTEND_PROBATION'), do_lang_tempcode('DESCRIPTION_EXTEND_PROBATION'), 'probation', 0, true));
}
if (addon_installed('securitylogging')) {
if (has_actual_page_access(get_member(), 'admin_ipban')) {
$fields->attach(form_input_tick(do_lang_tempcode('WHETHER_BANNED_IP'), do_lang_tempcode('DESCRIPTION_WHETHER_BANNED_IP'), 'banned_ip', false));
}
}
if (addon_installed('points')) {
if (has_actual_page_access(get_member(), 'admin_points')) {
require_code('points');
$num_points_currently = available_points($member_id);
$fields->attach(form_input_integer(do_lang_tempcode('CHARGED_POINTS'), do_lang_tempcode('DESCRIPTION_CHARGED_POINTS', escape_html(integer_format($num_points_currently))), 'charged_points', 0, true));
}
}
if (has_specific_permission(get_member(), 'member_maintenance')) {
$fields->attach(form_input_tick(do_lang_tempcode('BANNED_MEMBER'), do_lang_tempcode('DESCRIPTION_BANNED_MEMBER'), 'banned_member', false));
$rows = $GLOBALS['FORUM_DB']->query_select('f_groups', array('id', 'g_name'), array('g_is_private_club' => 0));
$groups = new ocp_tempcode();
$groups->attach(form_input_list_entry('-1', false, do_lang_tempcode('NA_EM')));
foreach ($rows as $group) {
if ($group['id'] != db_get_first_id()) {
$groups->attach(form_input_list_entry(strval($group['id']), false, get_translated_text($group['g_name'], $GLOBALS['FORUM_DB'])));
}
}
$fields->attach(form_input_list(do_lang_tempcode('CHANGE_USERGROUP_TO'), do_lang_tempcode('DESCRIPTION_CHANGE_USERGROUP_TO'), 'changed_usergroup_from', $groups));
}
}
// Explanatory text
$keep = symbol_tempcode('KEEP');
$load_url = find_script('warnings') . '?type=load' . $keep->evaluate();
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('EXPLANATORY_TEXT'), 'HELP' => do_lang_tempcode('LOAD_SAVED_WARNING', escape_html($load_url)))));
$fields->attach(form_input_line_comcode(do_lang_tempcode('EXPLANATION'), do_lang_tempcode('DESCRIPTION_EXPLANATION'), 'explanation', $explanation, true));
if ($new) {
$message = '';
if (!is_null($post_id)) {
$_postdetails_text = $GLOBALS['FORUM_DB']->query_value_null_ok('f_posts', 'p_post', array('id' => $post_id));
if (!is_null($_postdetails_text)) {
$message = '[quote="' . $username . '"]' . chr(10) . get_translated_text($_postdetails_text) . chr(10) . '[/quote]';
}
}
$fields->attach(form_input_text_comcode(do_lang_tempcode('MESSAGE'), do_lang_tempcode('DESCRIPTION_PP_MESSAGE'), 'message', $message, false));
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('ACTIONS'))));
$fields->attach(form_input_line(do_lang_tempcode('SAVE_WARNING_DETAILS'), do_lang_tempcode('DESCRIPTION_SAVE_WARNING_DETAILS'), 'save', '', false));
}
return array($fields, $hidden);
}
/**
* Get a form for entering a booking.
*
* @param ?array Details of the booking (NULL: new).
* @param ?MEMBER Who the booking is for (NULL: current member).
* @return array Tuple: form fields, hidden fields.
*/
function get_form_fields($details = NULL, $member_id = NULL)
{
$hidden = new ocp_tempcode();
$fields = new ocp_tempcode();
if (is_null($details)) {
$bookable_id = get_param_integer('bookable_id', NULL);
if (is_null($bookable_id)) {
// Form to choose bookable
@ob_end_clean();
$bookables = $GLOBALS['SITE_DB']->query_select('bookable', array('*'), NULL, 'ORDER BY sort_order');
if (count($bookables) == 0) {
inform_exit(do_lang_tempcode('NO_CATEGORIES'));
}
$bookables_list = new ocp_tempcode();
foreach ($bookables as $bookable) {
$bookables_list->attach(form_input_list_entry(strval($bookable['id']), false, get_translated_text($bookable['title'])));
}
$fields = form_input_list(do_lang_tempcode('BOOKABLE'), '', 'bookable_id', $bookables_list, NULL, true);
$post_url = get_self_url(false, false, NULL, false, true);
$submit_name = do_lang_tempcode('PROCEED');
$hidden = build_keep_post_fields();
$title = get_page_title('ADD_BOOKING');
$tpl = do_template('FORM_SCREEN', array('TARGET' => '_self', 'GET' => true, 'SKIP_VALIDATION' => true, 'HIDDEN' => $hidden, 'TITLE' => $title, 'TEXT' => '', 'URL' => $post_url, 'FIELDS' => $fields, 'SUBMIT_NAME' => $submit_name));
$echo = globalise($tpl, NULL, '', true);
$echo->evaluate_echo();
exit;
}
$details = array('bookable_id' => $bookable_id, 'start_day' => get_param_integer('day', intval(date('d'))), 'start_month' => get_param_integer('month', intval(date('m'))), 'start_year' => get_param_integer('year', intval(date('Y'))), 'end_day' => get_param_integer('day', intval(date('d'))), 'end_month' => get_param_integer('month', intval(date('m'))), 'end_year' => get_param_integer('year', intval(date('Y'))), 'quantity' => 1, 'notes' => '', 'supplements' => array());
}
if (is_null($member_id)) {
$member_id = get_member();
}
$_bookable = $GLOBALS['SITE_DB']->query_select('bookable', array('*'), array('id' => $details['bookable_id']), '', 1);
if (!array_key_exists(0, $_bookable)) {
warn_exit(do_lang_tempcode('MISSING_RESOURCE'));
}
$bookable = $_bookable[0];
$fields->attach(form_input_date(do_lang_tempcode('FROM'), '', 'bookable_' . strval($details['bookable_id']) . '_date_from', false, false, false, array(0, 0, $details['start_month'], $details['start_day'], $details['start_year']), 10, NULL, NULL, NULL, true, get_server_timezone()));
if ($bookable['dates_are_ranges'] == 1) {
$fields->attach(form_input_date(do_lang_tempcode('TO'), '', 'bookable_' . strval($details['bookable_id']) . '_date_to', false, false, false, array(0, 0, $details['end_month'], $details['end_day'], $details['end_year']), 10, NULL, NULL, NULL, true, get_server_timezone()));
}
$fields->attach(form_input_integer(do_lang_tempcode('QUANTITY'), '', 'bookable_' . strval($details['bookable_id']) . '_quantity', $details['quantity'], true));
$fields->attach(form_input_text(do_lang_tempcode('NOTES'), '', 'bookable_' . strval($details['bookable_id']) . '_notes', $details['notes'], false));
$member_directory_url = build_url(array('page' => 'members'), get_module_zone('members'));
$fields->attach(form_input_username(do_lang_tempcode('BOOKING_FOR'), do_lang_tempcode('DESCRIPTION_BOOKING_FOR', escape_html($member_directory_url->evaluate())), 'username', $GLOBALS['FORUM_DRIVER']->get_username($member_id), true, false));
$supplement_rows = $GLOBALS['SITE_DB']->query_select('bookable_supplement a JOIN ' . get_table_prefix() . 'bookable_supplement_for b ON a.id=b.supplement_id', array('a.*'), array('bookable_id' => $details['bookable_id']), 'ORDER BY sort_order');
foreach ($supplement_rows as $supplement_row) {
$quantity = 0;
$notes = '';
if (array_key_exists($supplement_row['id'], $details['supplements'])) {
$quantity = $details['supplements'][$supplement_row['id']]['quantity'];
$notes = $details['supplements'][$supplement_row['id']]['notes'];
}
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('SUPPLEMENT', escape_html(get_translated_text($supplement_row['title']))))));
if ($supplement_row['supports_quantities'] == 1) {
$fields->attach(form_input_integer(do_lang_tempcode('QUANTITY'), '', 'bookable_' . strval($details['bookable_id']) . '_supplement_' . strval($supplement_row['id']) . '_quantity', $quantity, true));
} else {
$fields->attach(form_input_tick(get_translated_text($supplement_row['title']), '', 'bookable_' . strval($details['bookable_id']) . '_supplement_' . strval($supplement_row['id']) . '_quantity', $quantity == 1));
}
$fields->attach(form_input_text(do_lang_tempcode('NOTES'), '', 'bookable_' . strval($details['bookable_id']) . '_supplement_' . strval($supplement_row['id']) . '_notes', $notes, false));
}
return array($fields, $hidden);
}
/**
* Show value statistics for a custom profile field (choose).
*
* @return tempcode The UI
*/
function stats()
{
$title = get_page_title('CUSTOM_PROFILE_FIELD_STATS');
breadcrumb_set_parents(array());
$fields = new ocp_tempcode();
$rows = $GLOBALS['FORUM_DB']->query_select('f_custom_fields', array('id', 'cf_name', 'cf_type'));
require_code('form_templates');
require_code('fields');
$list = new ocp_tempcode();
$_list = array();
foreach ($rows as $row) {
$ob = get_fields_hook($row['cf_type']);
list(, , $storage_type) = $ob->get_field_value_row_bits(NULL);
if (strpos($storage_type, '_trans') === false) {
$id = $row['id'];
$text = get_translated_text($row['cf_name'], $GLOBALS['FORUM_DB']);
$_list[$id] = $text;
}
}
asort($_list);
foreach ($_list as $id => $text) {
$list->attach(form_input_list_entry(strval($id), false, $text));
}
if ($list->is_empty()) {
return inform_screen($title, do_lang_tempcode('NO_ENTRIES'));
}
require_lang('dates');
$fields->attach(form_input_list(do_lang_tempcode('NAME'), '', 'id', $list));
$fields->attach(form_input_date(do_lang_tempcode('FROM'), do_lang_tempcode('DESCRIPTION_MEMBERS_JOINED_FROM'), 'start', true, false, false, time() - 60 * 60 * 24 * 30, 10, intval(date('Y')) - 10));
$fields->attach(form_input_date(do_lang_tempcode('TO'), do_lang_tempcode('DESCRIPTION_MEMBERS_JOINED_TO'), 'end', true, false, false, time(), 10, intval(date('Y')) - 10));
$post_url = build_url(array('page' => '_SELF', 'type' => '_stats'), '_SELF', NULL, false, true);
$submit_name = do_lang_tempcode('CUSTOM_PROFILE_FIELD_STATS');
return do_template('FORM_SCREEN', array('_GUID' => '393bac2180c9e135ae9c31565ddf7761', 'GET' => true, 'SKIP_VALIDATION' => true, 'TITLE' => $title, 'HIDDEN' => '', 'FIELDS' => $fields, 'TEXT' => '', 'URL' => $post_url, 'SUBMIT_NAME' => $submit_name));
}
/**
* Get tempcode for a adding/editing form.
*
* @param SHORT_TEXT The name of the quiz
* @param ?integer The number of minutes allowed for completion (NULL: NA)
* @param LONG_TEXT The text shown at the start of the quiz
* @param LONG_TEXT The text shown at the end of the quiz
* @param LONG_TEXT The text shown at the end of the quiz on failure
* @param LONG_TEXT Notes
* @param integer Percentage correctness required for competition
* @param ?TIME The time the quiz is opened (NULL: now)
* @param ?TIME The time the quiz is closed (NULL: never)
* @param integer The number of winners for this if it is a competition
* @param ?integer The minimum number of hours between attempts (NULL: no restriction)
* @param ID_TEXT The type
* @set SURVEY COMPETITION TEST
* @param BINARY Whether this is validated
* @param ?string Text for questions (NULL: default)
* @param integer The number of points awarded for completing/passing the quiz/test
* @param ?AUTO_LINK Newsletter for which a member must be on to enter (NULL: none)
* @return tempcode The form fields
*/
function get_form_fields($name = '', $timeout = NULL, $start_text = '', $end_text = '', $end_text_fail = '', $notes = '', $percentage = 70, $open_time = NULL, $close_time = NULL, $num_winners = 2, $redo_time = NULL, $type = 'COMPETITION', $validated = 1, $text = NULL, $points_for_passing = 0, $tied_newsletter = NULL)
{
if (is_null($open_time)) {
$open_time = time();
}
if (is_null($text)) {
$text = do_lang('EXAMPLE_QUESTIONS');
}
$fields = new ocp_tempcode();
$fields->attach(form_input_line(do_lang_tempcode('NAME'), do_lang_tempcode('DESCRIPTION_NAME'), 'name', $name, true));
$list = new ocp_tempcode();
$list->attach(form_input_list_entry('SURVEY', $type == 'SURVEY', do_lang_tempcode('SURVEY')));
$list->attach(form_input_list_entry('TEST', $type == 'TEST', do_lang_tempcode('TEST')));
$list->attach(form_input_list_entry('COMPETITION', $type == 'COMPETITION', do_lang_tempcode('COMPETITION')));
$fields->attach(form_input_list(do_lang_tempcode('TYPE'), do_lang_tempcode('DESCRIPTION_QUIZ_TYPE'), 'type', $list, NULL, true));
$fields->attach(form_input_huge(do_lang_tempcode('QUESTIONS'), do_lang_tempcode('IMPORT_QUESTIONS_TEXT'), 'text', $text, true));
if ($validated == 0) {
global $NON_CANONICAL_PARAMS;
$NON_CANONICAL_PARAMS[] = 'validated';
$validated = get_param_integer('validated', 0);
if ($validated == 1) {
attach_message(do_lang_tempcode('WILL_BE_VALIDATED_WHEN_SAVING'));
}
}
if (addon_installed('unvalidated')) {
$fields->attach(form_input_tick(do_lang_tempcode('VALIDATED'), do_lang_tempcode('DESCRIPTION_VALIDATED_SIMPLE'), 'validated', $validated == 1));
}
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('TEST'))));
$fields->attach(form_input_integer(do_lang_tempcode('COMPLETION_PERCENTAGE'), do_lang_tempcode('DESCRIPTION_COMPLETION_PERCENTAGE'), 'percentage', $percentage, true));
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('TEXT'), 'SECTION_HIDDEN' => true)));
$fields->attach(form_input_text_comcode(do_lang_tempcode('QUIZ_START_TEXT'), do_lang_tempcode('DESCRIPTION_QUIZ_START_TEXT'), 'start_text', $start_text, false));
$fields->attach(form_input_text_comcode(do_lang_tempcode('QUIZ_END_TEXT'), do_lang_tempcode('DESCRIPTION_QUIZ_END_TEXT'), 'end_text', $end_text, false));
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('TITLE' => do_lang_tempcode('COMPETITION'))));
$fields->attach(form_input_integer(do_lang_tempcode('NUM_WINNERS'), do_lang_tempcode('DESCRIPTION_NUM_WINNERS'), 'num_winners', $num_winners, true));
$fields->attach(form_input_text_comcode(do_lang_tempcode('QUIZ_END_TEXT_FAIL'), do_lang_tempcode('DESCRIPTION_QUIZ_END_TEXT_FAIL'), 'end_text_fail', $end_text_fail, false));
$fields->attach(do_template('FORM_SCREEN_FIELD_SPACER', array('SECTION_HIDDEN' => is_null($redo_time) && is_null($timeout) && (is_null($open_time) || $open_time <= time()) && is_null($close_time) && $points_for_passing == 0 && is_null($tied_newsletter) && $notes == '', 'TITLE' => do_lang_tempcode('ADVANCED'))));
$fields->attach(form_input_integer(do_lang_tempcode('REDO_TIME'), do_lang_tempcode('DESCRIPTION_REDO_TIME'), 'redo_time', $redo_time, false));
$fields->attach(form_input_integer(do_lang_tempcode('TIMEOUT'), do_lang_tempcode('DESCRIPTION_QUIZ_TIMEOUT'), 'timeout', $timeout, false));
$fields->attach(form_input_date(do_lang_tempcode('OPEN_TIME'), do_lang_tempcode('DESCRIPTION_OPEN_TIME'), 'open_time', false, false, true, $open_time, 2));
$fields->attach(form_input_date(do_lang_tempcode('CLOSE_TIME'), do_lang_tempcode('DESCRIPTION_CLOSE_TIME'), 'close_time', true, is_null($close_time), true, is_null($close_time) ? NULL : $close_time, 2));
if (addon_installed('points')) {
$fields->attach(form_input_integer(do_lang_tempcode('POINTS_FOR_COMPLETING'), do_lang_tempcode('DESCRIPTION_POINTS_FOR_COMPLETING'), 'points_for_passing', $points_for_passing, true));
}
if (addon_installed('newsletter')) {
$newsletters = new ocp_tempcode();
$newsletters->attach(form_input_list_entry('', false, do_lang_tempcode('NONE_EM')));
$_newsletters = $GLOBALS['SITE_DB']->query_select('newsletters', array('*'), NULL, 'ORDER BY id');
foreach ($_newsletters as $n) {
$newsletters->attach(form_input_list_entry(strval($n['id']), $tied_newsletter == $n['id'], get_translated_text($n['title'])));
}
if (!$newsletters->is_empty()) {
$fields->attach(form_input_list(do_lang_tempcode('TIED_TO_NEWSLETTER'), do_lang_tempcode('DESCRIPTION_TIED_TO_NEWSLETTER'), 'tied_newsletter', $newsletters, NULL, false, false));
}
}
if (get_value('disable_staff_notes') !== '1') {
$fields->attach(form_input_text(do_lang_tempcode('NOTES'), do_lang_tempcode('DESCRIPTION_NOTES'), 'notes', $notes, false));
}
return $fields;
}
/**
* Function to display export order list filters
*
* @return tempcode The interface.
*/
function order_export()
{
require_code('shopping');
require_code('form_templates');
$title = get_page_title('EXPORT_ORDER_LIST');
breadcrumb_set_parents(array(array('_SEARCH:admin_ecommerce:ecom_usage', do_lang_tempcode('ECOMMERCE')), array('_SELF:_SELF:misc', do_lang_tempcode('ORDERS')), array('_SELF:_SELF:show_orders', do_lang_tempcode('ORDER_LIST'))));
$fields = new ocp_tempcode();
$order_status_list = get_order_status_list();
$fields->attach(form_input_list(do_lang_tempcode('ORDER_STATUS'), do_lang_tempcode('ORDER_STATUS_FILTER_DESCRIPTION'), 'order_status', $order_status_list, NULL, false, false));
// Dates
$start_year = intval(date('Y')) - 1;
$start_month = intval(date('m'));
$start_day = intval(date('d'));
$start_hour = intval(date('H'));
$start_minute = intval(date('i'));
$end_year = $start_year + 1;
$end_month = $start_month;
$end_day = $start_day;
$end_hour = $start_hour;
$end_minute = $start_minute;
$fields->attach(form_input_date(do_lang_tempcode('ST_START_PERIOD'), do_lang_tempcode('ST_START_PERIOD_DESCRIPTION'), 'start_date', false, false, true, array($start_minute, $start_hour, $start_month, $start_day, $start_year)));
$fields->attach(form_input_date(do_lang_tempcode('ST_END_PERIOD'), do_lang_tempcode('ST_END_PERIOD_DESCRIPTION'), 'end_date', false, false, true, array($end_minute, $end_hour, $end_month, $end_day, $end_year)));
return do_template('FORM_SCREEN', array('SKIP_VALIDATION' => true, 'TITLE' => $title, 'SUBMIT_NAME' => do_lang_tempcode('EXPORT_ORDER_LIST'), 'TEXT' => paragraph(do_lang_tempcode('EXPORT_ORDER_LIST_TEXT')), 'URL' => build_url(array('page' => '_SELF', 'type' => '_order_export'), '_SELF'), 'HIDDEN' => '', 'FIELDS' => $fields));
}
/**
* Get form inputter.
*
* @param string The field name
* @param string The field description
* @param array The field details
* @param ?string The actual current value of the field (NULL: none)
* @param boolean Whether this is for a new entry
* @return ?tempcode The Tempcode for the input field (NULL: skip the field - it's not input)
*/
function get_field_inputter($_cf_name, $_cf_description, $field, $actual_value, $new)
{
$time = mixed();
if (is_null($actual_value) || $actual_value == '') {
$time = NULL;
} elseif (strpos(strtolower($actual_value), 'now') !== false) {
$time = time();
} else {
// H:i:s
$time_bits = explode(':', $actual_value, 3);
if (!array_key_exists(1, $time_bits)) {
$time_bits[1] = '00';
}
if (!array_key_exists(2, $time_bits)) {
$time_bits[2] = '00';
}
//$time=mktime(intval($time_bits[0]),intval($time_bits[1]),intval($time_bits[2]),intval($date_bits[1]),intval($date_bits[2]),intval($date_bits[0]));
$time = array(intval($time_bits[1]), intval($time_bits[0]), intval(date('m')), intval(date('d')), intval(date('Y')));
}
return form_input_date($_cf_name, $_cf_description, 'field_' . strval($field['id']), $field['cf_required'] == 0, $field['cf_required'] == 0 && $actual_value == '', true, $time, 1, 1900, NULL, $field['cf_required'] == 1, false);
}