| |
| |
|
 |
|
|
|
|
 |
"AA_SL_Session"));
$sess->register(r_packed_state_vars);
$sess->register(slices);
$r_state_vars = unserialize($r_packed_state_vars);
# there was problems with storing too much ids in session veriable,
# so I commented it out. It is not necessary to have it in session. The only
# reason to have it there is the display speed, but because of impementing
# pagecache.php3, it is not so big problem now
//$sess->register(item_ids);
list($usec, $sec) = explode(" ",microtime());
$slice_starttime = ((float)$usec + (float)$sec);
if ($encap) add_vars(""); # adds values from QUERY_STRING_UNESCAPED
# and REDIRECT_STRING_UNESCAPED
// p_arr_m( $r_state_vars );
if( ($key != $lock) OR $scrl ) # command is for other slice on page
RestoreVariables(); # or scroller
# url posted command to display specified text instead of slice content -------
if($slicetext) {
echo $slicetext;
ExitPage();
}
# url posted command to display another file ----------------------------------
if( $inc ) { # this section must be after add_vars()
// StoreVariables(array("inc")); # store in session
if( !eregi("^([0-9a-z_])+(\.[0-9a-z]*)?$", $inc) ) {
echo _m("Bad inc parameter - included file must be in the same directory as this .shtml file and must contain only alphanumeric characters"). " $inc";
ExitPage();
} else {
$fp = @fopen( shtml_base().$inc, "r"); # if encapsulated
if( !$fp )
echo _m("No such file") ." $inc";
else
FPassThru($fp);
ExitPage();
}
}
// Take any slice to work with
if (!$slice_id && is_array($slices)) {
reset ($slices);
$slice_id = current($slices);
}
$p_slice_id= q_pack_id($slice_id);
require_once $GLOBALS["AA_INC_PATH"]."javascript.php3";
$db = new DB_AA; // open BD
$db2 = new DB_AA; // open BD (for subqueries in order to fullfill fulltext in feeded items)
$db3 = new DB_AA; // open BD (for another subqueries)
# get fields info
list($fields) = GetSliceFields($slice_id);
# get slice info
$slice_info = GetSliceInfo($slice_id);
if ($slice_info AND ($slice_info[deleted]<1)) {
// include $GLOBALS["AA_INC_PATH"] . $slice_info[lang_file]; // language constants (used in searchform...)
}
else {
echo _m("Invalid slice number or slice was deleted") . " (ID: $slice_id)";
ExitPage();
}
// Use right language (from slice settings) - languages are used for scroller (Next, ...)
$lang_file = substr ($slice_info['lang_file'], 0, 2);
if (!$LANGUAGE_NAMES [$lang_file])
$lang_file = "en";
bind_mgettext_domain ($GLOBALS["AA_INC_PATH"]."lang/".$lang_file."_output_lang.php3");
if( !$slice_info['even_odd_differ'] )
$slice_info['even_row_format'] = "";
# it is possible to redefine the design of fulltext or compact view by the view
# see fview and iview url parameters for this file (slice.php3)
if( $fview || $iview ) {
if( $fview ) { # use formating from view for fulltext
$fview_info = GetViewInfo($fview);
if ($fview_info AND ($fview_info['deleted']<1)) {
$slice_info['fulltext_format'] = $fview_info['odd'];
$slice_info['fulltext_format_top'] = $fview_info['before'];
$slice_info['fulltext_format_bottom'] = $fview_info['after'];
$slice_info['fulltext_remove'] = $fview_info['remove_string'];
// print_r( $slice_info );
}
}
if( $iview ) { # use formating from view for index
$iview_info = GetViewInfo($iview);
if ($iview_info AND ($iview_info['deleted']<1)) {
$slice_info['group_by'] = $iview_info['group_by1'];
$slice_info['category_format'] = $iview_info['group_title'];
$slice_info['category_bottom'] = $iview_info['group_bottom'];
$slice_info['compact_top'] = $iview_info['before'];
$slice_info['compact_bottom'] = $iview_info['after'];
$slice_info['compact_remove'] = $iview_info['remove_string'];
$slice_info['even_row_format'] = $iview_info['even'];
$slice_info['odd_row_format'] = $iview_info['odd'];
$slice_info['even_odd_differ'] = $iview_info['even_odd_differ'];
}
}
}
define("DEFAULT_CODEPAGE","windows-1250");
if (!$encap)
Page_HTML_Begin ($slice_info[name]);
if( $bigsrch ) { # big search form ------------------------------------------
echo '';
ExitPage();
}
GetAliasesFromUrl();
$urlaliases = $aliases;
// if banner parameter supplied => set format
ParseBannerParam($slice_info, $banner);
# get alias list from database and possibly from url
# if working with multi-slice, get aliases for all slices
if (!is_array ($slices)) {
$aliases = GetAliasesFromFields($fields);
if (is_array ($urlaliases))
array_add ($urlaliases, $aliases);
}
else {
reset($slices);
while (list(,$slice) = each($slices)) {
list($fields) = GetSliceFields ($slice);
// hack for searching in multiple slices. This is not so nice part
// of code - we mix there $aliases[] with $aliases[][]
// it is needed by itemview::set_column() (see include/itemview.php3)
$aliases[q_pack_id($slice)] = GetAliasesFromFields($fields,$als);
if (is_array ($urlaliases))
array_add ($urlaliases, $aliases[q_pack_id($slice)]);
}
}
# fulltext view ---------------------------------------------------------------
if( $sh_itm OR $x ) {
// $r_state_vars = StoreVariables(array("sh_itm")); # store in session
if($sh_itm)
LogItem($sh_itm, "id");
else
$sh_itm = LogItem($x,"short_id");
if (!isset ($hideFulltext)) {
$itemview = new itemview($slice_info, $fields, $aliases, new zids($sh_itm,"l"),
0,1, $sess->MyUrl($slice_id, $encap));
$itemview->print_item();
}
// show discussion if assigned
$discussion_vid = ( $dview ? $dview : $slice_info['vid']);
if( $discussion_vid > 0 ) {
$db->query("SELECT view.*, slice.flag
FROM view, slice
WHERE slice.id='".q_pack_id($slice_id)."' AND view.id=$discussion_vid");
if( $db->next_record() ) {
$view_info = $db->Record;
// create array of parameters
$disc = array('ids'=>$all_ids ? "" : $ids,
'type'=>$add_disc ? "adddisc" : (($sel_ids || $all_ids) ? "fulltext" : "thread"),
'item_id'=> $sh_itm,
'vid'=> $view_info['id'],
'html_format' => $view_info['flag'] & DISCUS_HTML_FORMAT,
'parent_id' => $parent_id
);
$aliases = GetDiscussionAliases();
$format = GetDiscussionFormat($view_info);
$format['id'] = $p_slice_id; // set slice_id because of caching
$itemview = new itemview($format, "", $aliases, null,"", "", $sess->MyUrl($slice_id, $encap), $disc);
$itemview->print_discussion();
}
}
ExitPage();
}
# multiple items fulltext view ------------------------------------------------
if( $items AND is_array($items) ) { # shows all $items[] as fulltext one after one
// $r_state_vars = StoreVariables(array("items")); # store in session
while(list($k) = each( $items ))
$ids[] = substr($k,1); #delete starting character ('x') - used for interpretation of index as string, not number (by PHP)
$zids = new zids($ids,"l");
$itemview = new itemview($slice_info, $fields, $aliases, $zids, 0,$zids->count(), $sess->MyUrl($slice_id, $encap));
$itemview->print_itemlist();
ExitPage();
}
# compact view ----------------------------------------------------------------
if(!is_object($scr)) {
$sess->register(scr);
$scr = new easy_scroller("scr",
($scr_url ? $sess->url("$scr_url") : $sess->MyUrl($slice_id, $encap))."&",
$slice_info[d_listlen]);
}
// change number of listed items
if( $listlen )
$scr->metapage = $listlen;
// optional script parameter
if( ! $scr_go )
$scr_go = 1; // default start page = 1
// comes from easy_scroller -----------
if( $scrl && is_object ($scr))
$scr->update();
/* $easy_query .. easy query form
$srch .. bigsrch form ?? */
if ( ($easy_query || $srch)
&& ! (is_array($conds) OR isset($group_by) OR isset($sort))) {
if($easy_query) { # posted by easy query form ----------------
$r_state_vars = StoreVariables(array("listlen","no_scr","scr_go","srch_fld","srch_from", "srch_to",
"easy_query", "qry", "srch_relev")); # store in session
$item_ids = GetIDs_EasyQuery($fields, $db, $p_slice_id, $srch_fld,
$srch_from, $srch_to, $qry, $srch_relev);
if( isset($item_ids) AND !is_array($item_ids))
echo " $item_ids ";
if( !$scrl )
$scr->current = $scr_go;
}
elseif($srch) { # posted by bigsrch form -------------------
$r_state_vars = StoreVariables(array("listlen","no_scr","scr_go","big","search", "s_col")); # store in session
if( !$big )
$search[slice] = $slice_id;
$item_ids = SearchWhere($search, $s_col);
if( !$scrl )
$scr->current = $scr_go;
}
else if ($debug) echo "ERROR: This branch should never be entered.";
}
else {
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Parse parameters posted by query form and from $slice_info
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
$r_state_vars = StoreVariables(array("listlen","no_scr","scr_go","order","cat_id", "cat_name",
"exact","restrict","res_val","highlight","conds","group_by", "sort","als","defaultCondsOperator")); # store in session
// ***** CONDS *****
if( $cat_id ) { // optional parameter cat_id - deprecated - slow ------
$cat_group = GetCategoryGroup($slice_id);
$SQL = "SELECT value FROM constant
WHERE group_id = '$cat_group'
AND id = '". q_pack_id($cat_id) ."'";
$db->query($SQL);
if( $db->next_record() ) {
$conds[] = array (GetCategoryFieldId( $fields )=>1,
'value' => $db->f(value),
'operator' => ($exact ? '=' : 'LIKE'));
}
}
elseif ( $cat_name ) // optional parameter cat_name -------
$conds[] = array (GetCategoryFieldId( $fields )=>1,
'value' => $cat_name,
'operator' => ($exact ? '=' : 'LIKE'));
if ( $restrict )
$conds[] = array( $restrict=>1,
'value' => ((($res_val[0] == '"' OR $res_val[0] == "'") AND $exact != 2 ) ? $res_val : "'$res_val'"),
'operator' => ($exact ? '=' : 'LIKE'));
if( $highlight != "" )
$conds[] = array ('highlight.......' => 1);
if(is_array($conds)) {
if (! isset ($defaultCondsOperator))
$defaultCondsOperator = 'LIKE';
ParseEasyConds ($conds, $defaultCondsOperator);
reset($conds);
while( list( $k ) = each( $conds ))
SubstituteAliases( $als, $conds[$k]['value'] );
}
// ***** SORT *****
# order the fields in compact view
if( $order ) {
$order = GetSortArray ($order);
reset ($order);
list ($order, $orderdirection) = each ($order);
}
if ($debug)
echo "Group by: $group_by. Slice_info[category_sort] $slice_info[category_sort] slice_info[group_by] $slice_info[group_by]";
if( $group_by ) {
$foo = GetSortArray( $group_by );
$sort_tmp[] = $foo;
$slice_info["group_by"] = key($foo);
}
else if( $slice_info['category_sort'] ) {
$group_field = GetCategoryFieldId( $fields );
$grp_odir = (($order==$group_field) AND ($orderdirection!='d')) ? 'a':'d';
$sort_tmp[] = array ( $group_field => $grp_odir );
}
else if ($slice_info['group_by']) {
switch( (string)$slice_info['gb_direction'] ) { # gb_direction is number
case '1': $gbd = '1'; break; # 1 (1)- ascending by priority
case '8': $gbd = 'd'; break; # d (8) - descending
case '9': $gbd = '9'; break; # 9 (9)- descending by priority (for fields using constants)
default: $gbd = 'a'; # 2 (2) - ascending;
}
$sort_tmp[] = array ( $slice_info['group_by'] => $gbd);
}
if(isset($sort)) {
if( !is_array($sort) )
$sort_tmp[] = GetSortArray( $sort );
else {
ksort( $sort, SORT_NUMERIC); # it is not sorted and the order is important
reset($sort);
while( list($k, $srt) = each( $sort )) {
if ($srt) {
if( is_array($srt) )
$sort_tmp[] = array( key($srt) => (strtolower(current($srt)) == "d" ? 'd' : 'a'));
else
$sort_tmp[] = GetSortArray( $srt );
}
}
}
}
if( $order )
$sort_tmp[] = array ( $order => (( strstr('aAdD19',$orderdirection) ? $orderdirection : 'a')));
# time order the fields in compact view
$sort_tmp[] = array ( 'publish_date....' => (($timeorder == "rev") ? 'a' : 'd') );
if( isset($sort_tmp) )
$sort = $sort_tmp;
else
$sort[] = array ( 'publish_date....' => 'd' );
$zids=QueryZIDs($fields, $slice_id, $conds, $sort, $slice_info[group_by],
"ACTIVE", $slices, $neverAllItems, 0, $defaultCondsOperator, true );
// Commented out because queryids doesn't return error strings
// if( isset($item_ids) AND !is_array($item_ids))
// echo "$item_ids ";
if( !$scrl )
$scr->current = $scr_go;
//$slice_info[category_sort] = false; # do not sort by categories
}
if( !$srch AND !$encap AND !$easy_query ) {
$cur_cats=GetCategories($db,$p_slice_id); // get list of categories
pCatSelector($sess->name,$sess->id,$sess->MyUrl($slice_id, $encap, true),$cur_cats,$scr->filters[category_id][value], $slice_id, $encap);
}
//echo "aa - scr->current=$scr->current
";
if( $zids->count() > 0 ) {
$scr->countPages( $zids->count() );
$itemview = new itemview($slice_info, $fields, $aliases, $zids,
$scr->metapage * ($scr->current - 1),
($group_n ? -$group_n : $scr->metapage), # negative number used for displaying n-th group
$sess->MyUrl($slice_id, $encap) );
$itemview->print_view();
if( ($scr->pageCount() > 1) AND !$no_scr AND !$group_n)
$scr->pnavbar();
}
else {
echo $slice_info['noitem_msg'] ? // is keyword for removing 'no item message'
str_replace( '', '', $slice_info['noitem_msg']) :
(""._m("No item found") ." ");
}
if ($searchlog) PutSearchLog ();
if( $debug ) {
$timeend = getmicrotime();
$time = $timeend - $timestart;
echo "
Page generation time: $time";
}
ExitPage();
?>
|
|
|
|
| |
|
 |
|
|
|
©Portal La Unión - Reserva Paisajística de la Subcuenca del Cotahuasi
Email: info@cotahuasiarequipa.com Página Web: http://www.cotahuasiarequipa.com/
Webmaster: alain@aedes.com.pe |
|
