From: ivan <ivan>
Date: Sun, 15 Jan 2012 04:14:06 +0000 (+0000)
Subject: adding export to read mailbox status information, RT#15987
X-Git-Tag: freeside_2_3_1~18
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=25180d667effd00ae7c51ca8a51c806ece049547

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 0c0b4ac30..e5e9d7e38 100644
--- 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 5ad462e7f..bcc1e0116 100644
--- 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