1 <& /elements/header.html, mt('Bulk add [_1]',$svc) &>
3 <& /elements/error.html &>
7 <& /elements/small_custview.html, $cust_main, '', 1,
8 popurl(2) . "view/cust_main.cgi" &>
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 %>">
17 <% ntable("#cccccc",2) %>
20 <TD ALIGN="right"><% mt('Phone number range') |h %></TD>
21 <TD><INPUT TYPE="text" NAME="phonenum" VALUE=""></TD>
27 <INPUT TYPE="submit" VALUE="Submit">
31 <& /elements/footer.html &>
36 unless $FS::CurrentUser::CurrentUser->access_right('Bulk provision customer service');
38 $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
40 my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $pkgnum })
41 or die 'unknown pkgnum';
42 my $cust_main = $cust_pkg->cust_main;
44 $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
47 my $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
48 die "No part_svc entry!" unless $part_svc;
50 my $svc = $part_svc->getfield('svc');