[freeside-commits] freeside/FS/FS cust_main_county.pm, 1.25, 1.26 cust_pkg_reason.pm, 1.9, 1.10 m2name_Common.pm, 1.2, 1.3 option_Common.pm, 1.10, 1.11 part_event.pm, 1.5, 1.6 part_svc.pm, 1.43, 1.44 reason_type.pm, 1.4, 1.5

[Ivan,,,]

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

Modified Files:
	cust_main_county.pm cust_pkg_reason.pm m2name_Common.pm 
	option_Common.pm part_event.pm part_svc.pm reason_type.pm 
Log Message:
random cleanups

Index: m2name_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/m2name_Common.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -d -r1.2 -r1.3
--- m2name_Common.pm	1 Aug 2007 22:24:36 -0000	1.2
+++ m2name_Common.pm	22 Sep 2011 21:41:46 -0000	1.3
@@ -16,9 +16,7 @@
 
 =head1 SYNOPSIS
 
-use FS::m2name_Common;
-
- at ISA = qw( FS::m2name_Common FS::Record );
+    use base qw( FS::m2name_Common FS::Record );
 
 =head1 DESCRIPTION
 

Index: part_event.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_event.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -d -r1.5 -r1.6
--- part_event.pm	1 Sep 2011 05:13:08 -0000	1.5
+++ part_event.pm	22 Sep 2011 21:41:46 -0000	1.6
@@ -1,18 +1,16 @@
 package FS::part_event;
 
 use strict;
-use vars qw( @ISA $DEBUG );
+use base qw( FS::m2name_Common FS::option_Common );
+use vars qw( $DEBUG );
 use Carp qw(confess);
 use FS::Record qw( dbh qsearch qsearchs );
-use FS::option_Common;
-use FS::m2name_Common;
 use FS::Conf;
 use FS::part_event_option;
 use FS::part_event_condition;
 use FS::cust_event;
 use FS::agent;
 
- at ISA = qw( FS::m2name_Common FS::option_Common ); # FS::Record );
 $DEBUG = 0;
 
 =head1 NAME

Index: part_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_svc.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -w -d -r1.43 -r1.44
--- part_svc.pm	22 Jul 2011 18:56:24 -0000	1.43
+++ part_svc.pm	22 Sep 2011 21:41:46 -0000	1.44
@@ -82,7 +82,7 @@
 
 =item I<svcdb>__I<field> - Default or fixed value for I<field> in I<svcdb>.
 
-=item I<svcdb>__I<field>_flag - defines I<svcdb>__I<field> action: null or empty (no default), `D' for default, `F' for fixed (unchangeable), `M' for manual selection from inventory, or `A' for automatic selection from inventory. 
+=item I<svcdb>__I<field>_flag - defines I<svcdb>__I<field> action: null or empty (no default), `D' for default, `F' for fixed (unchangeable), , `S' for selectable choice, `M' for manual selection from inventory, or `A' for automatic selection from inventory.  For virtual fields, can also be 'X' for excluded.
 
 =back
 

Index: option_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/option_Common.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -d -r1.10 -r1.11
--- option_Common.pm	20 Oct 2010 02:07:01 -0000	1.10
+++ option_Common.pm	22 Sep 2011 21:41:46 -0000	1.11
@@ -1,12 +1,11 @@
 package FS::option_Common;
 
 use strict;
-use vars qw( @ISA $DEBUG );
+use base qw( FS::Record );
+use vars qw( $DEBUG );
 use Scalar::Util qw( blessed );
 use FS::Record qw( qsearch qsearchs dbh );
 
- at ISA = qw( FS::Record );
-
 $DEBUG = 0;
 
 =head1 NAME

Index: cust_main_county.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main_county.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -w -d -r1.25 -r1.26
--- cust_main_county.pm	22 Sep 2010 19:16:17 -0000	1.25
+++ cust_main_county.pm	22 Sep 2011 21:41:46 -0000	1.26
@@ -328,7 +328,7 @@
             'taxnum'     => $self->taxnum,
             'year'       => 1900+$year,
             'month'      => $mon,
-            'amount'     => sprintf("%.2f", $addl ),
+            'amount'     => sprintf('%.2f', $addl ),
           } );
           if ($cust_bill_pkg->billpkgnum) {
             $cust_tax_exempt_pkg->billpkgnum($cust_bill_pkg->billpkgnum);

Index: reason_type.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/reason_type.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -d -r1.4 -r1.5
--- reason_type.pm	9 Mar 2010 00:18:14 -0000	1.4
+++ reason_type.pm	22 Sep 2011 21:41:46 -0000	1.5
@@ -131,12 +131,7 @@
 		     } );
 }
 
-# _populate_initial_data
-#
 # Used by FS::Setup to initialize a new database.
-#
-#
-
 sub _populate_initial_data {  # class method
   my ($self, %opts) = @_;
 
@@ -169,12 +164,7 @@
 
 }
 
-# _upgrade_data
-#
 # Used by FS::Upgrade to migrate to a new database.
-#
-#
-
 sub _upgrade_data {  # class method
   my ($self, %opts) = @_;
 

Index: cust_pkg_reason.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg_reason.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -d -r1.9 -r1.10
--- cust_pkg_reason.pm	18 Sep 2010 07:28:42 -0000	1.9
+++ cust_pkg_reason.pm	22 Sep 2011 21:41:46 -0000	1.10
@@ -319,8 +319,6 @@
 
 =head1 BUGS
 
-Here be termites.  Don't use on wooden computers.
-
 =head1 SEE ALSO
 
 L<FS::Record>, schema.html from the base documentation.