5 use FS::Record qw( qsearch qsearchs fields dbh );
6 use FS::part_svc_column;
10 @ISA = qw(FS::Record);
14 FS::part_svc - Object methods for part_svc objects
20 $record = new FS::part_svc \%hash
21 $record = new FS::part_svc { 'column' => 'value' };
23 $error = $record->insert;
25 $error = $new_record->replace($old_record);
27 $error = $record->delete;
29 $error = $record->check;
33 An FS::part_svc represents a service definition. FS::part_svc inherits from
34 FS::Record. The following fields are currently supported:
38 =item svcpart - primary key (assigned automatically for new service definitions)
40 =item svc - text name of this service definition
42 =item svcdb - table used for this service. See L<FS::svc_acct>,
43 L<FS::svc_domain>, and L<FS::svc_forward>, among others.
45 =item disabled - Disabled flag, empty or `Y'
55 Creates a new service definition. To add the service definition to the
56 database, see L<"insert">.
60 sub table { 'part_svc'; }
62 =item insert EXTRA_FIELDS_ARRAYREF
64 Adds this service definition to the database. If there is an error, returns
65 the error, otherwise returns false.
69 =item I<svcdb>__I<field> - Default or fixed value for I<field> in I<svcdb>.
71 =item I<svcdb>__I<field>_flag - defines I<svcdb>__I<field> action: null, `D' for default, or `F' for fixed
73 TODOC: EXTRA_FIELDS_ARRAYREF
80 @fields = @{shift(@_)} if @_;
82 local $SIG{HUP} = 'IGNORE';
83 local $SIG{INT} = 'IGNORE';
84 local $SIG{QUIT} = 'IGNORE';
85 local $SIG{TERM} = 'IGNORE';
86 local $SIG{TSTP} = 'IGNORE';
87 local $SIG{PIPE} = 'IGNORE';
89 my $oldAutoCommit = $FS::UID::AutoCommit;
90 local $FS::UID::AutoCommit = 0;
93 my $error = $self->SUPER::insert;
95 $dbh->rollback if $oldAutoCommit;
99 my $svcdb = $self->svcdb;
100 # my @rows = map { /^${svcdb}__(.*)$/; $1 }
102 # grep /^${svcdb}__/,
103 # fields('part_svc');
105 grep { $_ ne 'svcnum'
106 && defined( $self->getfield($svcdb.'__'.$_.'_flag') )
107 } (fields($svcdb), @fields)
109 my $part_svc_column = $self->part_svc_column($field);
110 my $previous = qsearchs('part_svc_column', {
111 'svcpart' => $self->svcpart,
112 'columnname' => $field,
115 my $flag = $self->getfield($svcdb.'__'.$field.'_flag');
116 if ( uc($flag) =~ /^([DF])$/ ) {
117 $part_svc_column->setfield('columnflag', $1);
118 $part_svc_column->setfield('columnvalue',
119 $self->getfield($svcdb.'__'.$field)
122 $error = $part_svc_column->replace($previous);
124 $error = $part_svc_column->insert;
127 $error = $previous ? $previous->delete : '';
130 $dbh->rollback if $oldAutoCommit;
136 $dbh->commit or die $dbh->errstr if $oldAutoCommit;
143 Currently unimplemented.
148 return "Can't (yet?) delete service definitions.";
149 # check & make sure the svcpart isn't in cust_svc or pkg_svc (in any packages)?
152 =item replace OLD_RECORD [ '1.3-COMPAT' [ , EXTRA_FIELDS_ARRAYREF ] ]
154 Replaces OLD_RECORD with this one in the database. If there is an error,
155 returns the error, otherwise returns false.
159 TODOC: EXTRA_FIELDS_ARRAYREF
164 my ( $new, $old ) = ( shift, shift );
166 return "Can't change svcdb for an existing service definition!"
167 unless $old->svcdb eq $new->svcdb;
169 local $SIG{HUP} = 'IGNORE';
170 local $SIG{INT} = 'IGNORE';
171 local $SIG{QUIT} = 'IGNORE';
172 local $SIG{TERM} = 'IGNORE';
173 local $SIG{TSTP} = 'IGNORE';
174 local $SIG{PIPE} = 'IGNORE';
176 my $oldAutoCommit = $FS::UID::AutoCommit;
177 local $FS::UID::AutoCommit = 0;
180 my $error = $new->SUPER::replace( $old );
182 $dbh->rollback if $oldAutoCommit;
186 if ( @_ && $_[0] eq '1.3-COMPAT' ) {
189 @fields = @{shift(@_)} if @_;
191 my $svcdb = $new->svcdb;
193 grep { $_ ne 'svcnum'
194 && defined( $new->getfield($svcdb.'__'.$_.'_flag') )
195 } (fields($svcdb),@fields)
197 my $part_svc_column = $new->part_svc_column($field);
198 my $previous = qsearchs('part_svc_column', {
199 'svcpart' => $new->svcpart,
200 'columnname' => $field,
203 my $flag = $new->getfield($svcdb.'__'.$field.'_flag');
204 if ( uc($flag) =~ /^([DF])$/ ) {
205 $part_svc_column->setfield('columnflag', $1);
206 $part_svc_column->setfield('columnvalue',
207 $new->getfield($svcdb.'__'.$field)
210 $error = $part_svc_column->replace($previous);
212 $error = $part_svc_column->insert;
215 $error = $previous ? $previous->delete : '';
218 $dbh->rollback if $oldAutoCommit;
223 $dbh->rollback if $oldAutoCommit;
224 return 'non-1.3-COMPAT interface not yet written';
228 $dbh->commit or die $dbh->errstr if $oldAutoCommit;
235 Checks all fields to make sure this is a valid service definition. If there is
236 an error, returns the error, otherwise returns false. Called by the insert
243 my $recref = $self->hashref;
247 $self->ut_numbern('svcpart')
248 || $self->ut_text('svc')
249 || $self->ut_alpha('svcdb')
250 || $self->ut_enum('disabled', [ '', 'Y' ] )
252 return $error if $error;
254 my @fields = eval { fields( $recref->{svcdb} ) }; #might die
255 return "Unknown svcdb!" unless @fields;
257 ##REPLACED BY part_svc_column
259 # foreach $svcdb ( qw(
260 # svc_acct svc_acct_sm svc_domain
262 # my @rows = map { /^${svcdb}__(.*)$/; $1 }
264 # grep /^${svcdb}__/,
265 # fields('part_svc');
266 # foreach my $row (@rows) {
267 # unless ( $svcdb eq $recref->{svcdb} ) {
268 # $recref->{$svcdb.'__'.$row}='';
269 # $recref->{$svcdb.'__'.$row.'_flag'}='';
272 # $recref->{$svcdb.'__'.$row.'_flag'} =~ /^([DF]?)$/
273 # or return "Illegal flag for $svcdb $row";
274 # $recref->{$svcdb.'__'.$row.'_flag'} = $1;
276 # my $error = $self->ut_anything($svcdb.'__'.$row);
277 # return $error if $error;
285 =item part_svc_column COLUMNNAME
287 Returns the part_svc_column object (see L<FS::part_svc_column>) for the given
288 COLUMNNAME, or a new part_svc_column object if none exists.
292 sub part_svc_column {
294 my $columnname = shift;
295 qsearchs('part_svc_column', {
296 'svcpart' => $self->svcpart,
297 'columnname' => $columnname,
299 ) or new FS::part_svc_column {
300 'svcpart' => $self->svcpart,
301 'columnname' => $columnname,
305 =item all_part_svc_column
309 sub all_part_svc_column {
311 qsearch('part_svc_column', { 'svcpart' => $self->svcpart } );
320 map { qsearchs('part_export', { 'exportnum' => $_->exportnum } ) }
321 qsearch('export_svc', { 'svcpart' => $self->svcpart } );
328 $Id: part_svc.pm,v 1.13 2002-04-11 22:05:31 ivan Exp $
332 Delete is unimplemented.
334 The list of svc_* tables is hardcoded. When svc_acct_pop is renamed, this
337 all_part_svc_column and part_export methods should be documented
341 L<FS::Record>, L<FS::part_svc_column>, L<FS::part_pkg>, L<FS::pkg_svc>,
342 L<FS::cust_svc>, L<FS::svc_acct>, L<FS::svc_forward>, L<FS::svc_domain>,
343 schema.html from the base documentation.