Option to ignore old CDRs, RT#81480

[freeside.git] / httemplate / view / svc_dsl.cgi

diff --git a/httemplate/view/svc_dsl.cgi b/httemplate/view/svc_dsl.cgi
index 477da26..e6a3c53 100644 (file)
--- a/httemplate/view/svc_dsl.cgi
+++ b/httemplate/view/svc_dsl.cgi
@@ -65,6 +65,20 @@ my $svc_cb = sub {
 
     }
 
+    if ( grep $_->can('export_getstatus'), $part_svc->part_export ) {
+
+      $footer .= '<BR><BR>'.
+                 include('/elements/popup_link.html', {
+                   'action'      => $p.'view/svc_Status.html'.
+                                      '?svcnum='. $svc_dsl->svcnum,
+                   'label'       => 'View line status', #link
+                   'actionlabel' => 'View line status', #popup border
+                   'width'       => 763,
+                   'height'      => 300,
+                 });
+
+    }
+
     $footer .= '<BR><BR>'.
                include( '/view/elements/svc_devices.html',
                           'svc_x'   => $svc_dsl,