diff options
| -rw-r--r-- | FS/FS/part_export/acct_sql.pm | 2 | ||||
| -rw-r--r-- | FS/FS/part_export/acct_sql_status.pm | 3 |
2 files changed, 3 insertions, 2 deletions
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 |