5 use FS::Record qw( qsearch qsearchs fields dbh );
6 use FS::part_svc_column;
13 FS::part_svc - Object methods for part_svc objects
19 $record = new FS::part_svc \%hash
20 $record = new FS::part_svc { 'column' => 'value' };
22 $error = $record->insert;
24 $error = $new_record->replace($old_record);
26 $error = $record->delete;
28 $error = $record->check;
32 An FS::part_svc represents a service definition. FS::part_svc inherits from
33 FS::Record. The following fields are currently supported:
37 =item svcpart - primary key (assigned automatically for new service definitions)
39 =item svc - text name of this service definition
41 =item svcdb - table used for this service. See L<FS::svc_acct>,
42 L<FS::svc_domain>, and L<FS::svc_forward>, among others.
44 =item disabled - Disabled flag, empty or `Y'
54 Creates a new service definition. To add the service definition to the
55 database, see L<"insert">.
59 sub table { 'part_svc'; }
61 =item insert EXTRA_FIELDS_ARRAYREF
63 Adds this service definition to the database. If there is an error, returns
64 the error, otherwise returns false.
68 =item I<svcdb>__I<field> - Default or fixed value for I<field> in I<svcdb>.
70 =item I<svcdb>__I<field>_flag - defines I<svcdb>__I<field> action: null, `D' for default, or `F' for fixed
72 TODOC: EXTRA_FIELDS_ARRAYREF
79 @fields = @{shift(@_)} if @_;
81 local $SIG{HUP} = 'IGNORE';
82 local $SIG{INT} = 'IGNORE';
83 local $SIG{QUIT} = 'IGNORE';
84 local $SIG{TERM} = 'IGNORE';
85 local $SIG{TSTP} = 'IGNORE';
86 local $SIG{PIPE} = 'IGNORE';
88 my $oldAutoCommit = $FS::UID::AutoCommit;
89 local $FS::UID::AutoCommit = 0;
92 my $error = $self->SUPER::insert;
94 $dbh->rollback if $oldAutoCommit;
98 my $svcdb = $self->svcdb;
99 # my @rows = map { /^${svcdb}__(.*)$/; $1 }
101 # grep /^${svcdb}__/,
102 # fields('part_svc');
104 grep { $_ ne 'svcnum'
105 && defined( $self->getfield($svcdb.'__'.$_.'_flag') )
106 } (fields($svcdb), @fields)
108 my $part_svc_column = $self->part_svc_column($field);
109 my $previous = qsearchs('part_svc_column', {
110 'svcpart' => $self->svcpart,
111 'columnname' => $field,
114 my $flag = $self->getfield($svcdb.'__'.$field.'_flag');
115 if ( uc($flag) =~ /^([DF])$/ ) {
116 $part_svc_column->setfield('columnflag', $1);
117 $part_svc_column->setfield('columnvalue',
118 $self->getfield($svcdb.'__'.$field)
121 $error = $part_svc_column->replace($previous);
123 $error = $part_svc_column->insert;
126 $error = $previous ? $previous->delete : '';
129 $dbh->rollback if $oldAutoCommit;
135 $dbh->commit or die $dbh->errstr if $oldAutoCommit;
142 Currently unimplemented.
147 return "Can't (yet?) delete service definitions.";
148 # check & make sure the svcpart isn't in cust_svc or pkg_svc (in any packages)?
151 =item replace OLD_RECORD [ '1.3-COMPAT' [ , EXTRA_FIELDS_ARRAYREF ] ]
153 Replaces OLD_RECORD with this one in the database. If there is an error,
154 returns the error, otherwise returns false.
158 TODOC: EXTRA_FIELDS_ARRAYREF
163 my ( $new, $old ) = ( shift, shift );
165 return "Can't change svcdb for an existing service definition!"
166 unless $old->svcdb eq $new->svcdb;
168 local $SIG{HUP} = 'IGNORE';
169 local $SIG{INT} = 'IGNORE';
170 local $SIG{QUIT} = 'IGNORE';
171 local $SIG{TERM} = 'IGNORE';
172 local $SIG{TSTP} = 'IGNORE';
173 local $SIG{PIPE} = 'IGNORE';
175 my $oldAutoCommit = $FS::UID::AutoCommit;
176 local $FS::UID::AutoCommit = 0;
179 my $error = $new->SUPER::replace( $old );
181 $dbh->rollback if $oldAutoCommit;
185 if ( @_ && $_[0] eq '1.3-COMPAT' ) {
188 @fields = @{shift(@_)} if @_;
190 my $svcdb = $new->svcdb;
192 grep { $_ ne 'svcnum'
193 && defined( $new->getfield($svcdb.'__'.$_.'_flag') )
194 } (fields($svcdb),@fields)
196 my $part_svc_column = $new->part_svc_column($field);
197 my $previous = qsearchs('part_svc_column', {
198 'svcpart' => $new->svcpart,
199 'columnname' => $field,
202 my $flag = $new->getfield($svcdb.'__'.$field.'_flag');
203 if ( uc($flag) =~ /^([DF])$/ ) {
204 $part_svc_column->setfield('columnflag', $1);
205 $part_svc_column->setfield('columnvalue',
206 $new->getfield($svcdb.'__'.$field)
209 $error = $part_svc_column->replace($previous);
211 $error = $part_svc_column->insert;
214 $error = $previous ? $previous->delete : '';
217 $dbh->rollback if $oldAutoCommit;
222 $dbh->rollback if $oldAutoCommit;
223 return 'non-1.3-COMPAT interface not yet written';
227 $dbh->commit or die $dbh->errstr if $oldAutoCommit;
234 Checks all fields to make sure this is a valid service definition. If there is
235 an error, returns the error, otherwise returns false. Called by the insert
242 my $recref = $self->hashref;
246 $self->ut_numbern('svcpart')
247 || $self->ut_text('svc')
248 || $self->ut_alpha('svcdb')
249 || $self->ut_enum('disabled', [ '', 'Y' ] )
251 return $error if $error;
253 my @fields = eval { fields( $recref->{svcdb} ) }; #might die
254 return "Unknown svcdb!" unless @fields;
256 ##REPLACED BY part_svc_column
258 # foreach $svcdb ( qw(
259 # svc_acct svc_acct_sm svc_domain
261 # my @rows = map { /^${svcdb}__(.*)$/; $1 }
263 # grep /^${svcdb}__/,
264 # fields('part_svc');
265 # foreach my $row (@rows) {
266 # unless ( $svcdb eq $recref->{svcdb} ) {
267 # $recref->{$svcdb.'__'.$row}='';
268 # $recref->{$svcdb.'__'.$row.'_flag'}='';
271 # $recref->{$svcdb.'__'.$row.'_flag'} =~ /^([DF]?)$/
272 # or return "Illegal flag for $svcdb $row";
273 # $recref->{$svcdb.'__'.$row.'_flag'} = $1;
275 # my $error = $self->ut_anything($svcdb.'__'.$row);
276 # return $error if $error;
284 =item part_svc_column COLUMNNAME
286 Returns the part_svc_column object (see L<FS::part_svc_column>) for the given
287 COLUMNNAME, or a new part_svc_column object if none exists.
291 sub part_svc_column {
293 my $columnname = shift;
294 qsearchs('part_svc_column', {
295 'svcpart' => $self->svcpart,
296 'columnname' => $columnname,
298 ) or new FS::part_svc_column {
299 'svcpart' => $self->svcpart,
300 'columnname' => $columnname,
304 =item all_part_svc_column
308 sub all_part_svc_column {
310 qsearch('part_svc_column', { 'svcpart' => $self->svcpart } );
319 my %search = ( 'svcpart' => $self->svcpart );
320 qsearch('part_export', \%search);
327 $Id: part_svc.pm,v 1.12 2002-03-26 13:58:29 ivan Exp $
331 Delete is unimplemented.
333 The list of svc_* tables is hardcoded. When svc_acct_pop is renamed, this
338 L<FS::Record>, L<FS::part_svc_column>, L<FS::part_pkg>, L<FS::pkg_svc>,
339 L<FS::cust_svc>, L<FS::svc_acct>, L<FS::svc_forward>, L<FS::svc_domain>,
340 schema.html from the base documentation.