summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormark <mark>2011-04-30 21:08:15 +0000
committermark <mark>2011-04-30 21:08:15 +0000
commit948efea2aa4d4eb05e3d8f6f5402b3bf825759bf (patch)
tree9733bffd621dbde693fee1cf0d2b827dc15aa8e4
parent88b2d48a63e815be9c36c8f611f453400f603c2b (diff)
svc_dish fixes, #11454
-rw-r--r--FS/FS/hardware_status.pm2
-rw-r--r--httemplate/edit/process/svc_dish.html5
2 files changed, 7 insertions, 0 deletions
diff --git a/FS/FS/hardware_status.pm b/FS/FS/hardware_status.pm
index 4836fc5..d4edcb1 100644
--- a/FS/FS/hardware_status.pm
+++ b/FS/FS/hardware_status.pm
@@ -35,6 +35,7 @@ are currently supported:
=item label - descriptive label
+=item disabled - 'Y' to disable
=back
@@ -98,6 +99,7 @@ sub check {
my $error =
$self->ut_numbern('statusnum')
|| $self->ut_text('label')
+ || $self->ut_enum('disabled', [ '', 'Y' ])
;
return $error if $error;
diff --git a/httemplate/edit/process/svc_dish.html b/httemplate/edit/process/svc_dish.html
index 6c8851e..f1c83a7 100644
--- a/httemplate/edit/process/svc_dish.html
+++ b/httemplate/edit/process/svc_dish.html
@@ -1,5 +1,6 @@
<% include( 'elements/svc_Common.html',
'table' => 'svc_dish',
+ 'value_callback' => $value_callback,
)
%>
<%init>
@@ -7,4 +8,8 @@
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
+my $value_callback = sub {
+ my ($field, $value) = @_;
+ ($field eq 'installdate') ? parse_datetime($value) : $value;
+};
</%init>