From 573139dbd6c37808697bfa72a3a468bb0980d4dd Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 10 Dec 2011 00:37:04 +0000
Subject: tower tracking, RT#15538

---
 httemplate/edit/tower.html | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 httemplate/edit/tower.html

(limited to 'httemplate/edit/tower.html')

diff --git a/httemplate/edit/tower.html b/httemplate/edit/tower.html
new file mode 100644
index 000000000..c27d9d255
--- /dev/null
+++ b/httemplate/edit/tower.html
@@ -0,0 +1,37 @@
+<& elements/edit.html,
+     name_singular => 'tower',
+     table         => 'tower',
+     viewall_dir   => 'browse',
+     fields        => [ 'towername',
+                        { field=>'disabled', type=>'checkbox', value=>'Y', },
+                        { field             => 'sectornum',
+                          type              => 'tower_sector',
+                          o2m_table         => 'tower_sector',
+                          m2_label          => 'Sector',
+                          m2_error_callback => $m2_error_callback,
+                        },
+                      ],
+     labels        => { 'towernum'  => 'Tower',
+                        'towername' => 'Name',
+                        'sectornum' => 'Sector',
+                        'disabled'  => 'Disabled',
+                      },
+&>
+<%init>
+
+my $m2_error_callback = sub { # reconstruct the list
+  my ($cgi, $object) = @_;
+
+  my @fields = qw(sectorname ip_addr);
+  map {
+    my $k = $_;
+    next if !length($cgi->param($k.'_sectorname'));
+    new FS::tower_sector {
+      'towernum'  => $object->towernum,
+      'sectornum' => scalar( $cgi->param($k) ),
+      map { $_ => scalar( $cgi->param($k.'_'.$_) ) } @fields,
+    };
+  } grep /^sectornum\d+$/, ($cgi->param);
+};
+
+</%init>
-- 
cgit v1.2.1