httemplate/edit/bulk-svc_phone.html

   1 <& /elements/header.html, mt('Bulk add [_1]',$svc) &>
   2
   3 <& /elements/error.html &>
   4
   5 % if ( $cust_main ) {
   6
   7   <& /elements/small_custview.html, $cust_main, '', 1,
   8               popurl(2) . "view/cust_main.cgi" &>
   9   <BR>
  10 % }
  11
  12 <FORM NAME="OneTrueForm" ACTION="<% popurl(1) %>process/bulk-svc_phone.html" METHOD=POST>
  13 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
  14 <INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $svcpart %>">
  15 <INPUT TYPE="hidden" NAME="num_avail" VALUE="<% scalar($cgi->param('num_avail')) |h %>">
  16
  17 <% ntable("#cccccc",2) %>
  18
  19 <TR>
  20   <TD ALIGN="right"><% mt('Phone number range') |h %></TD>
  21   <TD><INPUT TYPE="text" NAME="phonenum" VALUE=""></TD>
  22 </TR>
  23
  24 </TABLE>
  25
  26 <BR>
  27 <INPUT TYPE="submit" VALUE="Submit">
  28
  29 </FORM>
  30
  31 <& /elements/footer.html &>
  32
  33 <%init>
  34
  35 die "access denied"
  36   unless $FS::CurrentUser::CurrentUser->access_right('Bulk provision customer service');
  37
  38 $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
  39 my $pkgnum = $1;
  40 my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $pkgnum })
  41   or die 'unknown pkgnum';
  42 my $cust_main = $cust_pkg->cust_main;
  43
  44 $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
  45 my $svcpart = $1;
  46
  47 my $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
  48 die "No part_svc entry!" unless $part_svc;
  49
  50 my $svc = $part_svc->getfield('svc');
  51
  52 </%init>