summaryrefslogtreecommitdiff
path: root/httemplate/elements/select-svc-domain.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/elements/select-svc-domain.html')
-rw-r--r--httemplate/elements/select-svc-domain.html50
1 files changed, 0 insertions, 50 deletions
diff --git a/httemplate/elements/select-svc-domain.html b/httemplate/elements/select-svc-domain.html
deleted file mode 100644
index 4c04466..0000000
--- a/httemplate/elements/select-svc-domain.html
+++ /dev/null
@@ -1,50 +0,0 @@
-<SELECT NAME="domsvc" SIZE=1>
-% foreach my $svcnum (
-% sort { $svc_domain{$a} cmp $svc_domain{$b} }
-% keys %svc_domain
-% ) {
-
- <OPTION VALUE="<% $svcnum %>"
- <% ($svcnum == $domsvc) ? ' SELECTED' : '' %>
- ><% $svc_domain{$svcnum} %>
-
-% }
-
-</SELECT>
-<%init>
-
-my %opt = @_;
-
-my %svc_domain = ();
-my $domsvc;
-
-my $domsvc = $opt{'curr_value'};
-my $part_svc = $opt{'part_svc'}
- || qsearchs('part_svc', { 'svcpart' => $opt{'svcpart'} });
-
-#optional
-my $cust_pkg = $opt{'cust_pkg'};
-$cust_pkg ||= qsearchs('cust_pkg', { 'pkgnum' => $opt{'pkgnum'} })
- if $opt{'pkgnum'};
-
-my $pkgnum = $cust_pkg ? $cust_pkg->pkgnum : '';
-
-my %svc_domain = ();
-
-if ( $domsvc ) {
- my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $domsvc } );
- if ( $svc_domain ) {
- $svc_domain{$svc_domain->svcnum} = $svc_domain;
- } else {
- warn "unknown svc_domain.svcnum for svc_acct.domsvc: $domsvc";
- }
-}
-
-%svc_domain = (
- %svc_domain,
- FS::svc_Domain_Mixin->domain_select_hash( 'svcpart' => $part_svc->svcpart,
- 'pkgnum' => $pkgnum,
- )
-);
-
-</%init>