X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fusage_class.pm;h=6c8a278ba58640ab0ef58b7e15d6660614ce8fda;hp=7b73c611f8896039a40b63939e545a56047db080;hb=f822e27a1e00594332ffa487a1c284234c5580a6;hpb=252791a3e4a3cfdfef60e7278e06d899884f85a5

diff --git a/FS/FS/usage_class.pm b/FS/FS/usage_class.pm
index 7b73c611f..6c8a278ba 100644
--- a/FS/FS/usage_class.pm
+++ b/FS/FS/usage_class.pm
@@ -181,6 +181,19 @@ my %summary_formats = (
     'span'   => [ qw( 1 1 1 1 1 2 ) ],            # unitprices?
     'width'  => [ qw( 4.3cm 1.4cm 2.5cm 2.5cm 1.4cm 1.6cm ) ],# don't like this
     'show'   => 0,
+   },
+  'usage_4col' => { 
+    'label' => [ qw( col1 col2 col3 col4 ) ],
+    'fields' => [
+                  sub { ' ' },
+                  sub { ' ' },
+                  sub { ' ' },
+                  sub { ' ' },
+                ],
+    'align'  => [ qw( l l l l r r ) ],
+    'span'   => [ qw( 1 1 1 1 1 2 ) ],          
+    'width'  => [ qw( 4.3cm 1.4cm 2.5cm 2.5cm ) ],
+    'show'   => 0,
   },
   'usage_7col' => { 
     'label' => [ qw( col1 col2 col3 col4 col5 col6 col7 ) ],
@@ -430,8 +443,7 @@ sub total_line_generator {
 
 }
 
-
-
+# Used by FS::Setup to initialize a new database.
 sub _populate_initial_data {
   my ($class, %opts) = @_;
 
@@ -446,6 +458,7 @@ sub _populate_initial_data {
 
 }
 
+# Used by FS::Upgrade to migrate to a new database.
 sub _upgrade_data {
   my $class = shift;