? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$results,$qrurl) = @_;
List = $company_en ?> Power Usage
 |
Update: | = $update ?> |
Max power supply: | = $kyoukyuu_kw ?> mi.kW (= $kyoukyuu_time ?>) |
Expected max power: | = $maxpower_kw ?> mi.kW (= $maxpower_time ?>) |
|
Date | Time | Today | Yesterday | Usage | Diff yesterday |
? for my $i (0 .. $#$results) { my $r = $results->[$i];
= $r->{date} ?> |
= $r->{time} ?> |
? if ($r->{today_power} ne 0) {
= $r->{today_power} ?>mi.kW
? } else {
none
? }
|
? if ($r->{yesterday_power} ne 0) {
= $r->{yesterday_power} ?>mi.kW
? } else {
none
? }
|
? if ($r->{persent} ne 0) {
= $r->{persent} ?>%
? }
|
? if ($r->{today_power} ne 0) {
= $r->{diff} ?>mi.kW
? }
|
? }
[Return] [Update]
? if ($qrurl) {
If you have mobile phone to transfer this result, use this barcode.
? }