X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Facct_sql.pm;h=8163f2017f72bd1960fc0f75d53248a2bd6c790e;hb=38e34bbc53a4222c7507e95914e1364a5a74623f;hp=0c0b4ac309daa2b6f19236b5d19740a22ed965cd;hpb=80c705e3125aab7a6d2aa43ac5df8b25bb4f5f92;p=freeside.git diff --git a/FS/FS/part_export/acct_sql.pm b/FS/FS/part_export/acct_sql.pm index 0c0b4ac30..8163f2017 100644 --- a/FS/FS/part_export/acct_sql.pm +++ b/FS/FS/part_export/acct_sql.pm @@ -3,13 +3,14 @@ use base qw( FS::part_export::sql_Common ); use strict; use vars qw( %info ); +use Tie::IxHash; use FS::Record; #qw(qsearchs); -my $options = __PACKAGE__->sql_options; -$options->{'crypt'} = { label => 'Password encryption', - type=>'select', options=>[qw(crypt md5 sha1_base64)], - default=>'crypt', - }; +tie my %options, 'Tie::IxHash', %{__PACKAGE__->sql_options}; +$options{'crypt'} = { label => 'Password encryption', + type=>'select', options=>[qw(crypt md5 sha1_base64)], + default=>'crypt', + }; tie my %vpopmail_map, 'Tie::IxHash', 'pw_name' => 'username', @@ -59,11 +60,13 @@ my $postfix_native_mailbox_map = keys %postfix_native_mailbox_map ); %info = ( - 'svc' => 'svc_acct', - 'desc' => 'Real-time export of accounts to SQL databases '. - '(vpopmail, Postfix+Courier IMAP, others?)', - 'options' => $options, - 'nodomain' => '', + 'svc' => 'svc_acct', + 'desc' => 'Real-time export of accounts to SQL databases '. + '(vpopmail, Postfix+Courier IMAP, others?)', + 'options' => \%options, + 'nodomain' => '', + 'no_machine' => 1, + 'default_svc_class' => 'Email', 'notes' => <