[freeside-commits] freeside/FS/FS/part_export acct_sql_status.pm, 1.2, 1.3 acct_sql.pm, 1.22, 1.23

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv13714

Modified Files:
	acct_sql_status.pm acct_sql.pm 
Log Message:
adding export to read mailbox status information, RT#15987

Index: acct_sql_status.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/acct_sql_status.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -d -r1.2 -r1.3
--- acct_sql_status.pm	15 Jan 2012 03:59:25 -0000	1.2
+++ acct_sql_status.pm	15 Jan 2012 04:14:01 -0000	1.3
@@ -5,11 +5,12 @@
 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

Index: acct_sql.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/acct_sql.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -w -d -r1.22 -r1.23
--- acct_sql.pm	13 Jun 2011 21:08:23 -0000	1.22
+++ acct_sql.pm	15 Jan 2012 04:14:01 -0000	1.23
@@ -5,7 +5,7 @@
 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',