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