httemplate/edit/tower.html

   1 <& elements/edit.html,
   2      name_singular => 'tower',
   3      table         => 'tower',
   4      viewall_dir   => 'browse',
   5      fields        => [ 'towername',
   6                         { field=>'disabled', type=>'checkbox', value=>'Y', },
   7                         { field             => 'default_ip_addr',
   8                           curr_value_callback => $default_ip_addr_callback },
   9                         { field             => 'sectornum',
  10                           type              => 'tower_sector',
  11                           o2m_table         => 'tower_sector',
  12                           m2_label          => 'Sector',
  13                           m2_error_callback => $m2_error_callback,
  14                         },
  15                         'latitude',
  16                         'longitude',
  17                       ],
  18      labels        => { 'towernum'  => 'Tower',
  19                         'towername' => 'Name',
  20                         'sectornum' => 'Sector',
  21                         'disabled'  => 'Disabled',
  22                         'default_ip_addr' => 'Tower IP address',
  23                         'latitude' => 'Latitude',
  24                         'longitude' => 'Longitude',
  25                       },
  26 &>
  27 <%init>
  28
  29 my $m2_error_callback = sub { # reconstruct the list
  30   my ($cgi, $object) = @_;
  31
  32   my @fields = qw(sectorname ip_addr);
  33   map {
  34     my $k = $_;
  35     new FS::tower_sector {
  36       'towernum'  => $object->towernum,
  37       'sectornum' => scalar( $cgi->param($k) ),
  38       map { $_ => scalar( $cgi->param($k.'_'.$_) ) } @fields,
  39     };
  40   } grep length($cgi->param($_.'_sectorname')),
  41       grep /^sectornum\d+$/,
  42         ($cgi->param);
  43 };
  44
  45 my $default_ip_addr_callback = sub {
  46   my ($cgi, $object) = @_;
  47   my $sector = $object ? $object->default_sector : '';
  48   $sector ? $sector->ip_addr : '';
  49 };
  50
  51 </%init>