From e5fcc68aab310814b0ba5444bc97ef504e6e16da Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Sun, 11 Mar 2012 20:57:40 -0700 Subject: cleanup for svc_broadband manual router feature, #14698 --- httemplate/view/svc_broadband.cgi | 1 - 1 file changed, 1 deletion(-) (limited to 'httemplate/view') diff --git a/httemplate/view/svc_broadband.cgi b/httemplate/view/svc_broadband.cgi index 961374e7d..af2c575b9 100644 --- a/httemplate/view/svc_broadband.cgi +++ b/httemplate/view/svc_broadband.cgi @@ -17,7 +17,6 @@ my %labels = map { $_ => ( ref($fields->{$_}) #my %labels = (); $labels{'description'} = emt('Description'); -$labels{'router'} = emt('Router'); $labels{'speed_down'} = emt('Download Speed'); $labels{'speed_up'} = emt('Upload Speed'); $labels{'ip_addr'} = emt('IP Address'); -- cgit v1.2.1 From fdd00d4549faaa9de8952402f77fa86d0b8b22ee Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Mon, 12 Mar 2012 20:24:22 -0700 Subject: "day-of-month of customer signup" condition, #16827 --- httemplate/view/part_event-targets.html | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) (limited to 'httemplate/view') diff --git a/httemplate/view/part_event-targets.html b/httemplate/view/part_event-targets.html index c5faccfd6..2029fd4bc 100644 --- a/httemplate/view/part_event-targets.html +++ b/httemplate/view/part_event-targets.html @@ -3,6 +3,16 @@ 'title' => 'Event query - '.$part_event->event, } &> +
url%> METHOD="GET"> +When event is run on <& /elements/input-date-field.html, { + 'name' => 'date', + 'value' => $time, + 'format' => FS::Conf->new->config('date_format') || '%m/%d/%Y', +} &> + + +
+

% if ( $objects > 0 ) { <% emt("[quant,_1,$label]", $objects) %> % if ( $part_event->eventtable ne 'cust_main' ) { @@ -18,8 +28,8 @@ % my @rowcolors = ('ffffff','eeeeee'); % my $row = 0; - % foreach my $object (@targets) { + % # now works for all eventtables, including cust_pkg % my $link = $p . 'view/' . $part_event->eventtable . '.cgi?' . % $object->$pkey; @@ -65,12 +75,14 @@ die "access denied" unless $curuser->access_right('Edit billing events') || $curuser->access_right('Edit global billing events'); -my ($eventpart) = $cgi->keywords; +my ($eventpart) = $cgi->param('eventpart'); $eventpart =~ /^\d+$/ or die 'illegal eventpart'; +my $time = parse_datetime($cgi->param('date')) || time; + my $part_event = FS::part_event->by_key($eventpart) or die "Event definition $eventpart not found.\n"; -my @targets = $part_event->targets; +my @targets = $part_event->targets('time' => $time); my $total = @targets; # in imitation of search/elements/search-html.html -- cgit v1.2.1 From a69299c596de60f4b26db7431165f7f3ffe928e2 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Wed, 14 Mar 2012 13:44:00 -0700 Subject: svc_hardware MAC address input format, #16266 --- httemplate/view/svc_broadband.cgi | 7 ++++++- httemplate/view/svc_hardware.cgi | 20 +++++++++++++++++++- 2 files changed, 25 insertions(+), 2 deletions(-) (limited to 'httemplate/view') diff --git a/httemplate/view/svc_broadband.cgi b/httemplate/view/svc_broadband.cgi index af2c575b9..131582f1c 100644 --- a/httemplate/view/svc_broadband.cgi +++ b/httemplate/view/svc_broadband.cgi @@ -31,7 +31,7 @@ my @fields = ( 'speed_up', { field => 'ip_addr', value => \&ip_addr }, { field => 'sectornum', value => \§ornum }, - 'mac_addr', + { field => 'mac_addr', value => \&mac_addr }, #'latitude', #'longitude', { field => 'coordinates', value => \&coordinates }, @@ -66,6 +66,11 @@ sub ip_addr { $out; } +sub mac_addr { + my $svc = shift; + join(':', $svc->mac_addr =~ /../g); +} + sub usergroup { my $svc = shift; my $usergroup = $svc->usergroup; diff --git a/httemplate/view/svc_hardware.cgi b/httemplate/view/svc_hardware.cgi index 1d882352b..725358cad 100644 --- a/httemplate/view/svc_hardware.cgi +++ b/httemplate/view/svc_hardware.cgi @@ -6,6 +6,7 @@ %> <%init> +my $conf = new FS::Conf; my $fields = FS::svc_hardware->table_info->{'fields'}; my %labels = map { $_ => ( ref($fields->{$_}) ? $fields->{$_}{'label'} @@ -24,5 +25,22 @@ my $note = { field => 'note', type => 'text', value => sub { encode_entities($_[0]->note) } }; -my @fields = ($model, qw( serial hw_addr ip_addr smartcard ), $status, $note ); +my $hw_addr ={ field => 'hw_addr', + type => 'text', + value => sub { + my $hw_addr = $_[0]->hw_addr; + $conf->exists('svc_hardware-check_mac_addr') ? + join(':', $hw_addr =~ /../g) : $hw_addr + }, + }; + +my @fields = ( + $model, + 'serial', + $hw_addr, + 'ip_addr', + 'smartcard', + $status, + $note, +); -- cgit v1.2.1