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 }
 105
 106 window.onload = function() {
 107   var selects = document.getElementsByTagName('SELECT');
 108   for(i = 0; i < selects.length; i++) {
 109     var obj = selects[i];
 110     if ( obj.multiple ) {
 111       obj.setAttribute('should_be_multiple', true);
 112     }
 113   }
 114   for(i = 0; i < selects.length; i++) {
 115     var obj = selects[i];
 116     if ( obj.name.match(/_flag$/) ) {
 117       flag_changed(obj);
 118     }
 119   }
 120 };
 121
 122 </SCRIPT>
 123
 124 <FORM NAME="dummy">
 125
 126 <FONT CLASS="fsinnerbox-title">Service Part #<% $part_svc->svcpart ? $part_svc->svcpart : "(NEW)" %></FONT>
 127 <TABLE CLASS="fsinnerbox">
 128 <TR>
 129   <TD ALIGN="right">Service</TD>
 130   <TD><INPUT TYPE="text" NAME="svc" VALUE="<% $hashref->{svc} %>"></TD>
 131 <TR>
 132
 133 <& /elements/tr-select-part_svc_class.html, curr_value=>$hashref->{classnum} &>
 134
 135 <TR>
 136   <TD ALIGN="right">Self-service access</TD>
 137   <TD>
 138     <SELECT NAME="selfservice_access">
 139 % tie my %selfservice_access, 'Tie::IxHash', #false laziness w/browse/part_svc
 140 %   ''         => 'Yes',
 141 %   'hidden'   => 'Hidden',
 142 %   'readonly' => 'Read-only',
 143 % ;
 144 % for (keys %selfservice_access) {
 145   <OPTION VALUE="<% $_ %>"
 146           <% $_ eq $hashref->{'selfservice_access'} ? 'SELECTED' : '' %>
 147   ><% $selfservice_access{$_} %>
 148 % }
 149     </SELECT>
 150   </TD>
 151 </TR>
 152
 153
 154 <TR>
 155   <TD ALIGN="right">Disable new orders</TD>
 156   <TD><INPUT TYPE="checkbox" NAME="disabled" VALUE="Y"<% $hashref->{disabled} eq 'Y' ? ' CHECKED' : '' %>></TD>
 157 </TR>
 158
 159 <TR>
 160   <TD ALIGN="right">Preserve this service on package cancellation</TD>
 161   <TD><INPUT TYPE="checkbox" NAME="preserve" VALUE="Y"<% $hashref->{'preserve'} eq 'Y' ? ' CHECKED' : '' %>>&nbsp;</TD>
 162 </TR>
 163
 164 </TABLE>
 165
 166 <INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $hashref->{svcpart} %>">
 167
 168 <BR>
 169
 170 <BR>
 171 Table <% $widget->html %>
 172
 173 <% include('/elements/footer.html') %>
 174
 175 <%init>
 176
 177 die "access denied"
 178   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 179
 180 my $conf = FS::Conf->new;
 181 my $part_svc;
 182 my $clone = '';
 183 if ( $cgi->param('clone') && $cgi->param('clone') =~ /^(\d+)$/ ) {#clone
 184   #$cgi->param('clone') =~ /^(\d+)$/ or die "malformed query: $query";
 185   $part_svc = qsearchs('part_svc', { 'svcpart'=>$1 } )
 186     or die "unknown svcpart: $1";
 187   $clone = $part_svc->svcpart;
 188   $part_svc->svcpart('');
 189 } elsif ( $cgi->keywords ) { #edit
 190   my($query) = $cgi->keywords;
 191   $query =~ /^(\d+)$/ or die "malformed query: $query";
 192   $part_svc=qsearchs('part_svc', { 'svcpart'=>$1 } )
 193     or die "unknown svcpart: $1";
 194 } else { #adding
 195   $part_svc = new FS::part_svc {};
 196 }
 197
 198 my $action = $part_svc->svcpart ? 'Edit' : 'Add';
 199 my $hashref = $part_svc->hashref;
 200 #   my $p_svcdb = $part_svc->svcdb || 'svc_acct';
 201
 202
 203 my @dbs = $hashref->{svcdb}
 204            ? ( $hashref->{svcdb} )
 205            : FS::part_svc->svc_tables();
 206
 207 my $help = '';
 208 unless ( $hashref->{svcpart} ) {
 209   $help = '&nbsp;'.
 210           include('/elements/popup_link.html',
 211                     'action' => $p.'docs/part_svc-table.html',
 212                     'label'  => 'help',
 213                     'actionlabel' => 'Service table help',
 214                     'width'       => 763,
 215                     #'height'      => 400,
 216                   );
 217 }
 218
 219 tie my %svcdb, 'Tie::IxHash', map { $_=>$_ } grep dbdef->table($_), @dbs;
 220 my $widget = new HTML::Widgets::SelectLayers(
 221   #'selected_layer' => $p_svcdb,
 222   'selected_layer' => $hashref->{svcdb} || 'svc_acct',
 223   'options'        => \%svcdb,
 224   'form_name'      => 'dummy',
 225   #'form_action'    => 'process/part_svc.cgi',
 226   'form_action'    => 'part_svc.cgi', #self
 227   'form_elements'  => [qw( svc svcpart classnum selfservice_access
 228                            disabled preserve
 229                       )],
 230   'html_between'   => $help,
 231   'layer_callback' => sub {
 232     include('elements/part_svc_column.html',
 233               shift,
 234               'part_svc' => $part_svc,
 235               'clone' => $clone
 236     )
 237   }
 238 );
 239 </%init>
 240
 241
 242