diff options
| author | ivan <ivan> | 2011-11-10 03:30:08 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-11-10 03:30:08 +0000 |
| commit | b94ed29118969c5e2b50de7d3316c98d0c29e800 (patch) | |
| tree | dd340047249531a0ebbbaf1bc911920745bca690 /httemplate | |
| parent | df195cb3693e22891c8b36cc9cd913740ee68f6e (diff) | |
DSL status pulling, RT#13656
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/view/svc_Status.html | 22 | ||||
| -rw-r--r-- | httemplate/view/svc_dsl.cgi | 13 |
2 files changed, 35 insertions, 0 deletions
diff --git a/httemplate/view/svc_Status.html b/httemplate/view/svc_Status.html new file mode 100644 index 000000000..94fa1e456 --- /dev/null +++ b/httemplate/view/svc_Status.html @@ -0,0 +1,22 @@ +<& /elements/header-popup.html, + { + 'title' => '', + 'nobr' => 0, #1 for no <BR><BR> after the title + } +&> +% foreach my $export ( grep $_->can('export_getstatus'), $part_svc->part_export ) { +% my $html = ''; +% my %hash = (); +% $export->export_getstatus( $svc_x, \$html, \%hash ); +<% $html %> +% } +<%init> + +$cgi->param('svcnum') =~ /^(\d+)$/ or die 'illegal svcnum'; +my $svcnum = $1; + +my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); +die "Unknown svcnum" unless $cust_svc; +my $svc_x = $cust_svc->svc_x; + +</%init> diff --git a/httemplate/view/svc_dsl.cgi b/httemplate/view/svc_dsl.cgi index 477da268b..0b1ebd702 100644 --- a/httemplate/view/svc_dsl.cgi +++ b/httemplate/view/svc_dsl.cgi @@ -65,6 +65,19 @@ 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_dsl_status.html'. + '?svcnum='. $svc_dsl->svcnum, + 'label' => 'View line status', + 'width' => 763, + 'height' => 256, + }); + + } + $footer .= '<BR><BR>'. include( '/view/elements/svc_devices.html', 'svc_x' => $svc_dsl, |