X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Finventory_item.pm;h=3bba1cdda3270b960b3aa20f1380a648fc8360e9;hp=5312d95f15348f1190ec1dddd613fec553b16369;hb=ad7f49821d40ffd099a45acc32ba91e0e211aede;hpb=600a0939e7e7e589dae4f4f5bfef3650728940b7 diff --git a/FS/FS/inventory_item.pm b/FS/FS/inventory_item.pm index 5312d95f1..3bba1cdda 100644 --- a/FS/FS/inventory_item.pm +++ b/FS/FS/inventory_item.pm @@ -2,10 +2,12 @@ package FS::inventory_item; use strict; use vars qw( @ISA ); -use FS::Record qw( qsearch qsearchs ); +use FS::Record qw( dbh qsearch qsearchs ); +use FS::cust_main_Mixin; use FS::inventory_class; +use FS::cust_svc; -@ISA = qw(FS::Record); +@ISA = qw( FS::cust_main_Mixin FS::Record ); =head1 NAME @@ -105,20 +107,60 @@ sub check { $self->ut_numbern('itemnum') || $self->ut_foreign_key('classnum', 'inventory_class', 'classnum' ) || $self->ut_text('item') - || $self->ut_numbern('svcnum') + || $self->ut_foreign_keyn('svcnum', 'cust_svc', 'svcnum' ) ; return $error if $error; $self->SUPER::check; } +=item cust_svc + +Returns the customer service associated with this inventory item, if the +item has been used (see L). + +=cut + +sub cust_svc { + my $self = shift; + return '' unless $self->svcnum; + qsearchs( 'cust_svc', { 'svcnum' => $self->svcnum } ); +} + +=back + +=head1 SUBROUTINES + +=over 4 + +=item process_batch_import + +=cut + +sub process_batch_import { + my $job = shift; + + my $opt = { 'table' => 'inventory_item', + #'params' => [ 'itembatch', 'classnum', ], + 'params' => [ 'classnum', ], + 'formats' => { 'default' => [ 'item' ] }, + 'default_csv' => 1, + }; + + FS::Record::process_batch_import( $job, $opt, @_ ); + +} + =back =head1 BUGS +maybe batch_import should be a regular method in FS::inventory_class + =head1 SEE ALSO -L, schema.html from the base documentation. +L, L, L, schema.html from the base +documentation. =cut