package FS::invoice_mode;
+use base qw(FS::Record);
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
+use FS::Record qw( qsearchs ); #qsearch qsearchs );
use FS::invoice_conf;
=head1 NAME
Returns the agent associated with this invoice mode, if any.
-=cut
-
-sub agent {
- my $self = shift;
- $self->agentnum ? FS::agent->by_key($self->agentnum) : '';
-}
-
=back
=head1 SEE ALSO
package FS::torrus_srvderive;
+use base qw( FS::m2name_Common FS::Record );
use strict;
-use base qw( FS::m2name_Common FS::Record );
-use FS::Record qw( qsearch qsearchs );
-use FS::torrus_srvderive_component;
=head1 NAME
$self->SUPER::check;
}
-sub torrus_srvderive_component {
- my $self = shift;
- qsearch('torrus_srvderive_component', { 'derivenum' => $self->derivenum } );
-}
-
sub component_serviceids {
my $self = shift;
map $_->serviceid, $self->torrus_srvderive_component;
package FS::torrus_srvderive_component;
+use base qw( FS::Record );
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
-use FS::torrus_srvderive;
=head1 NAME
$self->SUPER::check;
}
-sub torrus_srvderive {
- my $self = shift;
- qsearchs('torrus_srvderive', { 'derivenum' => $self->derivenum } );
-}
-
=back
=head1 BUGS
package FS::vend_bill_pay;
+use base qw( FS::Record );
use strict;
-use base qw( FS::Record );
-use FS::Record qw( dbh qsearch ); #qsearchs );
-use FS::vend_bill;
-use FS::vend_pay;
+use FS::Record qw( dbh ); #qsearch #qsearchs );
=head1 NAME
=item vend_pay
-=cut
-
-sub vend_pay {
- my $self = shift;
- qsearch('vend_pay', { 'vendpaynum', $self->vendpaynum });
-}
-
=back
=head1 BUGS