projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
import torrus 1.0.9
[freeside.git]
/
httemplate
/
edit
/
svc_domain.cgi
diff --git
a/httemplate/edit/svc_domain.cgi
b/httemplate/edit/svc_domain.cgi
index
369d6a0
..
54a933d
100755
(executable)
--- a/
httemplate/edit/svc_domain.cgi
+++ b/
httemplate/edit/svc_domain.cgi
@@
-16,6
+16,7
@@
<INPUT TYPE="text" NAME="domain" VALUE="<% $domain %>" SIZE=28 MAXLENGTH=63>
% } else {
<B><% $domain %></B>
<INPUT TYPE="text" NAME="domain" VALUE="<% $domain %>" SIZE=28 MAXLENGTH=63>
% } else {
<B><% $domain %></B>
+ <INPUT TYPE="hidden" NAME="domain" VALUE="<% $domain %>">
% }
% if ($export) {
% }
% if ($export) {
@@
-38,20
+39,23
@@
Available top-level domains: <% $export->option('tlds') %>
</TD>
</TR>
</TD>
</TR>
-% if ( $part_svc->part_svc_column('max_accounts')->columnflag =~ /^[FA]$/ ) {
- <INPUT TYPE="hidden" NAME="max_accounts" VALUE="<% $svc_domain->max_accounts %>">
-% } else {
- <TR>
- <TD ALIGN="right">Maximum number of accounts</TD>
- <TD>
- <INPUT TYPE="text" NAME="max_accounts" SIZE=5 MAXLENGTH=6 VALUE="<% $svc_domain->max_accounts %>">
- </TD>
- </TR>
-% }
+<% include('svc_domain/communigate-basics.html',
+ 'svc_domain' => $svc_domain,
+ 'part_svc' => $part_svc,
+ 'communigate' => $communigate,
+ )
+%>
</TABLE>
</TABLE>
-
<BR>
<BR>
+
+<% include('svc_domain/communigate-acct_defaults.html',
+ 'svc_domain' => $svc_domain,
+ 'part_svc' => $part_svc,
+ 'communigate' => $communigate,
+ )
+%>
+
<INPUT TYPE="submit" VALUE="Submit">
</FORM>
<INPUT TYPE="submit" VALUE="Submit">
</FORM>
@@
-118,19
+122,14
@@
my $action = $svcnum ? 'Edit' : 'Add';
my $svc = $part_svc->getfield('svc');
my $svc = $part_svc->getfield('svc');
-my @exports = $part_svc->part_export();
-
-my $registrar;
-my $export;
+my $communigate = scalar($part_svc->part_export('communigate_pro'));
+ # || scalar($part_svc->part_export('communigate_pro_singledomain'));
# Find the first export that does domain registration
# Find the first export that does domain registration
-foreach (@exports) {
- $export = $_ if $_->can('registrar');
-}
+my @exports = grep $_->can('registrar'), $part_svc->part_export;
+my $export = $exports[0];
# If we have a domain registration export, get the registrar object
# If we have a domain registration export, get the registrar object
-if ($export) {
- $registrar = $export->registrar;
-}
+my $registrar = $export ? $export->registrar : '';
my $otaker = getotaker;
my $otaker = getotaker;