further authorize.net description debugging (agent??) and get rid of

bad unique index on cust_bill_event

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 6bcf9c4..2a7a4c1 100644 (file)
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -481,7 +481,7 @@ httemplate/docs/config.html
   {
     'key'         => 'defaultrecords',
     'section'     => 'BIND',
   {
     'key'         => 'defaultrecords',
     'section'     => 'BIND',

-    'description' => 'DNS entries add automatically when creating a domain',
+    'description' => 'DNS entries to add automatically when creating a domain',

     'type'        => 'editlist',
     'editlist_parts' => [ { type=>'text' },
                           { type=>'immutable', value=>'IN' },
     'type'        => 'editlist',
     'editlist_parts' => [ { type=>'text' },
                           { type=>'immutable', value=>'IN' },

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 68ef094..2c21f1e 100644 (file)
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -483,7 +483,8 @@ sub realtime_card {
   if ( $conf->exists('business-onlinepayment-description') ) {
     my $dtempl = $conf->config('business-onlinepayment-description');
 
   if ( $conf->exists('business-onlinepayment-description') ) {
     my $dtempl = $conf->config('business-onlinepayment-description');
 

-    my $agent = $cust_main->agent->agent;
+    my $agent_obj = $cust_main->agent;
+    my $agent = $agent_obj->agent;

     my $pkgs = join(', ',
       map { $_->cust_pkg->part_pkg->pkg }
         grep { $_->pkgnum } $self->cust_bill_pkg
     my $pkgs = join(', ',
       map { $_->cust_pkg->part_pkg->pkg }
         grep { $_->pkgnum } $self->cust_bill_pkg


@@ -944,7 +945,7 @@ sub print_text {
 
 =head1 VERSION
 
 
 =head1 VERSION
 

-$Id: cust_bill.pm,v 1.30 2002-04-16 22:38:04 ivan Exp $
+$Id: cust_bill.pm,v 1.31 2002-04-16 22:52:14 ivan Exp $

 
 =head1 BUGS
 
 
 =head1 BUGS
 

diff --git a/README.1.4.0pre12 b/README.1.4.0pre12
index e8fdd30..7de0619 100644 (file)
--- a/README.1.4.0pre12
+++ b/README.1.4.0pre12
@@ -14,6 +14,7 @@ install the FS perl modules and httemplate as per install.html or upgrade8.html
 ALTER TABLE cust_bill_event ADD status varchar(80);
 ALTER TABLE cust_bill_event ADD statustext text NULL;
 UPDATE cust_bill_event SET status = 'done';
 ALTER TABLE cust_bill_event ADD status varchar(80);
 ALTER TABLE cust_bill_event ADD statustext text NULL;
 UPDATE cust_bill_event SET status = 'done';

+DROP INDEX cust_bill_event1;

 
 CREATE TABLE radius_usergroup (
   usergroupnum int primary key,
 
 CREATE TABLE radius_usergroup (
   usergroupnum int primary key,

diff --git a/bin/fs-setup b/bin/fs-setup
index 5354088..211c73f 100755 (executable)
--- a/bin/fs-setup
+++ b/bin/fs-setup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
 #!/usr/bin/perl -Tw
 #

-# $Id: fs-setup,v 1.87 2002-04-11 22:05:31 ivan Exp $
+# $Id: fs-setup,v 1.88 2002-04-16 22:52:14 ivan Exp $

 
 #to delay loading dbdef until we're ready
 BEGIN { $FS::Record::setup_hack = 1; }
 
 #to delay loading dbdef until we're ready
 BEGIN { $FS::Record::setup_hack = 1; }


@@ -382,7 +382,7 @@ sub tables_hash_hack {
         'statustext', 'text', 'NULL', '',
       ],
       'primary_key' => 'eventnum',
         'statustext', 'text', 'NULL', '',
       ],
       'primary_key' => 'eventnum',

-      'unique' => [ [ 'eventpart', 'invnum' ] ],
+      #no... there are retries now #'unique' => [ [ 'eventpart', 'invnum' ] ],

       'index' => [ ['invnum'], ['status'] ],
     },
 
       'index' => [ ['invnum'], ['status'] ],
     },