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);
 
-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',

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 );
 
-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',
+  'desc'     => 'Mailbox status information from SQL',
   'options'  => $options,
   'nodomain' => '',
   'notes'    => <<END