report_visitor_absolute.php

Go to the documentation of this file.

<?php

if ( !class_exists( "report_visitor_absolute") ) {
class Report_visitor_absolute extends report_base
{
    protected $_sThisTemplate = "report_visitor_absolute.tpl";

    public function drawReport()
    {
        $oDb = oxDb::getDb();

        $oSmarty    = $this->getSmarty();
        $sTimeFrom = $oDb->quote( date( "Y-m-d H:i:s", strtotime( $oSmarty->_tpl_vars['time_from'] ) ) );
        $sTimeTo   = $oDb->quote( date( "Y-m-d H:i:s", strtotime( $oSmarty->_tpl_vars['time_to'] ) ) );

        if ( $oDb->getOne( "select 1 from oxlogs where oxtime >= $sTimeFrom and oxtime <= $sTimeTo" ) ) {
            return true;
        }

        // buyer
        if ( $oDb->getOne( "select 1 from oxorder where oxorderdate >= $sTimeFrom and oxorderdate <= $sTimeTo" ) ) {
            return true;
        }

        // newcustomer
        if ( $oDb->getOne( "select 1 from oxuser where oxcreate >= $sTimeFrom and oxcreate <= $sTimeTo" ) ) {
            return true;
        }
    }

    public function visitor_month()
    {
        $myConfig = $this->getConfig();
        $oDb = oxDb::getDb();

        $aDataX = array();
        $aDataY = array();

        $dTimeTo = strtotime( oxRegistry::getConfig()->getRequestParameter( "time_to" ) );
        $dTimeFrom = mktime( 23, 59, 59, date( "m", $dTimeTo)-12, date( "d", $dTimeTo), date( "Y", $dTimeTo));

        $sTimeTo    = $oDb->quote( date( "Y-m-d H:i:s", $dTimeTo ) );
        $sTimeFrom = $oDb->quote( date( "Y-m-d H:i:s", $dTimeFrom ) );

        $sSQL = "select oxtime, count(*) as nrof from oxlogs where oxtime >= $sTimeFrom and oxtime <= $sTimeTo group by oxsessid";
        $aTemp = array();
        for ( $i = 1; $i <= 12; $i++)
            $aTemp[date( "m/Y", mktime( 23, 59, 59, date( "m", $dTimeFrom)+$i, date( "d", $dTimeFrom), date( "Y", $dTimeFrom)) )] = 0;

        $rs = $oDb->execute( $sSQL);
        if ($rs != false && $rs->recordCount() > 0) {
            while (!$rs->EOF) {
                $aTemp[date( "m/Y", strtotime( $rs->fields[0]))]++;
                $rs->moveNext();
            }
        }

        foreach ( $aTemp as $key => $value) {
             $aDataX[$key]     = $value;
            $aDataX2[$key]    = 0;
            $aDataX3[$key]    = 0;
            $aDataY[]         = $key;
        }

        // buyer
        $sSQL = "select oxorderdate from oxorder where oxorderdate >= $sTimeFrom and oxorderdate <= $sTimeTo order by oxorderdate";
        $aTemp = array();
        $rs = $oDb->execute( $sSQL);
        if ($rs != false && $rs->recordCount() > 0) {
            while (!$rs->EOF) {
                $aTemp[date( "m/Y", strtotime( $rs->fields[0]))]++;
                $rs->moveNext();
            }
        }

        foreach ( $aTemp as $key => $value) {
             $aDataX2[$key] = $value;
        }

        // newcustomer
        $sSQL = "select oxcreate from oxuser where oxcreate >= $sTimeFrom and oxcreate <= $sTimeTo order by oxcreate";
        $aTemp = array();
        $rs = $oDb->execute( $sSQL);
        if ($rs != false && $rs->recordCount() > 0) {
            while (!$rs->EOF) {
                $aTemp[date( "m/Y", strtotime( $rs->fields[0]))]++;
                $rs->moveNext();
            }
        }

        foreach ( $aTemp as $key => $value) {
             $aDataX3[$key] = $value;
        }


        header ("Content-type: image/png" );

        // New graph with a drop shadow
        $graph = new Graph(800, 600);

        $graph->setBackgroundImage( $myConfig->getImageDir(true)."/reportbgrnd.jpg", BGIMG_FILLFRAME);

        // Use a "text" X-scale
        $graph->setScale("textlin");

        // Label align for X-axis
        $graph->xaxis->setLabelAlign('center', 'top', 'right');

        // Label align for Y-axis
        $graph->yaxis->setLabelAlign('right', 'bottom');

        $graph->setShadow();
        // Description
        $graph->xaxis->setTickLabels( $aDataY);


        // Set title and subtitle
        $graph->title->set("Monat");

        // Use built in font
        $graph->title->setFont(FF_FONT1, FS_BOLD);

        $aDataFinalX = array();
        foreach ( $aDataX as $dData)
            $aDataFinalX[] = $dData;
        // Create the bar plot
        $bplot = new BarPlot( $aDataFinalX);
        $bplot->setFillGradient("navy", "lightsteelblue", GRAD_VER);
        $bplot->setLegend("Besucher");

        $aDataFinalX2 = array();
        foreach ( $aDataX2 as $dData)
            $aDataFinalX2[] = $dData;
        // Create the bar plot
        $bplot2 = new BarPlot( $aDataFinalX2);
        $bplot2->setFillColor ("orange");
        $bplot2->setLegend("Kaeufer");

        $aDataFinalX3 = array();
        foreach ( $aDataX3 as $dData)
            $aDataFinalX3[] = $dData;
        // Create the bar plot
        $bplot3 = new BarPlot( $aDataFinalX3);
        $bplot3->setFillColor ("silver");
        $bplot3->setLegend("Neukunden");

        // Create the grouped bar plot
        $gbplot = new groupBarPlot (array($bplot, $bplot2, $bplot3));
        $graph->add( $gbplot);

        // Finally output the  image
        $graph->stroke();

    }

    public function visitor_week()
    {
        $myConfig = $this->getConfig();
        $oDb = oxDb::getDb();

        $aDataX = array();
        $aDataY = array();

        $sTimeTo   = $oDb->quote( date( "Y-m-d H:i:s", strtotime( oxConfig::getParameter( "time_to" ) ) ) );
        $sTimeFrom = $oDb->quote( date( "Y-m-d H:i:s", strtotime( oxConfig::getParameter( "time_from" ) ) ) );

        $sSQL = "select oxtime, count(*) as nrof from oxlogs where oxtime >= $sTimeFrom and oxtime <= $sTimeTo group by oxsessid order by oxtime";
        $aTemp = array();
        $rs = $oDb->execute( $sSQL);
        if ($rs != false && $rs->recordCount() > 0) {
            while (!$rs->EOF) {
                //$aTemp[date( "W", strtotime( $rs->fields[0]))]++;
                $aTemp[oxRegistry::get("oxUtilsDate")->getWeekNumber($myConfig->getConfigParam( 'iFirstWeekDay' ), strtotime( $rs->fields[0]))]++;
                $rs->moveNext();
            }
        }

        // initializing
        list( $iFrom, $iTo ) = $this->getWeekRange();
        for ( $i = $iFrom; $i < $iTo; $i++ ) {
            $aDataX[$i]  = 0;
            $aDataX2[$i] = 0;
            $aDataX3[$i] = 0;
            $aDataY[]      = "KW ".$i;
        }

        foreach ( $aTemp as $key => $value) {
            $aDataX[$key]  = $value;
            $aDataX2[$key] = 0;
            $aDataX3[$key] = 0;
            $aDataY[]      = "KW ".$key;
        }

        // buyer
        $sSQL = "select oxorderdate from oxorder where oxorderdate >= $sTimeFrom and oxorderdate <= $sTimeTo order by oxorderdate";
        $aTemp = array();
        $rs = $oDb->execute( $sSQL);
        if ($rs != false && $rs->recordCount() > 0) {
            while (!$rs->EOF) {
                //$aTemp[date( "W", strtotime( $rs->fields[0]))]++;
                $aTemp[oxRegistry::get("oxUtilsDate")->getWeekNumber($myConfig->getConfigParam( 'iFirstWeekDay' ), strtotime( $rs->fields[0]))]++;
                $rs->moveNext();
            }
        }

        foreach ( $aTemp as $key => $value) {
             $aDataX2[$key] = $value;
        }

        // newcustomer
        $sSQL = "select oxcreate from oxuser where oxcreate >= $sTimeFrom and oxcreate <= $sTimeTo order by oxcreate";
        $aTemp = array();
        $rs = $oDb->execute( $sSQL);
        if ($rs != false && $rs->recordCount() > 0) {
            while (!$rs->EOF) {
                //$aTemp[date( "W", strtotime( $rs->fields[0]))]++;
                $aTemp[oxRegistry::get("oxUtilsDate")->getWeekNumber($myConfig->getConfigParam( 'iFirstWeekDay' ), strtotime( $rs->fields[0]))]++;
                $rs->moveNext();
            }
        }

        foreach ( $aTemp as $key => $value) {
             $aDataX3[$key] = $value;
        }

        header ("Content-type: image/png" );

        // New graph with a drop shadow
        $graph = new Graph( max( 800, count( $aDataX) * 80), 600);

        $graph->setBackgroundImage( $myConfig->getImageDir(true)."/reportbgrnd.jpg", BGIMG_FILLFRAME);

        // Use a "text" X-scale
        $graph->setScale("textlin");

        // Label align for X-axis
        $graph->xaxis->setLabelAlign('center', 'top', 'right');

        // Label align for Y-axis
        $graph->yaxis->setLabelAlign('right', 'bottom');

        $graph->setShadow();
        // Description
        $graph->xaxis->setTickLabels( $aDataY);


        // Set title and subtitle
        $graph->title->set("Woche");

        // Use built in font
        $graph->title->setFont(FF_FONT1, FS_BOLD);

        $aDataFinalX = array();
        foreach ( $aDataX as $dData)
            $aDataFinalX[] = $dData;
        // Create the bar plot
        $bplot = new BarPlot( $aDataFinalX);
        $bplot->setFillGradient("navy", "lightsteelblue", GRAD_VER);
        $bplot->setLegend("Besucher");

        $aDataFinalX2 = array();
        foreach ( $aDataX2 as $dData)
            $aDataFinalX2[] = $dData;
        // Create the bar plot
        $bplot2 = new BarPlot( $aDataFinalX2);
        $bplot2->setFillColor ("orange");
        $bplot2->setLegend("Kaeufer");

        $aDataFinalX3 = array();
        foreach ( $aDataX3 as $dData)
            $aDataFinalX3[] = $dData;
        // Create the bar plot
        $bplot3 = new BarPlot( $aDataFinalX3);
        $bplot3->setFillColor ("silver");
        $bplot3->setLegend("Neukunden");

        // Create the grouped bar plot
        $gbplot = new groupBarPlot (array($bplot, $bplot2, $bplot3));
        $graph->add( $gbplot);

        // Finally output the  image
        $graph->stroke();
    }
}
}