sub get_time_overview
{
my ($self, $arg) = @_; # want since et age from get_form();
- my $type = CGI::param('type') || 'day';
+ my $type = $arg->{type} || 'day';
if ($type =~ /^(day|week|hour|month)$/) {
$type = uc($1);
} else {
+ $arg->{type}='day';
$type = 'DAY';
}
my $jobt = $self->{info}->{stat_job_table} || 'Job';
my ($self) = @_;
$self->can_do('r_view_stat');
- my $arg = $self->get_form(qw/jclient_groups age since/);
+ my $arg = $self->get_form(qw/jclient_groups age since type/);
if (!$arg->{jclient_groups}) {
return $self->error("Can't get client_group selection");
";
my $items = $self->make_overview_tab($q);
$self->display({label => $label,
- action => "job;since=$arg->{since};age=$arg->{age};client=",
+ action => "job;since=$arg->{since};type=$arg->{type};age=$arg->{age};client=",
items => $items}, "overview.tpl");
}
my ($self) = @_ ;
$self->can_do('r_view_stat');
- my $arg = $self->get_form(qw/jclient_groups age since/);
+ my $arg = $self->get_form(qw/jclient_groups age since type/);
my ($filter2, undef) = $self->get_param(qw/client_groups level jobtype/);
my $filter3 = $self->get_client_group_filter();
my ($stime1, $stime2, $filter1, $label, $jobt) = $self->get_time_overview($arg);
";
my $items = $self->make_overview_tab($q);
$self->display({label=>$label,
- action => "overview_zoom;since=$arg->{since};age=$arg->{age};client_group=",
+ action => "overview_zoom;since=$arg->{since};type=$arg->{type};age=$arg->{age};client_group=",
items => $items}, "overview.tpl");
}