1 2 3 4 5 6 7 8 9 10 11 12 13
package FS::Quotable_Mixin; use strict; use FS::Record qw( qsearch ); #qsearchs ); use FS::quotation; sub quotation { my $self = shift; my $pk = $self->primary_key; qsearch('quotation', { $pk => $self->$pk() } ); } 1;