pageHeader(); echo WT_I18N::translate('Access Denied
You do not have access to this resource.'); echo '

'; exit; } if (!WT_USER_IS_ADMIN) $setdefault=false; if (!isset($action)) $action=''; if (!isset($main)) $main=array(); if (!isset($right)) $right=array(); if (!isset($setdefault)) $setdefault=false; if (!isset($side)) $side='main'; if (!isset($index)) $index=1; $block_id=safe_REQUEST($_REQUEST, 'block_id'); // Define all the icons we're going to use if($TEXT_DIRECTION=='ltr') { $IconUarrow = '

'; $IconDarrow = '

'; $IconRarrow = '

'; $IconLarrow = '

'; $IconRDarrow = '

'; $IconLDarrow = '

'; } else { $IconUarrow = '

'; $IconDarrow = '

'; $IconRarrow = '

'; $IconLarrow = '

'; $IconRDarrow = '

'; $IconLDarrow = '

'; } $all_blocks=array(); foreach (WT_Module::getActiveBlocks() as $name=>$block) { if ($ctype=='user' && $block->isUserBlock() || $ctype=='gedcom' && $block->isGedcomBlock()) { $all_blocks[$name]=$block; } } //-- get the blocks list if ($ctype=='user') { if ($action=='reset') { WT_DB::prepare("DELETE `##block_setting` FROM `##block_setting` JOIN `##block` USING (block_id) WHERE user_id=?")->execute(array(WT_USER_ID)); WT_DB::prepare("DELETE FROM `##block` WHERE user_id=?")->execute(array(WT_USER_ID)); } $blocks=get_user_blocks(WT_USER_ID); } else { if ($action=='reset') { WT_DB::prepare("DELETE `##block_setting` FROM `##block_setting` JOIN `##block` USING (block_id) WHERE gedcom_id=?")->execute(array(WT_GED_ID)); } $blocks=get_gedcom_blocks(WT_GED_ID); } if ($ctype=='user') { $controller->setPageTitle(WT_I18N::translate('My page')); } else { $controller->setPageTitle(WT_I18N::translate(get_gedcom_setting(WT_GED_ID, 'title'))); } $controller->pageHeader(); if ($action=='update') { foreach (array('main', 'side') as $location) { if ($location=='main') { $new_blocks=$main; } else { $new_blocks=$right; } foreach ($new_blocks as $order=>$block_name) { if (is_numeric($block_name)) { // existing block WT_DB::prepare("UPDATE `##block` SET block_order=? WHERE block_id=?")->execute(array($order, $block_name)); // existing block moved location WT_DB::prepare("UPDATE `##block` SET location=? WHERE block_id=?")->execute(array($location, $block_name)); } else { // new block if ($ctype=='user') { WT_DB::prepare("INSERT INTO `##block` (user_id, location, block_order, module_name) VALUES (?, ?, ?, ?)")->execute(array(WT_USER_ID, $location, $order, $block_name)); } else { WT_DB::prepare("INSERT INTO `##block` (gedcom_id, location, block_order, module_name) VALUES (?, ?, ?, ?)")->execute(array(WT_GED_ID, $location, $order, $block_name)); } } } // deleted blocks foreach ($blocks[$location] as $block_id=>$block_name) { if (!in_array($block_id, $main) && !in_array($block_id, $right)) { WT_DB::prepare("DELETE FROM `##block_setting` WHERE block_id=?")->execute(array($block_id)); WT_DB::prepare("DELETE FROM `##block` WHERE block_id=?")->execute(array($block_id)); } } } if (isset($_POST['nextaction'])) $action = $_POST['nextaction']; echo WT_JS_START, 'opener.window.location.reload(); window.close();', WT_JS_END; exit; } if ($action=="configure") { if (array_key_exists($block_id, $blocks['main'])) { $block_name=$blocks['main'][$block_id]; } elseif (array_key_exists($block_id, $blocks['side'])) { $block_name=$blocks['side'][$block_id]; } else { echo WT_JS_START, 'window.close();', WT_JS_END; exit; } $class_name=$block_name.'_WT_Module'; $block=new $class_name; echo ''; echo ''; echo ''; echo '

'; echo '

', WT_I18N::translate('Configure'), '

'; echo '

'; echo '', $block->getTitle(), ' - ', $block->getDescription(), ''; echo '

'; echo ''; echo WT_JS_START; echo 'var pastefield; function paste_id(value) {pastefield.value=value;}'; echo WT_JS_END; } else { ?>

'; // NOTE: Row 1: Column legends echo ''; echo ''; echo ''; echo ''; echo ''; echo ''; // NOTE: Row 2 column 1: Up/Down buttons for left (main) block list echo ''; // NOTE: Row 2 column 2: Left (Main) block list echo ''; // NOTE: Row 2 column 3: Left/Right buttons for left (main) block list echo ''; // Row 2 column 4: Middle (Available) block list echo ''; // NOTE: Row 2 column 5: Left/Right buttons for right block list echo ''; // NOTE: Row 2 column 6: Right block list echo ''; // NOTE: Row 2 column 7: Up/Down buttons for right block list echo ''; echo ''; // NOTE: Row 3 columns 1-7: Summary description of currently selected block echo ''; echo '

', WT_I18N::translate('Change the blocks on this page'), ''; echo '
'; echo '', WT_I18N::translate('Main Section Blocks'), ''; echo '		'; echo '', WT_I18N::translate('Available Blocks'), ''; echo '			'; echo '', WT_I18N::translate('Right Section Blocks'), ''; echo '
'; echo '', $IconUarrow, ''; echo ' '; echo '', $IconDarrow, ''; echo ' '; echo help_link('block_move_up'); echo '	'; echo ''; echo '	'; echo '', $IconRDarrow, ''; echo ' '; echo '', $IconRarrow, ''; echo ' '; echo '', $IconLarrow, ''; echo ' '; echo help_link('block_move_right'); echo '	'; echo ''; echo '	'; echo '', $IconLDarrow, ''; echo ' '; echo '', $IconLarrow, ''; echo ' '; echo '', $IconRarrow, ''; echo ' '; echo help_link('block_move_right'); echo '	'; echo ''; echo '	'; echo '', $IconUarrow, ''; echo ' '; echo '', $IconDarrow. ''; echo ' '; echo help_link('block_move_up'); echo '
'; echo WT_I18N::translate('Highlight a block name and then click on one of the arrow icons to move that highlighted block in the indicated direction.'); echo '
'; /* This section temporarily removed as it does not work (kiwi - 15/08/2011) if (WT_USER_IS_ADMIN && $ctype=='user') { echo WT_I18N::translate('Use these blocks as the default block configuration for all users?'), ' '; }*/ echo ''; echo ' '; echo ''; echo ' '; echo ''; echo '

'; echo '

'; } echo ''; // Yes! Absolutely NOTHING at page bottom, please.