=item max_accounts
+=item au_eligibility_type
+
+AU-specific field for domain registrations
+
+=item au_registrant_name
+
+AU-specific field for domain registrations
+
=back
=head1 METHODS
disable_inventory => 1,
disable_select => 1,
},
+ 'au_registrant_name' => { label => 'AU Registrant Name',
+ disable_inventory => 1,
+ disable_select => 1,
+ },
+ 'au_eligibility_type' => { label => 'AU Eligibility Type',
+ type => 'select',
+ select_list => __PACKAGE__->au_eligibility_type_values,
+ disable_inventory => 1,
+ disable_select => 1,
+ },
'max_accounts' => { label => 'Maximum number of accounts',
'disable_inventory' => 1,
},
disable_inventory => 1,
disable_select => 1,
},
+ 'cgp_certificatetype' => {
+ label => 'Communigate PKI services',
+ type => 'select',
+ select_list => __PACKAGE__->cgp_certificatetype_values,
+ disable_inventory => 1,
+ disable_select => 1,
+ },
'acct_def_cgp_accessmodes' => {
label => 'Acct. default Communigate enabled services',
$class->search_sql_field('domain', $string);
}
+=item au_eligibility_type_values
+
+=cut
+
+sub au_eligibility_type_values {
+
+ [ '',
+ 'Charity',
+ 'Child Care Centre',
+ 'Citizen/Resident',
+ 'Club',
+ 'Commercial Statutory Body',
+ 'Company',
+ 'Government School',
+ 'Higher Education Institution',
+ 'Incorporated Association',
+ 'Industry Body',
+ 'National Body',
+ 'Non-Government School',
+ 'Non-profit Organisation',
+ 'Other',
+ 'Partnership',
+ 'Pending TM Owner',
+ 'Political Party',
+ 'Pre-school',
+ 'Registered Business',
+ 'Religious/Church Group',
+ 'Research Organisation',
+ 'Sole Trader',
+ 'Trade Union',
+ 'Trademark Owner',
+ 'Training Organisation',
+ ];
+
+}
=item label
The additional field I<action> should be set to I<N> for new domains, I<M>
for transfers, or I<I> for no action (registered elsewhere).
-A registration or transfer email will be submitted unless
-$FS::svc_domain::whois_hack is true.
-
The additional field I<email> can be used to manually set the admin contact
email address on this email. Otherwise, the svc_acct records for this package
(see L<FS::cust_pkg>) are searched. If there is exactly one svc_acct record
#my $part_svc = $x;
my $error = $self->ut_numbern('svcnum')
+ || $self->ut_textn('au_eligibility_type')
+ || $self->ut_textn('au_registrant_name')
|| $self->ut_numbern('catchall')
|| $self->ut_numbern('max_accounts')
|| $self->ut_anything('trailer') #well
$recref->{domain} = "$1.$2";
$recref->{suffix} ||= $2;
# hmmmmmmmm.
- } elsif ( $whois_hack && $recref->{domain} =~ /^([\w\-\.]+)\.(\w+)$/ ) {
+ } elsif ( $whois_hack && $recref->{domain} =~ /^([\w\-\.\/]+)\.(\w+)$/ ) {
$recref->{domain} = "$1.$2";
# need to match a list of suffixes - no guarantee they're top-level..
# http://wiki.mozilla.org/TLD_List
'A' => 5,
'TXT' => 6,
'PTR' => 7,
+ 'SRV' => 8,
);
my %sort = (