fix TeleAPI import (what kind of crack was Christopher smoking that he couldn't fix...

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

diff --git a/FS/FS/cust_bill_void.pm b/FS/FS/cust_bill_void.pm
index 04c69d4..60abc73 100644 (file)
--- a/FS/FS/cust_bill_void.pm
+++ b/FS/FS/cust_bill_void.pm
@@ -3,12 +3,16 @@ use base qw( FS::Template_Mixin FS::cust_main_Mixin FS::otaker_Mixin
              FS::reason_Mixin FS::Record );
 
 use strict;
              FS::reason_Mixin FS::Record );
 
 use strict;

+use vars qw( $me $DEBUG );

 use FS::Record qw( qsearch qsearchs dbh fields );
 use FS::cust_statement;
 use FS::access_user;
 use FS::cust_bill_pkg_void;
 use FS::cust_bill;
 
 use FS::Record qw( qsearch qsearchs dbh fields );
 use FS::cust_statement;
 use FS::access_user;
 use FS::cust_bill_pkg_void;
 use FS::cust_bill;
 

+$me = '[ FS::cust_bill_void ]';
+$DEBUG = 0;
+

 =head1 NAME
 
 FS::cust_bill_void - Object methods for cust_bill_void records
 =head1 NAME
 
 FS::cust_bill_void - Object methods for cust_bill_void records


@@ -89,7 +93,7 @@ freeform string (deprecated)
 
 =item reasonnum 
 
 
 =item reasonnum 
 

-reason for voiding the payment (see L<FS::reson>)
+reason for voiding the payment (see L<FS::reason>)

 
 =item void_usernum
 
 
 =item void_usernum
 


@@ -115,15 +119,6 @@ sub table { 'cust_bill_void'; }
 sub notice_name { 'VOIDED Invoice'; }
 sub template_conf { 'invoice_'; }
 
 sub notice_name { 'VOIDED Invoice'; }
 sub template_conf { 'invoice_'; }
 

-sub has_sections {
-  my $self = shift;
-  my $agentnum = $self->cust_main->agentnum;
-  my $tc = $self->template_conf;
-
-  $self->conf->exists($tc.'sections', $agentnum) ||
-  $self->conf->exists($tc.'sections_by_location', $agentnum);
-}
-

 
 =item insert
 
 
 =item insert
 


@@ -297,7 +292,7 @@ sub cust_pkg {
 
 Class method which returns an SQL WHERE fragment to search for parameters
 specified in HASHREF.  Accepts the following parameters for 
 
 Class method which returns an SQL WHERE fragment to search for parameters
 specified in HASHREF.  Accepts the following parameters for 

-L<FS::cust_bill::search_sql_where>: C<_date>, C<invnum_min>, C<invnum_max>,
+L<FS::cust_bill/search_sql_where>: C<_date>, C<invnum_min>, C<invnum_max>,

 C<agentnum>, C<custnum>, C<cust_classnum>, C<refnum>.  Also 
 accepts the following:
 
 C<agentnum>, C<custnum>, C<cust_classnum>, C<refnum>.  Also 
 accepts the following:
 


@@ -349,6 +344,17 @@ sub search_sql_where {
 
 sub enable_previous { 0 }
 
 
 sub enable_previous { 0 }
 

+# _upgrade_data
+#
+# Used by FS::Upgrade to migrate to a new database.
+sub _upgrade_data {  # class method
+  my ($class, %opts) = @_;
+
+  warn "$me upgrading $class\n" if $DEBUG;
+
+  $class->_upgrade_reasonnum(%opts);
+}
+

 =back
 
 =head1 BUGS
 =back
 
 =head1 BUGS


@@ -360,4 +366,3 @@ L<FS::Record>, schema.html from the base documentation.
 =cut
 
 1;
 =cut
 
 1;

-