projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 77532 - fixed error where cust main fax not showing, and fixed checking of phonet...
[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::re
a
son>)
=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;
-