communigate forwarders, RT#7083

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

diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index 9b2cf7b..ee270ca 100644 (file)
--- a/FS/FS/svc_Common.pm
+++ b/FS/FS/svc_Common.pm
@@ -664,9 +664,7 @@ sub pbx_select_hash {
              qsearch('cust_pkg', { 'custnum' => $cust_pkg->custnum });
   } else {
     #XXX agent-virt
-    warn "hi";
     %pbxes = map { $_->svcnum => $_->title } qsearch('svc_pbx', {} );
-    warn %pbxes;
   }
 
   if ($part_svc && $part_svc->part_svc_column('pbxsvc')->columnflag eq 'D') {
@@ -856,6 +854,25 @@ sub export_links {
   $return;
 }
 
+=item export_getsettings
+
+Runs export_getsettings callbacks and returns the two hashrefs.
+
+=cut
+
+sub export_getsettings {
+  my $self = shift;
+  my %settings = ();
+  my %defaults = ();
+  my $error = $self->export('getsettings', \%settings, \%defaults);
+  if ( $error ) {
+    #XXX bubble this up better
+    warn "error running export_getsetings: $error";
+    return ( {}, {} );
+  }
+  ( \%settings, \%defaults );
+}
+
 =item export HOOK [ EXPORT_ARGS ]
 
 Runs the provided export hook (i.e. "suspend", "unsuspend") for this service.