diff options
| author | levinse <levinse> | 2011-01-19 21:50:02 +0000 |
|---|---|---|
| committer | levinse <levinse> | 2011-01-19 21:50:02 +0000 |
| commit | a436d84c61434204c3e557c7d9433225de32a412 (patch) | |
| tree | 6b915bbcf7771631bba5ccfc95441f0087d1c424 /FS/FS/part_export | |
| parent | 8f004f5beae4bf832d5c07fc440e204c16978153 (diff) | |
Add experimental OpenSRS export changes, and svc_domain UI changes for .au registrations
Diffstat (limited to 'FS/FS/part_export')
| -rw-r--r-- | FS/FS/part_export/domreg_opensrs.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/FS/FS/part_export/domreg_opensrs.pm b/FS/FS/part_export/domreg_opensrs.pm index 6728e8c..0c7a95d 100644 --- a/FS/FS/part_export/domreg_opensrs.pm +++ b/FS/FS/part_export/domreg_opensrs.pm @@ -73,6 +73,9 @@ tie %options, 'Tie::IxHash', size => scalar(@tldlist), options => [ @tldlist ], default => 'com net org' }, + 'auoptions' => { label => 'Enable AU-specific registration fields', + type => 'checkbox' + }, ; %info = ( @@ -396,6 +399,11 @@ sub register { my $c = gen_contact_info($cust_main); + if ( $svc_domain->domain =~ /\.au$/ ) { + $c->{'registrant_name'} = $svc_domain->au_registrant_name; + $c->{'eligibility_type'} = $svc_domain->au_eligibility_type; + } + $err = validate_contact_info($c); return $err if $err; |