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