},
'fieldorder' => [qw( recur_included_hours recur_hourly_charge recur_hourly_cap recur_included_input recur_input_charge recur_input_cap recur_included_output recur_output_charge recur_output_cap recur_included_total recur_total_charge recur_total_cap global_cap monthly_cap )],
- 'weight' => 41,
+ 'weight' => 40.1,
);
sub price_info {
my $self = shift;
- my $str = $self->SUPER::price_info;
+ my $str = $self->SUPER::price_info(@_);
$str .= " plus usage" if $str;
$str;
}
# bill that day, we didn't have a full picture of the day's usage)
# and ending with sdate exclusive (same reason)
- my($l_day, $l_mon, $l_year) = (localtime($last_bill))[3,5];
+ my($l_day, $l_mon, $l_year) = (localtime($last_bill))[3..5];
my $day_start = timelocal(0,0,0, $l_day, $l_mon, $l_year);
- my($s_day, $s_mon, $s_year) = (localtime($$sdate))[3,5];
+ my($s_day, $s_mon, $s_year) = (localtime($$sdate))[3..5];
my $billday_start = timelocal(0,0,0, $s_day, $s_mon, $s_year);
while ( $day_start < $billday_start ) {
- my($day, $mon, $year) = (localtime($day_start))[3,5];
+ my($day, $mon, $year) = (localtime($day_start))[3..5];
my $tomorrow = timelocal_nocheck(0,0,0, $day+1, $mon, $year);
#afact the usage methods already use the lower bound inclusive and the upper