'taxnum' => $self->taxnum,
'year' => 1900+$year,
'month' => $mon,
- 'amount' => sprintf("%.2f", $addl ),
+ 'amount' => sprintf('%.2f', $addl ),
} );
if ($cust_bill_pkg->billpkgnum) {
$cust_tax_exempt_pkg->billpkgnum($cust_bill_pkg->billpkgnum);
=head1 BUGS
-Here be termites. Don't use on wooden computers.
-
=head1 SEE ALSO
L<FS::Record>, schema.html from the base documentation.
=head1 SYNOPSIS
-use FS::m2name_Common;
-
-@ISA = qw( FS::m2name_Common FS::Record );
+ use base qw( FS::m2name_Common FS::Record );
=head1 DESCRIPTION
package FS::option_Common;
use strict;
-use vars qw( @ISA $DEBUG );
+use base qw( FS::Record );
+use vars qw( $DEBUG );
use Scalar::Util qw( blessed );
use FS::Record qw( qsearch qsearchs dbh );
-@ISA = qw( FS::Record );
-
$DEBUG = 0;
=head1 NAME
package FS::part_event;
use strict;
-use vars qw( @ISA $DEBUG );
+use base qw( FS::m2name_Common FS::option_Common );
+use vars qw( $DEBUG );
use Carp qw(confess);
use FS::Record qw( dbh qsearch qsearchs );
-use FS::option_Common;
-use FS::m2name_Common;
use FS::Conf;
use FS::part_event_option;
use FS::part_event_condition;
use FS::cust_event;
use FS::agent;
-@ISA = qw( FS::m2name_Common FS::option_Common ); # FS::Record );
$DEBUG = 0;
=head1 NAME
=item I<svcdb>__I<field> - Default or fixed value for I<field> in I<svcdb>.
-=item I<svcdb>__I<field>_flag - defines I<svcdb>__I<field> action: null or empty (no default), `D' for default, `F' for fixed (unchangeable), `M' for manual selection from inventory, or `A' for automatic selection from inventory.
+=item I<svcdb>__I<field>_flag - defines I<svcdb>__I<field> action: null or empty (no default), `D' for default, `F' for fixed (unchangeable), , `S' for selectable choice, `M' for manual selection from inventory, or `A' for automatic selection from inventory. For virtual fields, can also be 'X' for excluded.
=back
} );
}
-# _populate_initial_data
-#
# Used by FS::Setup to initialize a new database.
-#
-#
-
sub _populate_initial_data { # class method
my ($self, %opts) = @_;
}
-# _upgrade_data
-#
# Used by FS::Upgrade to migrate to a new database.
-#
-#
-
sub _upgrade_data { # class method
my ($self, %opts) = @_;
=cut
-sub replace {
- my ( $new, $old ) = ( shift, shift );
- my $error;
-
- $error = $new->SUPER::replace($old, @_);
- return $error if $error;
-
- '';
-}
+#sub replace {
+# my ( $new, $old ) = ( shift, shift );
+# my $error;
+#
+# $error = $new->SUPER::replace($old, @_);
+# return $error if $error;
+#
+# '';
+#}
=item suspend