% include('elements/svc_Common.html',
'table' => 'svc_port',
'fields' => \@fields,
'labels' => \%labels,
'html_foot' => $html_foot,
)
%>
<%init>
use Date::Parse 'str2time';
my $conf = new FS::Conf;
my $date_format = $conf->config('date_format') || '%m/%d/%Y';
my $fields = FS::svc_port->table_info->{'fields'};
my %labels = map { $_ => ( ref($fields->{$_})
? $fields->{$_}{'label'}
: $fields->{$_}
);
} keys %$fields;
my @fields = keys %$fields;
my $svcnum;
if ( $cgi->param('svcnum') ) {
$cgi->param('svcnum') =~ /^(\d+)$/ or die "unparsable svcnum";
$svcnum = $1;
} else {
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ or die "no svcnum";
$svcnum = $1;
}
my $start = '';
my $end = '';
if ( $cgi->param('start') && $cgi->param('end') ) {
$start = $cgi->param('start');
$end = $cgi->param('end');
}
sub preset_range {
my($start,$end,$label,$date_format) = (shift,shift,shift,shift);
$start = time2str($date_format,$start);
$end = time2str($date_format,$end);
return ''.$label.'';
}
my $html_foot = sub {
my $default_end = time;
my $default_start = $default_end-86400;
my $graph = '';
if($start && $end) {
$graph = "
";
}
return '