httemplate/edit/part_svc.cgi

   1 <& /elements/header.html, "$action Service Definition" &>
   2 <& /elements/menubar.html,
   3   'View all service definitions' => "${p}browse/part_svc.cgi"
   4            #" onLoad=\"visualize()\""
   5 &>
   6
   7 <& /elements/init_overlib.html &>
   8
   9 <BR><BR>
  10
  11 <STYLE TYPE="text/css">
  12 .disabled {
  13   background-color: #dddddd;
  14 }
  15 .hidden {
  16   display: none;
  17 }
  18 .enabled {
  19   background-color: #ffffff;
  20 }
  21 .row0 TD {
  22   background-color: #eeeeee;
  23 }
  24 .row1 TD {
  25   background-color: #ffffff;
  26 }
  27 .def_info {
  28   text-align: center;
  29   padding: 0px;
  30   border-top: none;
  31   font-size: smaller;
  32   font-style: italic;
  33 }
  34 .selectrole {
  35   font-size: small
  36 }
  37 </STYLE>
  38 <SCRIPT TYPE="text/javascript">
  39 function fixup_submit(layer) {
  40   document.forms[layer].submit.disabled = true;
  41   fixup(document.forms[layer]);
  42   window[layer+'process'].call();
  43 }
  44
  45 function flag_changed(obj) {
  46   var newflag = obj.value;
  47   var a = obj.name.match(/(.*)__(.*)_flag/);
  48   var layer = a[1];
  49   var field = a[2];
  50   var input = document.getElementById(layer + '__' + field);
  51   // for fields that have both 'input' and 'select', 'select' is 'select from
  52   // inventory class'.
  53   var select = document.getElementById(layer + '__' + field + '_select');
  54   if (newflag == "" || newflag == "X") { // disable
  55     if ( input ) {
  56       input.disabled = true;
  57       input.className = 'disabled';
  58     }
  59     if ( select ) {
  60       select.disabled = true;
  61       select.className = 'hidden';
  62     }
  63   } else if ( newflag == 'D' || newflag == 'F' || newflag == 'S' ) {
  64     if ( input ) {
  65       // enable text box, disable inventory select
  66       input.disabled = false;
  67       input.className = 'enabled';
  68       if ( select ) {
  69         select.disabled = false;
  70         select.className = 'hidden';
  71       }
  72     } else if ( select ) {
  73       // enable select
  74       select.disabled = false;
  75       select.className = 'enabled';
  76       if ( newflag == 'S' || select.getAttribute('should_be_multiple') ) {
  77         select.multiple = true;
  78         var defaults = select.getAttribute('default');
  79         if ( defaults ) {
  80           defaults = defaults.split(',');
  81           for (var i = 0; i < defaults.length; i++) {
  82             for (j = 0; j < select.options.length; j++ ) {
  83               if ( defaults[i] == select.options[j].value ) {
  84                 select.options[j].selected = true;
  85               }
  86             }
  87           }
  88         }
  89       } else {
  90         select.multiple = false;
  91       }
  92     }
  93   } else if ( newflag == 'M' || newflag == 'A' || newflag == 'H' ) {
  94     // these all require a class selection
  95     if ( select ) {
  96       select.disabled = false;
  97       select.className = 'enabled';
  98       if ( input ) {
  99         input.disabled = false;
 100         input.className = 'hidden';
 101       }
 102     }
 103   }
 104   var required = document.getElementById(layer + '__' + field + '_required');
 105   if (required && !required.disabledinit) {
 106     if (newflag == "F") {
 107       required.checked = false;
 108       required.disabled = true;
 109     } else {
 110       required.disabled = false;
 111     }
 112   }
 113 }
 114
 115 window.onload = function() {
 116   var selects = document.getElementsByTagName('SELECT');
 117   for(i = 0; i < selects.length; i++) {
 118     var obj = selects[i];
 119     if ( obj.multiple ) {
 120       obj.setAttribute('should_be_multiple', true);
 121     }
 122   }
 123   var inputs = document.getElementsByTagName('INPUT');
 124   for(i = 0; i < inputs.length; i++) {
 125     var obj = inputs[i];
 126     if (obj.type == 'checkbox') {
 127       if ( obj.name.match(/_required$/) ) {
 128         if ( obj.disabled ) {
 129           obj.disabledinit = 1;
 130         }
 131       }
 132     }
 133   }
 134   for(i = 0; i < selects.length; i++) {
 135     var obj = selects[i];
 136     if ( obj.name.match(/_flag$/) ) {
 137       flag_changed(obj);
 138     }
 139   }
 140 };
 141
 142 </SCRIPT>
 143
 144 <FORM NAME="dummy">
 145
 146 <FONT CLASS="fsinnerbox-title">Service Part #<% $part_svc->svcpart ? $part_svc->svcpart : "(NEW)" %></FONT>
 147 <TABLE CLASS="fsinnerbox">
 148 <TR>
 149   <TD ALIGN="right">Service</TD>
 150   <TD><INPUT TYPE="text" NAME="svc" VALUE="<% $hashref->{svc} %>"></TD>
 151 <TR>
 152
 153 <& /elements/tr-select-part_svc_class.html, curr_value=>$hashref->{classnum} &>
 154
 155 <TR>
 156   <TD ALIGN="right">Self-service access</TD>
 157   <TD>
 158     <SELECT NAME="selfservice_access">
 159 % tie my %selfservice_access, 'Tie::IxHash', #false laziness w/browse/part_svc
 160 %   ''         => 'Yes',
 161 %   'hidden'   => 'Hidden',
 162 %   'readonly' => 'Read-only',
 163 % ;
 164 % for (keys %selfservice_access) {
 165   <OPTION VALUE="<% $_ %>"
 166           <% $_ eq $hashref->{'selfservice_access'} ? 'SELECTED' : '' %>
 167   ><% $selfservice_access{$_} %>
 168 % }
 169     </SELECT>
 170   </TD>
 171 </TR>
 172
 173
 174 <TR>
 175   <TD ALIGN="right">Disable new orders</TD>
 176   <TD><INPUT TYPE="checkbox" NAME="disabled" VALUE="Y"<% $hashref->{disabled} eq 'Y' ? ' CHECKED' : '' %>></TD>
 177 </TR>
 178
 179 <TR>
 180   <TD ALIGN="right">Preserve this service on package cancellation</TD>
 181   <TD><INPUT TYPE="checkbox" NAME="preserve" VALUE="Y"<% $hashref->{'preserve'} eq 'Y' ? ' CHECKED' : '' %>>&nbsp;</TD>
 182 </TR>
 183
 184 </TABLE>
 185
 186 <INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $hashref->{svcpart} %>">
 187
 188 <BR>
 189
 190 <FONT SIZE="+1"><B>Table</B></FONT> <% $widget->html %>
 191
 192 <& /elements/footer.html &>
 193
 194 <%init>
 195
 196 die "access denied"
 197   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 198
 199 my $conf = FS::Conf->new;
 200 my $part_svc;
 201 my $clone = '';
 202 if ( $cgi->param('clone') && $cgi->param('clone') =~ /^(\d+)$/ ) {#clone
 203   #$cgi->param('clone') =~ /^(\d+)$/ or die "malformed query: $query";
 204   $part_svc = qsearchs('part_svc', { 'svcpart'=>$1 } )
 205     or die "unknown svcpart: $1";
 206   $clone = $part_svc->svcpart;
 207   $part_svc->svcpart('');
 208 } elsif ( $cgi->keywords ) { #edit
 209   my($query) = $cgi->keywords;
 210   $query =~ /^(\d+)$/ or die "malformed query: $query";
 211   $part_svc=qsearchs('part_svc', { 'svcpart'=>$1 } )
 212     or die "unknown svcpart: $1";
 213 } else { #adding
 214   $part_svc = new FS::part_svc {};
 215 }
 216
 217 my $action = $part_svc->svcpart ? 'Edit' : 'Add';
 218 my $hashref = $part_svc->hashref;
 219 #   my $p_svcdb = $part_svc->svcdb || 'svc_acct';
 220
 221
 222 my @dbs = $hashref->{svcdb}
 223            ? ( $hashref->{svcdb} )
 224            : FS::part_svc->svc_tables();
 225
 226 my $help = '';
 227 unless ( $hashref->{svcpart} ) {
 228   $help = '&nbsp;'.
 229           include('/elements/popup_link.html',
 230                     'action' => $p.'docs/part_svc-table.html',
 231                     'label'  => 'help',
 232                     'actionlabel' => 'Service table help',
 233                     'width'       => 763,
 234                     #'height'      => 400,
 235                   );
 236 }
 237
 238 tie my %svcdb, 'Tie::IxHash', map { $_=>$_ } grep dbdef->table($_), @dbs;
 239 my $widget = new HTML::Widgets::SelectLayers(
 240   #'selected_layer' => $p_svcdb,
 241   'selected_layer' => $hashref->{svcdb} || 'svc_acct',
 242   'options'        => \%svcdb,
 243   'form_name'      => 'dummy',
 244   #'form_action'    => 'process/part_svc.cgi',
 245   'form_action'    => 'part_svc.cgi', #self
 246   'form_elements'  => [qw( svc svcpart classnum selfservice_access
 247                            disabled preserve
 248                       )],
 249   'html_between'   => $help,
 250   'layer_callback' => sub {
 251     include('elements/part_svc_column.html',
 252               shift,
 253               'part_svc' => $part_svc,
 254               'clone' => $clone
 255     )
 256   }
 257 );
 258 </%init>
 259
 260
 261