function wppa_series_to_array($xtxt)
{
    if (is_array($xtxt)) {
        return false;
    }
    $txt = str_replace(' ', '', $xtxt);
    // Remove spaces
    if (strpos($txt, '.') === false) {
        return false;
    }
    // Not an enum/series, the only legal way to return false
    if (strpos($txt, '...') !== false) {
        wppa_stx_err('Max 2 successive dots allowed. ' . $txt);
        return false;
    }
    if (substr($txt, 0, 1) == '.') {
        wppa_stx_err('Missing starting number. ' . $txt);
        return false;
    }
    if (substr($txt, -1) == '.') {
        wppa_stx_err('Missing ending number. ' . $txt);
        return false;
    }
    $t = str_replace(array('.', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9'), '', $txt);
    if ($t) {
        wppa_stx_err('Illegal character(s): "' . $t . '" found. ' . $txt);
        return false;
    }
    // Trim leading '0.'
    if (substr($txt, 0, 2) == '0.') {
        $txt = substr($txt, 2);
    }
    $temp = explode('.', $txt);
    $tempcopy = $temp;
    foreach (array_keys($temp) as $i) {
        if (!$temp[$i]) {
            // found a '..'
            if ($temp[$i - '1'] >= $temp[$i + '1']) {
                wppa_stx_err('Start > end. ' . $txt);
                return false;
            }
            for ($j = $temp[$i - '1'] + '1'; $j < $temp[$i + '1']; $j++) {
                $tempcopy[] = $j;
            }
        } else {
            if (!is_numeric($temp[$i])) {
                wppa_stx_err('A enum or range token must be a number. ' . $txt);
                return false;
            }
        }
    }
    $result = $tempcopy;
    foreach (array_keys($result) as $i) {
        if (!$result[$i]) {
            unset($result[$i]);
        }
    }
    return $result;
}
function wppa_albums($id = '', $type = '', $size = '', $align = '')
{
    global $wppa_lang;
    global $wppa_locale;
    global $wpdb;
    global $thumbs;
    global $wppa_session;
    // Diagnostics
    wppa_dbg_msg('Entering wppa_albums');
    wppa_dbg_msg('Lang=' . $wppa_lang . ', Locale=' . $wppa_locale . ', Ajax=' . wppa('ajax'));
    wppa_dbg_msg('$wppa_session = ' . serialize($wppa_session));
    // List content filters
    // Data struct:	$wp_filter[$tag][$priority][$idx] = array( 'function' => $function_to_add, 'accepted_args' => $accepted_args );
    if (wppa('debug') && wppa('mocc') == '0') {
        global $wp_filter;
        wppa_dbg_msg('Start content filters', 'green');
        foreach (array_keys($wp_filter['the_content']) as $key) {
            foreach (array_keys($wp_filter['the_content'][$key]) as $key2) {
                $func = is_array($wp_filter['the_content'][$key][$key2]['function']) ? serialize($wp_filter['the_content'][$key][$key2]['function']) : $wp_filter['the_content'][$key][$key2]['function'];
                wppa_dbg_msg('Pri:' . $key . ', func: ' . $func . ', args: ' . $wp_filter['the_content'][$key][$key2]['accepted_args']);
            }
        }
        wppa_dbg_msg('End content filters', 'green');
    }
    // Process a user upload request, if any. Do it here: it may affect this occurences display
    wppa_user_upload();
    // Test for scheduled publications
    wppa_publish_scheduled();
    // First calculate the occurance
    if (wppa('ajax')) {
        if (wppa_get_get('moccur')) {
            wppa('mocc', wppa_get_get('moccur'));
            if (!is_numeric(wppa('mocc'))) {
                wp_die('Security check failure 1');
            }
        } else {
            wppa('mocc', '1');
        }
        wppa('fullsize', wppa_get_get('wppa-size', wppa_get_container_width()));
        if (wppa_get_get('occur')) {
            wppa('occur', wppa_get_get('occur'));
            if (!is_numeric(wppa('occur'))) {
                wp_die('Security check failure 2');
            }
        }
        if (wppa_get_get('woccur')) {
            wppa('widget_occur', wppa_get_get('woccur'));
            wppa('in_widget', true);
            if (!is_numeric(wppa('widget_occur'))) {
                wp_die('Security check failure 3');
            }
        }
    } else {
        wppa('mocc', wppa('mocc') + '1');
        if (wppa_in_widget()) {
            wppa('widget_occur', wppa('widget_occur') + '1');
        } else {
            wppa('occur', wppa('occur') + '1');
        }
    }
    // Set wppa( 'src' ) = true and wppa( 'searchstring' ) if this occurrance processes a search request.
    wppa_test_for_search();
    // There are 3 ways to get here:
    // in order of priority:
    // 1. The given query string applies to this invocation ( occurrance )
    //    This invocation requires the ignorance of the filter results and the interpretation of the querystring.
    if ((wppa_get_get('occur') || wppa_get_get('woccur')) && (wppa_in_widget() && wppa('widget_occur') == wppa_get_get('woccur') || !wppa_in_widget() && wppa('occur') == wppa_get_get('occur')) && !wppa('is_autopage')) {
        // Process query string
        wppa_out(wppa_dbg_msg('Querystring applied', 'brown', false, true));
        wppa('start_album', wppa_get_get('album'));
        wppa('is_cover', wppa_get_get('cover'));
        wppa('is_slide', wppa_get_get('slide') || wppa_get_get('album') !== false && wppa_get_get('photo'));
        if (wppa('is_slide')) {
            wppa('start_photo', wppa_get_get('photo'));
            // Start a slideshow here
        } else {
            wppa('single_photo', wppa_get_get('photo'));
            // Photo is the single photoid
        }
        wppa('is_single', wppa_get_get('single'));
        // Is a one image slideshow
        wppa('topten_count', wppa_force_numeric_else(wppa_get_get('topten'), wppa_opt('topten_count')));
        wppa('is_topten', wppa('topten_count') != '0');
        wppa('lasten_count', wppa_force_numeric_else(wppa_get_get('lasten'), wppa_opt('lasten_count')));
        wppa('is_lasten', wppa('lasten_count') != '0');
        wppa('comten_count', wppa_force_numeric_else(wppa_get_get('comten'), wppa_opt('comten_count')));
        wppa('is_comten', wppa('comten_count') != '0');
        wppa('featen_count', wppa_force_numeric_else(wppa_get_get('featen'), wppa_opt('featen_count')));
        wppa('is_featen', wppa('featen_count') != '0');
        wppa('albums_only', wppa_get_get('albums-only'));
        wppa('photos_only', wppa_get_get('photos-only'));
        wppa('related_count', wppa_force_numeric_else(wppa_get_get('relcount'), wppa_opt('related_count')));
        wppa('is_related', wppa_get_get('rel'));
        if (wppa('is_related') == 'tags') {
            wppa('is_tag', wppa_get_related_data());
            if (wppa('related_count') == '0') {
                wppa('related_count', wppa_opt('related_count'));
            }
        } else {
            wppa('is_tag', trim(strip_tags(wppa_get_get('tag')), ',;'));
        }
        if (wppa('is_related') == 'desc') {
            wppa('src', true);
            if (wppa('related_count') == '0') {
                wppa('related_count', wppa_opt('related_count'));
            }
            wppa('searchstring', str_replace(';', ',', wppa_get_related_data()));
            wppa('photos_only', true);
        }
        if (wppa('is_tag')) {
            wppa_dbg_msg('Is Tag: ' . wppa('is_tag'));
        } else {
            wppa_dbg_msg('Is NOT Tag');
        }
        wppa('page', wppa_get_get('page'));
        if (wppa_get_get('superview')) {
            $wppa_session['superview'] = wppa('is_slide') ? 'slide' : 'thumbs';
            $wppa_session['superalbum'] = wppa('start_album');
            wppa_save_session();
            wppa('photos_only', true);
        }
        wppa('is_upldr', wppa_get_get('upldr'));
        if (wppa('is_upldr')) {
            wppa('photos_only', true);
        }
        wppa('is_owner', wppa_get_get('owner'));
        if (wppa('is_owner')) {
            $albs = $wpdb->get_results($wpdb->prepare("SELECT * FROM `" . WPPA_ALBUMS . "` WHERE `owner` = %s ", wppa('is_owner')), ARRAY_A);
            wppa_dbg_q('Q-Main-1');
            wppa_cache_album('add', $albs);
            $id = '';
            if ($albs) {
                foreach ($albs as $alb) {
                    $id .= $alb['id'] . '.';
                }
            }
            $id = rtrim($id, '.');
            wppa('start_album', $id);
        }
        wppa('supersearch', strip_tags(wppa_get_get('supersearch')));
        $wppa_session['supersearch'] = wppa('supersearch');
        wppa_save_session();
        if (wppa('supersearch')) {
            $ss_info = explode(',', wppa('supersearch'));
            if ($ss_info['0'] == 'a') {
                wppa('albums_only', true);
            } else {
                wppa('photos_only', true);
            }
        }
        wppa('calendar', strip_tags(wppa_get_get('calendar')));
        wppa('caldate', strip_tags(wppa_get_get('caldate')));
        wppa('is_inverse', wppa_get_get('inv'));
    } elseif ($id != '' || $type != '' || $size != '' || $align != '') {
        // Do NOT Set internal defaults here, they may be set before the call
        // Interprete function args
        if ($type == 'album') {
        } elseif ($type == 'cover') {
            wppa('is_cover', true);
        } elseif ($type == 'slide') {
            wppa('is_slide', true);
        } elseif ($type == 'slideonly') {
            wppa('is_slideonly', true);
        }
        if ($type == 'photo' || $type == 'mphoto' || $type == 'slphoto') {
            // Any type of single photo? id given is photo id
            if ($id) {
                wppa('single_photo', $id);
            }
        } else {
            // Not single photo: id given is album id
            if ($id) {
                wppa('start_album', $id);
            }
        }
    } else {
        if (wppa('bestof')) {
            $args = wppa('bestof_args');
            wppa_bestof_box($args);
            $out = wppa('out');
            wppa_reset_occurrance();
            return $out;
        } elseif (wppa('is_landing') && !wppa('src')) {
            wppa_dbg_msg('Nothing to do...');
            wppa_reset_occurrance();
            return '';
            // Do nothing on a landing page without a querystring while it is also not a search operation
        } elseif (wppa('is_autopage')) {
            $photo = $wpdb->get_var($wpdb->prepare("SELECT `id` FROM `" . WPPA_PHOTOS . "` WHERE `page_id` = %d LIMIT 1", get_the_ID()));
            wppa('single_photo', $photo);
            wppa_dbg_q('Q-main-2');
            if (!wppa('single_photo')) {
                wppa_dbg_msg('No photo found for page ' . get_the_ID(), 'red', 'force');
                wppa_reset_occurrance();
                return '';
                // Give up
            }
            $type = wppa_opt('auto_page_type');
            switch ($type) {
                case 'photo':
                    break;
                case 'mphoto':
                    wppa('is_mphoto', true);
                    break;
                case 'slphoto':
                    wppa('is_slide', true);
                    wppa('start_photo', wppa('single_photo'));
                    wppa('is_single', true);
                    break;
                default:
                    wppa_dbg_msg('Unimplemented type autopage display: ' . $type, 'red', 'force');
            }
        }
    }
    // Convert any keywords and / or names to numbers
    // Search for album keyword
    if (wppa('start_album') && !wppa_is_int(wppa('start_album'))) {
        if (substr(wppa('start_album'), 0, 1) == '#') {
            // Keyword
            $keyword = wppa('start_album');
            if (strpos($keyword, ',')) {
                $keyword = substr($keyword, 0, strpos($keyword, ','));
            }
            switch ($keyword) {
                //	( substr( wppa( 'start_album'], 0, 5 ) ) {
                case '#last':
                    // Last upload
                    $id = wppa_get_youngest_album_id();
                    if (wppa('is_cover')) {
                        // To make sure the ordering sequence is ok.
                        $temp = explode(',', wppa('start_album'));
                        if (isset($temp['1'])) {
                            wppa('last_albums_parent', $temp['1']);
                        } else {
                            wppa('last_albums_parent', '0');
                        }
                        if (isset($temp['2'])) {
                            wppa('last_albums', $temp['2']);
                        } else {
                            wppa('last_albums', false);
                        }
                    } else {
                        // Ordering seq is not important, convert to album enum
                        $temp = explode(',', wppa('start_album'));
                        if (isset($temp['1'])) {
                            $parent = wppa_album_name_to_number($temp['1']);
                        } else {
                            $parent = '0';
                        }
                        if ($parent === false) {
                            return;
                        }
                        if (isset($temp['2'])) {
                            $limit = $temp['2'];
                        } else {
                            $limit = false;
                        }
                        if ($limit) {
                            if ($parent) {
                                if ($limit) {
                                    $q = $wpdb->prepare("SELECT * FROM `" . WPPA_ALBUMS . "` WHERE `a_parent` = %s ORDER BY `timestamp` DESC LIMIT %d", $parent, $limit);
                                } else {
                                    $q = $wpdb->prepare("SELECT * FROM `" . WPPA_ALBUMS . "` WHERE `a_parent` = %s ORDER BY `timestamp` DESC", $parent);
                                }
                            } else {
                                if ($limit) {
                                    $q = $wpdb->prepare("SELECT * FROM `" . WPPA_ALBUMS . "` ORDER BY `timestamp` DESC LIMIT %d", $limit);
                                } else {
                                    $q = "SELECT * FROM `" . WPPA_ALBUMS . "` ORDER BY `timestamp` DESC";
                                }
                            }
                            $albs = $wpdb->get_results($q, ARRAY_A);
                            wppa_dbg_q('Q-main-3');
                            wppa_cache_album('add', $albs);
                            if (is_array($albs)) {
                                foreach (array_keys($albs) as $key) {
                                    $albs[$key] = $albs[$key]['id'];
                                }
                            }
                            $id = implode('.', $albs);
                        }
                    }
                    break;
                case '#topten':
                    $temp = explode(',', wppa('start_album'));
                    $id = isset($temp[1]) ? $temp[1] : '0';
                    wppa('topten_count', isset($temp[2]) ? $temp[2] : wppa_opt('topten_count'));
                    wppa('is_topten', true);
                    if (wppa('is_cover')) {
                        wppa_dbg_msg('A topten album has no cover. ' . wppa('start_album'), 'red', 'force');
                        wppa_reset_occurrance();
                        return;
                        // Give up this occurence
                    }
                    break;
                case '#lasten':
                    $temp = explode(',', wppa('start_album'));
                    $id = isset($temp[1]) ? $temp[1] : '0';
                    wppa('lasten_count', isset($temp[2]) ? $temp[2] : wppa_opt('lasten_count'));
                    wppa('is_lasten', true);
                    if (wppa('is_cover')) {
                        wppa_dbg_msg('A lasten album has no cover. ' . wppa('start_album'), 'red', 'force');
                        wppa_reset_occurrance();
                        return;
                        // Give up this occurence
                    }
                    break;
                case '#comten':
                    $temp = explode(',', wppa('start_album'));
                    $id = isset($temp[1]) ? $temp[1] : '0';
                    wppa('comten_count', isset($temp[2]) ? $temp[2] : wppa_opt('comten_count'));
                    wppa('is_comten', true);
                    if (wppa('is_cover')) {
                        wppa_dbg_msg('A comten album has no cover. ' . wppa('start_album'), 'red', 'force');
                        wppa_reset_occurrance();
                        return;
                        // Give up this occurence
                    }
                    break;
                case '#featen':
                    $temp = explode(',', wppa('start_album'));
                    $id = isset($temp[1]) ? $temp[1] : '0';
                    wppa('featen_count', isset($temp[2]) ? $temp[2] : wppa_opt('featen_count'));
                    wppa('is_featen', true);
                    if (wppa('is_cover')) {
                        wppa_dbg_msg('A featen album has no cover. ' . wppa('start_album'), 'red', 'force');
                        wppa_reset_occurrance();
                        return;
                        // Give up this occurence
                    }
                    break;
                case '#related':
                    $temp = explode(',', wppa('start_album'));
                    $type = isset($temp[1]) ? $temp[1] : 'tags';
                    // tags is default type
                    wppa('related_count', isset($temp[2]) ? $temp[2] : wppa_opt('related_count'));
                    wppa('is_related', $type);
                    $data = wppa_get_related_data();
                    if ($type == 'tags') {
                        wppa('is_tag', $data);
                    }
                    if ($type == 'desc') {
                        wppa('src', true);
                        wppa('searchstring', str_replace(';', ',', $data));
                        wppa('photos_only', true);
                    }
                    wppa('photos_only', true);
                    $id = '0';
                    break;
                case '#tags':
                    wppa('is_tag', wppa_sanitize_tags(substr(wppa('start_album'), 6), true));
                    $id = '0';
                    wppa('photos_only', true);
                    break;
                case '#cat':
                    $temp = explode(',', wppa('start_album'));
                    $cat = isset($temp[1]) ? $temp[1] : '';
                    $cat = trim(wppa_sanitize_tags($cat), ',');
                    wppa('is_cat', $cat);
                    if (!$cat) {
                        wppa_dbg_msg('Missing cat #cat album spec: ' . wppa('start_album'), 'red', 'force');
                        wppa_reset_occurrance();
                        return;
                        // Forget this occurrance
                    }
                    $albs = $wpdb->get_results("SELECT * FROM `" . WPPA_ALBUMS . "`", ARRAY_A);
                    wppa_dbg_q('Q-main-4');
                    wppa_cache_album('add', $albs);
                    $id = '';
                    if ($albs) {
                        foreach ($albs as $alb) {
                            $temp = explode(',', $alb['cats']);
                            if (in_array($cat, $temp)) {
                                $id .= $alb['id'] . '.';
                            }
                        }
                    }
                    $id = rtrim($id, '.');
                    break;
                case '#owner':
                    $temp = explode(',', wppa('start_album'));
                    $owner = isset($temp[1]) ? $temp[1] : '';
                    if ($owner == '#me') {
                        if (is_user_logged_in()) {
                            $owner = wppa_get_user();
                        } else {
                            // User not logged in, ignore shortcode
                            wppa_reset_occurrance();
                            return;
                            // Forget this occurrance
                        }
                    }
                    if (!$owner) {
                        wppa_dbg_msg('Missing owner in #owner album spec: ' . wppa('start_album'), 'red', 'force');
                        wppa_reset_occurrance();
                        return;
                        // Forget this occurrance
                    }
                    $parent = isset($temp[2]) ? wppa_album_name_to_number($temp[2]) : '0';
                    if ($parent === false) {
                        return;
                    }
                    if (!$parent) {
                        $parent = '-1.0';
                    }
                    if ($parent) {
                        // Valid parent spec
                        $parent_arr = explode('.', wppa_expand_enum($parent));
                        $id = wppa_alb_to_enum_children($parent);
                        // Verify all albums are owned by $owner and are directly under a parent album
                        $id = wppa_expand_enum($id);
                        $albs = explode('.', $id);
                        if ($albs) {
                            foreach (array_keys($albs) as $idx) {
                                if (wppa_get_album_item($albs[$idx], 'owner') != $owner || !in_array(wppa_get_album_item($albs[$idx], 'a_parent'), $parent_arr)) {
                                    unset($albs[$idx]);
                                }
                            }
                        }
                        $id = implode('.', $albs);
                        if (!$id) {
                            $id = '-9';
                            // Force nothing found
                            //				wppa_reset_occurrance();
                            //				return;	// No children found
                        }
                    }
                    wppa('is_owner', $owner);
                    break;
                case '#upldr':
                    $temp = explode(',', wppa('start_album'));
                    $owner = isset($temp[1]) ? $temp[1] : '';
                    if ($owner == '#me') {
                        if (is_user_logged_in()) {
                            $owner = wppa_get_user();
                        } else {
                            // User not logged in, ignore shortcode
                            wppa_reset_occurrance();
                            return;
                            // Forget this occurrance
                        }
                    }
                    if (!$owner) {
                        wppa_dbg_msg('Missing owner in #upldr album spec: ' . wppa('start_album'), 'red', 'force');
                        wppa_reset_occurrance();
                        return;
                        // Forget this occurrance
                    }
                    $parent = isset($temp[2]) ? wppa_album_name_to_number($temp[2]) : '0';
                    if ($parent === false) {
                        return;
                    }
                    // parent specified but not a valid value
                    if ($parent) {
                        // Valid parent spec
                        $id = wppa_alb_to_enum_children(wppa_expand_enum($parent));
                        if (!$id) {
                            wppa_reset_occurrance();
                            return;
                            // No children found
                        }
                    } else {
                        // No parent spec
                        $id = '0';
                    }
                    wppa('is_upldr', $owner);
                    wppa('photos_only', true);
                    break;
                case '#all':
                    $id = '-2';
                    break;
                default:
                    wppa_dbg_msg('Unrecognized album keyword found: ' . wppa('start_album'), 'red', 'force');
                    wppa_reset_occurrance();
                    return;
                    // Forget this occurrance
            }
            wppa('start_album', $id);
        }
    }
    // See if the album id is a name and convert it if possible
    wppa('start_album', wppa_album_name_to_number(wppa('start_album')));
    if (wppa('start_album') === false) {
        wppa_reset_occurrance();
        return;
    }
    // Also for parents
    wppa('last_albums_parent', wppa_album_name_to_number(wppa('last_albums_parent')));
    if (wppa('last_albums_parent') === false) {
        wppa_reset_occurrance();
        return;
    }
    // Check if album is valid
    if (strpos(wppa('start_album'), '.') !== false) {
        // Album may be enum
        if (!wppa_series_to_array(wppa('start_album'))) {
            // Syntax error
            wppa_reset_occurrance();
            return;
        }
    } elseif (wppa('start_album') && !is_numeric(wppa('start_album'))) {
        wppa_stx_err('Unrecognized Album identification found: ' . wppa('start_album'));
        wppa_reset_occurrance();
        return;
        // Forget this occurrance
    } elseif (wppa('start_album') > '0') {
        // -2 is #all
        if (!wppa_album_exists(wppa('start_album'))) {
            wppa_stx_err('Album does not exist: ' . wppa('start_album'));
            wppa_reset_occurrance();
            return;
            // Forget this occurrance
        }
    }
    // See if the photo id is a keyword and convert it if possible
    if (wppa('single_photo') && !is_numeric(wppa('single_photo'))) {
        if (substr(wppa('single_photo'), 0, 1) == '#') {
            // Keyword
            switch (wppa('single_photo')) {
                case '#potd':
                    // Photo of the day
                    $t = wppa_get_potd();
                    if (is_array($t)) {
                        $id = $t['id'];
                    } else {
                        $id = '0';
                    }
                    break;
                case '#last':
                    // Last upload
                    $id = wppa_get_youngest_photo_id();
                    break;
                default:
                    wppa_dbg_msg('Unrecognized photo keyword found: ' . wppa('single_photo'), 'red', 'force');
                    wppa_reset_occurrance();
                    return;
                    // Forget this occurrance
            }
            wppa('single_photo', $id);
        }
    }
    // See if the photo id is a name and convert it if possible
    if (wppa('single_photo') && !is_numeric(wppa('single_photo'))) {
        if (substr(wppa('single_photo'), 0, 1) == '$') {
            // Name
            $id = wppa_get_photo_id_by_name(substr(wppa('single_photo'), 1));
            if ($id > '0') {
                wppa('single_photo', $id);
            } else {
                wppa_dbg_msg('Photo name not found: ' . wppa('single_photo'), 'red', 'force');
                wppa_reset_occurrance();
                return;
                // Forget this occurrance
            }
        }
    }
    // Size and align
    if (is_numeric($size)) {
        wppa('fullsize', $size);
    } elseif ($size == 'auto') {
        wppa('auto_colwidth', true);
    }
    if ($align == 'left' || $align == 'center' || $align == 'right') {
        wppa('align', $align);
    }
    // Empty related shortcode?
    if (wppa('is_related')) {
        $thumbs = wppa_get_thumbs();
        if (empty($thumbs)) {
            wppa_errorbox(__('No related photos found.', 'wp-photo-album-plus'));
            $result = wppa('out');
            wppa_reset_occurrance();
            // Forget this occurrance
            return $result;
        }
    }
    // Subsearch or rootsearch?
    if (wppa('occur') == '1' && $wppa_session['has_searchbox'] && !wppa('in_widget')) {
        // Is it a search now?
        if (wppa('src')) {
            // Is the subsearch box checked?
            wppa('is_subsearch', wppa_get_get('subsearch') || wppa_get_post('subsearch'));
            // Is the rootsearch box checked?
            wppa('is_rootsearch', wppa_get_get('rootsearch') || wppa_get_post('rootsearch'));
            // No rootsearch, forget previous root
            if (!wppa('is_rootsearch')) {
                $wppa_session['search_root'] = '0';
                wppa_save_session();
            }
        } else {
            // Find new potential searchroot
            if (isset($_REQUEST['wppa-searchroot'])) {
                wppa('start_album', strval(intval($_REQUEST['wppa-searchroot'])));
            }
            // Update session with new searchroot
            $wppa_session['search_root'] = wppa('start_album');
            wppa_save_session();
        }
        // Update searchroot in search boxes
        $rt = $wppa_session['search_root'];
        if (!$rt) {
            $rt = '0';
        }
        // must be non-empty string
        wppa_add('src_script', 'jQuery(document).ready(function(){wppaUpdateSearchRoot( \'' . esc_js(wppa_display_root($rt)) . '\', ' . $rt . ' )});');
        // If not search forget previous results
        if (!wppa('src')) {
            $wppa_session['use_searchstring'] = '';
            $wppa_session['display_searchstring'] = '';
            wppa_save_session();
            wppa_add('src_script', "\n" . 'jQuery(document).ready(function(){wppaClearSubsearch()});');
        } else {
            // Enable subbox
            wppa_add('src_script', 'jQuery(document).ready(function(){wppaEnableSubsearch()});');
        }
    }
    // Is it url?
    if (wppa('is_url')) {
        if (wppa_photo_exists(wppa('single_photo'))) {
            wppa_out(wppa_get_hires_url(wppa('single_photo')));
        } else {
            wppa_dbg_msg(sprintf('Photo %s not found', wppa('single_photo')), 'red', 'force');
        }
    } elseif (wppa('is_stereobox')) {
        wppa_stereo_box();
    } elseif (wppa('is_searchbox')) {
        wppa_search_box('', wppa('may_sub'), wppa('may_root'));
    } elseif (wppa('is_superviewbox')) {
        wppa_superview_box(wppa('start_album'));
    } elseif (wppa('is_multitagbox')) {
        wppa_multitag_box(wppa('tagcols'), wppa('taglist'));
    } elseif (wppa('is_tagcloudbox')) {
        wppa_tagcloud_box(wppa('taglist'), wppa_opt('tagcloud_min'), wppa_opt('tagcloud_max'));
    } elseif (wppa('is_upload')) {
        wppa_upload_box();
    } elseif (wppa('is_supersearch')) {
        wppa_supersearch_box();
    } elseif (wppa('is_mphoto') == '1') {
        if (wppa('is_autopage')) {
            wppa_auto_page_links('top');
        }
        wppa_mphoto();
        if (wppa('is_autopage')) {
            wppa_auto_page_links('bottom');
        }
    } elseif (wppa_page('oneofone')) {
        if (wppa('is_autopage')) {
            wppa_auto_page_links('top');
        }
        wppa_sphoto();
        if (wppa('is_autopage')) {
            wppa_auto_page_links('bottom');
        }
    } elseif (wppa('is_calendar')) {
        wppa_calendar_box();
    } else {
        if (function_exists('wppa_theme')) {
            if (wppa('is_autopage')) {
                wppa_auto_page_links('top');
            }
            wppa_theme();
            // Call the theme module
            if (wppa('is_autopage')) {
                wppa_auto_page_links('bottom');
            }
        } else {
            wppa_out('<span style="color:red">ERROR: Missing function wppa_theme(), check the installation of WPPA+. Remove customized wppa_theme.php</span>');
        }
        global $wppa_version;
        $expected_version = '6-3-14-000';
        if ($wppa_version != $expected_version) {
            wppa_dbg_msg('WARNING: customized wppa-theme.php is out of rev. Expected version: ' . $expected_version . ' found: ' . $wppa_version, 'red');
        }
    }
    // Done
    $out = str_replace('w#location', wppa('geo'), wppa('out'));
    // Reset
    wppa_reset_occurrance();
    return $out;
}