adding export to read mailbox status information, RT#15987

diff --git a/FS/FS/part_export/acct_sql.pm b/FS/FS/part_export/acct_sql.pm
index 0c0b4ac..e5e9d7e 100644 (file)
--- a/FS/FS/part_export/acct_sql.pm
+++ b/FS/FS/part_export/acct_sql.pm
@@ -5,7 +5,7 @@ use strict;
 use vars qw( %info );
 use FS::Record; #qw(qsearchs);
 
 use vars qw( %info );
 use FS::Record; #qw(qsearchs);
 

-my $options = __PACKAGE__->sql_options;
+my $options = { %{__PACKAGE__->sql_options} };#a new hashref so we don't pollute

 $options->{'crypt'} = { label => 'Password encryption',
                         type=>'select', options=>[qw(crypt md5 sha1_base64)],
                         default=>'crypt',
 $options->{'crypt'} = { label => 'Password encryption',
                         type=>'select', options=>[qw(crypt md5 sha1_base64)],
                         default=>'crypt',

diff --git a/FS/FS/part_export/acct_sql_status.pm b/FS/FS/part_export/acct_sql_status.pm
index 5ad462e..bcc1e01 100644 (file)
--- a/FS/FS/part_export/acct_sql_status.pm
+++ b/FS/FS/part_export/acct_sql_status.pm
@@ -5,11 +5,12 @@ use strict;
 use warnings;
 use vars qw( %info );
 
 use warnings;
 use vars qw( %info );
 

-my $options = __PACKAGE__->sql_options;
+my $options = { %{__PACKAGE__->sql_options} };#a new hashref so we don't pollute

 delete $options->{$_} for qw( table schema static primary_key );
 
 %info = (
   'svc'      => 'svc_acct',
 delete $options->{$_} for qw( table schema static primary_key );
 
 %info = (
   'svc'      => 'svc_acct',

+  'desc'     => 'Mailbox status information from SQL',

   'options'  => $options,
   'nodomain' => '',
   'notes'    => <<END
   'options'  => $options,
   'nodomain' => '',
   'notes'    => <<END