Changeset 100 for devel/www/finance/spotreba.php

Timestamp:

Aug 1, 2008, 2:47:59 PM (16 years ago)

Author:

george

Message:

• Přidáno: Zobrazení systémových zpráv.
• Přidáno: Aktivace nových účtů ověřením emailové adresy.
• Přidáno: Doplnění zaznamenávání událostí do několika modulů.
• Upraveno: Přepracovány některé stránky do objektového stylu.

File:

• devel/www/finance/spotreba.php (modified) (1 diff)

devel/www/finance/spotreba.php

@@ -1 +1 @@
 <?php
 include_once('../global.php');
-include('../style.php');
-include('include.php');
+include_once('include.php');
 
-ShowHeader('Spotřeba energie','Spotřeba');
+class FinanceConsumption extends Page
+{
+  var $FullTitle = 'Spotřeba energie';
+  var $ShortTitle = 'Spotřeba';
 
-// Seznam segmentů a zařízení
-echo('Spotřeba zařízení jednotlivých segmentů:<br><table border="1" cellspacing="0" cellpadding="3"><tr><th>Jméno segmentu</th><th>Spotřeba [W]</th><th>Cena [Kč/měsíc]</th></tr>');
-$CelkovaSpotreba = 0;
-$DbResult = $Database->query("SELECT * FROM network_segments");    
-while($Row = $DbResult->fetch_array())
-{
-  $DbResult2 = $Database->query("SELECT SUM(consumption) FROM network_devices WHERE segment=".$Row['id']." AND used=1");
-  $Row2 = $DbResult2->fetch_array();
-  $CelkovaSpotreba = $CelkovaSpotreba + $Row2[0];
-  echo('<tr><td>'.$Row['name'].'</td><td align="right">'.$Row2[0].'</td><td align="right">'.W2Kc($Row2[0]).'</td></tr>');
+  function Show()
+  {
+    global $kWh;
+
+    // Seznam segmentů a zařízení
+    $Output = 'Spotřeba zařízení jednotlivých segmentů:<br /><table border="1" cellspacing="0" cellpadding="3"><tr><th>Jméno segmentu</th><th>Spotřeba [W]</th><th>Cena [Kč/měsíc]</th></tr>';
+    $CelkovaSpotreba = 0;
+    $DbResult = $this->Database->query("SELECT * FROM network_segments");
+    while($Row = $DbResult->fetch_array())
+    {
+      $DbResult2 = $this->Database->query("SELECT SUM(consumption) FROM network_devices WHERE segment=".$Row['id']." AND used=1");
+      $Row2 = $DbResult2->fetch_array();
+      $CelkovaSpotreba = $CelkovaSpotreba + $Row2[0];
+      $Output .= '<tr><td>'.$Row['name'].'</td><td align="right">'.$Row2[0].'</td><td align="right">'.W2Kc($Row2[0]).'</td></tr>';
+    }
+    $Output .= '<tr style="font-weight: Bold;"><td><strong>Celkem</strong></td><td align="right">'.$CelkovaSpotreba.'</td><td align="right">'.W2Kc($CelkovaSpotreba).'</td></tr>';
+    $Output .= '</table><br />';
+    $Output .= 'Dohodnutá cena za jednu kWh: <strong>'.$kWh.' Kč</strong><br />';
+    return($Output);
+  }
 }
-echo('<tr style="font-weight: Bold;"><td><strong>Celkem</strong></td><td align="right">'.$CelkovaSpotreba.'</td><td align="right">'.W2Kc($CelkovaSpotreba).'</td></tr>');
-echo('</table><br>');
-echo('Dohodnutá cena za jednu kWh: <strong>'.$kWh.' Kč</strong><br>');
 
-/*
-echo('<strong>Jak se rozpočítávají finance</strong><br>Internet i zařízení sítě se platí za domácnost. Systém výpočtu vychází z topologie sítě. Síť má stromovou topologii přičemž listy stromu jsou jednotliví uživatelé a kořen stromu je linka do internetu. Dosavadní systém je uzpůsoben tak, aby linky, které jsou nejvíce zatíženy, byly nejlépe zaplaceny a mohlo na nich tak být dražší a výkonější zařízení. Nejvytíženější linky se nazývají páteřní. Proto platí každý uživatel podílově zařízení, které vede od něj až ke kořenu stromu, což je v našem případě server Centrála s trvalým internetovým připojením. Pro jednoduchost je síť rozdělena na segmenty. Segment je část sítě, kterou využívá konstantní počet uživatelů. Každý segment je tvořen skupinou zařízení a má svoji celkovou cenu. Každý uživatel je přirozeně napojen na některý ze segmentů. Podíl klienta na zařízení sítě je vypočten jako součet podílů na jednotlivých segmentech směrem ke kořenu. Podíl na segmentu znamená celková cena segmentu podělená počtem uživatelů využívajících daný segment.<br>');
-  }
-*/
-ShowFooter();
+$System->AddModule(new FinanceConsumption());
+$System->Modules['FinanceConsumption']->GetOutput();
+
 ?>