add a netcredits_12mo sub so that 12mo checkbox works again... sure do need these...

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

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 8eecda3..f168567 100644 (file)
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -392,6 +392,20 @@ sub _svc_label {
 
 }
 
+=item export_links
+
+Returns a list of html elements associated with this services exports.
+
+=cut
+
+sub export_links {
+  my $self = shift;
+  my $svc_x = $self->svc_x
+    or return "can't find ". $self->part_svc->svcdb. '.svcnum '. $self->svcnum;
+
+  $svc_x->export_links;
+}
+
 =item svc_x
 
 Returns the FS::svc_XXX object for this service (i.e. an FS::svc_acct object or
@@ -628,6 +642,17 @@ CDRs are associated with svc_phone services via svc_phone.phonenum
 sub get_cdrs_for_update {
   my($self, %options) = @_;
 
+  my @cdrs = $self->get_cdrs_fromfield('charged_party', %options);
+
+  push @cdrs, $self->get_cdrs_fromfield('src', %options)
+    unless $options{'disable_src'};
+
+  @cdrs;
+}
+
+sub get_cdrs_fromfield {
+  my($self, $field, %options) = @_;
+
   my $default_prefix = $options{'default_prefix'};
 
   #CDRs are now associated with svc_phone services via svc_phone.phonenum
@@ -639,7 +664,7 @@ sub get_cdrs_for_update {
     qsearch( {
       'table'      => 'cdr',
       'hashref'    => { 'freesidestatus' => '',
-                        'charged_party'  => $number
+                        $field           => $number
                       },
       'extra_sql'  => 'FOR UPDATE',
     } );
@@ -649,33 +674,12 @@ sub get_cdrs_for_update {
       qsearch( {
         'table'      => 'cdr',
         'hashref'    => { 'freesidestatus' => '',
-                          'charged_party'  => "$default_prefix$number",
+                          $field           => "$default_prefix$number",
                         },
         'extra_sql'  => 'FOR UPDATE',
       } );
   }
 
-  #astricon hack?  config option?
-  push @cdrs,
-    qsearch( {
-      'table'        => 'cdr',
-      'hashref'      => { 'freesidestatus' => '',
-                          'src'            => $number,
-                       },
-      'extra_sql'    => 'FOR UPDATE',
-     } );
-
-  if ( length($default_prefix) ) {
-    push @cdrs,
-      qsearch( {
-        'table'        => 'cdr',
-        'hashref'      => { 'freesidestatus' => '',
-                            'src'            => "$default_prefix$number",
-                       },
-        'extra_sql'    => 'FOR UPDATE',
-       } );
-  }
-
   @cdrs;
 }