show credit balance on invoices, #11564

[freeside.git] / bin / generate-table-module

diff --git a/bin/generate-table-module b/bin/generate-table-module
index 7635962..e7fc992 100755 (executable)
--- a/bin/generate-table-module
+++ b/bin/generate-table-module
@@ -1,7 +1,11 @@
 #!/usr/bin/perl
 
+use strict;
+use vars qw( $opt_n );
 use FS::Schema qw( dbdef_dist );
+use Getopt::Std;
 
+getopts('n');
 my $table = shift;
 
 ###
@@ -70,7 +74,8 @@ close DEST;
 ###
 
 my $magic = '# Sammath Naur';
-system("perl -pi -e 's/$magic/use FS::$table;\n  $magic/' FS/FS/Mason.pm");
+system("perl -pi -e 's/$magic/use FS::$table;\n  $magic/' FS/FS/Mason.pm")
+  unless $opt_n;
 
 ###
 # add FS/t/table.t