function calendar_userapi_getevents($args)
{
extract($args);
$xartable = xarDB::getTables();
$q = new Query('SELECT');
$q->addtable($xartable['calendar_event']);
$q->ge('start_time', $day->thisDay(TRUE));
$q->lt('start_time', $day->nextDay(TRUE));
if (!$q->run()) {
return;
}
return $q->output();
}
/**
* Get pages relative to a given page
*
* Filters:
* Add an arg of the type $args['filter_foo'] = bar
* will add a condition to the SELECT as
* WHERE foo = bar
*
*/
function publications_userapi_get_sitemap_pages($args)
{
if (empty($args['itemid'])) {
$args['itemid'] = 0;
}
if (empty($args['scope'])) {
$args['scope'] = 'descendants';
}
if ($args['itemid'] == 0 && $args['scope'] == 'descendants') {
$args['scope'] = 'all';
}
if (empty($args['sort'])) {
$args['sort'] = 0;
}
// Make sure we have the base translation id
if (!empty($args['itemid'])) {
$args['itemid'] = xarMod::apiFunc('publications', 'user', 'gettranslationid', array('id' => $args['itemid'], 'locale' => xarModVars::get('publications', 'defaultlanguage')));
}
// Identify any filters
$filters = array();
foreach ($args as $k => $v) {
if (strpos($k, 'filter_') === 0) {
$argname = substr($k, 7);
$filters[$argname] = $v;
}
}
$xartable = xarDB::getTables();
sys::import('xaraya.structures.query');
$q = new Query();
$q->addtable($xartable['publications'], 'p');
switch ($args['scope']) {
case 'all':
$q->gt('p.leftpage_id', 0);
break;
case 'descendants':
$q->addtable($xartable['publications'], 'root');
$q->eq('root.id', $args['itemid']);
$q->le('root.leftpage_id', 'expr:p.leftpage_id');
$q->ge('root.rightpage_id', 'expr:p.rightpage_id');
break;
case 'children':
$q->eq('p.parentpage_id', $args['itemid']);
break;
case 'siblings':
$q->addtable($xartable['publications'], 'p1');
$q->join('p.parentpage_id', 'p1.parentpage_id');
$q->eq('p1.id', $args['itemid']);
break;
}
if (!empty($args['itemtype'])) {
$q->eq('p.pubtype_id', $args['itemtype']);
}
$q->eq('p.sitemap_flag', 1);
$q->gt('p.state', 2);
$q->addfield('p.id AS id');
$q->addfield('p.name AS name');
$q->addfield('p.title AS title');
$q->addfield('p.description AS description');
$q->addfield('p.sitemap_source_flag AS sitemap_source_flag');
$q->addfield('p.sitemap_alias AS sitemap_alias');
$q->addfield('p.pubtype_id AS pubtype_id');
$q->addfield('p.rightpage_id AS rightpage_id');
// Add any fiters we found
foreach ($filters as $k => $v) {
$q->eq('p.' . $k, $v);
}
// We can force alpha sorting, or else sort according to tree position
if ($args['sort']) {
$q->setorder('p.title');
} else {
$q->setorder('p.leftpage_id');
}
// $q->qecho();
$q->run();
$pages = $q->output();
$depthstack = array();
foreach ($pages as $key => $page) {
// Calculate the relative nesting level.
// 'depth' is 0-based. Top level (root node) is zero.
if (!empty($depthstack)) {
while (!empty($depthstack) && end($depthstack) < $page['rightpage_id']) {
array_pop($depthstack);
}
}
$depthstack[$page['id']] = $page['rightpage_id'];
$pages[$key]['depth'] = empty($depthstack) ? 0 : count($depthstack) - 1;
// This item is the path for each page, based on page IDs.
// It is effectively a list of ancestor IDs for a page.
// FIXME: some paths seem to get a '0' root ID. They should only have real page IDs.
$pages[$key]['idpath'] = array_keys($depthstack);
$pathstack[$key] = $page['name'];
// This item is the path for each page, based on names.
// Imploding it can give a directory-style path, which is handy
// in admin pages and reports.
$pages[$key]['namepath'] = $pathstack;
}
// If we are looking for translations rather than base documents, then find what translations are available and substitute them
// CHECKME: is there a better way?
// If there is no translation the base document remains. Is this desired outcome?
if (!empty($pages) && xarModVars::get('publications', 'defaultlanguage') != xarUserGetNavigationLocale()) {
$indexedpages = array();
foreach ($pages as $v) {
$indexedpages[$v['id']] = $v;
}
$ids = array_keys($indexedpages);
$q = new Query();
$q->addtable($xartable['publications']);
$q->addfield('id');
$q->addfield('parent_id');
$q->addfield('name');
$q->addfield('title');
$q->addfield('description');
$q->addfield('sitemap_source_flag');
$q->addfield('sitemap_alias');
$q->addfield('pubtype_id');
$q->in('parent_id', $ids);
$q->eq('locale', xarUserGetNavigationLocale());
// Add any fiters we found
foreach ($filters as $k => $v) {
$q->eq($k, $v);
}
$q->run();
foreach ($q->output() as $row) {
// Copy the name and id paths so we don't have to recalculate them
$row['depth'] = $indexedpages[$row['parent_id']]['depth'];
$row['idpath'] = $indexedpages[$row['parent_id']]['idpath'];
$row['namepath'] = $indexedpages[$row['parent_id']]['namepath'];
// Add the entire row to the result pages
$indexedpages[$row['parent_id']] = $row;
}
$pages =& $indexedpages;
}
return $pages;
}
function publications_userapi_getpages($args)
{
extract($args);
if (!xarVarValidate('enum:id:index:name:left:right', $key, true)) {
$key = 'index';
}
// Define if we are looking for the number of pages or the pages themselves
$count = empty($count) ? false : true;
// Assemble the query
sys::import('xaraya.structures.query');
$xartable = xarDB::getTables();
$q = new Query();
$q->addtable($xartable['publications'], 'tpages');
$q->addtable($xartable['publications_types'], 'pt');
$q->join('pt.id', 'tpages.pubtype_id');
if ($count) {
$q->addfield('COUNT(*)');
} else {
$q->setdistinct(true);
$q->addfield('tpages.id AS id');
$q->addfield('tpages.name AS name');
$q->addfield('tpages.title AS title');
$q->addfield('tpages.pubtype_id AS ptid');
$q->addfield('tpages.parent_id AS base_id');
$q->addfield('tpages.sitemap_flag AS sitemap_flag');
$q->addfield('tpages.menu_flag AS menu_flag');
$q->addfield('tpages.locale AS locale');
$q->addfield('tpages.leftpage_id AS leftpage_id');
$q->addfield('tpages.rightpage_id AS rightpage_id');
$q->addfield('tpages.parentpage_id AS parentpage');
$q->addfield('tpages.access AS access');
$q->addfield('tpages.state AS status');
$q->addfield('pt.description AS pubtype_name');
}
if (isset($baseonly)) {
$q->eq('tpages.parent_id', 0);
}
if (isset($name)) {
$q->eq('tpages.name', (string) $name);
}
if (isset($status)) {
// If a list of statuses have been provided, then select for any of them.
if (strpos($status, ',') === false) {
$numeric_status = convert_status($status);
$q->eq('tpages.state', strtoupper($status));
} else {
$statuses = explode(',', strtoupper($status));
$numeric_statuses = array();
foreach ($statuses as $stat) {
$numeric_statuses[] = convert_status($stat);
}
$q->in('tpages.state', $numeric_statuses);
}
}
if (isset($id)) {
$q->eq('tpages.id', (int) $id);
$where[] = 'tpages.id = ?';
$bind[] = (int) $id;
} elseif (!empty($ids)) {
$addwhere = array();
foreach ($ids as $myid) {
if (!empty($myid) && is_numeric($myid)) {
$addwhere[] = (int) $myid;
}
}
$q->in('tpages.state', $addwhere);
}
if (isset($itemtype)) {
$q->eq('tpages.pubtype_id', (int) $itemtype);
}
if (isset($parent)) {
$q->eq('tpages.parentpage_id', (int) $parent);
}
// Used to retrieve descendants.
if (isset($left_range) && is_array($left_range)) {
$q->between('tpages.leftpage_id', $left_range);
}
// Used to prune a single branch of the tree.
if (isset($left_exclude) && is_array($left_exclude)) {
//'tpages.leftpage_id NOT between ? AND ?' - does not work on some databases
$c[] = $q->plt('tpages.leftpage_id', (int) $left_exclude[0]);
$c[] = $q->pgt('tpages.leftpage_id', (int) $left_exclude[1]);
$q->qor($c);
unset($c);
}
// Used to retrieve ancestors.
if (isset($wrap_range) && is_numeric($wrap_range)) {
$c[] = $q->ple('tpages.leftpage_id', (int) $wrap_range[0]);
$c[] = $q->pge('tpages.leftpage_id', (int) $left_range[1]);
// can't be right: this is an array
$q->qand($c);
unset($c);
}
// If the request is to fetch a tree that *contains* a particular
// page, then add the extra sub-queries in here.
if (!empty($tree_contains_id) || !empty($tree_contains_name)) {
$q->addtable($xartable['publications'], 'tpages_member');
if (!empty($tree_contains_id)) {
$q->eq('tpages_member.id', (int) $tree_contains_id);
}
if (!empty($tree_contains_name)) {
$q->eq('tpages_member.name', (int) $tree_contains_name);
}
if (!empty($tree_ancestors)) {
// We don't want the complete tree for the matching pages - just
// their ancestors. This is useful for checking paths, without
// fetching complete trees.
$q->between('tpages_member.leftpage_id', 'expr:tpages.leftpage_id AND tpages.rightpage_id');
} else {
// Join to find the root page of the tree containing the required page.
// This matches the complete tree for the root under the selected page.
$q->addtable($xartable['publications'], 'tpages_root');
$q->le('tpages_root.leftpage_id', 'expr:tpages_member.leftpage_id');
$q->ge('tpages_root.rightpage_id', 'expr:tpages_member.rightpage_id');
$q->between('tpages.leftpage_id', 'expr:tpages_root.leftpage_id AND tpages_root.rightpage_id');
$q->eq('tpages_root.parentpage_id', 0);
}
}
// This ordering cannot be changed
// We want the pages in the order of the hierarchy.
if (empty($count)) {
$q->setorder('tpages.leftpage_id', 'ASC');
}
// $q->qecho();
$q->run();
if ($count) {
$pages = count($q->output());
} else {
$index = 0;
$id2key = array();
$pages = array();
// Get all the page type details.
$pagetypes = xarMod::apiFunc('publications', 'user', 'get_pubtypes', array('key' => 'id'));
foreach ($q->output() as $row) {
$id = (int) $row['id'];
// At this point check the privileges of the page fetched.
// To prevent broken trees, if a page is not assessible, prune
// (ie discard) descendant pages of that page. Descendants will have
// a left value between the left and right values of the
// inaccessible page.
if (!empty($prune_left)) {
if ($row['leftpage_id'] <= $prune_left) {
// The current page is still a descendant of the unprivileged page.
continue;
} else {
// We've reached a non-descendant - stop pruning now.
$prune_left = 0;
}
}
// JDJ 2008-06-11: now only need ViewPublicationsPage to be able to select the page,
// but ReadPublicationsPage to actually read it.
// The lowest privilege will be inherited, so one page with only View privilege
// will cause all descendent pages to have, at most, view privilege.
// We still need to fetch full details of these view-only pages, but we must flag
// then up in some way (status?). Displaying any of these pages would instead just
// show the 'no privs' page.
// Define admin access
sys::import('modules.dynamicdata.class.properties.master');
$accessproperty = DataPropertyMaster::getProperty(array('name' => 'access'));
$typename = $pagetypes[$row['ptid']]['name'];
$args = array('instance' => $row['name'] . ":" . $typename, 'level' => 800);
$adminaccess = $accessproperty->check($args);
$info = unserialize($row['access']);
if (!empty($info['view_access'])) {
// Decide whether the current user can create blocks of this type
$args = array('module' => 'publications', 'component' => 'Page', 'instance' => $name . ":" . $typename, 'group' => $info['view_access']['group'], 'level' => $info['view_access']['level']);
if (!$accessproperty->check($args)) {
// Save the right value. We need to skip all subsequent
// pages until we get to a page to the right of this one.
// The pages will be in 'left' order, so the descendants
// will be contiguous and will immediately follow this page.
$prune_left = $rightpage_id;
// Don't get this unless you are an admin
if (!$adminaccess) {
continue;
}
}
}
if (!empty($overview_only_left) && $row['leftpage_id'] <= $overview_only_left) {
// We have got past the overview-only page, so can reset the flag.
$overview_only_left = 0;
}
if (!empty($info['display_access'])) {
$args = array('module' => 'publications', 'component' => 'Page', 'instance' => $name . ":" . $typename, 'group' => $info['display_access']['group'], 'level' => $info['display_access']['level']);
if (!$accessproperty->check($args)) {
// We have reached a page that allows only overview access.
// Flag all pages with the restricted view until we get past this page.
$overview_only_left = $row['rightpage_id'];
// Don't get this unless you are an admin
if (!$adminaccess) {
continue;
}
}
}
if (!xarSecurityCheck('ReadPublications', 0, 'Page', $row['name'] . ':' . $typename, 'publications')) {
// We have reached a page that allows only overview access.
// Flag all pages with the restricted view until we get past this page.
$overview_only_left = $row['rightpage_id'];
}
// Note: ['parent_id'] is the parent page ID,
// but ['parent'] is the parent item key in the
// pages array.
$id2key[(int) $id] = ${$key};
if ($key == 'id') {
$parent_key = (int) $row['parentpage'];
} else {
if (isset($id2key[$row['parentpage']])) {
$parent_key = $id2key[$row['parentpage']];
} else {
$parent_key = 0;
}
}
$row['key'] = ${$key};
$row['access'] = $info;
$row['parent_key'] = (int) $parent_key;
$row['left'] = (int) $row['leftpage_id'];
$row['right'] = (int) $row['rightpage_id'];
unset($row['leftpage_id']);
unset($row['rightpage_id']);
$pages[${$key}] = $row;
$index += 1;
}
}
return $pages;
}
/**
* Publications Module
*
* @package modules
* @subpackage publications module
* @category Third Party Xaraya Module
* @version 2.0.0
* @copyright (C) 2011 Netspan AG
* @license GPL {@link http://www.gnu.org/licenses/gpl.html}
* @author Marc Lutolf <*****@*****.**>
*/
function publications_userapi_gettranslationid($args)
{
if (!isset($args['id'])) {
throw new BadParameterException('id');
}
if (empty($args['id'])) {
return 0;
}
// We can check on a full locale or just a partial one (excluding charset)
if (empty($args['partiallocale'])) {
$args['partiallocale'] = 0;
}
// We can look for a specific translation
if (empty($args['locale'])) {
$locale = xarUserGetNavigationLocale();
} else {
$locale = $args['locale'];
}
sys::import('xaraya.structures.query');
if ($args['partiallocale']) {
$parts = explode('.', $locale);
$locale = $parts[0];
}
$xartable = xarDB::getTables();
if (empty($args['locale'])) {
// Return the id of the translation if it exists, or else the base document
$q = new Query('SELECT', $xartable['publications']);
$q->addfield('id');
$q->eq('locale', $locale);
$c[] = $q->peq('id', $args['id']);
$c[] = $q->peq('parent_id', $args['id']);
$q->qor($c);
if (!$q->run()) {
return $args['id'];
}
$result = $q->row();
if (empty($result)) {
return $args['id'];
}
return $result['id'];
} elseif ($args['locale'] == xarUserGetNavigationLocale()) {
// No need to look further
return $args['id'];
} elseif ($args['locale'] == xarModVars::get('publications', 'defaultlanguage')) {
// Force getting the base document
$q = new Query('SELECT', $xartable['publications']);
$q->addfield('parent_id');
$q->eq('id', $args['id']);
if (!$q->run()) {
return $args['id'];
}
$result = $q->row();
if (empty($result)) {
return $args['id'];
}
// If this was already the base document, return its ID
if (empty($result['parent_id'])) {
return $args['id'];
}
// Else return the parent ID
return $result['parent_id'];
} else {
// Force getting another translation
$q = new Query('SELECT');
$q->addtable($xartable['publications'], 'p1');
$q->addtable($xartable['publications'], 'p2');
$q->join('p2.parent_id', 'p1.parent_id');
$q->addfield('p2.id');
$q->eq('p2.locale', $locale);
$q->eq('p1.id', $args['id']);
if (!$q->run()) {
return $args['id'];
}
$result = $q->row();
if (empty($result)) {
return $args['id'];
}
return $result['id'];
}
if (xarUserGetVar('uname') == 'random') {
$xartable = xarDB::getTables();
$q = new Query('SELECT');
$q->addtable($xartable['publications'], 'p1');
$q->addtable($xartable['publications'], 'p2');
$q->join('p2.id', 'p1.parent_id');
$q->addfield('p1.id');
$c[] = $q->peq('p1.id', $args['id']);
$c[] = $q->peq('p1.parent_id', $args['id']);
$c[] = $q->peq('p2.id', $args['id']);
$q->qor($c);
$d[] = $q->peq('p1.locale', $args['locale']);
$d[] = $q->peq('p2.locale', $args['locale']);
$q->qor($d);
if (!$q->run()) {
return $args['id'];
}
$q->qecho();
$result = $q->row();
if (empty($result)) {
return $args['id'];
}
return $result['id'];
}
}
/**
* Publications Module
*
* @package modules
* @subpackage publications module
* @category Third Party Xaraya Module
* @version 2.0.0
* @copyright (C) 2011 Netspan AG
* @license GPL {@link http://www.gnu.org/licenses/gpl.html}
* @author Marc Lutolf <*****@*****.**>
*/
function publications_admin_clone()
{
if (!xarSecurityCheck('ManagePublications')) {
return;
}
if (!xarVarFetch('name', 'isset', $objectname, NULL, XARVAR_DONT_SET)) {
return;
}
if (!xarVarFetch('ptid', 'isset', $ptid, NULL, XARVAR_DONT_SET)) {
return;
}
if (!xarVarFetch('itemid', 'isset', $data['itemid'], NULL, XARVAR_DONT_SET)) {
return;
}
if (!xarVarFetch('confirm', 'int', $confirm, 0, XARVAR_DONT_SET)) {
return;
}
if (empty($data['itemid'])) {
return xarResponse::NotFound();
}
// If a pubtype ID was passed, get the name of the pub object
if (isset($ptid)) {
$pubtypeobject = DataObjectMaster::getObject(array('name' => 'publications_types'));
$pubtypeobject->getItem(array('itemid' => $ptid));
$objectname = $pubtypeobject->properties['name']->value;
}
if (empty($objectname)) {
return xarResponse::NotFound();
}
sys::import('modules.dynamicdata.class.objects.master');
$data['object'] = DataObjectMaster::getObject(array('name' => $objectname));
if (empty($data['object'])) {
return xarResponse::NotFound();
}
// Security
if (!$data['object']->checkAccess('update')) {
return xarResponse::Forbidden(xarML('Clone #(1) is forbidden', $object->label));
}
$data['object']->getItem(array('itemid' => $data['itemid']));
$data['authid'] = xarSecGenAuthKey();
$data['name'] = $data['object']->properties['name']->value;
$data['label'] = $data['object']->label;
xarTplSetPageTitle(xarML('Clone Publication #(1) in #(2)', $data['itemid'], $data['label']));
if ($confirm) {
if (!xarSecConfirmAuthKey()) {
return;
}
// Get the name for the clone
if (!xarVarFetch('newname', 'str', $newname, "", XARVAR_NOT_REQUIRED)) {
return;
}
if (empty($newname)) {
$newname = $data['name'] . "_copy";
}
if ($newname == $data['name']) {
$newname = $data['name'] . "_copy";
}
$newname = strtolower(str_ireplace(" ", "_", $newname));
// Create the clone
$data['object']->properties['name']->setValue($newname);
$data['object']->properties['id']->setValue(0);
$cloneid = $data['object']->createItem(array('itemid' => 0));
// Create the clone's translations
if (!xarVarFetch('clone_translations', 'int', $clone_translations, 0, XARVAR_NOT_REQUIRED)) {
return;
}
if ($clone_translations) {
// Get the info on all the objects to be cloned
sys::import('xaraya.structures.query');
$tables = xarDB::getTables();
$q = new Query();
$q->addtable($tables['publications'], 'p');
$q->addtable($tables['publications_types'], 'pt');
$q->join('p.pubtype_id', 'pt.id');
$q->eq('parent_id', $data['itemid']);
$q->addfield('p.id AS id');
$q->addfield('pt.name AS name');
$q->run();
// Clone each one
foreach ($q->output() as $item) {
$object = DataObjectMaster::getObject(array('name' => $item['name']));
$object->getItem(array('itemid' => $item['id']));
$object->properties['parent']->value = $cloneid;
$object->properties['id']->value = 0;
$object->createItem(array('itemid' => 0));
}
}
// Redirect if we came from somewhere else
$current_listview = xarSession::getVar('publications_current_listview');
if (!empty($return_url)) {
xarController::redirect($return_url);
} elseif (!empty($current_listview)) {
xarController::redirect($current_listview);
} else {
xarController::redirect(xarModURL('publications', 'user', 'view'));
}
return true;
}
return $data;
}
