httemplate/elements/select-tower_sector.html

   1 % if ( ! $opt{'multiple'} ) {
   2 <& /elements/select-table.html,
   3     table       => 'tower_sector',
   4     name_col    => 'description',
   5     order_by    => 'ORDER BY towernum,sectorname',
   6     empty_label => ' ',
   7     @_
   8 &>
   9 % }
  10 % else { # currently only multiple sectors, not towers
  11 <& /elements/select-table.html,
  12     table       => 'tower',
  13     name_col    => 'towername',
  14     hashref     => { 'disabled' => '', },
  15     id          => 'towernum',
  16     field       => 'towernum',
  17     onchange    => 'change_towernum(this.value);',
  18     element_etc => 'STYLE="vertical-align:top"',
  19 &>
  20 <SELECT NAME="sectornum" ID="sectornum" MULTIPLE SIZE="6"></SELECT>
  21 <SCRIPT TYPE="text/javascript">
  22 var sectors_of = <% encode_json(\%sectors_of) %>;
  23 var select_sectornum = document.getElementById('sectornum');
  24 function change_towernum(towernum) {
  25   select_sectornum.options.length = 0;
  26   for (var sectornum in sectors_of[towernum]) {
  27     var o = document.createElement('OPTION');
  28     o.value = sectornum;
  29     o.text = sectors_of[towernum][sectornum];
  30     o.selected = true;
  31     select_sectornum.add(o, null);
  32   }
  33   return;
  34 }
  35 change_towernum('');
  36 </SCRIPT>
  37 <BR>
  38 <INPUT TYPE="checkbox" VALUE="none" NAME="sectornum" CHECKED> <% $empty_label %>
  39 % }
  40 <%init>
  41 my %opt = @_;
  42
  43 my %sectors_of;
  44 my %default_of;
  45 if ( $opt{'multiple'} ) {
  46   foreach my $sector ( qsearch('tower_sector',{}) ) {
  47     $sectors_of{$sector->towernum} ||= {};
  48     $sectors_of{$sector->towernum}->{$sector->sectornum} = $sector->sectorname;
  49     $sectors_of{''}->{$sector->sectornum} = $sector->description;
  50     $default_of{$sector->towernum} = $sector->sectornum
  51       if $sector->sectorname eq '_default';
  52   }
  53 }
  54 foreach my $towernum (keys %sectors_of) {
  55   # hide default sectors for towers that have real sectors defined
  56   my $sectornum = $default_of{$towernum};
  57   if ( keys %{ $sectors_of{$towernum} } > 1 ) {
  58     delete $sectors_of{$towernum}->{$sectornum};
  59     delete $sectors_of{''}->{$sectornum};
  60   }
  61   else {
  62   # show default sectorname as '(all)'
  63     $sectors_of{$towernum}->{$sectornum} = '(all)'
  64   }
  65 }
  66
  67 my $empty_label = $opt{'empty_label'} || 'Include services with no sector';
  68 </%init>