self-service keepalives

[freeside.git] / FS / FS / svc_external.pm

diff --git a/FS/FS/svc_external.pm b/FS/FS/svc_external.pm
index fe4ea1d..b97e12b 100644 (file)
--- 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'; }
 
 
 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.
 
 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.
 
 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
 
 
 =item delete
 


@@ -95,15 +101,15 @@ Delete this record from the database.
 
 =cut
 
 
 =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
 
 
 =item replace OLD_RECORD


@@ -113,15 +119,15 @@ returns the error, otherwise returns false.
 
 =cut
 
 
 =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
 
 
 =item suspend