X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg_vendor.pm;h=4629bad116fb97873a1ca8ba5737ae2c6abd3f22;hp=6b91f75357df6691e3afba287f444276b9722518;hb=bb7e827141c9ed68f30765c9ca2ddcd1d760ad2d;hpb=19f2731dbceb444c5dd45f57fb0a785dcaf9aa65 diff --git a/FS/FS/part_pkg_vendor.pm b/FS/FS/part_pkg_vendor.pm index 6b91f7535..4629bad11 100644 --- a/FS/FS/part_pkg_vendor.pm +++ b/FS/FS/part_pkg_vendor.pm @@ -1,8 +1,7 @@ package FS::part_pkg_vendor; +use base qw( FS::Record ); use strict; -use base qw( FS::Record ); -use FS::Record qw( qsearch qsearchs ); =head1 NAME @@ -56,7 +55,7 @@ vendor_pkg_id =item new HASHREF -Creates a new example. To add the example to the database, see L<"insert">. +Creates a new record. To add the record to the database, see L<"insert">. Note that this stores the hash reference, not a distinct copy of the hash it points to. You can ask the object for a copy with the I method. @@ -95,7 +94,7 @@ returns the error, otherwise returns false. =item check -Checks all fields to make sure this is a valid example. If there is +Checks all fields to make sure this is a valid record. If there is an error, returns the error, otherwise returns false. Called by the insert and replace methods. @@ -122,12 +121,6 @@ sub check { Returns the L associated with this vendor/external package id. -=cut -sub part_export { - my $self = shift; - qsearchs( 'part_export', { 'exportnum' => $self->exportnum } ); -} - =back =head1 SEE ALSO