5 use FS::Record qw( qsearch qsearchs fields dbh );
6 use FS::part_svc_column;
12 FS::part_svc - Object methods for part_svc objects
18 $record = new FS::part_svc \%hash
19 $record = new FS::part_svc { 'column' => 'value' };
21 $error = $record->insert;
23 $error = $new_record->replace($old_record);
25 $error = $record->delete;
27 $error = $record->check;
31 An FS::part_svc represents a service definition. FS::part_svc inherits from
32 FS::Record. The following fields are currently supported:
36 =item svcpart - primary key (assigned automatically for new service definitions)
38 =item svc - text name of this service definition
40 =item svcdb - table used for this service. See L<FS::svc_acct>,
41 L<FS::svc_domain>, and L<FS::svc_forward>, among others.
43 =item disabled - Disabled flag, empty or `Y'
53 Creates a new service definition. To add the service definition to the
54 database, see L<"insert">.
58 sub table { 'part_svc'; }
60 =item insert EXTRA_FIELDS_ARRAYREF
62 Adds this service definition to the database. If there is an error, returns
63 the error, otherwise returns false.
67 =item I<svcdb>__I<field> - Default or fixed value for I<field> in I<svcdb>.
69 =item I<svcdb>__I<field>_flag - defines I<svcdb>__I<field> action: null, `D' for default, or `F' for fixed
71 TODOC: EXTRA_FIELDS_ARRAYREF
78 @fields = @{shift(@_)} if @_;
80 local $SIG{HUP} = 'IGNORE';
81 local $SIG{INT} = 'IGNORE';
82 local $SIG{QUIT} = 'IGNORE';
83 local $SIG{TERM} = 'IGNORE';
84 local $SIG{TSTP} = 'IGNORE';
85 local $SIG{PIPE} = 'IGNORE';
87 my $oldAutoCommit = $FS::UID::AutoCommit;
88 local $FS::UID::AutoCommit = 0;
91 my $error = $self->SUPER::insert;
93 $dbh->rollback if $oldAutoCommit;
97 my $svcdb = $self->svcdb;
98 # my @rows = map { /^${svcdb}__(.*)$/; $1 }
100 # grep /^${svcdb}__/,
101 # fields('part_svc');
103 grep { $_ ne 'svcnum'
104 && defined( $self->getfield($svcdb.'__'.$_.'_flag') )
105 } (fields($svcdb), @fields)
107 my $part_svc_column = $self->part_svc_column($field);
108 my $previous = qsearchs('part_svc_column', {
109 'svcpart' => $self->svcpart,
110 'columnname' => $field,
113 my $flag = $self->getfield($svcdb.'__'.$field.'_flag');
114 if ( uc($flag) =~ /^([DF])$/ ) {
115 $part_svc_column->setfield('columnflag', $1);
116 $part_svc_column->setfield('columnvalue',
117 $self->getfield($svcdb.'__'.$field)
120 $error = $part_svc_column->replace($previous);
122 $error = $part_svc_column->insert;
125 $error = $previous ? $previous->delete : '';
128 $dbh->rollback if $oldAutoCommit;
134 $dbh->commit or die $dbh->errstr if $oldAutoCommit;
141 Currently unimplemented.
146 return "Can't (yet?) delete service definitions.";
147 # check & make sure the svcpart isn't in cust_svc or pkg_svc (in any packages)?
150 =item replace OLD_RECORD [ '1.3-COMPAT' [ , EXTRA_FIELDS_ARRAYREF ] ]
152 Replaces OLD_RECORD with this one in the database. If there is an error,
153 returns the error, otherwise returns false.
157 TODOC: EXTRA_FIELDS_ARRAYREF
162 my ( $new, $old ) = ( shift, shift );
164 return "Can't change svcdb for an existing service definition!"
165 unless $old->svcdb eq $new->svcdb;
167 local $SIG{HUP} = 'IGNORE';
168 local $SIG{INT} = 'IGNORE';
169 local $SIG{QUIT} = 'IGNORE';
170 local $SIG{TERM} = 'IGNORE';
171 local $SIG{TSTP} = 'IGNORE';
172 local $SIG{PIPE} = 'IGNORE';
174 my $oldAutoCommit = $FS::UID::AutoCommit;
175 local $FS::UID::AutoCommit = 0;
178 my $error = $new->SUPER::replace( $old );
180 $dbh->rollback if $oldAutoCommit;
184 if ( @_ && $_[0] eq '1.3-COMPAT' ) {
187 @fields = @{shift(@_)} if @_;
189 my $svcdb = $new->svcdb;
191 grep { $_ ne 'svcnum'
192 && defined( $new->getfield($svcdb.'__'.$_.'_flag') )
193 } (fields($svcdb),@fields)
195 my $part_svc_column = $new->part_svc_column($field);
196 my $previous = qsearchs('part_svc_column', {
197 'svcpart' => $new->svcpart,
198 'columnname' => $field,
201 my $flag = $new->getfield($svcdb.'__'.$field.'_flag');
202 if ( uc($flag) =~ /^([DF])$/ ) {
203 $part_svc_column->setfield('columnflag', $1);
204 $part_svc_column->setfield('columnvalue',
205 $new->getfield($svcdb.'__'.$field)
208 $error = $part_svc_column->replace($previous);
210 $error = $part_svc_column->insert;
213 $error = $previous ? $previous->delete : '';
216 $dbh->rollback if $oldAutoCommit;
221 $dbh->rollback if $oldAutoCommit;
222 return 'non-1.3-COMPAT interface not yet written';
226 $dbh->commit or die $dbh->errstr if $oldAutoCommit;
233 Checks all fields to make sure this is a valid service definition. If there is
234 an error, returns the error, otherwise returns false. Called by the insert
241 my $recref = $self->hashref;
245 $self->ut_numbern('svcpart')
246 || $self->ut_text('svc')
247 || $self->ut_alpha('svcdb')
248 || $self->ut_enum('disabled', [ '', 'Y' ] )
250 return $error if $error;
252 my @fields = eval { fields( $recref->{svcdb} ) }; #might die
253 return "Unknown svcdb!" unless @fields;
255 ##REPLACED BY part_svc_column
257 # foreach $svcdb ( qw(
258 # svc_acct svc_acct_sm svc_domain
260 # my @rows = map { /^${svcdb}__(.*)$/; $1 }
262 # grep /^${svcdb}__/,
263 # fields('part_svc');
264 # foreach my $row (@rows) {
265 # unless ( $svcdb eq $recref->{svcdb} ) {
266 # $recref->{$svcdb.'__'.$row}='';
267 # $recref->{$svcdb.'__'.$row.'_flag'}='';
270 # $recref->{$svcdb.'__'.$row.'_flag'} =~ /^([DF]?)$/
271 # or return "Illegal flag for $svcdb $row";
272 # $recref->{$svcdb.'__'.$row.'_flag'} = $1;
274 # my $error = $self->ut_anything($svcdb.'__'.$row);
275 # return $error if $error;
283 =item part_svc_column COLUMNNAME
285 Returns the part_svc_column object (see L<FS::part_svc_column>) for the given
286 COLUMNNAME, or a new part_svc_column object if none exists.
290 sub part_svc_column {
292 my $columnname = shift;
293 qsearchs('part_svc_column', {
294 'svcpart' => $self->svcpart,
295 'columnname' => $columnname,
297 ) or new FS::part_svc_column {
298 'svcpart' => $self->svcpart,
299 'columnname' => $columnname,
303 =item all_part_svc_column
307 sub all_part_svc_column {
309 qsearch('part_svc_column', { 'svcpart' => $self->svcpart } );
318 my %search = ( 'svcpart' => $self->svcpart );
319 qsearch('part_export', \%search);
326 $Id: part_svc.pm,v 1.11 2002-03-23 17:49:01 ivan Exp $
330 Delete is unimplemented.
332 The list of svc_* tables is hardcoded. When svc_acct_pop is renamed, this
337 L<FS::Record>, L<FS::part_svc_column>, L<FS::part_pkg>, L<FS::pkg_svc>,
338 L<FS::cust_svc>, L<FS::svc_acct>, L<FS::svc_forward>, L<FS::svc_domain>,
339 schema.html from the base documentation.