diff options
author | ivan <ivan> | 2004-03-03 13:42:08 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-03-03 13:42:08 +0000 |
commit | c65b166b6e2ebdac5c2eb2e8336ebd1a4087f77c (patch) | |
tree | 7f6a3564456dda24800bdae6f4da52f1b4a04c2c /FS/FS/svc_external.pm | |
parent | f4247c22a77543afa76f4bc81281bdda71f776cf (diff) |
fix welcome emails being sent to signup server declined accounts, closes: Bug#743
Diffstat (limited to 'FS/FS/svc_external.pm')
-rw-r--r-- | FS/FS/svc_external.pm | 60 |
1 files changed, 33 insertions, 27 deletions
diff --git a/FS/FS/svc_external.pm b/FS/FS/svc_external.pm index fe4ea1d67..b97e12b47 100644 --- a/FS/FS/svc_external.pm +++ b/FS/FS/svc_external.pm @@ -69,7 +69,7 @@ points to. You can ask the object for a copy with the I<hash> method. sub table { 'svc_external'; } -=item insert +=item insert [ , OPTION => VALUE ... ] Adds this external service to the database. If there is an error, returns the error, otherwise returns false. @@ -77,17 +77,23 @@ error, otherwise returns false. The additional fields pkgnum and svcpart (see L<FS::cust_svc>) should be defined. An FS::cust_svc record will be created and inserted. -=cut +Currently available options are: I<depend_jobnum> -sub insert { - my $self = shift; - my $error; +If I<depend_jobnum> is set (to a scalar jobnum or an array reference of +jobnums), all provisioning jobs will have a dependancy on the supplied +jobnum(s) (they will not run until the specific job(s) complete(s)). - $error = $self->SUPER::insert; - return $error if $error; +=cut - ''; -} +#sub insert { +# my $self = shift; +# my $error; +# +# $error = $self->SUPER::insert(@_); +# return $error if $error; +# +# ''; +#} =item delete @@ -95,15 +101,15 @@ Delete this record from the database. =cut -sub delete { - my $self = shift; - my $error; - - $error = $self->SUPER::delete; - return $error if $error; - - ''; -} +#sub delete { +# my $self = shift; +# my $error; +# +# $error = $self->SUPER::delete; +# return $error if $error; +# +# ''; +#} =item replace OLD_RECORD @@ -113,15 +119,15 @@ returns the error, otherwise returns false. =cut -sub replace { - my ( $new, $old ) = ( shift, shift ); - my $error; - - $error = $new->SUPER::replace($old); - return $error if $error; - - ''; -} +#sub replace { +# my ( $new, $old ) = ( shift, shift ); +# my $error; +# +# $error = $new->SUPER::replace($old); +# return $error if $error; +# +# ''; +#} =item suspend |