From 42638dec45ee1f2f8a2bb4e147d1a8ea171629b5 Mon Sep 17 00:00:00 2001 From: levinse Date: Mon, 20 Dec 2010 03:14:53 +0000 Subject: self-service improvements: DIDs, RT10885 --- fs_selfservice/FS-SelfService/cgi/ws_list.html | 27 ++++++++++++++++++++++++-- 1 file changed, 25 insertions(+), 2 deletions(-) (limited to 'fs_selfservice/FS-SelfService/cgi/ws_list.html') diff --git a/fs_selfservice/FS-SelfService/cgi/ws_list.html b/fs_selfservice/FS-SelfService/cgi/ws_list.html index 93425e107..f4beedf33 100644 --- a/fs_selfservice/FS-SelfService/cgi/ws_list.html +++ b/fs_selfservice/FS-SelfService/cgi/ws_list.html @@ -55,6 +55,8 @@ else { $pkgparts{$pkg->{pkgpart}}{pkg} = $part_pkg->{pkg}; } + $OUT .= "
"; + $OUT .= qq! !; my($pkgpart,$counts); while(($pkgpart,$count) = each %pkgparts){ @@ -68,8 +70,10 @@ else { } $OUT .= "
PackageStatus
"; + $OUT .= qq!
!; + if ( @login_svcpart ) { - $OUT .= "


Self-service accounts
"; + $OUT .= "Self-service accounts
"; foreach my $pkg ( @cust_pkg ) { @cust_svc = @{$pkg->{cust_svc}}; @part_svc = @{$pkg->{part_svc}}; @@ -98,6 +102,25 @@ else { } # foreach cust_pkg } # login_svcpart -} + my $hasPhone = 0; + foreach my $pkg ( @cust_pkg ) { + @cust_svc = @{$pkg->{cust_svc}}; + foreach my $cust_svc ( @cust_svc ) { + @label = @{$cust_svc->{'label'}}; + $hasPhone = 1 if $label[2] eq 'svc_phone'; + } + } + if ( $hasPhone ) { + $link = "${url}didreport;type="; + $OUT .= "


Download currently allocated DIDs:
"; + $OUT .= qq!   CSV | + Excel!; + $OUT .= "

Download recently allocated DIDs:
"; + $OUT .= qq!   CSV | + Excel!; + } + + $OUT .= "
"; +} %> -- cgit v1.2.1