add quick links for unprocessed and processed CDRs to svc_phone view

2 files changed, 46 insertions, 8 deletions

diff --git a/httemplate/view/elements/svc_Common.html b/httemplate/view/elements/svc_Common.html
index 0500248..b6d8e65 100644
--- a/httemplate/view/elements/svc_Common.html
+++ b/httemplate/view/elements/svc_Common.html
@@ -84,6 +84,18 @@ Service #<B><% $svcnum %></B>
 </TABLE></TD></TR></TABLE>
 
 <BR>
+
+% if ( defined($opt{'html_foot'}) ) {
+
+  <% ref($opt{'html_foot'})
+       ? &{ $opt{'html_foot'} }($svc_x)
+       : $opt{'html_foot'}
+  %>
+  <BR>
+
+% }
+
+
 <% joblisting({'svcnum'=>$svcnum}, 1) %>
 
 <% include('/elements/footer.html') %>
diff --git a/httemplate/view/svc_phone.cgi b/httemplate/view/svc_phone.cgi
index f540555..8bd4dba 100644
--- a/httemplate/view/svc_phone.cgi
+++ b/httemplate/view/svc_phone.cgi
@@ -1,10 +1,36 @@
 <% include('elements/svc_Common.html',
-              'table'  => 'svc_phone',
-              'fields' => [qw( countrycode phonenum pin )],
-              'labels' => {
-                            'countrycode' => 'Country code',
-                            'phonenum'    => 'Phone number',
-                            'pin'         => 'PIN',
-                          },
-           )
+              'table'     => 'svc_phone',
+              'fields'    => [qw( countrycode phonenum pin )],
+              'labels'    => {
+                               'countrycode' => 'Country code',
+                               'phonenum'    => 'Phone number',
+                               'pin'         => 'PIN',
+                             },
+              'html_foot' => $html_foot,
+          )
 %>
+<%init>
+
+my $html_foot = sub {
+  my $svc_phone = shift;
+
+  tie my %what, 'Tie::IxHash',
+    'pending' => 'NULL',
+    'billed'  => 'done',
+  ;
+
+  #XXX src & charged party (& default prefix) as per voip_cdr.pm
+  #XXX handle toll free too
+
+  my $number = $svc_phone->phonenum;
+
+  my @links = map {
+    qq(<A HREF="${p}search/cdr.html?src=$number;freesidestatus=$what{$_}">).
+    "View $_ CDRs</A>";
+  } keys(%what);
+
+  join(' | ', @links). '<BR>';
+
+};
+
+</%init>