From 1d01f037856ec7215133ae708f0edbcc8bf6496c Mon Sep 17 00:00:00 2001
From: Daniel Tiefnig <dtiefnig@sipwise.com>
Date: Wed, 7 Oct 2009 16:32:08 +0000
Subject: [PATCH] de-normalizing fax destination numbers in subscriber view

---
 lib/admin/Controller/subscriber.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/admin/Controller/subscriber.pm b/lib/admin/Controller/subscriber.pm
index d75dfd2..c245b86 100644
--- a/lib/admin/Controller/subscriber.pm
+++ b/lib/admin/Controller/subscriber.pm
@@ -332,6 +332,18 @@ sub detail : Local {
         }
     }
 
+    if(ref $c->session->{subscriber}{fax_preferences} eq 'HASH' and
+       ref $c->session->{subscriber}{fax_preferences}{destinations} eq 'ARRAY')
+    {
+        for(@{$c->session->{subscriber}{fax_preferences}{destinations}}) {
+            if($$_{destination} =~ /^\d+$/) {
+                my $scc = $c->session->{subscriber}{cc};
+                $$_{destination} = '+'.$$_{destination};
+                $$_{destination} =~ s/^\+$scc/0/;
+            }
+        }
+    }
+
     $c->stash->{show_pass} = $c->request->params->{show_pass};
     $c->stash->{show_webpass} = $c->request->params->{show_webpass};
     $c->stash->{show_faxpass} = $c->request->params->{show_faxpass};