define username_len so the default add account screen doesn't have a tiny username...

[freeside.git] / FS / FS / Schema.pm

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index 09e16fe..bffcafc 100644 (file)
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -226,13 +226,15 @@ sub dbdef_dist {
 
 sub tables_hashref {
 
-  my($char_d) = 80; #default maxlength for text fields
+  my $char_d = 80; #default maxlength for text fields
 
   #my(@date_type)  = ( 'timestamp', '', ''     );
-  my(@date_type)  = ( 'int', 'NULL', ''     );
-  my(@perl_type) = ( 'text', 'NULL', ''  ); 
+  my @date_type  = ( 'int', 'NULL', ''     );
+  my @perl_type = ( 'text', 'NULL', ''  ); 
   my @money_type = ( 'decimal',   '', '10,2' );
 
+  my $username_len = 32; #usernamemax config file
+
   return {
 
     'agent' => {
@@ -1229,6 +1231,32 @@ sub tables_hashref {
       'index'       => [ [ 'agentnum', 'cardtype' ], ],
     },
 
+    'banned_pay' => {
+      'columns' => [
+        'bannum',  'serial',   '',     '',
+        'payby',   'char',     '',       4,
+        'payinfo', 'varchar',  '',     128, #say, a 512-big digest _hex encoded
+       #'paymask', 'varchar',  'NULL', $char_d,
+        '_date',   @date_type,
+        'otaker',  'varchar',  '',     32,
+        'reason',  'varchar',  'NULL', $char_d,
+      ],
+      'primary_key' => 'bannum',
+      'unique'      => [ [ 'payby', 'payinfo' ] ],
+      'index'       => [],
+    },
+
+    'cancel_reason' => {
+      'columns' => [
+        'reasonnum', 'serial',  '',     '',
+        'reason',    'varchar', '',     $char_d,
+        'disabled',  'char',    'NULL', 1,
+      ],
+      'primary_key' => 'reasonnum',
+      'unique' => [],
+      'index'  => [ [ 'disabled' ] ],
+    },
+
   };
 
 }