and Thralling Penguin, LLC * @package AgileBill * @version 1.4.93 */ class LevelGraph extends Level_Base { var $lev_setting; var $lev_items; var $SQL_filtered; var $group_level; var $grouping_criteria; var $formatter; var $graph; var $plotarea; var $dataset; var $canvas; function LevelGraph ( $title = '', $width=800, $height=300, $type='bar', $direction = 'vertical', $x_angle = 90) { if(!strlen($direction)) $direction = 'vertical'; $this->lev_setting = array( "title" => $title, "width" => $width, "height" => $height, "y_label_angle" => 0, "x_label_angle" => intval($x_angle), "type" => $type, "direction" => $direction, "SQL_criteria" => '' ); } function addDataset ($SQL_select, $SQL_criteria='', $SQL_order='') { $this->dataset[] = array( "SQL_select" => $SQL_select, "SQL_criteria" => $SQL_criteria, "SQL_order" => $SQL_order ); } function display ($grouping_criteria = Null, $grouping_aggregate = Null, &$formatter) { $this->formatter =& $formatter; $this->formatter->setLevel($this); $this->grouping_criteria = $grouping_criteria; $this->grouping_aggregate = $grouping_aggregate; $this->group_level = false; if (count($this->lev_items) > 0) { $this->group_level = true; } set_include_path(get_include_path().PATH_SEPARATOR.PATH_INCLUDES."pear"); include_once 'Image/Graph.php'; include_once 'Image/Canvas.php'; $this->canvas =& Image_Canvas::factory('png', array( 'width' => $this->lev_setting["width"], 'height' => $this->lev_setting["height"], 'antialias' => 'native' )); $this->graph =& Image_Graph::factory('graph', $this->canvas); $this->plotarea =& $this->graph->addNew('plotarea',array( 'Image_Graph_Axis_Category', 'Image_Graph_Axis', $this->lev_setting['direction'] )); $this->plotarea->setFillColor('black@0.1'); #$this->plotarea->showShadow(); $AxisX =& $this->plotarea->getAxis(IMAGE_GRAPH_AXIS_X); $AxisY =& $this->plotarea->getAxis(IMAGE_GRAPH_AXIS_Y); $AxisX->setFontAngle($this->lev_setting["x_label_angle"]); $AxisY->setFontAngle($this->lev_setting["y_label_angle"]); foreach($this->dataset as $dset) { $SQL_criteria = ''; if ($dset['SQL_criteria'] != '') { $SQL_criteria = $this->addToFilter($SQL_criteria, $dset['SQL_criteria']); } #echo "C1: ".$SQL_criteria."
"; if ($this->lev_setting['SQL_criteria'] != '') { $SQL_criteria = $this->addToFilter($SQL_criteria, $this->lev_setting['SQL_criteria']); } #echo "C2: ".$SQL_criteria."
"; if (count($this->grouping_criteria) > 0) { foreach ($this->grouping_criteria as $key => $value) { $SQL_criteria = $this->addToFilter($SQL_criteria, "$key = $value", $this->grouping_aggregate[$key] ); } } #echo "C3: ".$SQL_criteria."
"; $this->SQL_filtered = $this->shuffleSQL($dset["SQL_select"].$SQL_criteria." ".$dset["SQL_order"]); if(defined('REPORT_DEBUG')) echo "
The SQL_filtered is: " . $this->SQL_filtered . "
"; $db =& DB(); $result = $db->Execute($this->SQL_filtered); if(!$result) { echo "SQL: ".$this->SQL_filtered."
".$db->ErrorMsg(); exit; } $num_rows = $result->RecordCount(); if ($num_rows == 0) { return; } $Dataset =& Image_Graph::factory('dataset'); while(!$result->EOF) { $Dataset->addPoint($result->fields[0],$result->fields[1]); $result->MoveNext(); } $Plot =& $this->plotarea->addNew($this->lev_setting["type"], &$Dataset); } $file = tempnam($this->formatter->output_path."/", "s"); @unlink($file); $file .= ".png"; $this->graph->done( array('filename' => $file) ); # add to output $this->formatter->insertImage( $file, $this->lev_setting["width"], $this->lev_setting["height"] ); #intersperse and whatnot if ($this->group_level === true) { $this->formatter->endTable(); } if ($this->group_level === true) { $this->intersperse($this->grouping_criteria,$this->grouping_aggregate); } } } class Level extends Level_Base { var $lev_setting; var $lev_fields; var $lev_items; var $indent_html; var $SQL_filtered; var $group_level; var $grouping_criteria; var $has_title; var $formatter; var $add_headers = 0; var $class; function Level ($title='', $SQL_select='', $SQL_criteria='', $SQL_order='', $title_table_class='title', $title_class='', $indent=0, $lev_field_width = '', $lev_field_class = 'row', $lev_label_class = '', $lev_table_class = 'level', $lev_tot_class = 'rc-lev-tot1', $lev_colspan_label_class = 'rc-lev-colspan-label1') { if($lev_field_class == 'row') { $lev_field_class = new ReportStyle; $lev_field_class->backgroundColor(230,230,230); } if($lev_label_class == '') { $lev_label_class = new ReportStyle; $lev_label_class->bold(); $lev_label_class->fontFamily('arial'); $lev_label_class->is_heading = true; } $this->lev_setting = array( "title" => $title, "SQL_select" => $SQL_select, "SQL_criteria" => $SQL_criteria, "SQL_order" => $SQL_order, "title_class_html" => $title_class, "title_table_class_html" => $title_table_class, "indent" => $indent, "lev_field_width" => $lev_field_width, "lev_field_class" => $lev_field_class, "lev_label_class" => $lev_label_class, "lev_table_class_html" => $lev_table_class, "lev_tot_class" => $lev_tot_class, "lev_colspan_label_class" => $lev_colspan_label_class, "class" => '' ); } function setTitle($t) { $this->lev_setting["title"] = $t; } function setSql($s) { $this->lev_setting["SQL_select"] = $s; } function setCriteria($c) { $this->lev_setting["SQL_criteria"] = $c; } function setOrderby($o) { $this->lev_setting["SQL_order"] = $o; } function setIndent($i) { $this->lev_setting["indent"] = $i; return $i; } function setClass($c) { $this->lev_setting["class"] = $c; } function addField ($label, $name, $isAggregate = false, $width = '', $format = '', $group_children_by = false, $visible = true, $hide_dups = false, $class = '', $lev_class_also = false, $label_class = '', $lev_label_class_also = false, $condition = '', $cond_class = '', $SQL_select = '', $SQL_criteria = '', $colspan = 0, $colspan_label = '', $colspan_label_class = '', $lev_colspan_class_also = false, $has_tot = false, $tot_label = '', $tot_format = '', $tot_class = '', $lev_tot_class_also = false, $link = '') { //NB every field added MUST be in the source SQL //if a grouping variable, then set group_children_by to True //if a field is an aggregate, then it must be True. This causes it's usage to be in HAVING clause, instead of WHERE if ($link != "") { $is_link = True; $link_text_start = $link["link_text_start"]; $link_text_end = $link["link_text_end"]; $link_title_start = $link["link_title_start"]; $link_title_end = $link["link_title_end"]; $link_href_start = $link["link_href_start"]; $link_href_end = $link["link_href_end"]; } else { $is_link = False; $link_text_start = ""; $link_text_end = ""; $link_title_start = ""; $link_title_end = ""; $link_href_start = ""; $link_href_end = ""; } if($tot_class == '') { $tot_class = new ReportStyle; $tot_class->backgroundColor(200,200,200); } $this->lev_fields[$name] = array("field_label"=>$label, "field_name"=>$name, "field_aggregate"=>$isAggregate, "colspan"=>$colspan, "colspan_label"=>$colspan_label, "colspan_label_class"=>$colspan_label_class, "lev_colspan_class_also"=>$lev_colspan_class_also, "field_SQL_select"=>$SQL_select, "field_SQL_criteria"=>$SQL_criteria, "group_children_by"=>$group_children_by, "visible"=>$visible, "hide_duplicates"=>$hide_dups, "field_width"=>$width, "field_format"=>$format, "field_class"=>$class, "lev_class_also" =>$lev_class_also, "field_label_class"=>$label_class, "lev_label_class_also"=>$lev_label_class_also, "field_condition"=>$condition, "field_cond_class"=>$cond_class, "has_tot"=>$has_tot, "tot_label"=>$tot_label, "field_tot_format"=>$tot_format, "field_tot_class"=>$tot_class, "lev_tot_class_also"=>$lev_tot_class_also, "is_link"=>$is_link, "link_text_start"=>$link_text_start, "link_text_end"=>$link_text_end, "link_title_start"=>$link_title_start, "link_title_end"=>$link_title_end, "link_href_start"=>$link_href_start, "link_href_end"=>$link_href_end ); } function display ($grouping_criteria = Null, $grouping_aggregate = Null, &$formatter) { $this->formatter =& $formatter; $this->formatter->setLevel($this); $this->grouping_criteria = $grouping_criteria; $this->grouping_aggregate = $grouping_aggregate; #echo "Freshly received grouping criteria: " . print_r($this->grouping_criteria); //check $this->group_level = false; if (count($this->lev_items) > 0) { $this->group_level = true; } $SQL_criteria = ''; if ($this->lev_setting['SQL_criteria'] != '') { $SQL_criteria = $this->addToFilter($SQL_criteria, $this->lev_setting['SQL_criteria']); } if (count($this->grouping_criteria) > 0) { foreach ($this->grouping_criteria as $key => $value) { $SQL_criteria = $this->addToFilter($SQL_criteria, "$key = $value", $this->grouping_aggregate[$key] ); } } //echo "
The row filter clause is: " . $SQL_criteria , "
"; //check // 2-2) put select, where, and order clauses together $this->SQL_filtered = $this->shuffleSQL($this->lev_setting["SQL_select"].$SQL_criteria." ".$this->lev_setting["SQL_order"]); if(defined('REPORT_DEBUG')) echo "
The SQL_filtered is: " . $this->SQL_filtered . "
"; //check $db =& DB(); $result = $db->Execute($this->SQL_filtered); if(!$result) { echo "SQL: {$this->SQL_filtered}
".$db->ErrorMsg(); exit; } $num_rows = $result->RecordCount(); if ($num_rows == 0) { return; } $this->indent_html = $this->setIndent($this->lev_setting['indent']); // 3-3) insert level title if needed $this->has_title = False; if ($this->lev_setting["title"] != '') { $this->has_title = true; } $heading = ''; if ($this->has_title === true) { if(is_a($this->formatter,'HTML_ReportFormatter')) { $this->formatter->setIndent($this->indent_html); $heading = '
'.$this->lev_setting["title"].'
'; } else { $this->formatter->setIndent($this->indent_html); $this->formatter->addTable($this->lev_setting["title_table_class_html"]); $this->formatter->addRow(); $this->formatter->addColumn($this->lev_setting["title"], $this->lev_setting["title_class_html"] ); $this->formatter->endRow(); $this->formatter->endTable(); } } //if a final row, use header-style labels if ($this->group_level === false) { $this->formatter->setIndent($this->indent_html); $this->addHeaderLabels($heading); } /*set these up once before rows begin (needed for hide_duplicates)*/ foreach ($this->lev_fields as $field) { $content[$field['field_name']] = ''; //seed/reset $last_content[$field['field_name']] = ''; //seed/reset //each of these is an array with an item for each field value in the row } // 4) DISPLAY EACH ROW >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> while (!$result->EOF) { $row = $result->fields; $result->MoveNext(); // 4-1) display each visible field (from supplied field argument) within row //if level is group level (no header row) need to start table and body (one for each level) if ($this->group_level === true) { if(strlen($this->lev_setting['class'])) $this->formatter->write('
'); $this->formatter->setIndent($this->indent_html); $this->formatter->addTable($this->lev_setting["lev_table_class_html"],$heading); } $this->formatter->addRow(); foreach ($this->lev_fields as $field) { // 4-1-0) only display field if visible if ($field['visible'] === false) { continue; //skip this field } // 4-1-1) set up class(es) //only make label classes html if a group level if ($this->group_level === true) { /*must create class html here - it is a combination of level and field class settings */ $field_label_class_html = $this->classHtml($field["field_label_class"], $this->lev_setting["lev_label_class"], $field["lev_class_also"]); } /*if a conditional class, see if condition met. If it is, use field_conditional class instead of standard field class*/ $condition_met = false; //initialise if ($field['field_condition'] != '') { //get condition $condition_met = $this->makeCondition($field['field_condition'], $row, $this->lev_fields ); } if ($condition_met === true) { $field_class = $field['field_cond_class']; } else { $field_class =$field['field_class']; } $field_class_html = $this->classHtml($field_class, $this->lev_setting['lev_field_class'], $field['lev_class_also']); $field_width_html = $this->setWidth ($field["field_width"], $this->lev_setting["lev_field_width"]); if ($field["field_SQL_select"] != '') { //if this field has its own data source ... /* 5-1-3-1) set up WHERE/HAVING clause using both parent-derived criteria (if the level above is team='CommunityCare' then this record source needs to be filtered to only include data for the CommunityCare team*/ $field_SQL_criteria = ""; if ($field["field_SQL_criteria"] != "") { $field_SQL_criteria = $this->addToFilter($field_SQL_criteria, $field["field_SQL_criteria"]); } /* if (count($this->grouping_criteria) > 0) { foreach ($this->grouping_criteria as $key => $value) { $field_SQL_criteria = $this->addToFilter($field_SQL_criteria, "$key = $value"); } } */ if($field["field_name"]!="") { $dba = DB(); $field_SQL_criteria = $this->addToFilter($field_SQL_criteria, $field["field_name"]." = ".$dba->qstr($row[$field["field_name"]])); } //echo "
The field filter clause is: " . $field_SQL_criteria , "
"; //check /* 4-1-3-2) put select, where (but not order - not applicable - order derived from other fields) parts of SQL statement together*/ $field_SQL_filtered = $this->shuffleSQL($field["field_SQL_select"] . $field_SQL_criteria); #echo "
The field_SQL_filtered is: " . $field_SQL_filtered . "
"; //check // 4-1-3-3) get the content according to the SQL statement $db = DB(); $rs = $db->Execute($field_SQL_filtered); if($rs && $rs->RecordCount()) { $content[$field["field_name"]] = $rs->fields[0]; } } else { //take content from field $content[$field["field_name"]] = $row[$field["field_name"]]; } /*if a final level, hide_duplicates = True, and it is a duplicate, make $field_content = "" and skip to display*/ $duplicate = false; //seed/reset if ($last_content[$field["field_name"]] == $content[$field["field_name"]]) { $duplicate = true; } //set last content for next comparison (if any) $last_content[$field["field_name"]] = $content[$field["field_name"]]; if ($this->group_level === false AND $duplicate === true AND $field["hide_duplicates"] === true) { $field_content = ""; //skipping formatting and linking } else { // 4-1-5) set up formatting e.g. decimal places $style = $this->getStyle($field["field_format"]); $dp = $this->getDp($field["field_format"]); $date_format = $this->getDateFormat($field["field_format"]); //echo "
Field content before formatting is: " . $content[$field["field_name"]]; //echo "
Field array contains: " . print_r($field) . "
"; //check $field_content = $this->myFormat($content[$field["field_name"]], $style, $dp, $date_format); // 4-1-6) put in link if required if ($field["is_link"] === true) { $field_content = "" . $field["link_text_start"] . $field_content . $field["link_text_end"] . ""; } } // 4-1-7) display field if ($this->group_level === true) { $this->formatter->addColumn($field["field_label"], $field_label_class_html); $this->formatter->addColumn($field_content, $field_class_html); } else { $this->formatter->addColumn($field_content, $field_class_html); } } $this->formatter->endRow(); $this->add_headers = 0; if ($this->group_level === true) { //a separate table for each group by level $this->formatter->endTable(); } //5-1) add additional grouping criteria to $grouping_criteria //loop through all fields in level - add to grouping_criteria filter if new_group_by is True foreach ($this->lev_fields as $field) { if ($field["group_children_by"] != true) { //only process this field if adding to filter continue; } $key = "`" . $field["field_name"] . "`"; $value = $row[$field["field_name"]]; if (strpos($field["field_format"],"num") === false) { $value = $db->qstr($value); } $this->grouping_criteria[$key] = $value; $this->grouping_aggregate[$key] = $field['field_aggregate']; } //echo "
The grouping_criteria are now set to: " . print_r($this->grouping_criteria) . "
"; //check */ if ($this->group_level === true) { $this->intersperse($this->grouping_criteria,$this->grouping_aggregate); if(strlen($this->lev_setting["class"])) $this->formatter->write('
'); } } // 6 DISPLAY TOTALS (only if a final level and only if one required) /*any fields which have 'have_tot' equal True? Loop through them, and build array of field names. If the array has any values, proceed (and pass on array to provide headstart building source query*/ if ($this->group_level === false) { $this->addTotal($db); $this->formatter->endTable(); } } function addHeaderLabels ($heading) { if($this->add_headers>0) return; $this->add_headers++; $this->formatter->addTable($this->lev_setting["lev_table_class_html"], $heading); $this->formatter->addRow(); foreach ($this->lev_fields as $field) { // only display field if visible if ($field['visible'] === False) { continue; //skip this field } $field_label_class_html = $this->classHtml($field["field_label_class"], $this->lev_setting["lev_label_class"], $field["lev_label_class_also"]); $field_width_html = $this->setWidth ($field["field_width"], $this->lev_setting["lev_field_width"]); // c) display $this->formatter->addColumn($field["field_label"], $field_label_class_html); } $this->formatter->endRow(); } function addTotal (&$db) { // 0 ) check to see if totals are required for any of the fields >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> // (and build SQL select statement for totals row) $SQL_select_tot = ''; foreach ($this->lev_fields as $field) { if ($field['has_tot'] === True) { if ($SQL_select_tot == '') { $SQL_select_tot = "SELECT Sum(" . $field["field_name"] . ") AS `Tot_" . $field["field_name"] . "`" ; } else { $SQL_select_tot .= ", Sum(" . $field["field_name"] . ") AS `Tot_" . $field["field_name"] . "`"; } } } if ($SQL_select_tot == '') { return false; } $group_by = ""; if (count($this->grouping_criteria) > 0) { $group_by = "GROUP BY "; foreach ($this->grouping_criteria as $key=>$value) { $group_by .= (($group_by === "GROUP BY ") ? $key : ", " . $key); } } //echo "
Group by is now: " .$group_by; $SQL_tot_filtered = $this->shuffleSQL("$SQL_select_tot FROM (" . $this->SQL_filtered . ") AS Source "); #$group_by"; //each key in grouping criteria # echo "
The SQL tot filtered is: " . $SQL_tot_filtered . "
"; $result1 = $db->Execute($SQL_tot_filtered); while (!$result1->EOF) { $row = $result1->fields; $result1->MoveNext(); $this->formatter->addRow(); foreach ($this->lev_fields as $field) { if ($field["visible"] === False) { continue; } //must create class html here - it is a combination of field and level class settings $field_tot_class_html = $this->classHtml($field["field_tot_class"], $this->lev_setting["lev_tot_class"], $field["lev_tot_class_also"]); $field_width_html = $this->setWidth ($field["field_width"], $this->lev_setting["lev_field_width"]); if ($field["has_tot"] === True) { // 6-2-1-1) set up field content (whether a value or a format) if ($field["tot_label"] != "") { // 6-2-1-1-1) set up label $field_content = $field["tot_label"]; } else { // 6-2-1-1-2) set up formatting e.g. decimal places (only run when a cell to display) $field_tot = "Tot_" . $field["field_name"]; $field_content = $this->myFormat($row["$field_tot"], $this->getStyle($field["field_tot_format"]), $this->getDp($field["field_tot_format"]), $this->getDateFormat($field["field_format"])); } // 6-2-1-2) display row $this->formatter->addColumn($field_content, $field_tot_class_html); } else { // 6-2-2) display row $this->formatter->addColumn(" ", $field_tot_class_html); } } $this->formatter->endRow(); } return true; //i.e. had totals } } /** * This is the base Level class, any and all types of rendered chunks MUST inherit from this. */ class Level_Base { /** * Add a user criteria to the WHERE clause */ function addFieldCriteria($sql, $bIsAggregate = false, $field = '') { require_once PATH_INCLUDES . 'pear/Compat/Function/stripos.php'; $this->lev_setting['SQL_criteria'] = $this->addToFilter($this->lev_setting['SQL_criteria'], $sql, $bIsAggregate); if(strlen($this->lev_setting['SQL_order'])>0) { $sql = $this->lev_setting['SQL_order']; if( ($p=stripos($sql,'GROUP BY')) !== false) { if( ($t=$this->find_next_sql_keyword($sql,$p+1)) !== false) { $groupby = substr($sql,$p,$t[1]-$p); if(stripos($groupby,$field)===false) $sql = str_replace($groupby,$groupby.", {$field}",$sql); } } $this->lev_setting['SQL_order'] = $sql; } else { $this->lev_setting['SQL_order'] = "GROUP BY ".$field; } if(isset($this->dataset)) { for($i=0;$idataset);$i++) { if(strlen($this->dataset[$i]['SQL_order'])>0) { $sql = $this->dataset[$i]['SQL_order']; if( ($p=stripos($sql,'GROUP BY')) !== false) { if( ($t=$this->find_next_sql_keyword($sql,$p+1)) !== false) { $groupby = substr($sql,$p,$t[1]-$p); if(stripos($groupby,$field)===false) $sql = str_replace($groupby,$groupby.", {$field}",$sql); } } $this->dataset[$i]['SQL_order'] = $sql; } else { $this->dataset[$i]['SQL_order'] = "GROUP BY ".$field; } } } } /** * Add a sub-object to render beneath the current object */ function append (&$item) { $this->lev_items[] =& $item; } function addBreak () { $this->lev_items[] = new Report_BreakAdaptor; } function addDiv($id) { $item = new Report_BreakAdaptor; $item->id = $id; $this->lev_items[] =& $item; } /** * This calls all sub-objects of the current object to tell them to build their output */ function intersperse ($grouping_criteria, $grouping_aggregate) { if(isset($this->lev_items) && is_array($this->lev_items)) { foreach ($this->lev_items as $item) { #if(strlen($this->lev_setting['class'])) # $this->formatter->write('
'); $c = $this->formatter->indent; $item->display($grouping_criteria, $grouping_aggregate, $this->formatter); $this->formatter->indent = $c; #if(strlen($this->lev_setting["class"])) # $this->formatter->write('
'); } } } /** * Build onto the SQL WHERE/HAVING clause */ function addToFilter ($full_criteria, $new_criterion, $aggregate = false) { /* echo "
"; echo "full_criteria = ".$full_criteria."
"; echo "new_criterion = ".$new_criterion."
"; echo "aggregate = ".$aggregate."
"; */ $new_criterion = str_replace(" "," ",$new_criterion); $new_criterion = str_replace("WHERE HAVING","HAVING",$new_criterion); $t = "WHERE"; if($aggregate) { $t = "HAVING"; } if ($full_criteria == "") { if(strpos($new_criterion,$t)!==false) return $new_criterion; else return " $t " . $new_criterion; break; } #echo "t:".$t."
fc:".$full_criteria."
nc:".$new_criterion."
"; if (strpos($full_criteria, $t) === False && strpos($new_criterion, $t)===false) { if($t == "WHERE") { $r = " WHERE ".$full_criteria; if(strlen($new_criterion)) $r .= " AND ".$new_criterion; return $r; } else { return $full_criteria." $t " . $new_criterion; } } else if(strpos($full_criteria, $t)!==false && strpos($new_criterion, $t) !== false) { $sql = $full_criteria . " AND " . substr($new_criterion, strpos($new_criterion,$t)+strlen($t)); $sql = str_replace("AND HAVING","HAVING",$sql); #echo 'OUTPUT:'.$sql."
"; return $sql; } else { #echo "fc1:".$full_criteria."
nc:".$new_criterion."
"; if(strncasecmp(trim($new_criterion),"having",6)==0) return $full_criteria . ' '. $new_criterion; else return $full_criteria . " AND " . $new_criterion; } } function find_next_sql_keyword($sql,$offset=0) { require_once PATH_INCLUDES . 'pear/Compat/Function/stripos.php'; $ret = false; if(is_string($sql) && is_numeric($offset)) { $arr = array( 'WHERE', 'GROUP BY', 'ORDER BY', 'LIMIT', 'HAVING' ); $bFound = false; foreach($arr as $k) { if( ($t=stripos($sql,$k,$offset)) !== false) { if($ret === false) { $ret = array($k,$t); $bFound = true; } } } if($bFound == false) { $ret = array('',strlen($sql)); } } return $ret; } function shuffleSQL($sql, $groupBy='') { require_once PATH_INCLUDES . 'pear/Compat/Function/stripos.php'; if( ($p=stripos($sql,'HAVING')) !== false) { # found a having clause $leading = ''; $having = ''; $groupby = ''; $orderby = ''; $limit = ''; if( ($t=$this->find_next_sql_keyword($sql,$p+1)) !== false) { $having = substr($sql,$p,$t[1]-$p); $sql = str_replace($having,'',$sql); } if( ($p=stripos($sql,'GROUP BY')) !== false) { if( ($t=$this->find_next_sql_keyword($sql,$p+1)) !== false) { $groupby = substr($sql,$p,$t[1]-$p).$groupBy; $sql = str_replace($groupby,'',$sql); } } if( ($p=stripos($sql,'ORDER BY')) !== false) { if( ($t=$this->find_next_sql_keyword($sql,$p+1)) !== false) { $orderby = substr($sql,$p,$t[1]-$p); $sql = str_replace($orderby,'',$sql); } } if( ($p=stripos($sql,'LIMIT')) !== false) { if( ($t=$this->find_next_sql_keyword($sql,$p+1)) !== false) { $limit = substr($sql,$p,$t[1]-$p); $sql = str_replace($limit,'',$sql); } } #echo "having=$having
groupby=$groupby
orderby=$orderby
limit=$limit
"; $sql .= $groupby.' '.$having.' '.$orderby.' '.$limit; } return $sql; } function makeCondition ($condition, $row, $fields) { //replace bracketed text with data from field in row with same name //numeric data does not need to be unquoted as long as == is used instead of === //date data must be wrapped in strtotime on both sides of comparison to work (NB Unix time 1970 onwards only) //replace brackets with PHP code then use eval to run generated string as PHP code $condition = str_replace('[','$row[\'',$condition); $condition = str_replace(']','\']',$condition); $condition = "if($condition){\$condition_met=True;}else{\$condition_met=False;}"; //echo "
Test expression as generated: $condition";//check eval($condition); return $condition_met; } function setIndent ($indent) { return $this->formatter->setIndent($indent); } function myFormat ($value, $style, $dp, $date_format) { switch ($style) { case "upper": return strtoupper($value); break; case "perc": return sprintf("%01." . $dp . "f", $value) . "%"; break; case "dol": return "$" . number_format($value, $dp); break; case "num": return number_format($value, $dp);; break; case "date": if ($value != "") { /*echo "Date format: " . $date_format . "; Value: " . $value . "Date: " . date($date_format, strtotime($value)); //check*/ return date($date_format, $value); } else { return $value; } break; default: return $value; break; } } function getStyle ($format) { $field_format = explode(",", $format); return $field_format[0]; } function getDp ($format) { $field_format = explode(",", $format); return (count($field_format) > 1 ? $field_format[1] : 0); } function getDateFormat ($format) { $field_format = explode(",", $format); return (count($field_format) > 2 ? $field_format[2] : "m/d/Y"); } function setWidth ($field_width, $level_field_width) { $width = (($field_width != "") ? $field_width : $level_field_width); return (($width != "") ? " width='" . $width . "'" : "" ); } /** * This is worthless junk from the original author, should be refactored */ function classHtml ($field_class, $lev_class, $both = False) { if(is_a($field_class,'ReportStyle')) return $field_class; if(is_a($lev_class,'ReportStyle')) return $lev_class; if ($field_class == "" AND $lev_class == "") { //nothing to set return ""; } switch ($both) { case true: //use both classes return "$field_class $lev_class"; break; case false: //only use on class (field takes precedence over level) if ($field_class != '') { return $field_class; } else { return $lev_class; } break; } } } ?>