From ed51376381b04d1258c079e65059ab4d678dea7e Mon Sep 17 00:00:00 2001
From: rsiddall <rsiddall>
Date: Fri, 15 May 2009 19:43:06 +0000
Subject: Simple domain registration at Tucows OpenSRS using an export based on
 Net::OpenSRS. When a domain is added and the export runs, it will register
 the domain or initiate a transfer.  You can also choose no action. There's
 currently no provision for revoking domains or renewing registrations.
 Depending on the settings at OpenSRS, orders may look like they've succeeded
 in Freeside but actually be queued pending input by the reseller at OpenSRS.
 The part_export CGIs were modified to allow a multi-valued select to be used
 to control which TLDs are enabled for registration.

---
 httemplate/edit/process/part_export.cgi | 3 ++-
 httemplate/edit/process/svc_domain.cgi  | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'httemplate/edit/process')

diff --git a/httemplate/edit/process/part_export.cgi b/httemplate/edit/process/part_export.cgi
index b5f82e892..209419f0b 100644
--- a/httemplate/edit/process/part_export.cgi
+++ b/httemplate/edit/process/part_export.cgi
@@ -16,7 +16,8 @@ my $old = qsearchs('part_export', { 'exportnum'=>$exportnum } ) if $exportnum;
 #fixup options
 #warn join('-', split(',',$cgi->param('options')));
 my %options = map {
-  my $value = $cgi->param($_);
+  my @values = $cgi->param($_);
+  my $value = scalar(@values) > 1 ? join (' ', @values) : $values[0];
   $value =~ s/\r\n/\n/g; #browsers? (textarea)
   $_ => $value;
 } split(',', $cgi->param('options'));
diff --git a/httemplate/edit/process/svc_domain.cgi b/httemplate/edit/process/svc_domain.cgi
index 9993a879e..59b518097 100755
--- a/httemplate/edit/process/svc_domain.cgi
+++ b/httemplate/edit/process/svc_domain.cgi
@@ -18,8 +18,8 @@ my $svcnum = $1;
 my $new = new FS::svc_domain ( {
   map {
     $_, scalar($cgi->param($_));
-  #} qw(svcnum pkgnum svcpart domain action purpose)
-  } ( fields('svc_domain'), qw( pkgnum svcpart action purpose ) )
+  #} qw(svcnum pkgnum svcpart domain action)
+  } ( fields('svc_domain'), qw( pkgnum svcpart action ) )
 } );
 
 my $error = '';
-- 
cgit v1.2.1