function alist_per_pageform($i)
{
    global $amain;
    if (empty($amain['list_rows_per_page'][$i])) {
        $amain['list_rows_per_page'][$i] = $amain['rows_per_page'];
    }
    $rowsperpage = amr_rows_per_page($amain['list_rows_per_page'][$i]);
    // will check for request
    $text = PHP_EOL;
    $text .= '<div class="perpage-box">' . '<input type="hidden"  name="ulist" value="' . $i . '"/>';
    $text .= '<label for="rows_per_page">' . __('Per page', 'amr-users');
    $text .= '<input type="text" name="rows_per_page" id="rows_per_page" size="3" value="' . $rowsperpage . '">';
    $text .= '</label>';
    $text .= '<input type="submit" name="refresh" id="perpage-submit" class="button" value="' . __('Apply', 'amr-users') . '"/>';
    $text .= '</div>' . PHP_EOL;
    return $text;
}
function alist_one($type = 'user', $ulist = 1, $options)
{
    //options  can be headings, csv, show_search, show_perpage
    /* Get the fields to use for the chosen list type */
    global $aopt, $amain, $amrusers_fieldfiltering, $amr_current_list, $amr_search_result_count;
    global $amr_refreshed_heading;
    if (empty($aopt['list'][$ulist])) {
        printf(__('No such list: %s', 'amr-users'), $ulist);
        return;
    }
    $l = $aopt['list'][$ulist];
    /* *get the config */
    do_action('amr-add-criteria-to-list', $ulist);
    // allows one to force criteria into the request field for example (eg: show only logged in user)
    $transient_suffix = amr_check_use_transient($ulist, $options);
    if ($transient_suffix) {
        // no filters, no search, no sort, nothing special happening
        //if (WP_DEBUG) echo '<br />using transient: '.$transient_suffix.'<br />';
        $html = get_transient('amr-users-html-for-list-' . $transient_suffix);
        if (!empty($html)) {
            if (current_user_can('administrator')) {
                echo '<br /><a href="' . add_query_arg('refresh', '1') . '" title="' . __('Note to logged in admin only: Now using temporary saved html (transient) for frontend.  Click to refresh.', 'amr-users') . '">!</a>';
            }
            return $html;
        }
    }
    $caption = '';
    $sortedbynow = '';
    if (empty($amain['list_rows_per_page'][$ulist])) {
        $amain['list_rows_per_page'][$ulist] = $amain['rows_per_page'];
    }
    $rowsperpage = amr_rows_per_page($amain['list_rows_per_page'][$ulist]);
    // will check request
    //  use $options as our 'request' input so shortcode parameters will work.
    // allow _REQUEST to override $options
    /*$request_override_allowed = array(
    		'filter',
    		'fieldvaluefilter',
    		'fieldnamefilter',
    		'sort'); */
    foreach ($_REQUEST as $param => $value) {
        // we do not know the column names, so jsut transfer all?
        $options[$param] = $value;
    }
    // figure out what we are doing - searching, filtering -------------------------------------------------------
    $search = '';
    if (!empty($options['su'])) {
        $search = strip_tags($options['su']);
    } elseif (isset($_REQUEST['clear_filtering'])) {
        // we do not need these then
        unset($_REQUEST['fieldnamefilter']);
        unset($_REQUEST['fieldvaluefilter']);
        unset($_REQUEST['filter']);
        //do we neeed to unset the individual cols? maybe not
    }
    $amrusers_fieldfiltering = false;
    if (!empty($options['filter'])) {
        //if (WP_DEBUG) {echo '<h1>Filtering</h1>';}
        foreach (array('fieldnamefilter', 'fieldvaluefilter') as $i => $filtertype) {
            if (isset($options[$filtertype])) {
                //if (WP_DEBUG) {echo '<br />doing: '.$filtertype;}
                foreach ($options[$filtertype] as $i => $col) {
                    if (empty($options[$col])) {
                        //ie showing all
                        unset($options[$filtertype][$i]);
                        unset($options[$col]);
                    } else {
                        $amrusers_fieldfiltering = true;
                    }
                    // set as we are maybe doing realtime filtering flag
                }
            }
        }
    }
    $c = new adb_cache();
    $rptid = $c->reportid($ulist, $type);
    if ($amrusers_fieldfiltering) {
        $lines = amr_build_user_data_maybe_cache($ulist);
        // since we are filtering, we will run realtime, but not save, else we would lose the normal report
        if (empty($lines)) {
            return;
        }
        $totalitems = count($lines);
        //if (WP_DEBUG) echo '<br /> field filtering & $totalitems='.$totalitems;
    } else {
        if (!$c->cache_exists($rptid) or isset($options['refresh'])) {
            if (amr_debug()) {
                _e('If debug only: Either refresh requested OR no cache exists.  A rebuild will be initiated .... ', 'amr-users');
            }
            $success = amr_try_build_cache_now($c, $ulist, $rptid);
            //$lines = amr_build_user_data_maybe_cache($ulist);
            $totalitems = $c->get_cache_totallines($rptid);
            //now need the lines, but first, paging check will tell us how many
            $amrusers_fieldfiltering = false;
            // already done if it must be
        } else {
            $totalitems = $c->get_cache_totallines($rptid);
        }
    }
    //---------- setup paging variables
    if ($totalitems < 1) {
        _e('No lines found.', 'amr-users');
        echo amr_users_get_refresh_link($ulist);
        return;
    }
    if ($rowsperpage > $totalitems) {
        $rowsperpage = $totalitems;
    }
    $lastpage = ceil($totalitems / $rowsperpage);
    if (!empty($_REQUEST['listpage'])) {
        // if we requested a page MUST use that
        $page = (int) $_REQUEST['listpage'];
    } else {
        // is a random page stipulated ?
        if (isset($options['show_randompage'])) {
            // allows a random page
            $page = rand(1, $lastpage);
        } else {
            // else.....start at the very beginning, a very good place to start...
            $page = 1;
        }
    }
    if ($page > $lastpage) {
        $page = $lastpage;
    }
    if ($page == 1) {
        $start = 1;
    } else {
        $start = 1 + ($page - 1) * $rowsperpage;
    }
    $shuffle = false;
    if (!empty($options['shuffle'])) {
        $shuffle = true;
    }
    $filtercol = array();
    //------------------------------------------------------------------------------------------		get the data
    if (!$amrusers_fieldfiltering) {
        // because already have lines if were doing field level filtering
        $headinglines = $c->get_cache_report_lines($rptid, 0, 2);
        /* get the internal heading names  for internal plugin use only */
        /* get the user defined heading names */
        if (!defined('str_getcsv')) {
            $icols = amr_str_getcsv($headinglines[0]['csvcontent'], ',', '"', '\\');
        } else {
            $icols = str_getcsv($headinglines[0]['csvcontent'], ',', '"', '\\');
        }
        $icols = array_unique($icols);
        //since may end up with two indices, eg if filtering and grouping by same value
        if (!defined('str_getcsv')) {
            $cols = amr_str_getcsv($headinglines[1]['csvcontent'], '","', '"', '\\');
        } else {
            $cols = str_getcsv($headinglines[1]['csvcontent'], ',', '"', '\\');
        }
        if (isset($options['filter']) or !empty($options['sort']) or !empty($options['su'])) {
            $lines = amr_get_lines_to_array($c, $rptid, 2, $totalitems + 1, $icols, $shuffle);
        } else {
            if (isset($options['start_empty'])) {
                $lines = array();
                $totalitems = 0;
            } else {
                $lines = amr_get_lines_to_array($c, $rptid, $start + 1, $rowsperpage, $icols, $shuffle);
            }
        }
    } else {
        // we are field filtering
        unset($lines[0]);
        // the tech lines and the headings line
        unset($lines[1]);
        $totalitems = count($lines);
        // must be here, only reset for field filtering
        $s = $l['selected'];
        asort($s);
        /* get the selected fields in the display  order requested */
        $cols = amr_build_col_headings($s);
        $icols = amr_build_cols($s);
        foreach ($lines as $i => $j) {
            $lines[$i] = amr_convert_indices($j, $icols);
        }
    }
    //------------------------------------------------------------------------------------------		display time filter check
    if (isset($options['filter'])) {
        // then we are filtering
        //if (amr_debug()) {
        //	var_dump($options['filter']);
        //	echo '<br />Check for filtering at display time <br />'; var_dump($icols);
        //	}
        foreach ($icols as $cindex => $col) {
            if (!empty($options[$col])) {
                if (!(isset($options['fieldnamefilter']) and in_array($col, $options['fieldnamefilter'])) and !(isset($options['fieldvaluefilter']) and in_array($col, $options['fieldvaluefilter']))) {
                    $filtercol[$col] = esc_attr($options[$col]);
                }
            }
        }
        if (!empty($options['index'])) {
            $filtercol['index'] = strip_tags($options['index']);
        }
        if (false and !$amrusers_fieldfiltering and empty($filtercol) and current_user_can('manage_options')) {
            //NO LONGER REQUIRED, keep for debug only helpful maybe message nlr or perhaps only if by url?  But could be trying own html? and be confused
            echo '<p>';
            _e('This Message shows to admin only!', 'amr-users');
            echo '<br />';
            _e('Filter requested.', 'amr-users');
            _e('Maybe you chose "show all", which is OKAY... or are attempting some own html or link ? .', 'amr-users');
            echo '<br />';
            _e('No valid filter column given.', 'amr-users');
            echo '<br />';
            _e('Column filter Usage is :', 'amr-users');
            echo '<br /><strong>';
            echo '?filter=hide&column_name=value<br />';
            echo '?filter=show&column_name=value</br> ';
            echo '?filter=1&column_name=value';
            echo '</strong></br> ';
            _e('Note: Hide only works if the column is currently being displayed.', 'amr-users');
            _e('For this list, expecting column_name to be one of ', 'amr-users');
            echo '<br />' . implode('<br />', $icols) . '<br />';
            echo '</p>';
        }
        if (!empty($filtercol)) {
            // for each of the filter columns that are not field filters
            foreach ($filtercol as $fcol => $value) {
                //if (amr_debug()) {echo '<hr>Apply filters for field "'.$fcol. '" against... '.$value; }
                foreach ($lines as $i => $line) {
                    //if (WP_DEBUG) {echo '<br>line=';  var_dump($line);}
                    if ($value === '*') {
                        if (empty($line[$fcol])) {
                            unset($lines[$i]);
                        } else {
                        }
                    } elseif ($value === '-') {
                        if (!empty($line[$fcol])) {
                            unset($lines[$i]);
                        } else {
                        }
                    } elseif (empty($line[$fcol])) {
                        unset($lines[$i]);
                    } else {
                        if ($fcol == 'ID') {
                            // id can have  filtering  - allows link to profile page
                            if (!($line[$fcol] == $value)) {
                                /// amr ??
                                unset($lines[$i]);
                            }
                        } else {
                            if (!strstr($line[$fcol], $value)) {
                                // fuzzy filtering - hmm why - maybe not???
                                // is it to avoid situation where value may have spaces before/after ???
                                unset($lines[$i]);
                            }
                        }
                    }
                    //else if (!($line[$fcol] == $value)) {  strisstr will catch these ?
                    //}
                    if ($options['filter'] == 'hide') {
                        unset($lines[$i][$fcol]);
                    }
                }
                // if hiding, delete that column
                if ($options['filter'] == 'hide') {
                    foreach ($icols as $cindex => $col) {
                        if ($fcol == $col) {
                            unset($icols[$cindex]);
                            unset($cols[$cindex]);
                        }
                    }
                }
                // end delete col
                //if (WP_DEBUG) echo '<br />Lines left '.count($lines);
            }
            //-----------------------------------------------------------------------------
            $amr_search_result_count = count($lines);
            $totalitems = $amr_search_result_count;
            // slice the right section of the returned values based on rowsperpage and currentpage
            // update the paging variables
            if ($amr_search_result_count > 0 and $rowsperpage > $amr_search_result_count) {
                $rowsperpage = $amr_search_result_count;
            }
            $lastpage = ceil($amr_search_result_count / $rowsperpage);
            if ($page > $lastpage) {
                $page = $lastpage;
            }
            if ($page == 1) {
                $start = 1;
            } else {
                $start = 1 + ($page - 1) * $rowsperpage;
            }
        }
        //echo '<br />count lines = '.$amr_search_result_count. ' '.$start. ' '. $rowsperpage;
        $lines = array_slice($lines, $start - 1, $rowsperpage, true);
    }
    //end if
    //------------------------------------------------------------------------------------------	 check for sort or search
    if (!empty($options['sort']) or !empty($search)) {
        /* then we want to sort, so have to fetch ALL the lines first and THEN sort.  Keep page number in case workingthrough the list  ! */
        // if searching also want all the lines first so can search within and do pagination correctly
        if ($lines) {
            $linesunsorted = amr_check_for_sort_request($lines);
            $linesunsorted = array_values($linesunsorted);
            /* reindex as our indexing is stuffed and splice will not work properly */
            //if (!empty($search)) $totalitems = count($linesunsorted);	//save total here before splice
            $lines = array_splice($linesunsorted, $start - 1, $rowsperpage);
            unset($linesunsorted);
            // free up memory?
            /* now fix the cache headings*/
            $sortedbynow = '';
            if (!empty($options['sort'])) {
                foreach ($icols as $i => $t) {
                    if ($t == $options['sort']) {
                        $sortedbynow = strip_tags($cols[$i]);
                    }
                }
                $sortedbynow = '<li><em>' . __('Sorted by:', 'amr-users') . '</em>' . $sortedbynow . '</li><li class="sort">';
            }
        }
    }
    //------------------------------------------------------------------------------------------------------------------finished filtering and sorting
    //var_dump($lines);
    $html = amr_display_final_list($lines, $icols, $cols, $page, $rowsperpage, $totalitems, $caption, $search, $ulist, $c, $filtercol, $sortedbynow, $options);
    if ($transient_suffix) {
        // ie no filters, no search, no sort, nothing special happening
        $expiration = empty($amain['transient_expiration']) ? 60 : $amain['transient_expiration'];
        //allow setting later
        set_transient('amr-users-html-for-list-' . $transient_suffix, $html, $expiration);
        track_progress('Transient set for html for list ' . $transient_suffix);
    }
    return $html;
}