diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-12-12 20:56:22 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-12-12 20:56:22 -0800 |
| commit | 4d364d506c717b1b73858dd287413d3788ec586d (patch) | |
| tree | 3cf788cf112a2497492dba7fb0973da23c3bbafd /httemplate/edit/bulk-svc_phone.html | |
| parent | 2457752a82358108aa078f175a4e866f1786299a (diff) | |
simple bulk provisioning of phone number ranges, RT#29800
Diffstat (limited to 'httemplate/edit/bulk-svc_phone.html')
| -rw-r--r-- | httemplate/edit/bulk-svc_phone.html | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/httemplate/edit/bulk-svc_phone.html b/httemplate/edit/bulk-svc_phone.html new file mode 100644 index 000000000..fb7183612 --- /dev/null +++ b/httemplate/edit/bulk-svc_phone.html @@ -0,0 +1,52 @@ +<& /elements/header.html, mt('Bulk add [_1]',$svc) &> + +<& /elements/error.html &> + +% if ( $cust_main ) { + + <& /elements/small_custview.html, $cust_main, '', 1, + popurl(2) . "view/cust_main.cgi" &> + <BR> +% } + +<FORM NAME="OneTrueForm" ACTION="<% popurl(1) %>process/bulk-svc_phone.html" METHOD=POST> +<INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>"> +<INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $svcpart %>"> +<INPUT TYPE="hidden" NAME="num_avail" VALUE="<% scalar($cgi->param('num_avail')) |h %>"> + +<% ntable("#cccccc",2) %> + +<TR> + <TD ALIGN="right"><% mt('Phone number range') |h %></TD> + <TD><INPUT TYPE="text" NAME="phonenum" VALUE=""></TD> +</TR> + +</TABLE> + +<BR> +<INPUT TYPE="submit" VALUE="Submit"> + +</FORM> + +<& /elements/footer.html &> + +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Bulk provision customer service'); + +$cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum'; +my $pkgnum = $1; +my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $pkgnum }) + or die 'unknown pkgnum'; +my $cust_main = $cust_pkg->cust_main; + +$cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart'; +my $svcpart = $1; + +my $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); +die "No part_svc entry!" unless $part_svc; + +my $svc = $part_svc->getfield('svc'); + +</%init> |