fix TeleAPI import (what kind of crack was Christopher smoking that he couldn't fix...

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

diff --git a/FS/FS/part_svc_link.pm b/FS/FS/part_svc_link.pm
index cf82a90..e8c2cc5 100644 (file)
--- a/FS/FS/part_svc_link.pm
+++ b/FS/FS/part_svc_link.pm
@@ -2,7 +2,7 @@ package FS::part_svc_link;
 use base qw( FS::Record );
 
 use strict;
 use base qw( FS::Record );
 
 use strict;

-use FS::Record qw( qsearchs ); # qw( qsearch qsearchs );
+use FS::Record qw( qsearch qsearchs );

 
 =head1 NAME
 
 
 =head1 NAME
 


@@ -64,15 +64,14 @@ Link type:
 
 # XXX false laziness w/edit/part_svc_link.html
 
 
 # XXX false laziness w/edit/part_svc_link.html
 

-=item part_svc_restrict
+=item part_pkg_restrict

 
 In package defintions, require the destination service definition when the
 source service definition is included
 
 
 In package defintions, require the destination service definition when the
 source service definition is included
 

-=item part_svc_restrict_soft
+=item part_pkg_restrict_soft

 
 

-Soft order block: in package definitions, warn if the destination service
-definition is included without the source service definition
+Soft order block: in package definitions,  suggest the destination service definition when the source service definition is included

 
 =item cust_svc_provision_restrict
 
 
 =item cust_svc_provision_restrict
 


@@ -89,7 +88,7 @@ unprovisioned
 
 =item cust_svc_suspend_cascade
 
 
 =item cust_svc_suspend_cascade
 

-Suspend the destination service before the source service
+Suspend the destination service after the source service

 
 =back
 
 
 =back
 


@@ -108,10 +107,31 @@ points to.  You can ask the object for a copy with the I<hash> method.
 
 =cut
 
 
 =cut
 

-# the new method can be inherited from FS::Record, if a table method is defined
-

 sub table { 'part_svc_link'; }
 
 sub table { 'part_svc_link'; }
 

+=item by_agentnum AGENTNUM, KEY => VALUE, ...
+
+Alternate search consructor.  Given an agentnum then a list of keys and values,
+searches for part_svc_link records with the given agentnum (or no agentnum).
+
+Additional keys and values are searched for in the part_pkg_link table
+(typically src_svcpart and link_type).
+
+=cut
+
+sub by_agentnum {
+  my( $class, $agentnum, %opt ) = @_;
+
+  qsearch({ 'table'     => 'part_svc_link', #$class->table,
+            'hashref'   => \%opt,
+            'extra_sql' =>
+              $agentnum
+                ? "AND ( agentnum IS NULL OR agentnum = $agentnum )"
+                : 'AND agentnum IS NULL',
+         });
+
+}
+

 =item insert
 
 Adds this record to the database.  If there is an error, returns the error,
 =item insert
 
 Adds this record to the database.  If there is an error, returns the error,


@@ -167,26 +187,28 @@ sub description {
   #  (and hooks each place we have manual checks for the various rules)
   # but this will do for now
 
   #  (and hooks each place we have manual checks for the various rules)
   # but this will do for now
 

-  $self->link_type eq 'part_svc_restrict'
+  my $l = $self->link_type;
+
+  $l eq 'part_pkg_restrict'

    and return "In package definitions, $dst is required when $src is included";
 
    and return "In package definitions, $dst is required when $src is included";
 

-  $self->link_type eq 'part_svc_restrict_soft'
+  $l eq 'part_pkg_restrict_soft'

    and return "In package definitions, $dst is suggested when $src is included";
 
    and return "In package definitions, $dst is suggested when $src is included";
 

-  $self->link_type eq 'cust_svc_provision_restrict'
+  $l eq 'cust_svc_provision_restrict'

    and return "Require $dst provisioning before $src";
 
    and return "Require $dst provisioning before $src";
 

-  $self->link_type eq 'cust_svc_unprovision_restrict'
+  $l eq 'cust_svc_unprovision_restrict'

    and return "Require $dst unprovisioning before $src";
 
    and return "Require $dst unprovisioning before $src";
 

-  $self->link_type eq 'cust_svc_unprovision_cascade'
+  $l eq 'cust_svc_unprovision_cascade'

    and return "Automatically unprovision $dst when $src is unprovisioned";
 
    and return "Automatically unprovision $dst when $src is unprovisioned";
 

-  $self->link_type eq 'cust_svc_suspend_cascade'
-   and return "Suspend $dst before $src";
+  $l eq 'cust_svc_suspend_cascade'
+   and return "Suspend $dst after $src";

 
 

-  warn "WARNING: unknown part_svc_link.link_type ". $self->link_type. "\n";
-  return "$src (unknown link_type ". $self->link_type. ") $dst";
+  warn "WARNING: unknown part_svc_link.link_type $l\n";
+  return "$src (unknown link_type $l) $dst";

 
 }
 
 
 }
 


@@ -219,7 +241,6 @@ L<FS::part_svc>).
 
 =cut
 
 
 =cut
 

-

 sub dst_part_svc {
   my $self = shift;
   qsearchs('part_svc', { svcpart=>$self->dst_svcpart } );
 sub dst_part_svc {
   my $self = shift;
   qsearchs('part_svc', { svcpart=>$self->dst_svcpart } );


@@ -232,7 +253,7 @@ Returns the destination service definition name (part_svc.svc).
 =cut
 
 sub dst_svc {
 =cut
 
 sub dst_svc {

-  shift->src_part_svc->svc;
+  shift->dst_part_svc->svc;

 }
 
 =back
 }
 
 =back