httemplate/edit/cable_device.html

   1 <% include( 'elements/edit.html',
   2                  'name'   => 'Cable device',
   3                  'table'  => 'cable_device',
   4                  'labels' => {
   5                                'devicenum'  => 'Device',
   6                                'devicepart' => 'Device type',
   7                                'mac_addr'   => 'MAC address',
   8                                'serial'     => 'Serial number',
   9                              },
  10                  'fields' => [ { 'field'    => 'devicepart',
  11                                  'type'     => 'select-table',
  12                                  'table'    => 'part_device',
  13                                  'name_col' => 'devicename',
  14                                  'onchange' => 'devicepart_changed',
  15                                  'empty_label' =>'Select device type',
  16                                  #'hashref'        =>{ disabled => '' },
  17                                },
  18                                { field => 'mac_addr',
  19                                  type => 'select-mac',
  20                                },
  21                                { 'field' => 'svcnum',
  22                                  'type'  => 'hidden',
  23                                },
  24                              ],
  25                  'menubar' => [], #disable viewall
  26                  #'viewall_dir' => 'browse',
  27                  'new_callback' => sub {
  28                                      my( $cgi, $object ) = @_;
  29                                      $object->svcnum( $cgi->param('svcnum') );
  30                                    },
  31                  'html_foot' => $html_foot,
  32            )
  33 %>
  34 <%init>
  35
  36 #bad: pretty much entirely false laziness w/phone_device, except for labels and
  37 # the serial field
  38
  39 my @deviceparts_with_inventory =
  40   map $_->devicepart,
  41     qsearch({ 'table'     => 'part_device',
  42               'extra_sql' => 'WHERE inventory_classnum IS NOT NULL',
  43            });
  44
  45 my $html_foot = sub {
  46     my $js = "
  47 <SCRIPT TYPE=\"text/javascript\">
  48
  49   function opt(what,value,text) {
  50     var optionName = new Option(text, value, false, false);
  51     var length = what.length;
  52     what.options[length] = optionName;
  53   }
  54
  55     function devicepart_changed(what){
  56
  57         var macsel = document.getElementById('sel_mac_addr');
  58         var mac = document.getElementById('mac_addr');
  59
  60         function update_macs(macs) {
  61             for ( var i = macsel.length; i >= 0; i-- )
  62               macsel.options[i] = null;
  63
  64             var macArray = eval('(' + macs + ')' );
  65             if(macArray.length == 0)
  66                 opt(macsel,'','No MAC addresses found in inventory for this device type');
  67             else
  68                 opt(macsel,'','Select MAC address');
  69
  70             for ( var i = 0; i < macArray.length; i++ ) {
  71                 opt(macsel,macArray[i],macArray[i]);
  72             }
  73
  74         }
  75
  76         var devicepart = what.options[what.selectedIndex].value;
  77
  78         var deviceparts_with_inventory = new Array(";
  79 $js .= join(',', map qq("$_"), @deviceparts_with_inventory);
  80 $js .= ");
  81
  82         var hasInventory = false;
  83         for ( i = 0; i < deviceparts_with_inventory.length; i++ ) {
  84             if ( deviceparts_with_inventory[i] == devicepart )
  85                 hasInventory = true;
  86         }
  87
  88
  89         if(hasInventory) { // do the AJAX thing, disable text field
  90             macsel.style.display = 'inline';
  91             mac.style.display = 'none';
  92             mac.value = '';
  93             get_macs( devicepart, update_macs );
  94         } else { // clear & display text field only, clear/hide select
  95             mac.style.display = 'inline';
  96             macsel.style.display = 'none';
  97             macsel.selectedIndex = 0;
  98         }
  99
 100     }
 101
 102     devicepart_changed(document.getElementById('devicepart'));
 103 </SCRIPT>";
 104
 105   $js;
 106 };
 107
 108 # :/  needs agent-virt so you can't futz with arbitrary devices
 109
 110 die "access denied"
 111   unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
 112
 113
 114 </%init>