* Copyright (C) 2004-2011 Laurent Destailleur * Copyright (C) 2005-2009 Regis Houssin * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /** * \file htdocs/adherents/stats/index.php * \ingroup member * \brief Page of subscription members statistics * \version $Id: index.php,v 1.10 2011/08/03 00:45:45 eldy Exp $ */ require("../../main.inc.php"); require_once(DOL_DOCUMENT_ROOT."/adherents/class/adherentstats.class.php"); require_once(DOL_DOCUMENT_ROOT."/core/class/dolgraph.class.php"); require_once(DOL_DOCUMENT_ROOT."/lib/member.lib.php"); $WIDTH=500; $HEIGHT=200; $userid=GETPOST('userid'); if ($userid < 0) $userid=0; $socid=GETPOST('socid'); if ($socid < 0) $socid=0; // Security check if ($user->societe_id > 0) { $action = ''; $socid = $user->societe_id; } $year = strftime("%Y", time()); $startyear=$year-2; $endyear=$year; /* * View */ $form=new Form($db); $langs->load("propal"); llxHeader(); print_fiche_titre($langs->trans("SubscriptionsStatistics"), $mesg); $dir=$conf->adherent->dir_temp; create_exdir($dir); $stats = new AdherentStats($db, $socid, $userid); // Build graphic number of object $data = $stats->getNbByMonthWithPrevYear($endyear,$startyear); //var_dump($data); // $data = array(array('Lib',val1,val2,val3),...) $filenamenb = $dir.'/subscriptionsnbinyear-'.$year.'.png'; $fileurlnb = DOL_URL_ROOT.'/viewimage.php?modulepart=memberstats&file=subscriptionsnbinyear-'.$year.'.png'; $px = new DolGraph(); $mesg = $px->isGraphKo(); if (! $mesg) { $px->SetData($data); $px->SetPrecisionY(0); $i=$startyear; while ($i <= $endyear) { $legend[]=$i; $i++; } $px->SetLegend($legend); $px->SetMaxValue($px->GetCeilMaxValue()); $px->SetMinValue(min(0,$px->GetFloorMinValue())); $px->SetWidth($WIDTH); $px->SetHeight($HEIGHT); $px->SetYLabel($langs->trans("NbOfSubscriptions")); $px->SetShading(3); $px->SetHorizTickIncrement(1); $px->SetPrecisionY(0); $px->mode='depth'; $px->SetTitle($langs->trans("NbOfSubscriptions")); $px->draw($filenamenb); } // Build graphic amount of object $data = $stats->getAmountByMonthWithPrevYear($endyear,$startyear); //var_dump($data); // $data = array(array('Lib',val1,val2,val3),...) $filenameamount = $dir.'/subscriptionsamountinyear-'.$year.'.png'; $fileurlamount = DOL_URL_ROOT.'/viewimage.php?modulepart=memberstats&file=subscriptionsamountinyear-'.$year.'.png'; $px = new DolGraph(); $mesg = $px->isGraphKo(); if (! $mesg) { $px->SetData($data); $px->SetPrecisionY(0); $i=$startyear; while ($i <= $endyear) { $legend[]=$i; $i++; } $px->SetLegend($legend); $px->SetMaxValue($px->GetCeilMaxValue()); $px->SetMinValue(min(0,$px->GetFloorMinValue())); $px->SetWidth($WIDTH); $px->SetHeight($HEIGHT); $px->SetYLabel($langs->trans("AmountOfSubscriptions")); $px->SetShading(3); $px->SetHorizTickIncrement(1); $px->SetPrecisionY(0); $px->mode='depth'; $px->SetTitle($langs->trans("AmountOfSubscriptions")); $px->draw($filenameamount); } $head = member_stats_prepare_head($adh); dol_fiche_head($head, 'statssubscription', $langs->trans("Statistics"), 0, 'user'); print ''; print ''; print '

'; // Show filter box /*print ' '; print ''; print ''; print ''; print ''; print ''; print ' '.$langs->trans("Filter").' '.$langs->trans("Member").' '; $filter='s.client in (1,2,3)'; print $form->select_company($id,'memberid',$filter,1); print ' '.$langs->trans("User").' '; print $form->select_users($userid,'userid',1); print ' '; print ' '; print ' '; */ // Show array $data = $stats->getAllByYear(); print ''; print ''; print ''; print ''; print ''; print ''; print ''; $oldyear=0; foreach ($data as $val) { $year = $val['year']; print $avg; while ($oldyear > $year+1) { // If we have empty year $oldyear--; print ''; print ''; print ''; print ''; print ''; print ''; } print ''; print ''; print ''; print ''; print ''; print ''; $oldyear=$year; } print ' '.$langs->trans("Year").' '.$langs->trans("NbOfSubscriptions").' '.$langs->trans("AmountTotal").' '.$langs->trans("AmountAverage").' '; print ''; print $oldyear; print ''; print ' 0 0 0 '; //print ''; print $year; //print ''; print ' '.$val['nb'].' '.price(price2num($val['total'],'MT'),1).' '.price(price2num($val['avg'],'MT'),1).' '; print '

'; // Show graphs print ' '; if ($mesg) { print $mesg; } else { print ''; print " \n"; print ''; } print ' '; print '

'; dol_fiche_end(); $db->close(); llxFooter('$Date: 2011/08/03 00:45:45 $ - $Revision: 1.10 $'); ?>