From: mark <mark>
Date: Sat, 30 Apr 2011 21:08:15 +0000 (+0000)
Subject: svc_dish fixes, #11454
X-Git-Tag: freeside_2_3_0~318
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=948efea2aa4d4eb05e3d8f6f5402b3bf825759bf

svc_dish fixes, #11454
---

diff --git a/FS/FS/hardware_status.pm b/FS/FS/hardware_status.pm
index 4836fc5cb..d4edcb1a6 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 6c8851e77..f1c83a719 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>