httemplate/edit/svc_domain.cgi

   1 <% include('/elements/header.html', "$action $svc", '') %>
   2
   3 <% include('/elements/error.html') %>
   4
   5 <FORM ACTION="<% $p1 %>process/svc_domain.cgi" METHOD=POST>
   6 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<% $svcnum %>">
   7 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
   8 <INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $svcpart %>">
   9
  10 <% ntable("#cccccc",2) %>
  11
  12 <TR>
  13   <TD ALIGN="right">Domain</TD>
  14   <TD>
  15 %   if ( !$svcnum || $conf->exists('svc_domain-edit_domain') ) {
  16       <INPUT TYPE="text" NAME="domain" VALUE="<% $domain %>" SIZE=28 MAXLENGTH=63>
  17 %   } else {
  18       <B><% $domain %></B>
  19       <INPUT TYPE="hidden" NAME="domain" VALUE="<% $domain %>">
  20 %   }
  21
  22 % if ($export) {
  23 <BR>
  24 Available top-level domains: <% $export->option('tlds') %>
  25 </TR>
  26
  27 <TR>
  28 <INPUT TYPE="radio" NAME="action" VALUE="N"<% $kludge_action eq 'N' ? ' CHECKED' : '' %>>Register at <% $registrar->{'name'} %>
  29 <BR>
  30
  31 <INPUT TYPE="radio" NAME="action" VALUE="M"<% $kludge_action eq 'M' ? ' CHECKED' : '' %>>Transfer to <% $registrar->{'name'} %>
  32 <BR>
  33
  34 <INPUT TYPE="radio" NAME="action" VALUE="I"<% $kludge_action eq 'I' ? ' CHECKED' : '' %>>Registered elsewhere
  35
  36 </TR>
  37
  38 % }
  39   </TD>
  40 </TR>
  41
  42 <% include('svc_domain/communigate-basics.html',
  43              'svc_domain'  => $svc_domain,
  44              'part_svc'    => $part_svc,
  45              'communigate' => $communigate,
  46           )
  47 %>
  48
  49 </TABLE>
  50 <BR>
  51
  52 <% include('svc_domain/communigate-acct_defaults.html',
  53              'svc_domain'  => $svc_domain,
  54              'part_svc'    => $part_svc,
  55              'communigate' => $communigate,
  56           )
  57 %>
  58
  59 <INPUT TYPE="submit" VALUE="Submit">
  60
  61 </FORM>
  62
  63 <% include('/elements/footer.html') %>
  64
  65 <%init>
  66
  67 die "access denied"
  68   unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
  69
  70 my $conf = new FS::Conf;
  71
  72 my($svcnum, $pkgnum, $svcpart, $kludge_action, $part_svc,
  73    $svc_domain);
  74 if ( $cgi->param('error') ) {
  75
  76   $svc_domain = new FS::svc_domain ( {
  77     map { $_, scalar($cgi->param($_)) } fields('svc_domain')
  78   } );
  79   $svcnum = $svc_domain->svcnum;
  80   $pkgnum = $cgi->param('pkgnum');
  81   $svcpart = $cgi->param('svcpart');
  82   $kludge_action = $cgi->param('action');
  83   $part_svc = qsearchs('part_svc', { 'svcpart' => $svcpart } );
  84   die "No part_svc entry!" unless $part_svc;
  85
  86 } elsif ( $cgi->param('pkgnum') && $cgi->param('svcpart') ) { #adding
  87
  88   $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
  89   $pkgnum = $1;
  90   $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
  91   $svcpart = $1;
  92
  93   $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
  94   die "No part_svc entry!" unless $part_svc;
  95
  96   $svc_domain = new FS::svc_domain({});
  97
  98   $svcnum='';
  99
 100   $svc_domain->set_default_and_fixed;
 101
 102 } else { #editing
 103
 104   $kludge_action = '';
 105   my($query) = $cgi->keywords;
 106   $query =~ /^(\d+)$/ or die "unparsable svcnum";
 107   $svcnum=$1;
 108   $svc_domain=qsearchs('svc_domain',{'svcnum'=>$svcnum})
 109     or die "Unknown (svc_domain) svcnum!";
 110
 111   my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum})
 112     or die "Unknown (cust_svc) svcnum!";
 113
 114   $pkgnum=$cust_svc->pkgnum;
 115   $svcpart=$cust_svc->svcpart;
 116
 117   $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
 118   die "No part_svc entry!" unless $part_svc;
 119
 120 }
 121 my $action = $svcnum ? 'Edit' : 'Add';
 122
 123 my $svc = $part_svc->getfield('svc');
 124
 125 my $communigate = scalar($part_svc->part_export('communigate_pro'));
 126                 # || scalar($part_svc->part_export('communigate_pro_singledomain'));
 127
 128 # Find the first export that does domain registration
 129 my @exports = grep $_->can('registrar'), $part_svc->part_export;
 130 my $export = $exports[0];
 131 # If we have a domain registration export, get the registrar object
 132 my $registrar = $export ? $export->registrar : '';
 133
 134 my $otaker = getotaker;
 135
 136 my $domain = $svc_domain->domain;
 137
 138 my $p1 = popurl(1);
 139
 140 </%init>