[freeside-commits] freeside/FS/FS/part_export communigate_pro.pm, 1.16.4.18, 1.16.4.19

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv12693

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	communigate_pro.pm 
Log Message:
add display of forward destionations via GetForward, RT#7083

Index: communigate_pro.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/communigate_pro.pm,v
retrieving revision 1.16.4.18
retrieving revision 1.16.4.19
diff -u -w -d -r1.16.4.18 -r1.16.4.19
--- communigate_pro.pm	23 Jun 2010 23:06:08 -0000	1.16.4.18
+++ communigate_pro.pm	23 Jun 2010 23:45:02 -0000	1.16.4.19
@@ -835,6 +835,23 @@
 
 }
 
+sub export_getsettings_svc_forward {
+  my($self, $svc_forward, $settingsref, $defaultref ) = @_;
+
+  my $dest = eval { $self->communigate_pro_runcommand(
+    'GetForwarder',
+    ($svc_forward->src || $svc_forward->srcsvc_acct->email),
+  ) };
+  return $@ if $@;
+
+  my $settings = { 'Destination' => $dest };
+
+  %{$settingsref} = %$settings;
+  %{$defaultref} = ();
+
+  '';
+}
+
 sub _rule2string {
   my $rule = shift;
   my($priority, $name, $conditions, $actions, $comment) = @$rule;